张志峰的博客

水滴石川,积少成多。
随笔 - 1205, 文章 - 0, 评论 - 84, 阅读 - 242万

导航

< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8

Delphi 为TClientdataset定义结果集,并增加记录 


procedure addDefsFieldsForCDS(aDataSet: TClientDataSet);
begin
  aDataSet.Data := null;
  aDataSet.FieldDefs.Clear;
  aDataSet.FieldDefs.Add('ID', ftString, 100);
  aDataSet.FieldDefs.Add('CODE', ftString, 100);
  aDataSet.FieldDefs.Add('NEW_L_CODE', ftString, 100);
  aDataSet.FieldDefs.Add('OLD_L_CODE', ftString, 100);
  aDataSet.CreateDataSet;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 addDefsFieldsForCDS(ClientDataSet1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('ID').AsString := '100';
  ClientDataSet1.FieldByName('CODE').AsString := '100';
  ClientDataSet1.FieldByName('NEW_L_CODE').AsString := '100';
  ClientDataSet1.FieldByName('OLD_L_CODE').AsString := '100';
  ClientDataSet1.Post;
end;

努力加载评论中...
点击右上角即可分享
微信分享提示