clientdata.txt

来自「本系统为演示Delphi的功能而开发设计」· 文本 代码 · 共 14 行

  Table1.Active:=True;
  Dbgrid1.datasource:=DataSource2;
  ClientDataSet1.LoadFromFile('C:\Program Files\xygl\test.cds');
  ClientDataSet1.Active:=True;
  ClientDataSet1.First;
  While not ClientDataSet1.EOF Do
        ClientDataSet1.Delete;
  ClientDataSet1.SaveToFile('C:\Program Files\xygl\test.cds');
  except
  ClientDataSet1.LoadFromFile('C:\Program Files\xygl\test.cds');
  ClientDataSet1.Active:=True;
  Dbgrid1.datasource:=DataSource1;
  End;