Class TDBAwareForm (unit DbAware)

Inherits from

TForm

Constructors



Functions

procedure CancelQueryClick(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure ComboBox2Change(Sender: TObject);


procedure DBFilter1Change(Sender: TObject);


procedure DBGrid1CheckButton(Sender: TObject; ACol: Longint; Field: TField; var Enabled: Boolean);


procedure DBGrid1TitleBtnClick(Sender: TObject; ACol: Longint; Field: TField);


procedure EnterQueryClick(Sender: TObject);


procedure ExecQueryClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Public declarations

procedure FormCreate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);


procedure rxDBGrid1GetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);


procedure rxDBLookupCombo1Change(Sender: TObject);


procedure rxDBLookupCombo1GetImage(Sender: TObject; IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);

longest

procedure rxDBLookupCombo2Change(Sender: TObject);


procedure SetMacro(const MacroName, Value: string);

Private declarations

Properties

Events

Variables

CancelQuery : TSpeedButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


ComboBox2 : TComboBox;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DataSource3 : TDataSource;


DataSource4 : TDataSource;


DataSource5 : TDataSource;


DataSource6 : TDataSource;


DBFilter1 : TrxDBFilter;


DBGrid1 : TRxDBGrid;


DBIndexCombo1 : TDBIndexCombo;


DBNavigator : TDBNavigator;


DBNavigator1 : TDBNavigator;


DBStatusLabel1 : TDBStatusLabel;


DBStatusLabel2 : TDBStatusLabel;


Edit1 : TMaskEdit;


EditCity : TDBEdit;


EditCompany : TDBEdit;


EditCountry : TDBEdit;


EditCustNo : TDBEdit;


EditPhone : TDBEdit;


EditState : TDBEdit;


EditZip : TDBEdit;


EnterQuery : TSpeedButton;


ExecQuery : TSpeedButton;


FormStorage1 : TFormStorage;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


GroupBox7 : TGroupBox;


GroupBox8 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


PicClip : TPicClip;


QBEQuery1 : TQBEQuery;


RadioGroup1 : TRadioGroup;


rxDBGrid1 : TrxDBGrid;


rxDBGrid2 : TrxDBGrid;


rxDBLookupCombo1 : TrxDBLookupCombo;


rxDBLookupCombo2 : TrxDBLookupCombo;


rxQuery1 : TrxQuery;


rxQuery1AmountPaid : TCurrencyField;


rxQuery1Company : TStringField;


rxQuery1CustNo : TFloatField;


rxQuery1EmpNo : TIntegerField;


rxQuery1Freight : TCurrencyField;


rxQuery1ItemsTotal : TCurrencyField;


rxQuery1LastName : TStringField;


rxQuery1OrderNo : TFloatField;


rxQuery1PaymentMethod : TStringField;


rxQuery1PO : TStringField;


rxQuery1SaleDate : TDateTimeField;


rxQuery1ShipDate : TDateTimeField;


rxQuery1ShipToAddr1 : TStringField;


rxQuery1ShipToAddr2 : TStringField;


rxQuery1ShipToCity : TStringField;


rxQuery1ShipToContact : TStringField;


rxQuery1ShipToCountry : TStringField;


rxQuery1ShipToPhone : TStringField;


rxQuery1ShipToState : TStringField;


rxQuery1ShipToZip : TStringField;


rxQuery1ShipVIA : TStringField;


rxQuery1TaxRate : TFloatField;


rxQuery1Terms : TStringField;


ScrollBox : TScrollBox;


TabbedNotebook1 : TTabbedNotebook;


Table1 : TTable;


Table1Discount : TFloatField;


Table1ItemNo : TFloatField;


Table1OrderNo : TFloatField;


Table1PartNo : TFloatField;


Table1Qty : TIntegerField;


Table2 : TTable;


Table2Category : TStringField;


Table2Common_Name : TStringField;


Table2Graphic : TGraphicField;


Table2Lengthcm : TFloatField;


Table2Notes : TMemoField;


Table2SpeciesNo : TFloatField;


Table3 : TTable;


Table4 : TTable;



Constructors


Functions


