Class TQueryDlg (unit Query) |
Inherits from
TForm
procedure BitBtn1Click(Sender: TObject);
ok
procedure BitBtn2Click(Sender: TObject);
cancel
procedure FormCreate(Sender: TObject);
*form's preferences**********************************************************} {on create
procedure SpeedButton1Click(Sender: TObject);
delete item from list
procedure SpeedButton2Click(Sender: TObject);
*buttons*********************************************************************} {restore list
procedure SpeedButton3Click(Sender: TObject);
filter
procedure SetList;
stores table name*custom routines*************************************************************} {set list
procedure SetQuery;
set query
Bevel1 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
Label1 : TLabel;
Label2 : TLabel;
Label4 : TLabel;
lstFields : TcwListBox;
queryPrint : TQuery;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpinEdit1 : TSpinEdit;
FSQL : string;
Public declarations
FSQLWhereClause : TStringList;
FTable : string;
Private declarations
procedure BitBtn1Click(Sender: TObject);
ok
procedure BitBtn2Click(Sender: TObject);
cancel
procedure FormCreate(Sender: TObject);
*form's preferences**********************************************************} {on create
procedure SpeedButton1Click(Sender: TObject);
delete item from list
procedure SpeedButton2Click(Sender: TObject);
*buttons*********************************************************************} {restore list
procedure SpeedButton3Click(Sender: TObject);
filter
procedure SetList;
stores table name
*custom routines*************************************************************} {set list
procedure SetQuery;
set query
Bevel1 : TBevel;
Bevel3 : TBevel;
Bevel4 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
Label1 : TLabel;
Label2 : TLabel;
Label4 : TLabel;
lstFields : TcwListBox;
queryPrint : TQuery;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpinEdit1 : TSpinEdit;
FSQL : string;
Public declarations
FSQLWhereClause : TStringList;
FTable : string;
Private declarations