serversetup.~pas

来自「仓库管理信息系统」· ~PAS 代码 · 共 78 行

unit serversetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;

type
  Tserverfrm = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  serverfrm: Tserverfrm;

implementation

uses data;

{$R *.dfm}

procedure Tserverfrm.Button1Click(Sender: TObject);
var connetstr:string;
begin
  dm.serverads.Edit;
  dm.serverads.Post;
  connetstr:='Provider=SQLOLEDB.1;Data Source='+
    dm.serverads.fieldbyname('Data Source').Value+
    ';Initial Catalog='+
    dm.serverads.fieldbyname('Initial Catalog').Value+
    ';User ID='+
    dm.serverads.fieldbyname('User ID').Value+
    ';Password='+
    dm.serverads.fieldbyname('Password').Value;
  dm.adocn.ConnectionString:=connetstr;
try
  dm.adocn.Connected:=true;
  dm.serverads.Edit;
  dm.serverads.FieldByName('connet').Value:=true;
  dm.serverads.Post;
  showmessage('连接成功！');
  dm.serverads.Close;
  serverfrm.close;
except
   showmessage('无法连接服务器,请检查配置是否正确！');
end;
end;

procedure Tserverfrm.Button2Click(Sender: TObject);
begin
  dm.serverads.Close;
  application.Terminate;
end;

procedure Tserverfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.serverads.Close;
end;

end.