Class TfrmGrid32 (unit main32)

Inherits from

TForm

Constructors



Functions

procedure btnPreviewClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

We only enable the field list when the rbSelectFields button is set

procedure rbAllFieldsClick(Sender: TObject);

dup function from qrexta, used to guess the maximum width of a field

procedure rgRecordsClick(Sender: TObject);

Call the field selection event to initialize the values

Properties

Events

Variables

btnPreview : TButton;


cBoxArea : TCheckBox;


cBoxGroupByContininent : TCheckBox;


cBoxPopulation : TCheckBox;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


dstbCountry : TDataSource;


GroupBoxFields : TGroupBox;


GroupBoxGroups : TGroupBox;


GroupBoxSummary : TGroupBox;


ListBoxFields : TListBox;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


qryCountry : TQuery;


qryCountryArea : TFloatField;


qryCountryCapital : TStringField;


qryCountryContinent : TStringField;


qryCountryName : TStringField;


qryCountryPopulation : TFloatField;


rbAllFields : TRadioButton;


rbSelectFields : TRadioButton;


rgRecords : TRadioGroup;



Constructors


Functions


procedure btnPreviewClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

We only enable the field list when the rbSelectFields button is set


procedure rbAllFieldsClick(Sender: TObject);

dup function from qrexta, used to guess the maximum width of a field


procedure rgRecordsClick(Sender: TObject);

Call the field selection event to initialize the values


Properties


Events


Variables


btnPreview : TButton;


cBoxArea : TCheckBox;


cBoxGroupByContininent : TCheckBox;


cBoxPopulation : TCheckBox;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


dstbCountry : TDataSource;


GroupBoxFields : TGroupBox;


GroupBoxGroups : TGroupBox;


GroupBoxSummary : TGroupBox;


ListBoxFields : TListBox;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


qryCountry : TQuery;


qryCountryArea : TFloatField;


qryCountryCapital : TStringField;


qryCountryContinent : TStringField;


qryCountryName : TStringField;


qryCountryPopulation : TFloatField;


rbAllFields : TRadioButton;


rbSelectFields : TRadioButton;


rgRecords : TRadioGroup;