newconn.ssc

PowerBuilder8.0开发分散式应用所帶的例程

<!--SCRIPT PSOBJMOD
    import( site.GetRootDocument().location + "/ObjMod80.ssc" );
    session.active = true;
    InitObjects(session);
-->
<!--SCRIPT // {{ SCRIPT()
  var webRoot = site.GetRootDocument();
  import ( webRoot.location + '/system/utils/strtable.ssc' );
  import ( webRoot.location + '/system/utils/wizard.ssc' );
  
  var connWiz;
  var connResult;
  
  function connTypeNext()
  {
    if( connWiz.connType.value == "ODBC" ) {
      return( "datasource" );
    } else {
      return( "server" );
    }
  }
  
  function connUserIdNext()
  {
    if( connWiz.connType.value == "ODBC" ) {
      return( "password" );
    } else {
      return( "passwordLast" );
    }
  }
  
  connWiz.name = new wizardPage( 'Text',
    IntlStr.wizNewConn.p1.title,
    IntlStr.wizNewConn.p1.explanation,
    IntlStr.wizNewConn.p1.question
    );

  connWiz.description = new wizardPage( 'Text',
    IntlStr.wizNewConn.p2.title,
    IntlStr.wizNewConn.p2.explanation,
    IntlStr.wizNewConn.p2.question
    );

  connWiz.connType = new wizardPage( 'Choice',
    IntlStr.wizNewConn.connType.title,
    IntlStr.wizNewConn.connType.explanation,
    IntlStr.wizNewConn.connType.question,
    IntlStr.wizNewConn.connType.choices,
    0,
    connTypeNext
    );

  connWiz.datasource = new wizardPage( 'Choice',
    IntlStr.wizNewConn.p3.title,
    IntlStr.wizNewConn.p3.explanation,
    IntlStr.wizNewConn.p3.question,
    site.dataSourceList,
    0,
    "userid"
    );

  connWiz.server = new wizardPage( 'Text',
    IntlStr.wizNewConn.server.title,
    IntlStr.wizNewConn.server.explanation,
    IntlStr.wizNewConn.server.question,
    null,
    0,
    "dbase"
    );

  connWiz.dbase = new wizardPage( 'Text',
    IntlStr.wizNewConn.dbase.title,
    IntlStr.wizNewConn.dbase.explanation,
    IntlStr.wizNewConn.dbase.question,
    null,
    0,
    "userid"
    );

  connWiz.userid = new wizardPage( 'Text',
    IntlStr.wizNewConn.p4.title,
    IntlStr.wizNewConn.p4.explanation,
    IntlStr.wizNewConn.p4.question,
    0,
    null,
    connUserIdNext
    );

  connWiz.password = new wizardPage( 'Password',
    IntlStr.wizNewConn.p5.title,
    IntlStr.wizNewConn.p5.explanation,
    IntlStr.wizNewConn.p5.question,
    null,
    0,
    "connParms"
    );
    
  connWiz.passwordLast = new wizardPage( 'Password',
    IntlStr.wizNewConn.p5.title,
    IntlStr.wizNewConn.p5.explanation,
    IntlStr.wizNewConn.p5.question,
    null,
    0,
    -1
    );
    
  connWiz.connParms = new wizardPage( 'TextArea',
    IntlStr.wizNewConn.connParms.title,
    IntlStr.wizNewConn.connParms.explanation,
    IntlStr.wizNewConn.connParms.question
    );

  /* Display the wizard */
  if( site.CreateWizard(connWiz) ) {
    /* Create the new connection */
    if( connWiz.connType.value == "ODBC" ) {
      connResult = site.CreateConnection( connWiz.name.value, connWiz.description.value,
        connWiz.datasource.value, connWiz.userid.value, connWiz.password.value,
	    connWiz.connType.value, connWiz.connParms.value );
    } else {
      connResult = site.CreateConnection( connWiz.name.value, connWiz.description.value,
        connWiz.server.value, connWiz.userid.value, connWiz.passwordLast.value,
	    connWiz.connType.value, connWiz.dbase.value );
    }
    if( connResult == null ) {
      document.writeln( formatString( IntlStr.unableToCreate, connWiz.name.value ) );
      document.writeln( site.GetErrorInfo() );
    } 
  }
 
// }}
-->