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.