david
0cbd2a5477
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@49 b6239004-a887-0f4b-9937-50029ccdca16
47 lines
1.3 KiB
ObjectPascal
47 lines
1.3 KiB
ObjectPascal
unit DataSnapServerData;
|
|
|
|
interface
|
|
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient, DataSnapServerInterfaces,
|
|
{RemObjects:} uRODataSnapModule, Provider, ADODB;
|
|
|
|
type
|
|
TDataSnapServerDataForm = class(TRODataSnapModule,IAppServer1)
|
|
con_SqlServer: TADOConnection;
|
|
qry_customers: TADOQuery;
|
|
prv_customers: TDataSetProvider;
|
|
qry_customersCustomerID: TWideStringField;
|
|
qry_customersCompanyName: TWideStringField;
|
|
qry_customersContactName: TWideStringField;
|
|
qry_customersContactTitle: TWideStringField;
|
|
qry_customersAddress: TWideStringField;
|
|
qry_customersCity: TWideStringField;
|
|
qry_customersRegion: TWideStringField;
|
|
qry_customersPostalCode: TWideStringField;
|
|
qry_customersCountry: TWideStringField;
|
|
qry_customersPhone: TWideStringField;
|
|
qry_customersFax: TWideStringField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DataSnapServerDataForm: TDataSnapServerDataForm;
|
|
|
|
implementation
|
|
|
|
uses {RemObjects:} uROServer, uRODataSnap_Invk, uROClassFactories;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure Create_DataSnapModule(out oInstance:IUnknown);
|
|
begin
|
|
oInstance := TDataSnapServerDataForm.Create(nil);
|
|
end;
|
|
|
|
initialization
|
|
TROClassFactory.Create('IAppServer1', Create_DataSnapModule, TAppServer_Invoker);
|
|
end.
|