home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / dbasepwddi.tcl < prev    next >
Text File  |  1996-09-27  |  2KB  |  92 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)dbasepwddi.tcl    /main/hindenburg/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)dbasepwddi.tcl    /main/hindenburg/2   27 Sep 1996 Copyright 1996 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12.  
  13. require wmt_util.tcl
  14.  
  15. # End user added include file section
  16.  
  17.  
  18. Class DbasePwdDialog : {LoginDialog} {
  19.     constructor
  20.     method destructor
  21.     method okHandler
  22.     method popUp
  23.     attribute executeScript
  24.     attribute tdbHost
  25.     attribute tdbName
  26. }
  27.  
  28. constructor DbasePwdDialog {class this name} {
  29.     set this [LoginDialog::constructor $class $this $name]
  30.     # Start constructor user section
  31.     $this config \
  32.         -title "Password" \
  33.         -okPressed "$this okHandler" \
  34.         -helpPressed "[getParent $this] helpOnName [nt_get_type $this]"
  35.     # End constructor user section
  36.     return $this
  37. }
  38.  
  39. method DbasePwdDialog::destructor {this} {
  40.     # Start destructor user section
  41.     # End destructor user section
  42. }
  43.  
  44. method DbasePwdDialog::okHandler {this} {
  45.     
  46.     set curConfig [[ClientContext::global] currentConfig]
  47.     global target
  48.     if {$target == "SYBASE" || $target == "SQLSERVER"} {
  49.         set context [$this tdbHost]
  50.     } else {
  51.         set context [$this tdbName]
  52.     }
  53.     #save the password in the M4var
  54.     m4_var set M4_password [$this entry] -context $context
  55.     eval [$this executeScript]
  56.     
  57. }
  58.  
  59. method DbasePwdDialog::popUp {this {script ""} {tdbHost ""} {tdbName ""}} {
  60.     set curConfig [[ClientContext::global] currentConfig]
  61.     if {$tdbHost == ""} {
  62.         $this tdbHost [$curConfig getPropertyValue tdbhost]
  63.     } else {
  64.         $this tdbHost $tdbHost
  65.     }
  66.     if {$tdbName == ""} {
  67.         $this tdbName [$curConfig getPropertyValue tdbname]
  68.     } else {
  69.         $this tdbName $tdbName
  70.     }
  71.     global target
  72.     case "$target" in {
  73.         {SYBASE SQLSERVER} {
  74.             set server [$this tdbHost]
  75.             $this message "Server: $server"
  76.         }
  77.         {ORACLE} {
  78.             set schema [$this tdbName]
  79.             $this message "Schema: $schema"
  80.         }
  81.         {default} {
  82.             set database [$this tdbName]
  83.             $this message "Database: $database"
  84.         }
  85.     }
  86.     $this executeScript "$script"
  87.     $this EntryDialog::popUp
  88. }
  89.  
  90. # Do not delete this line -- regeneration end marker
  91.  
  92.