我是Inno安装程序安装程序的新手。 我正在努力实现以下目标并遇到麻烦...
1）选择数据库类型 - MS-SQL或Oracle
的选项2）根据以上选择检查ms-sql或Oracle客户端驱动程序的ODBC驱动程序
3）获取数据库主机，用户名和密码
4）如果ms-sql使用上面的信息创建一个DSN条目。
当我运行安装程序时，我没有选择数据库类型（＃1）的选项，也没有调用该函数来检查驱动程序（＃2）。
感谢任何帮助。
提前感谢。
[Setup]
AppName=ODBC_Check
AppVerName=ODBC_Check
DefaultDirName={pf}\ODBC_Check
DisableStartupPrompt=true
SetupLogging=true
Compression=lzma/Max
SolidCompression=yes
Uninstallable=no
[INI]
;Filename: "{app}\DB_Params.ps1"; Section: "DB_PARAMS"; Key: "$DB_TYPE"; String: """{code:DBType.Values}"""
Filename: "{app}\DB_Params.ps1"; Section: "DB_PARAMS"; Key: "$DB_HOSTNAME"; String: """{code:GetDBValues|Database Host Name or IP Address}"""
Filename: "{app}\DB_Params.ps1"; Section: "DB_PARAMS"; Key: "$DB_USERNAME"; String: """{code:GetDBValues|Database User Name}"""
Filename: "{app}\DB_Params.ps1"; Section: "DB_PARAMS"; Key: "$DB_PASSWORD"; String: """{code:GetDBValues|Database User Password}"""
[Code]
var
UserPage: TInputQueryWizardPage;
DBSelectionPage: TInputOptionWizardPage;
DBParametersPage: TInputQueryWizardPage;
procedure InitializeWizard;
begin
UserPage := CreateInputQueryPage(wpWelcome,
'Personal Information', 'Who are you?',
'Please specify your name and the company for whom you work, then click Next.');
UserPage.Add('Name:', False);
UserPage.Add('Company:', False);
DBSelectionPage := CreateInputOptionPage(UserPage.ID,
'Database Selection', 'Database Type to use?',
'Please select only one Databae type to use, then click Next.',
True, True);
DBSelectionPage.Add('MS-SQL');
DBSelectionPage.Add('Oracle');
DBParametersPage := CreateInputQueryPage(DBSelectionPage.ID,
'Database Connection Information', 'Please enter the Database Host, Username and Password.',
'');
DBParametersPage.Add('Database Host Name or IP Address', False);
DBParametersPage.Add('Database User Name', FALSE);
DBParametersPage.Add('Database User Password', TRUE);
UserPage.Values[0] := GetPreviousData('Name', ExpandConstant('{sysuserinfoname}'));
UserPage.Values[1] := GetPreviousData('Company', ExpandConstant('{sysuserinfoorg}'));
case GetPreviousData('DBSelectionMode', '') of
'mssql': DBSelectionPage.SelectedValueIndex := 0;
'oracle': DBSelectionPage.SelectedValueIndex := 1;
else
DBSelectionPage.SelectedValueIndex := 0;
end;
end;
procedure RegisterPreviousData(PreviousDataKey: Integer);
var
DBSelectionMode: String;
begin
SetPreviousData(PreviousDataKey, 'Name', UserPage.Values[0]);
SetPreviousData(PreviousDataKey, 'Company', UserPage.Values[1]);
SetPreviousData(PreviousDataKey, 'Database Host Name or IP Address', DBParametersPage.Values[0]);
SetPreviousData(PreviousDataKey, 'Database User Name', DBParametersPage.Values[1]);
SetPreviousData(PreviousDataKey, 'Database User Password', DBParametersPage.Values[2]);
case DBSelectionPage.SelectedValueIndex of
0: DBSelectionMode := 'mssql';
1: DBSelectionMode := 'oracle';
end;
SetPreviousData(PreviousDataKey, 'DBSelectionMode', DBSelectionMode);
end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
ErrorCode: Integer;
ODBCDriverInstalled : Boolean;
ORADriverInstalled : Boolean;
Result1 : Boolean;
begin
Result := True;
if CurPageID = DBSelectionPage.ID then begin
if DBSelectionPage.Values[0] then begin
ODBCDriverInstalled := RegKeyExists(HKLM,'SOFTWARE\ODBC\ODBCINST.INI\SQL Server Native Client 11.0');
if ODBCDriverInstalled then
begin
Result := true;
end else
begin
Result1 := MsgBox('This setup requires the ODBC Driver to connect to the Database. Please download and install. Do you want to download the ODBC Driver now?',
mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
Result:=false;
MsgBox('Setup cannot continue without MS-SQL ODBC Driver. Please install appropriate ODBC driver and re-run the DB Setup Assistant. You can safely choose "Cancel" to exit.', mbInformation, MB_OK);
end else
begin
Result1:=false;
ShellExec('open',
'http://download.microsoft.com/download/a/a/c/aac39226-8825-44ce-90e3-bf8203e74006/dotnetfx.exe',
'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end else begin
Result := True;
if CurPageID = DBSelectionPage.ID then begin
if DBSelectionPage.Values[1] then
ORADriverInstalled := RegKeyExists(HKLM,'SOFTWARE\ODBC\ODBCINST.INI\ORACLE');
if ORADriverInstalled then
begin
Result := true;
end else
begin
Result1 := MsgBox('This setup requires the ORACLE Driver to connect to the Database. Please download and install. Do you want to download the ORACLE Driver now?',
mbConfirmation, MB_YESNO) = idYes;
if Result1 =false then
begin
Result:=false;
MsgBox('Setup cannot continue without ORACLE Driver. Please install appropriate ORACLE driver and re-run the DB Setup Assistant. You can safely choose "Cancel" to exit.', mbInformation, MB_OK);
end else
begin
Result1:=false;
ShellExec('open',
'http://Oracle.com',
'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end;
end;
end else begin
if CurPageID = UserPage.ID then begin
if UserPage.Values[0] = '' then begin
MsgBox('You must enter your name.', mbError, MB_OK);
Result := False;
end;
end else if CurPageID = DBParametersPage.ID then begin
if DBParametersPage.Values[0] = '' then begin
MsgBox('You must enter the Database Server Name or IP.', mbError, MB_OK);
Result := False;
end else if CurPageID = DBParametersPage.ID then begin
if DBParametersPage.Values[1] = '' then begin
MsgBox('You must enter the Database Username.', mbError, MB_OK);
Result := False;
end else if CurPageID = DBParametersPage.ID then begin
if DBParametersPage.Values[2] = '' then begin
MsgBox('You must enter the Database Password.', mbError, MB_OK);
Result := False;
end;
end;
end;
//end else
//begin
// Result := True;
if (CurPageId = wpSelectDir) and not FileExists(ExpandConstant('{app}\config.xlsx')) then begin
MsgBox('Please select the correct Config Directory', mbError, MB_OK);
Result := False;
exit;
end;
end;
end;
end;
function GetUser(Param: String): String;
begin
if Param = 'Name' then
Result := UserPage.Values[0]
else if Param = 'Company' then
Result := UserPage.Values[1];
end;
function GetDBValues(Param: String): String;
begin
if Param = 'Database Host Name or IP Address' then
Result := DBParametersPage.Values[0]
else if Param = 'Database User Name' then
Result := DBParametersPage.Values[1]
else if Param = 'Database User Password' then
Result := DBParametersPage.Values[2];
end;
// End of Script