Class TQueryDlg (unit Query)

Inherits from

TForm

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


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