adddb_u.pas

实现了在开发的数据库程序中打包加入SQL数据库驱动并允许在安装程序服务器端时安装SQL数据库 这样可以不需要实施人员或客户单独安装SQL数据库程序

unit adddb_u;

interface

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

type
  Tadddb = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adddb: Tadddb;

implementation

uses RunWaitEXE;

{$R *.dfm}

procedure Tadddb.SpeedButton1Click(Sender: TObject);
var
fn:string;
begin
OpenDialog1.Filter:='数据库主文件 (*.mdf)|*.mdf';
if OpenDialog1.Execute then
  begin
    edit1.Text:=OpenDialog1.FileName;
    fn:=ExtractFileName(OpenDialog1.FileName);
    edit3.Text:=copy(FN,1,length(FN)-4);
  end;
end;

procedure Tadddb.SpeedButton2Click(Sender: TObject);
begin
OpenDialog1.Filter:='数据库日志文件 (*.ldf)|*.ldf';
if OpenDialog1.Execute then
  begin
    edit2.Text:=OpenDialog1.FileName;
  end;
end;

procedure Tadddb.BitBtn1Click(Sender: TObject);
begin
try
  adoquery1.SQL.Text:=format('sp_attach_db ''%s'', ''%s'', ''%s''',[edit3.Text,edit1.Text,edit2.Text]);
  adoquery1.ExecSQL;
  showmessage('数据库附加成功');
  close;
except
  on e:exception do
    begin
      showmessage(e.Message);
    end;
end;

end;

procedure Tadddb.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=RunWaitEXE.ADOCon;
end;

procedure Tadddb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.