link.pas

来自「仲裁委仲裁案件计酬程序.有基础资料设置、分级设置」· PAS 代码 · 共 47 行

unit Link;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms;

type
  TLinkSQL = class(TDataModule)
    PubLink: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private

    { Private declarations }
  public
  Connected: Boolean;
    { Public declarations }
  end;

var
  LinkSQL: TLinkSQL;

implementation

uses Main;

{$R *.dfm}    


procedure TLinkSQL.DataModuleCreate(Sender: TObject);
begin
Try
PubLink.KeepConnection:=True;
PubLink.LoginPrompt :=False;
PubLink.Open;
Connected:=true;
Except
Connected:=False;

End;
end;




end.