input.pas

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

unit input;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, DBClient, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    DataSource2: TDataSource;
    DBNavigator1: TDBNavigator;
    DataSource3: TDataSource;
    Table2: TTable;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tempstr:string;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Try
  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;
end;

end.