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

最新推荐文章于 2016-12-01 14:20:41 发布

JavaProgramers

最新推荐文章于 2016-12-01 14:20:41 发布

阅读量4k

点赞数

分类专栏： [A] 安装和部署 [B].NET网站开发文章标签：数据库 sql 服务器脚本 server sqlserver

本文链接：https://blog.csdn.net/JavaProgramers/article/details/2293879

版权

[B].NET网站开发同时被 2 个专栏收录

168 篇文章 0 订阅

订阅专栏

[A] 安装和部署

27 篇文章 0 订阅

订阅专栏

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 ^"//nnll.sql/"";
      //MessageBox(szCmdLine,INFORMATION);
      if (LaunchAppAndWait("osql.exe", szCmdLine,WAIT) < 0) then
          MessageBox ("数据库创建失败！请确认您的系统中已安装 Microsoft SQL Server 2000./n如仍无法解决，请联系系统供应商！",SEVERE);
      endif;
    endif;
endif;
end;