Class TForm1 (unit Testform) |
Inherits from
TForm
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs;
procedure FormActivate(Sender: TObject);
procedure LoadBtnClick(Sender: TObject);
procedure OrigBtnClick(Sender: TObject);
point the database to local dir!
procedure QuitBtnClick(Sender: TObject);
procedure SaveBtnClick(Sender: TObject);
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
LoadBtn : TButton;
OrigBtn : TButton;
Panel1 : TPanel;
QuitBtn : TButton;
SaveBtn : TButton;
TestTable : TTable;
procedure FormActivate(Sender: TObject);
procedure LoadBtnClick(Sender: TObject);
procedure OrigBtnClick(Sender: TObject);
point the database to local dir!
procedure QuitBtnClick(Sender: TObject);
procedure SaveBtnClick(Sender: TObject);
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
LoadBtn : TButton;
OrigBtn : TButton;
Panel1 : TPanel;
QuitBtn : TButton;
SaveBtn : TButton;
TestTable : TTable;