procedure CancelQueryClick(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure ComboBox2Change(Sender: TObject);


procedure DBFilter1Change(Sender: TObject);


procedure DBGrid1CheckButton(Sender: TObject; ACol: Longint; Field: TField; var Enabled: Boolean);


procedure DBGrid1TitleBtnClick(Sender: TObject; ACol: Longint; Field: TField);


procedure EnterQueryClick(Sender: TObject);


procedure ExecQueryClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Public declarations


procedure FormCreate(Sender: TObject);


procedure RadioGroup1Click(Sender: TObject);


procedure rxDBGrid1GetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);


procedure rxDBLookupCombo1Change(Sender: TObject);


procedure rxDBLookupCombo1GetImage(Sender: TObject; IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);

longest


procedure rxDBLookupCombo2Change(Sender: TObject);


procedure SetMacro(const MacroName, Value: string);

Private declarations


Properties


Events


Variables


CancelQuery : TSpeedButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


ComboBox2 : TComboBox;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DataSource3 : TDataSource;


DataSource4 : TDataSource;


DataSource5 : TDataSource;


DataSource6 : TDataSource;


DBFilter1 : TrxDBFilter;


DBGrid1 : TRxDBGrid;


DBIndexCombo1 : TDBIndexCombo;


DBNavigator : TDBNavigator;


DBNavigator1 : TDBNavigator;


DBStatusLabel1 : TDBStatusLabel;


DBStatusLabel2 : TDBStatusLabel;


Edit1 : TMaskEdit;


EditCity : TDBEdit;


EditCompany : TDBEdit;


EditCountry : TDBEdit;


EditCustNo : TDBEdit;


EditPhone : TDBEdit;


EditState : TDBEdit;


EditZip : TDBEdit;


EnterQuery : TSpeedButton;


ExecQuery : TSpeedButton;


FormStorage1 : TFormStorage;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


GroupBox4 : TGroupBox;


GroupBox5 : TGroupBox;


GroupBox6 : TGroupBox;


GroupBox7 : TGroupBox;


GroupBox8 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


PicClip : TPicClip;


QBEQuery1 : TQBEQuery;


RadioGroup1 : TRadioGroup;


rxDBGrid1 : TrxDBGrid;


rxDBGrid2 : TrxDBGrid;


rxDBLookupCombo1 : TrxDBLookupCombo;


rxDBLookupCombo2 : TrxDBLookupCombo;


rxQuery1 : TrxQuery;


rxQuery1AmountPaid : TCurrencyField;


rxQuery1Company : TStringField;


rxQuery1CustNo : TFloatField;


rxQuery1EmpNo : TIntegerField;


rxQuery1Freight : TCurrencyField;


rxQuery1ItemsTotal : TCurrencyField;


rxQuery1LastName : TStringField;


rxQuery1OrderNo : TFloatField;


rxQuery1PaymentMethod : TStringField;


rxQuery1PO : TStringField;


rxQuery1SaleDate : TDateTimeField;


rxQuery1ShipDate : TDateTimeField;


rxQuery1ShipToAddr1 : TStringField;


rxQuery1ShipToAddr2 : TStringField;


rxQuery1ShipToCity : TStringField;


rxQuery1ShipToContact : TStringField;


rxQuery1ShipToCountry : TStringField;


rxQuery1ShipToPhone : TStringField;


rxQuery1ShipToState : TStringField;


rxQuery1ShipToZip : TStringField;


rxQuery1ShipVIA : TStringField;


rxQuery1TaxRate : TFloatField;


rxQuery1Terms : TStringField;


ScrollBox : TScrollBox;


TabbedNotebook1 : TTabbedNotebook;


Table1 : TTable;


Table1Discount : TFloatField;


Table1ItemNo : TFloatField;


Table1OrderNo : TFloatField;


Table1PartNo : TFloatField;


Table1Qty : TIntegerField;


Table2 : TTable;


Table2Category : TStringField;


Table2Common_Name : TStringField;


Table2Graphic : TGraphicField;


Table2Lengthcm : TFloatField;


Table2Notes : TMemoField;


Table2SpeciesNo : TFloatField;


Table3 : TTable;


Table4 : TTable;