Class TForm1 (unit QueryTest1)

Inherits from

TForm

Constructors



Functions

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);


Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;