data.~pas

来自「在打沙场用的最简单」· ~PAS 代码 · 共 83 行

unit data;

interface

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

type
  TDatam = class(TDataModule)
    SCTlx: TSocketConnection;
    SOBlx: TSimpleObjectBroker;
    CDSpermiss: TClientDataSet;
    Database1: TDatabase;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    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}';
          sctlx.ServerName:='pserver.pooler';
          sctlx.Connected:=True;
      end;
      if sctlx.Connected then
        begin
        gs_connect:=1;
        database1.Connected:=true;
        end     else
        begin
        gs_connect:=0;
        database1.Connected:=false;
        end;
  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.