server.dpr

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· DPR 代码 · 共 29 行

// Direct Oracle Access - Server
// Allround Automations
// [e-mail]
// http://www.allroundautomations.nl
//
// This application demonstrates:
// - The Server part of a 3 Tier application
// - The use of the TOracleProvider component

program Server;

uses
  Forms,
  ServerUnit in 'ServerUnit.pas' {MainForm},
  Server_TLB in 'Server_TLB.pas',
  ServerDM in 'ServerDM.pas' {RemoteDM: TDataModule} {RemoteDM: CoClass};

{$R *.RES}

{$R *.TLB}

begin
  Application.Initialize;
  // Prevent the MainForm from showing 
  Application.ShowMainForm := False;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.