InstallShield自定义对话框浅谈(三) (转)

InstallShield自定义对话框浅谈(三) (转)[@more@] 

/*------------------------------------------------------------------------*/

/*  */

/*  Function:  BuildsqlServerDSN   */

/*  */

/*  Descrip:  use custom sqlserver's dsn dlg to create dsn.  */

/*   */

/*  Misc:  */

/*  */

/*------------------------------------------------------------------------*/

function BuildSQLServerDSN(bFirstStep, bAllowNotSet,szTitle)

  BOOL bDone;

  NUMBER nMessage;

  STRING szSQLAddr, szSQLdb, szDBUserName, szDBUserPwd, szSQLDSN;

  SHORT nDSNType;

  STRING svArg[1024];

  STRING svDSN, svAddr, svDB, svUID, svPWD;

  NUMBER nSplitPos;

  HWND hwndDlg;

  BOOL bBuildResult;

  SHORT wErrMsgLen;

  STRING szErrMsg[MAX_PATH + 1];

  LONG dwErrCode;

  begin

 

  bDone = FALSE;

// 用EzDefineDialog定义一个对话框

  nMessage = EzDefineDialog(DSN_SQLSERVER_DLG, ISUSER, "", DLG_DSN_SQLSERVER);

  if(nMessage = DLG_ERR) then

  MessageBox("不能进行配置SQLSERVER数据源——找不到对话框", SEVERE);

  bDone = TRUE;

  endif;

  while(bDone = FALSE)

  nMessage = WaitOnDialog(DSN_SQLSERVER_DLG);

  switch(nMessage)

  case DLG_INIT:

     hwndDlg = CmdGetHwndDlg(DSN_SQLSERVER_DLG);

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

   if(bFirstStep) then

  _WinSubEnableControl(hwndDlg, SD_PBUT_BACK, 0);

  endif;

  _WinSubSetWindowTitle(hwndDlg, szTitle);

  CtrlSetState(DSN_SQLSERVER_DLG, IDC_RADIO_DSN_USER, BUTTON_CHECKED);

 

  case DLG_ERR:

  MessageBox("不能显示配置SQLSERVER数据源对话框", SEVERE);

  bDone = TRUE;

 

  case CANCEL:

  bDone = TRUE;

 

  case DLG_CLOSE:

   bDone = TRUE;

 

  case SD_PBUT_CONTINUE:

  // 调用接口添加一个dsn

  // ...

  CtrlGetText(DSN_SQLSERVER_DLG, IDC_EDIT_DB_ADDR, szSQLAddr);

  CtrlGetText(DSN_SQLSERVER_DLG, IDC_EDIT_SQLSERVER_DB, szSQLDB);

  CtrlGetText(DSN_SQLSERVER_DLG, IDC_EDIT_SQLSERVER_USER_NAME, szDBUserName);

  CtrlGetText(DSN_SQLSERVER_DLG, IDC_EDIT_SQLSERVER_USER_PWD, szDBUserPwd);

  CtrlGetText(DSN_SQLSERVER_DLG, IDC_EDIT_SQLSERVER_DSN, szSQLDSN);

  if(StrLength(szSQLAddr) = 0) then

  if(AskYesNo("没有输入服务器，是否以后进行配置？", YES) = NO) then

  _WinSubFocuSCOntrol(hwndDlg, IDC_EDIT_DB_ADDR);

  else

  bDone = TRUE;

  endif;

  elseif(StrLength(szSQLDB) = 0) then

  if(AskYesNo("没有输入数据库，是否以后进行配置？", YES) = NO) then

  _WinSubFocusControl(hwndDlg, IDC_EDIT_SQLSERVER_DB);

  else

  bDone = TRUE;

  endif;

   elseif(StrLength(szDBUserName) = 0) then

  if(AskYesNo("没有输入数据库用户，是否以后进行配置？", YES) = NO) then

  _WinSubFocusControl(hwndDlg, IDC_EDIT_SQLSERVER_USER_NAME);

  else

  bDone = TRUE;

  endif;

  elseif(StrLength(szSQLDSN) = 0) then

  if(AskYesNo("没有输入数据源名称，是否以后进行配置？", YES) = NO) then

  _WinSubFocusControl(hwndDlg, IDC_EDIT_SQLSERVER_DSN);

  else

  bDone = TRUE;

  endif;

  else

  // 已经获取了所有数据，可以调用SQLConfigDatasource添加数据源了

  // 组织语句

  // 注：由于DSN不保存UID和PWD，所以在Attribute中不能加入这两个

  //  关键字，并且每个关键子之间用''分割，由于InstallShield

  //  中不支持一个字符串中间存在''，因此，不能直接用+连接这些

  //  关键字，下面是一个变通的方法

  if(CtrlGetState(DSN_SQLSERVER_DLG, IDC_RADIO_DSN_USER) = BUTTON_CHECKED) then

   nDSNType = ODBC_ADD_DSN;

  else

  nDSNType = ODBC_ADD_SYS_DSN;

  endif;

  svDSN = "DSN=" + szSQLDSN;

  svAddr = "SERVER=" + szSQLAddr;

  svDB = "DATABASE=" + szSQLDB;

  svUID = "UID=" + szDBUserName;

  svPWD = "PWD=" + szDBUserPwd;

  svArg = svDSN + ' ' + svAddr + ' ' + svDB;

  nSplitPos = StrLength(svDSN);

  svArg[nSplitPos] = '';

  nSplitPos += StrLength(svAddr) + 1;

  svArg[nSplitPos] = '';

  nSplitPos += StrLength(svDB) + 1;

  svArg[nSplitPos] = '';

  // 调用ODBCCP32中的SQLConfigDataSource添加一个DSN

  // 如果返回FALSE，表示添加失败，这时可以调用

  // SQLInstallerError来得到失败的原因

  bBuildResult = SQLConfigDataSource(NULL, nDSNType, "SQL SERVER", svArg);

  if(bBuildResult) then

     // 如果添加成功

    bDone = TRUE;

    else

    // 添加失败 

    wErrMsgLen = MAX_PATH;

    SQLInstallerError(1, &dwErrCode, szErrMsg, wErrMsgLen, &wErrMsgLen);

    if(bAllowNotSet) then

       szErrMsg = "配置数据源失败——" + szErrMsg + "！是否以后进行配置？";

    if(AskYesNo(szErrMsg, YES) = NO) then

    bDone = FALSE;

    else

    bDone = TRUE;

    endif;

    else

    szErrMsg = "配置数据源失败——" + szErrMsg + "！";

    MessageBox(szErrMsg, SEVERE);

    endif;

    endif;

   endif;

 

  case SD_PBUT_BACK:

  // 上一步

  bDone = TRUE;

 

  case SD_PBUT_EXITSETUP:

  bDone = TRUE;

 

  case IDC_RADIO_DSN_USER:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_RADIO_DSN_SYSTEM:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_EDIT_DB_ADDR:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_EDIT_SQLSERVER_USER_NAME:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_EDIT_SQLSERVER_USER_PWD:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_EDIT_SQLSERVER_DSN:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

 

  case IDC_EDIT_SQLSERVER_DB:

  CheckSQLServerDSNInputValid(hwndDlg, bAllowNotSet);

   

  endswitch;

 

  endwhile;

 

  EndDialog(DSN_SQLSERVER_DLG);

  ReleaseDialog(DSN_SQLSERVER_DLG);

 

  if(nMessage = SD_PBUT_CONTINUE) then

  return NEXT;

  elseif(nMessage = SD_PBUT_BACK) then

  return BACK;

  else

  Do(EXIT);

  endif;

  end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10794571/viewspace-974717/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10794571/viewspace-974717/