| Class TForm1 (unit Tstrefrm) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DataSource3 : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
DBGrid3 : TDBGrid;
DBNavigator1 : TDBNavigator;
DBNavigator2 : TDBNavigator;
DBNavigator3 : TDBNavigator;
Label1 : TLabel;
SelfRefreshQuery1 : TSelfRefreshQuery;
SelfRefreshTable1 : TSelfRefreshTable;
SelfRefreshTable1ItemsTotal : TCurrencyField;
SelfRefreshTable1OrderNo : TFloatField;
SelfRefreshTable1ShipVIA : TStringField;
SelfRefreshTable2 : TSelfRefreshTable;
SelfRefreshTable2ItemNo : TFloatField;
SelfRefreshTable2OrderNo : TFloatField;
SelfRefreshTable2Qty : TIntegerField;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);I have not set SelfRefreshTableX.Active to true in the property-editor so you can load the form without errors even if something is wrong - e.g the Alias DBDEMOS is not set at your system. So errors will occur here:
procedure FormCreate(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DataSource3 : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
DBGrid3 : TDBGrid;
DBNavigator1 : TDBNavigator;
DBNavigator2 : TDBNavigator;
DBNavigator3 : TDBNavigator;
Label1 : TLabel;
SelfRefreshQuery1 : TSelfRefreshQuery;
SelfRefreshTable1 : TSelfRefreshTable;
SelfRefreshTable1ItemsTotal : TCurrencyField;
SelfRefreshTable1OrderNo : TFloatField;
SelfRefreshTable1ShipVIA : TStringField;
SelfRefreshTable2 : TSelfRefreshTable;
SelfRefreshTable2ItemNo : TFloatField;
SelfRefreshTable2OrderNo : TFloatField;
SelfRefreshTable2Qty : TIntegerField;