delphi在TclientDataSet中動態創��

jinmy liao — Mon, 10 Apr 2006 04:49:00 GMT

procedure TForm1.Button1Click(Sender: TObject);
var
table:TclientDataSet;
i:integer;
begin
   table:=TClientDataset.Create(Application);
   // ��d��字段�?
   table.FieldDefs.Add('ID',ftInteger,0,False);

table.FieldDefs.Add('partno',ftString,10,False);

table.FieldDefs.Add('orderno',ftString,0,False);

table.CreateDataset;

table.Open;

for i:=1 to 5 do

begin

table.Append;

table.FieldByName('ID').AsInteger:=i;

table.FieldByName('partno').AsString:='sdfa';

table.FieldByName('orderno').AsString:='dfa';

table.Post;

end;
showmessage(table.FieldByName('id').AsString);

end;

jinmy liao 2006-04-10 12:49 发表评论

亚洲精品无码久久一线,久久精品亚洲福利,亚洲人成人网站色www

delphi在TclientDataSet中動態創�����

delphi在TclientDataSet中動態創��