38 lines
1.0 KiB
ObjectPascal
38 lines
1.0 KiB
ObjectPascal
|
unit BusinessRulesScripts_ClientData;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
|
||
|
|
{Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
|
||
|
|
uDAScriptingProvider, uDACDSDataTable,
|
||
|
|
uDAPSScriptingProvider, uDADataStreamer, uDARemoteDataAdapter;
|
||
|
|
|
||
|
|
type
|
||
|
|
TBusinessRulesScripts_ClientDataModule = class(TDataModule)
|
||
|
|
ROMessage: TROBinMessage;
|
||
|
|
ROChannel: TROWinInetHTTPChannel;
|
||
|
|
RemoteService: TRORemoteService;
|
||
|
|
BinDataStreamer: TDABinDataStreamer;
|
||
|
|
dtProducts: TDACDSDataTable;
|
||
|
|
dsProducts: TDADataSource;
|
||
|
|
DAPSScriptingProvider: TDAPSScriptingProvider;
|
||
|
|
RemoteDataAdapter: TDARemoteDataAdapter;
|
||
|
|
dtOrderDetails: TDACDSDataTable;
|
||
|
|
dsOrderDetails: TDADataSource;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
BusinessRulesScripts_ClientDataModule: TBusinessRulesScripts_ClientDataModule;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
initialization
|
||
|
|
end.
|