data.pas

医院信息管理系统 后台采用ORACLE

unit Data;

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, Server_TLB, StdVcl, Db, MemDS, Ora, OraSmart, Provider,
  DBTables, OraProvider, DBAccess, OdacVcl;

type
  TDatas = class(TRemoteDataModule, IDatas)
    OraSession: TOraSession;
    Query: TSmartQuery;
    DataSetProvider: TDataSetProvider;
    ConnectDialog: TConnectDialog;
    OraProvider: TOraProvider;
    procedure OraSessionConnectChange(Sender: TObject; Connected: Boolean);
    procedure DatasCreate(Sender: TObject);
    procedure DatasDestroy(Sender: TObject);
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  public
    { Public declarations }
  end;

var
  Datas:TDatas;

implementation
uses ServerForm;
var
  CountConnection:integer;

{$R *.DFM}

class procedure TDatas.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TDatas.DatasCreate(Sender: TObject);
var
  St:string;
begin
  if not Assigned(Datas) then begin
    Datas:= TDatas(Sender);
    St:= Query.SQL.Text;

    fmServer.meSQL.Lines.Text:= St;
    fmServer.cbDebug.Checked:= Query.Debug;
    fmServer.DataSource.DataSet:= Query;
    fmServer.rbDSResolve.Checked:= OraProvider.ResolveToDataset;
    fmServer.rbSQLResolve.Checked:= not OraProvider.ResolveToDataset;
  end;

  Inc(CountConnection);
  fmServer.StatusBar.Panels[0].Text:= 'Count connections ' + IntToStr(CountConnection);
end;

procedure TDatas.DatasDestroy(Sender: TObject);
begin
  if Datas = TDatas(Sender) then begin
    fmServer.DataSource.DataSet:= nil;
    Datas:= nil;
  end;

  Dec(CountConnection);
  fmServer.StatusBar.Panels[0].Text:= 'Count connections ' + IntToStr(CountConnection);
end;

procedure TDatas.OraSessionConnectChange(Sender: TObject;
  Connected: Boolean);
begin
  if Connected then
    Inc(CountConnection)
  else
    Dec(CountConnection);

  fmServer.StatusBar.Panels[0].Text:= 'Count connections ' + IntToStr(CountConnection);
end;

initialization
  TComponentFactory.Create(ComServer, TDatas,
    Class_Datas, ciMultiInstance{, tmApartment});
end.