原文:
说明一下：这块程序的前半部分在INNO SETUP的实例里面就有，而后面如果对数据库进行备份和还原在实例里面没有，在网上也不好找，是本人费了好大劲一句一句试出来的，请大家转摘时注明，以表示对个人劳动的尊重。谢谢！
[Code]
{--- SQLDMO ---}
//关于SQLDMO的相关知识大家可以去网上搜const
//SQL服务器名称，这个名称在安装SQL时会要求有个服务器名称的输入，所有每台机器上打开SQL服务器时看到的名称都不一样，如我如下图，但这里我们可以用一个通用的名称，就是（local），表示这个服务器是本地的。这样就可以了。 SQLServerName = '(LOCAL)';
SQLDMOGrowth_MB = 0;
//这是创建一个按钮按下的事件，这个按钮就是在安装向导中页面中建立的一个“配置数据库”的按钮procedure SQLDMOButtonOnClick(Sender: TObject);
var
//用到的一些变量SQLServer, Database, DBFile, LogFile: Variant;
IDColumn, NameColumn, Table,oBackup,oRestore: Variant;
db_path:string;
//这个变量用来保存读取注册表的键值 ResultStr: String;
begin
{ Create the main SQLDMO COM Automation object }
//检查是否已安装SQLtry
SQLServer := CreateOleObject('SQLDMO.SQLServer');
except
RaiseException('您还没有安装SQL数据库.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
end;
{ Connect to the Microsoft SQL Server }
//连接SQLSQLServer.LoginSecure := True;
SQLServer.Connect(SQLServerName);
//MsgBox('连接到SQL服务器 ''' + SQLServerName + '''.', mbInformation, mb_Ok);
{ Setup a database }
//创建SQL数据库文件Database := CreateOleObject('SQLDMO.Database');
Database.Name := 'dbase';
//要创建的数据库名称DBFile := CreateOleObject('SQLDMO.DBFile');
DBFile.Name := 'ISData1';
//数据库记录DBFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/dbase_Data.MDF';
DBFile.PrimaryFile := True;
DBFile.FileGrowthType := SQLDMOGrowth_MB;
DBFile.FileGrowth := 1;
Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);
LogFile := CreateOleObject('SQLDMO.LogFile');
LogFile.Name := 'ISLog1';
//数据库日记LogFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/dbase_Log.LDF';
Database.TransactionLog.LogFiles.Add(LogFile);
{ Add the database }
//添加数据库SQLServer.Databases.Add(Database);
//MsgBox('Added database ''' + Database.Name + '''.', mbInformation, mb_Ok);
//数据备份 oBackup := CreateOleObject('SQLDMO.Backup');
//创建一个备份对象 oBackup.Database := 'louyu';
//要备份的数据库名称 oBackup.Files := 'f:/louyu3.bak';
//备份到什么地方 oBackup.BackupSetName := 'louyu3.bak';
//备份的名称 oBackup.BackupSetDescription := 'bakDescription';
oBackup.Initialize := true;
oBackup.SQLBackup(sqlServer);
//执行SQL备份操作 //数据还原重点说明：//数据库的备份文件在打好的包中的某个位置，要还原数据库首先要找到备份的文件，找备份的文件的话在这之前还要知道软件安装到了什么地方，也就是安装路径。在程序安装时我们在注册表中建立了相关信息，其中有软件安装路径的记录，关于注册表请查阅前面写的“INNO SETUP注册表的添加与读取”。为什么还原数据库时用这种方法呢，好像是绕了个圈子一样，其实我也认为这可能不是一种好方法，但是在这我不知道还有什么别的方法来获得安装包中的数据（文件）或软件要安装的路径。{app}、{pf}等在这都无法直接使用，所以才用了这种笨方法。如果哪位朋友有好方法，请告知我。//从注册表中获得程序安装的路径，根据路径找到还原数据库的备份文件。if RegQueryStringValue(HKLM, 'SOFTWARE/*******', 'Server', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
msgbox(resultstr,mbinformation,mb_ok);
try
oRestore := CreateOleObject('SQLDMO.Restore');
//创建还原对象 oRestore.Database := 'dbase';
//还原的数据库名称 db_path:=resultstr + '/数据库文件/dbase.bak';
//备份文件的路径 MsgBox(db_path,mbinformation,mb_ok);
//测试一下看路径对不对 oRestore.files :=db_path;
//指定备份文件 oRestore.replacedatabase := true;
oRestore.sqlrestore(sqlserver);
//执行还原操作 MsgBox('数据库还原成功!',mbinformation,mb_ok);
except
MsgBox('数据库还原失败!,请重试或查阅帮助文档进行手动配置!',mbinformation,mb_ok);
end;
end;
end;
//数据库的创建与还原事件写完了，但是它不会智能的知道什么时候去执行，所以我们要告诉它什么时候执行。下面是在程序安装完，在结束页面上建立了一个ＢＵＴＴＯＮ按钮，当按下这个按钮时，会执行数据库的事件响应。{---}
//创建一个buttonprocedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);
begin
with TButton.Create(WizardForm) do begin
//button对象的创建 Left := ALeft;
//button的位置与宽高 Top := ATop;
Width := WizardForm.CancelButton.Width;
Height := WizardForm.CancelButton.Height;
Caption := ACaption;
//button的名称 OnClick := ANotifyEvent;
//这个是给创建的button指定一个父窗口，也就是说让它在哪个页面上边显示出来 Parent := WizardForm.finishedPage;
//这里指定的是窗体的结束页end;
end;
//初始化向导窗口procedure InitializeWizard();
var
Left, Top, TopInc: Integer;
begin
Left := WizardForm.WelcomeLabel2.Left;
TopInc := WizardForm.CancelButton.Height + 8;
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc;
//让上面创建的按钮显示出来，并且给它指定一个响应的事件CreateButton(Left, Top, '&配置SQL数据库', @SQLDMOButtonOnClick);
Top := Top + TopInc;
end;
