delphi ado 动态连接数据库

最新推荐文章于 2017-08-04 16:52:00 发布

冷月宫主

最新推荐文章于 2017-08-04 16:52:00 发布

阅读量2.2k

点赞数

分类专栏： MSSQL Delphi 文章标签： delphi button 数据库 string forms security

本文链接：https://blog.csdn.net/E_wsq/article/details/2980595

版权

Delphi 同时被 2 个专栏收录

45 篇文章 1 订阅

订阅专栏

MSSQL

22 篇文章 0 订阅

订阅专栏

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.