冷枫@CSDN

CSharp程序员大本营:积累平凡就是积累卓越！有了翅膀，你就有了天空！钝到极点的刀才最具杀伤力——因为它是锤子！

installshield 12较6.0生成MS SQL数据库策略收藏

PB的软件打安装包，最不好弄是注册表和数据库，以前一直用installshield 6.3，注册表和数据库要手动写script，很烦，经常出错，因为is不跟踪调用的外部程序，所以出错的时候没有容错处理，没有报错，客户生成数据库的时候不行，就是不行，不知道为什么不行

这个是installshield 6.3的时候生成数据库的方法

＃i nclude "ifx.h"
//NNLL添加全局变量
BOOL bvType; //记录安装类型，是否服务器
string szMyse,szMyna,szMypa; //SQL的服务器名、用户名、登录密码
//NNLL添加完毕

在function OnFirstUIBefore()里，添加两个对方框，第一个是SelectType，用来给客户选择是不是安装服务器程序，如果是安装服务器程序，进入第二个对方框Dlg_SdShowDlgEdit3，在这里要求用户输入安装数据库的机器名、用户名和密码

//NNLL加入判断，安装的是服务器还是工作站
SelectType:
szMsg="请选择安装的计算机用于："   ;
bvCheck1 = TRUE;
bvCheck2 = FALSE;
bvType = TRUE;
nResult = AskOptions ( EXCLUSIVE , szMsg , "服务器" , bvCheck1 , "工作站" , bvCheck2 );
    if (nResult = BACK) goto Dlg_SdLicense2;
    if bvCheck2 = TRUE then
       //工作站，注册表项server=0
       bvType = FALSE;
    else
       //服务器，注册表项server=1
       bvType = TRUE;
   endif;

if bvType = TRUE then
Dlg_SdShowDlgEdit3:
    szMsg   = "请输入服务器名或服务器的IP地址、登录数据库的用户名和密码";
    szTitle = "请输入服务器信息";
    szField1 = "服务器名";
    szField2 = "用户名";
    szField3 = "密码";
    nResult = SdShowDlgEdit3 (szTitle, szMsg, szField1, szField2, szField3, szMyse, szMyna, szMypa);
    if (nResult = BACK) then
       goto SelectType;
    else
       if (szMyse = "") then
          MessageBox("请输入服务器名或IP地址",INFORMATION);
          goto Dlg_SdShowDlgEdit3;
       elseif (szMyna = "") then
          MessageBox("请输入数据库登录用户名",INFORMATION);
          goto Dlg_SdShowDlgEdit3;
       elseif (szMypa = "") then
          MessageBox("请输入数据库登录密码",INFORMATION);
          goto Dlg_SdShowDlgEdit3;
       endif;
    endif;
endif;
//NNLL修改完毕

添加OnEnd函数生成数据库

//NNLL开始添加函数
function OnEnd()
    string sztemp;
    string szFileNa;
    STRING szCmdLine,szWaitTxt;
begin
if !MAINTENANCE then      //非维护性代码，即只在安装时执行
   //修改ini文件
   szFileNa = TARGETDIR + "\\config.ini";
   sztemp = "LogPass = " + szMypa;
   FileInsertLine (szFileNa, sztemp, 3, REPLACE);
   sztemp = "ServerName = " + szMyse;
   FileInsertLine (szFileNa, sztemp, 4, REPLACE);
   sztemp = "LogId = " + szMyna;
   FileInsertLine (szFileNa, sztemp, 5, REPLACE);

   //修改nnll.sql
   szFileNa = TARGETDIR + "\\mydata\\nnll.sql";
   sztemp = "CREATE DATABASE [WLpalestra] ON (NAME = N'homelandj_Data', FILENAME = N'" + TARGETDIR + "\\mydata\\homelandj.MDF' , SIZE = 5, FILEGROWTH = 10%) LOG ON (NAME = N'homelandj_Log', FILENAME = N'" + TARGETDIR + "\\mydata\\homelandj_log.LDF' , FILEGROWTH = 10%)";
   FileInsertLine (szFileNa, sztemp, 1, REPLACE);
   sztemp = "FROM DISK = '" + TARGETDIR + "\\mydata\\nnll.bak'";
   FileInsertLine (szFileNa, sztemp, 44, REPLACE);

   //处理数据库
   if bvType then
      //MessageBox("服务器",INFORMATION);
      szWaitTxt=" 正在创建"+@PRODUCT_NAME+"所需数据库....";
      SdShowMsg (szWaitTxt, TRUE);
      Delay(2);
      //szCmdLine = "-U "+szMyna+" -P "+szMypa+" -S "+szMyse+" -Q \"exec sp_attach_db N'GBWZ' , N'"+TARGETDIR ^"\\wzgldata\\GBWZ_Data.mdf'\"";
      szCmdLine = "-U "+szMyna+" -P "+szMypa+" -S "+szMyse+" -E -i \"" + TARGETDIR + "\\nnll.sql\"";
      //MessageBox(szCmdLine,INFORMATION);
      if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
          MessageBox ("数据库创建失败！请确认您的系统中已安装 Microsoft SQL Server 2000.\n如仍无法解决，请联系系统供应商！",SEVERE);
      endif;
    endif;
endif;
end;