data.pas

程序採用了无状态连接池的三层结构

unit data;

interface

uses
  SysUtils, Classes, MConnect, ObjBrkr, DB, DBClient, SConnect;

type
  TDatam = class(TDataModule)
    SCTlx: TSocketConnection;
    SOBlx: TSimpleObjectBroker;
    CDSpermiss: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Datam: TDatam;

implementation

uses Global;

{$R *.dfm}

procedure TDatam.DataModuleCreate(Sender: TObject);
begin
  try
    sctlx.LoginPrompt:=False; 
    sctlx.Connected:=False;
    if not sctlx.Connected then
      begin
        with soblx do
          begin
            if Servers.Count = 0 then
              begin
                Servers.Add;
                servers.Items[0].ComputerName:=gs_ServerName;
              end
              else
              begin
                Servers.Add;
                Servers.Items[Servers.Count-1].ComputerName:=gs_Servername;
              end;
          end;
          Sctlx.ObjectBroker:=soblx;
          sctlx.ServerGUID:='{E21C3EEA-650E-47C5-8C5E-5067A36610DE}';//'{1BD08387-BEDB-4860-8B7D-6E12C576B796}';//
          sctlx.ServerName:='pserver.pooler';//'proserver.Mypooler';//
          sctlx.Connected:=True;
      end;
      if sctlx.Connected then
        gs_connect:=1
        else
        gs_connect:=0;
  except
    on Exception do;
  end;
end;

procedure TDatam.DataModuleDestroy(Sender: TObject);
begin
  sctlx.Connected:=false;
  sctlx.ObjectBroker:=nil;
  sctlx.ServerGUID:='';
  sctlx.ServerName:='';
  soblx.Servers.Clear;  
end;

end.