unit DataSnapServerData;

interface

uses {vcl:} SysUtils, Classes, DB, DBClient, 
     {RemObjects:} uRODataSnapModule, Provider, ADODB;

type
  TDataSnapServerDataForm = class(TRODataSnapModule)
    con_SqlServer: TADOConnection;
    qry_customers: TADOQuery;
    prv_customers: TDataSetProvider;
    qry_Products: TADOQuery;
    prv_products: 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('IAppServer', Create_DataSnapModule, TAppServer_Invoker);
  //TROPooledClassFactory.Create('IAppServer', Create_DataSnapModule, TIAppServer_Invoker, 10, pbCreateAdditional);
  //TROPerClientClassFactory.Create('IAppServer', Create_DataSnapModule, TIAppServer_Invoker, 10, pbCreateAdditional);
end.