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;
    end;    
 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;
end;

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

相关推荐

评论
