david
472097efe5
- Recompilación de todos los paquetes de RO para poner RemObjects_Core_D10 como paquete de runtime/designtime. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@5 b6239004-a887-0f4b-9937-50029ccdca16
63 lines
1.8 KiB
ObjectPascal
63 lines
1.8 KiB
ObjectPascal
unit CalcFields_ClientData;
|
|
|
|
interface
|
|
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
|
|
{Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
|
|
uDACDSDataTable, uDAScriptingProvider,
|
|
uDARemoteDataAdapter, uDADataStreamer, uROIndyTCPChannel,
|
|
uROIndyHTTPChannel, uDABin2DataStreamer, uDAMemDataTable;
|
|
|
|
type
|
|
TCalcFields_ClientDataForm = class(TDataModule)
|
|
ROMessage: TROBinMessage;
|
|
ROChannel: TROWinInetHTTPChannel;
|
|
RORemoteService: TRORemoteService;
|
|
DARemoteDataAdapter: TDARemoteDataAdapter;
|
|
DataStreamer: TDABin2DataStreamer;
|
|
tbl_Customers: TDAMemDataTable;
|
|
ds_Customers: TDADataSource;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
procedure tbl_CustomersCustomerIDChange(Sender: TDACustomField);
|
|
procedure tbl_CustomersCompanyNameChange(Sender: TDACustomField);
|
|
procedure tbl_CustomersCalcFields(DataTable: TDADataTable);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
CalcFields_ClientDataForm: TCalcFields_ClientDataForm;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
procedure TCalcFields_ClientDataForm.tbl_CustomersCalcFields(
|
|
DataTable: TDADataTable);
|
|
begin
|
|
DataTable.FieldByName('ClientCalculated').AsString := 'Got #' + DataTable.FieldByName('ServerCalculated').AsString;
|
|
end;
|
|
|
|
procedure TCalcFields_ClientDataForm.tbl_CustomersCompanyNameChange(
|
|
Sender: TDACustomField);
|
|
begin
|
|
Beep;
|
|
end;
|
|
|
|
procedure TCalcFields_ClientDataForm.tbl_CustomersCustomerIDChange(
|
|
Sender: TDACustomField);
|
|
begin
|
|
Beep;
|
|
end;
|
|
|
|
procedure TCalcFields_ClientDataForm.DataModuleCreate(Sender: TObject);
|
|
begin
|
|
DARemoteDataAdapter.SetupDefaultRequest;
|
|
end;
|
|
|
|
initialization
|
|
end.
|
|
|