david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
63 lines
1.7 KiB
ObjectPascal
63 lines
1.7 KiB
ObjectPascal
unit MegaDemoClient_Data;
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
|
|
{Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces,
|
|
uDADataStreamer, uDARemoteDataAdapter, MegaDemoLibrary_Intf,
|
|
uDAScriptingProvider, uDACDSDataTable;
|
|
|
|
type
|
|
TMegaDemoClient_DataModule = class(TDataModule)
|
|
Message: TROBinMessage;
|
|
Channel: TROWinInetHTTPChannel;
|
|
RemoteService: TRORemoteService;
|
|
DataStreamer: TDABinDataStreamer;
|
|
rdaCustomers: TDARemoteDataAdapter;
|
|
tbl_Customers: TDACDSDataTable;
|
|
ds_Customers: TDADataSource;
|
|
tbl_OrdersByCustomer: TDACDSDataTable;
|
|
ds_OrdersByCustomer: TDADataSource;
|
|
rdaOrders: TDARemoteDataAdapter;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
procedure DataModuleDestroy(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
fLoginInfo: LoginInfo;
|
|
fLoginService: ILoginService;
|
|
fOrdersService: IOrdersService;
|
|
function LoggedIn: Boolean;
|
|
end;
|
|
|
|
var
|
|
MegaDemoClient_DataModule: TMegaDemoClient_DataModule;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TMegaDemoClient_DataModule }
|
|
|
|
function TMegaDemoClient_DataModule.LoggedIn: Boolean;
|
|
begin
|
|
Result := fLoginInfo <> nil;
|
|
end;
|
|
|
|
procedure TMegaDemoClient_DataModule.DataModuleCreate(Sender: TObject);
|
|
begin
|
|
fLoginService := CoLoginService.Create(Message, Channel);
|
|
fOrdersService := CoOrdersService.Create(message, Channel);
|
|
end;
|
|
|
|
procedure TMegaDemoClient_DataModule.DataModuleDestroy(Sender: TObject);
|
|
begin
|
|
if fLoginInfo <> nil then fLoginInfo.Free;
|
|
end;
|
|
|
|
end.
|
|
|