| Class TfrmGrid32 (unit main32) |
TForm
| Constructors |
| Functions |
procedure btnPreviewClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure rbAllFieldsClick(Sender: TObject);
procedure rgRecordsClick(Sender: TObject);| 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;