delphi 实现数据库连接封装到dll

library Project1;

uses

SysUtils,

dbtables, // 需要自己搞

Dialogs,

Classes;

procedure dbconnect( database:tdatabase);stdcall;

begin

try

if database.Connected=true then

begin

database.Connected:=false;

end

else

begin

database.AliasName:='xx';

database.databasename:='xx';

database.loginprompt:=false;

database.Params.Values['USER NAME']:='admin';

database.params.values['PASSWORD']:='123';

database.Connected:=true;

end;

except on e:exception do

begin

showmessage(e.message);

end;

exports dbconnect ;

{$R *.RES}

begin

end.

调用程序的源代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, DBTables;

type

TForm1 = class(TForm)

Database1: TDatabase;

DataSource1: TDataSource;

Query1: TQuery;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure dbconnect(database:tdatabase);stdcall;external'Project1.dll'

procedure TForm1.Button1Click(Sender: TObject);

begin

try

dbconnect(database1);

query1.Databasename:='xx';

datasource1.DataSet:=query1;

dbgrid1.DataSource:=datasource1;

with query1 do

begin

close;

sql.clear;

sql.Add('select * from x.hehe);

open;

end;

query1.Active:=true;

except on e:exception do

begin

showmessage(e.message);

end;

end.

推荐分享