ffactlin.pas

来自「This program is the database application」· PAS 代码 · 共 50 行

unit Ffactlin;

interface

uses
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
  QExtCtrls, QDBCtrls, QStdCtrls, DB, DBClient, QGrids, QDBGrids, QButtons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    DBImage1: TDBImage;
    DBText1: TDBText;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Label1: TLabel;
    DBText2: TDBText;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    DBMemo1: TDBMemo;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.LoadFromFile('C:\Program Files\Common files\Borland Shared\Data\biolife.cds');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

end.