home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Midas / Brfcase / srvrdm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  750 b   |  37 lines
  1. unit SrvrDM;
  2.  
  3. {
  4.   This is the server DataModule of the Briefcase demo.
  5. }
  6.  
  7. interface
  8.  
  9. uses
  10.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  11.   ComServ, ComObj, VCLCom, StdVcl, DataBkr, DBClient, Server_TLB,
  12.   Db, DBTables, Provider;
  13.  
  14. type
  15.   TBriefCaseDemo = class(TRemoteDataModule, IBriefCaseDemo)
  16.     Query1: TQuery;
  17.     Session1: TSession;
  18.     Database1: TDatabase;
  19.     DataSetProvider1: TDataSetProvider;
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   BriefCaseDemo: TBriefCaseDemo;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. initialization
  34.   TComponentFactory.Create(ComServer, TBriefCaseDemo,
  35.     Class_BriefCaseDemo, ciMultiInstance, tmApartment);
  36. end.
  37.