小弟在測試3-tier程式,AP Server端是用SQLQueryM和SQLQueryD(主從關係) 加上DataSource,和DataSetProvider DataSource.DataSet:=SQLQueryM; SQLQueryD.DataSource:=DataSource; DataSetProvider.DataSet:=SQLQueryM; 在Client端AP中有 ClientDataSetM,ClientDataSetD 我要在程式碼裡面如何去add SQLQueryM的所有欄位包含DataSetFieldㄋ??

------
ivankuo

你是用Nested Tables實作Master/Detail 請問為何要動態加入及設定DataSetField, 我都是手動加入及設定DataSetField? Delphi Man

------
Delphi

cdsHD,cdsDL並沒有手動加入欄位     

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, DBClient, Provider;
type
  TForm1 = class(TForm)
    qHD: TQuery;
    Database1: TDatabase;
    Button1: TButton;
    Memo1: TMemo;
    tDL: TTable;
    DataSource1: TDataSource;
    pvMain: TDataSetProvider;
    cdsHD: TClientDataSet;
    cdsDL: TClientDataSet;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  memo1.Clear;
  memo2.Clear;
  cdsHD.Open;
  for i:= 0 to cdsHD.FieldCount - 1 do
  begin
    memo1.Lines.Add(cdsHD.Fields[i].FieldName);
    if (cdsHD.Fields[i] is TDataSetField) then
      cdsDL.DataSetField := TDataSetField(cdsHD.Fields[i]);
  end;
  for i:= 0 to cdsDL.FieldCount - 1 do
  begin
    memo2.Lines.Add(cdsDL.Fields[i].FieldName);
  end;
end;
end.
 

Delphi Man

------
Delphi

不好意思~~~我的意思是指Master的欄位要如何用code去add進來,而不是指Detail的DataSetField,小弟公司的程式很多都是在code裡面動態產生,原來2-tier的時候的ADOQuery的field也是動態產生,那現在若要改為3-tier,ADOQuery的位置放在AP Server上,那Client端的程式中ClientDataSet 的Field要如何產生ㄋ??

------
ivankuo

動態加入TFeild可參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25690 Delphi follower

------
Delphi