unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Button1: TButton;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    user: TEdit;
    pass: TEdit;
    database: TEdit;
    port: TEdit;
    rlogin: TButton;
    Button2: TButton;
    Label5: TLabel;
    ip: TEdit;
    top: TPanel;
    procedure dbconn();
    procedure mshow(str:string);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure rloginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.dbconn;
begin
try
adoconnection1.Connected:=false;
adoconnection1.Close;
adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+user.Text+';Initial Catalog='+database.Text+';Data Source='+ip.Text+','+port.Text+';password='+pass.Text;
adoconnection1.Connected:=true;
rlogin.Enabled:=true;
except
rlogin.Enabled:=false;
mshow('連線資料庫出現錯誤!!');
end;
end;
procedure TForm1.mshow(str:string);
begin
showmessage(str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mshow(Edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DBconn();
end;
procedure TForm1.rloginClick(Sender: TObject);
begin
try
adoconnection1.Connected:=false;
adoconnection1.Close;
rlogin.Enabled:=false;
except
showmessage('斷開資料庫連線時出現錯誤!!');
end;
end;

end.