Sql OCommand.Execute（NULL、NULL、adCmdText或AdExecutenRecords）； 结束 其他的 开始 MsgBox（'缺少安装文件'），mbError，MB_OK）； 出境手续（7）； 结束； 最后 连接。关闭； 结束； 除

OCommand.Execute（NULL、NULL、adCmdText或AdExecutenRecords）； 结束 其他的 开始 MsgBox（'缺少安装文件'），mbError，MB_OK）； 出境手续（7）； 结束； 最后 连接。关闭； 结束； 除了 MsgBox（GetExceptionMessage，mbError，MB_OK）； 出境手续（5）； 结束； 结束； {CustomForm_NextkButtonClick} //尝试连接到提供的数据库。不需要捕获错误/在出现错误时关闭连接，因为失败的连接从未打开过。 函数CustomForm_NextButtonClick（页面：TWizardPage）：布尔值； 变量 连接：变体； 开始 //试一试 //创建ADO连接对象 ADOConnection:=CreateOleObject（'ADODB.Connection'）； //建立一个连接字符串；有关详细信息，请搜索ADO //Internet上的连接字符串 ADOConnection.ConnectionString:= 'Provider=SQLOLEDB；'+//供应商 '数据源='+txtServer.Text+'；'+//服务器名 '初始目录='+lstDatabase.Text+'；'+//服务器名 '应用程序名称='+'{#SetupSetting（“AppName”）}'+'执行SQL；'； 如果chkWindowsAuth.已选中，则 ADOConnection.ConnectionString:=ADOConnection.ConnectionString+ '集成安全性=SSPI；'//Windows身份验证 其他的 ADOConnection.ConnectionString:=ADOConnection.ConnectionString+ “用户Id=”+txtUsername.Text+”；“+//用户名 'Password='+txtPassword.Text+'；'；//密码 //通过分配的ConnectionString打开连接 连接。打开； 结果：=真； 结束； {CustomForm_CreatePage} 函数CustomForm_CreatePage（PreviousPageId:Integer）：整数； 开始 页面：=创建自定义页面( 前页ID， ExpandConstant（“{cm:CustomForm_Caption}”）， ExpandConstant（“{cm:CustomForm_Description}”） ); {lblServer} lblServer:=TLabel.Create（第页）； 使用lblServer do 开始 父项：=页面表面； 标题：=ExpandConstant（'{cm:CustomForm_lblServer_Caption0}'）； 左：=ScaleX（24）； 顶部：=ScaleY（32）； 宽度：=ScaleX（68）； 高度：=ScaleY（13）； 已启用：=真； 结束； {txtServer} txtServer:=TEdit.Create（第页）； 用txtServer做什么 开始 父项：=页面表面； 左：=ScaleX（112）； 顶部：=ScaleY（32）； 宽度：=ScaleX（273）； 高度：=ScaleY（21）； TabOrder:=1； 已启用：=真； OnChange:=@ServerOnChange； 结束； {lblAuthType} lblAuthType:=TLabel.Create（第页）； 用lblAuthType do 开始 父项：=页面表面； 标题：=ExpandConstant（“{cm:CustomForm_lblAuthType_Caption0}”）； 左：=ScaleX（24）； 顶部：=ScaleY（72）； 宽度：=ScaleX（87）； 高度：=ScaleY（13）； 已启用：=假； 结束； {chkWindowsAuth} chkWindowsAuth:=TRadioButton.Create（第页）； 使用chkWindowsAuth do 开始 父项：=页面表面； 标题：=ExpandConstant（“{cm:CustomForm_chkWindowsAuth_Caption0}”）； 左：=ScaleX（32）； 顶部：=ScaleY（88）； 宽度：=ScaleX（177）； 高度：=ScaleY（17）； 选中：=真； TabOrder:=2； TabStop:=真； OnClick:=@AuthOnChange； 已启用：=假； 结束； {chkSQLAuth} chkSQLAuth:=TRadioButton.Create（第页）； 使用chkSQLAuth do 开始 父项：=页面表面； 标题：=ExpandConstant（{cm:CustomForm_chkSQLAuth_Caption0}）； 左：=ScaleX（32）； 顶部：=ScaleY（108）； 宽度：=ScaleX（185）； 高度：=ScaleY（17）； TabOrder:=3； OnClick:=@AuthOnChange； 已启用：=假； 结束； {lblUser} lblUser:=TLabel.Create（第页）； 和卢瑟一起做 开始 父项：=页面表面； 标题：=ExpandConstant（'{cm:CustomForm_lblUser_Caption0}'）； 左：=ScaleX（56）； 顶部：=ScaleY（128）； 宽度：=ScaleX（58）； 高度：=ScaleY（13）； 已启用：=假； 结束； {lblPassword} lblPassword:=TLabel.Create（第页）； 用lblpassworddo 开始 父项：=页面表面； 标题：=ExpandConstant（“{cm:CustomForm_lblPassword_Caption0}”）； 左：=ScaleX（56）； 顶部：=ScaleY（152）； 宽度：=ScaleX（53）； 高度：=ScaleY（13）； 已启用：=假； 结束； {txtUsername} txtUsername:=TEdit.Create（第页）； 用txtUsername做 开始 父项：=页面表面； 左：=ScaleX（120）； 顶部：=ScaleY（128）； 宽度：=ScaleX（241）； 高度：=ScaleY（21）； 已启用：=假； TabOrder:=4； 结束； {txtPassword} txtPassword:=TPasswordEdit.Create（第页）； 用TXT密码做什么 开始 父项：=页面表面； 左：=ScaleX（120）； 顶部：=ScaleY（152）； 宽度：=ScaleX（241）； 高度：=ScaleY（21）； 已启用：=假； TabOrder:=5； 结束； {lblDatabase} lblDatabase:=TLabel.Create（第页）； 使用lblDatabase do 开始 父项：=页面表面； 标题：=ExpandConstant（'{cm:CustomForm_lblDatabase_Caption0}'）； 左：=ScaleX（56）； 顶部：=ScaleY（192）； 宽度：=ScaleX（53）； 高度：=ScaleY（13）； 已启用：=假； 结束； {lstDatabase} lstDatabase:=TComboBox.Create（第页）； 用LST数据库做什么 开始 父项：=页面表面； 左：=ScaleX（120）； 顶部：=ScaleY（192）； 宽度：=ScaleX（145）； 高度：=ScaleY（21）； 已启用：=假； TabOrder:=6； OnDropDown:=@RetrieveDatabaseList； OnChange:=@DatabaseOnChange； 结束； 用Page do 开始 OnNextButtonClick:=@CustomForm\u NextButtonClick； 结束； 结果：=Page.ID； 结束； 过程CurPageChanged（CurPageID:Integer）； 开始 //设置“下一步”按钮的初始状态。第一次加载页面时应禁用，但在用户单击“上一步”时应启用。 如果CurPageID=Page.ID，则 WizardForm.NextButton.Enabled:=bIsNextEnabled； 结束； 过程CurStepChanged（CurStep:TSetupStep）； 开始 //预安装步骤似乎是进行实际安装的最佳时机。问题是这不是传统的安装。不会将任何内容复制到用户的pc 如果CurStep=ssInstall，则 部署SQL