library DBInstall; { Important note about DLL memory management: ShareMem must be the first unit in your library''''s USES clause AND your project''''s (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses ComServ, SysUtils, Classes, Forms, uFrmMain in ''''uFrmMain.pas'''' {FrmMain}; { Open the MainForm, the entertance of Library} function OpenForm():integer; stdcall; var FrmMain: TFrmMain; begin FrmMain:=TFrmMain.Create(nil); FrmMain.ShowModal(); result:=0; FrmMain.Free; end; exports DllGetClassObject, DllCanUnloadNow, DllRegisterServer, DllUnregisterServer, OpenForm; {$R *.res} begin end. unit uFrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type TFrmMain = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; txtUserName: TEdit; txtPassword: TEdit; btnOK: TButton; dbConn: TADOConnection; ADOQuery1: TADOQuery; procedure FormShow(Sender: TObject); procedure btnOKClick(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation {$R *.dfm} procedure TFrmMain.FormShow(Sender: TObject); begin txtUserName.Text:=''''sa''''; txtPassword.Text:=''''''''; end; procedure TFrmMain.btnOKClick(Sender: TObject); var isErrRetry: bool; begin isErrRetry:=false; dbConn.ConnectionString:=''''Provider=SQLOLEDB.1;'''' +''''Password=''''+Trim(txtPassword.Text)+'''';Persist Security Info=True;User ID=''''+Trim(txtUserName.Text)+'''';Data Source=localhost''''; try dbConn.Open(); ADOQuery1.SQL.Text:=''''RESTORE DATABASE MyNwind FROM MyNwind_1''''; ADOQuery1.ExecSQL; except on E:Exception do begin if MessageDlg(''''存在错误:''''+E.Message+''''是否忽略'''',mtError,[mbRetry,mbIgnore],0)=mrRetry then isErrRetry:=true else isErrRetry:=false; end; end; dbConn.Close(); if not isErrRetry then ModalResult:=mrOK; end; end.
[系统软件]用RegDllView揪出所有已注册的dll/ocx [系统软件]Windows系统的活动大陆基石 细看DLL文件 [系统软件]Windows的活动大陆:细看DLL文件 [系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序 [常用软件]利用msdvm.dll实现微软虚拟桌面 [VB.NET程序]使用VB6.0设计ActiveX DLL事件 [VB.NET程序]Crystal Report(水晶报表)的报表封装成VB的DLL [VB.NET程序]用diskid.dll和disk32.dll获得硬盘序列号 [Delphi程序]为什么选择Delphi.Net ?
|