Inherits from
TForm
procedure ApplyUpdates(Sender: TObject);
procedure BriefcaseLoad1Click(Sender: TObject);
procedure BriefcaseSave1Click(Sender: TObject);
procedure CustomerClientDataSetReconcileError(DataSet: TClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
procedure Exit1Click(Sender: TObject);
procedure OpenDataSets1Click(Sender: TObject);
Procedure: OpenDataSets1Click
Comments: I'm overdoing it here.
procedure Options1Click(Sender: TObject);
procedure RefreshServer1Click(Sender: TObject);
BriefcaseLoad1 : TMenuItem;
BriefcaseSave1 : TMenuItem;
CustomerClientDataSet : TClientDataSet;
CustomerEdit : TEdit;
CustomerSource : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
Exit1 : TMenuItem;
File1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
OpenDataSets1 : TMenuItem;
Options1 : TMenuItem;
OrdersClientDataSet : TClientDataSet;
OrdersEdit : TEdit;
OrdersSource : TDataSource;
RefreshServer1 : TMenuItem;
RemoteServer1 : TRemoteServer;
procedure ApplyUpdates(Sender: TObject);
procedure BriefcaseLoad1Click(Sender: TObject);
procedure BriefcaseSave1Click(Sender: TObject);
procedure CustomerClientDataSetReconcileError(DataSet: TClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
procedure Exit1Click(Sender: TObject);
procedure OpenDataSets1Click(Sender: TObject);
Procedure: OpenDataSets1Click
Comments: I'm overdoing it here. If you want, you can just write:
begin
CustomerClientDataSet.Open;
OrdersDataSet.Open;
end;
procedure Options1Click(Sender: TObject);
procedure RefreshServer1Click(Sender: TObject);
BriefcaseLoad1 : TMenuItem;
BriefcaseSave1 : TMenuItem;
CustomerClientDataSet : TClientDataSet;
CustomerEdit : TEdit;
CustomerSource : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
Exit1 : TMenuItem;
File1 : TMenuItem;
Label1 : TLabel;
Label2 : TLabel;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
OpenDataSets1 : TMenuItem;
Options1 : TMenuItem;
OrdersClientDataSet : TClientDataSet;
OrdersEdit : TEdit;
OrdersSource : TDataSource;
RefreshServer1 : TMenuItem;
RemoteServer1 : TRemoteServer;