日期:2010-09-07  浏览次数:21080 次

  ///////////////////////////////////////////////////////////////////////////////
  //
  // FUNCTION: OnMaintUIAfter
  //
  // EVENT: MaintUIAfter event is sent after file transfer, when end user runs
  // installation that has already been installed on the machine. Usually
  // this happens through Add/Remove Programs Applet.
  // In the handler installation usually displays UI that will inform
  // end user that maintenance/uninstallation has been completed successfully.
  //
  ///////////////////////////////////////////////////////////////////////////////
  function OnMaintUIAfter()
  STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
  NUMBER bOpt1, bOpt2;
  begin
  Disable(STATUSEX);
  bOpt1 = FALSE;
  bOpt2 = FALSE;
  szMsg1 = SdLoadString(IFX_SDFINISH_MAINT_MSG1);
  szMsg2 = "";
  szOption1 = "";
  szOption2 = "";
  szTitle = SdLoadString(IFX_SDFINISH_MAINT_TITLE);
  SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);
  return 0;
  end;
  
  ///////////////////////////////////////////////////////////////////////////////
  //
  // FUNCTION: OnMoving
  //
  // EVENT: Moving event is sent when file transfer is started as a result of
  // ComponentTransferData call, before any file transfer operations
  // are performed.
  //
  ///////////////////////////////////////////////////////////////////////////////
  function OnMoving()
  STRING szAppPath;
  begin
  // Set LOGO Compliance Application Path
  // TO DO : if your application .exe is in a subfolder of TARGETDIR then add subfolder
  szAppPath = TARGETDIR;
  RegDBSetItem(REGDB_APPPATH, szAppPath);
  RegDBSetItem(REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY);
  
  end;
  
  // --- include script file section ---
  
  
  function LoginSQL( szTitle,szSqlsvname,szSqluser,szSqlpassword )
  
  STRING szDlg, szTemp;
  NUMBER bDone, nId, nMessage, nTemp;
  INT hwndDlg;
  HWND hwndControl;
  begin
  szDlg = "DLG_LoginSQLSV";
  
  // record data produced by this dialog
  if (MODE=SILENTMODE) then
  SdMakeName( szAppKey, szDlg, szTitle, nLoginSQL );
  SilentReadData( szAppKey, "Result", DATA_NUMBER, szTemp, nId );
  if ((nId != BACK) && (nId != CANCEL)) then
  SilentReadData( szAppKey, "szSqlsvname", DATA_STRING, szSqlsvname, nTemp );
  SilentReadData( szAppKey, "szSqluser", DATA_STRING, szSqluser, nTemp );
  SilentReadData( szAppKey, "szSqlpassword", DATA_STRING, szSqlpassword, nTemp );
  endif;
  
  return nId;
  endif;
  
  // ensure general initialization is complete
  if (!bSdInit) then
  SdInit();
  endif;
  
  if (EzDefineDialog( szDlg, "", "",DLG_LoginSQLSV ) = DLG_ERR) then
  return -1;
  endif;
  
  // 在用户选择标准按钮前进行循环
  bDone = FALSE;
  
  while (!bDone)
  
  nId = Wai