請問N-Tiers in Delphi....

[KiKi]

==> 在 mares...@cypher.im.fju.edu.tw (小藍) 的文章中提到:
: 請問一個問題:
: 我用N-Tiers的架構寫了client端 與 server端兩支程式,
: 在client端的程式碼如下:
: var
: qarray: array[1..2] of string;
: ClientDataSet_q.Close;
: qarray[1] := Edit1.Text;
: qarray[2] := MaskEdit1.Text;
: RemoteServer1.AppServer.sql:=qarray;
: ^^^^^^^
: 傳陣列回server端
: ClientDataSet_q.Open;
: 在server端的程式碼如下:
: procedure Tdeparttserver.Set_sql(Value: OleVariant);
: begin
: Qsale.SQL.Clear;
: Qsale.Close;
: Qsale.SQL.Add('select * from d_sale.db where d_sale_num=:words and d_sale
: Qsale_d.ParamByName('words').Value:=Value[1];
: Qsale_d.ParamByName('dates').Value:=StrToDate(Value[2]);
: Qsale_d.Open;
: end;
: 問題是server端程式中的value變數無法接收client端的陣列,請問要如何修改程式呢??

這個問題在李維先生出的Delphi 3.0 Chap14 中有詳系的解說,有關N-tiers在傳送SQL Line時的用法,看看書吧,小朋友!!