| Class TQueryDlg (unit Query) |
TForm
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SetList;*custom routines*************************************************************} {set list
procedure SetQuery;| Properties |
| Events |
| Variables |
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;
FSQLWhereClause : TStringList;
FTable : string;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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