delphi ado 动态连接数据库

来源：互联网发布：大话西游3知乎编辑：程序博客网时间：2024/04/24 17:14

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.