Пример клиентского приложения является частью группы проектов SimpleRemote.bpg и предназначен для взаимодействия с сервером приложений
simpleAppSrvr (рис. 22.5), процесс создания которого подробно рассматривался в гл. 21.
implementation
uses uMain,
Variants, Dialogs;
{$R *.dfm}
procedure TDM.SrvrConAfterConnect(Sender:
TObject);
var i: Integer;
begin
for i := 0
to SrvrCon.DataSetCount - 1 do
SrvrCon.DataSets[i].Open;
cdsVendors.Open;
end;
procedure TDM.SrvrConBeforeDisconnect(Sender:
TObject);
var i: Integer;
begin
for i := 0
to SrvrCon.DataSetCount - 1
do SrvrCon.DataSets[i].Close;
cdsVendors.Close;
end;
procedure TDM.cdsVendorsAfterScroll(DataSet:
TDataSet);
begin
fmMain.edCostSum.Text
:= VarToStr(cdsParts.Aggregates[0].Value);
fmMain.edPriceSum.Text
:= VarToStr(cdsParts.Aggregatesfl].Value);
end;
procedure TDM.cdsPartsReconcileError(DataSet:
TCustomClientDataSet;
E: EReconcileError;
UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
cdsParts.CancelUpdates;
MessageDlg(E.Message,
mtError, [mbOK], 0);
end;