Class TForm1 (unit Tstrefrm)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

I have not set SelfRefreshTableX.

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;