Class TForm1 (unit QueryTest1) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
clean up - deactivate queries, delete temp alias, deactivate session
procedure Button2Click(Sender: TObject);
display setup
procedure FormClose(Sender: TObject; var Action: TCloseAction);
create param list, add path, activate session, add temp alias
procedure FormShow(Sender: TObject);
Button1 : TButton;
Button2 : TButton;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
DSQBE : TDataSource;
DSSQL : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LblCountQBE : TLabel;
LblCountSQL : TLabel;
LblElapsedQBE : TLabel;
LblElapsedSQL : TLabel;
Query1 : TQuery;
QueryQBE1 : TQueryQBE;
Session1 : TSession;
StatusBar1 : TStatusBar;
procedure Button1Click(Sender: TObject);
clean up - deactivate queries, delete temp alias, deactivate session
procedure Button2Click(Sender: TObject);
display setup
procedure FormClose(Sender: TObject; var Action: TCloseAction);
create param list, add path, activate session, add temp alias
procedure FormShow(Sender: TObject);
Button1 : TButton;
Button2 : TButton;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
DSQBE : TDataSource;
DSSQL : TDataSource;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LblCountQBE : TLabel;
LblCountSQL : TLabel;
LblElapsedQBE : TLabel;
LblElapsedSQL : TLabel;
Query1 : TQuery;
QueryQBE1 : TQueryQBE;
Session1 : TSession;
StatusBar1 : TStatusBar;