home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / resource / netcomm / wcomm / disk2 / passwrd.fr_ / passwrd.bin (.txt)
Encoding:
Visual Basic Form  |  1994-10-24  |  8.1 KB  |  253 lines
  1. VERSION 2.00
  2. Begin Form frmManage 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Manage Passwords"
  5.    ControlBox      =   0   'False
  6.    Height          =   3912
  7.    HelpContextID   =   56328
  8.    Left            =   2340
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3492
  13.    ScaleWidth      =   5712
  14.    Top             =   2100
  15.    Width           =   5808
  16.    Begin CommandButton btnHelp 
  17.       Caption         =   "&Help"
  18.       Height          =   375
  19.       Left            =   4440
  20.       TabIndex        =   5
  21.       Top             =   3000
  22.       Width           =   1095
  23.    End
  24.    Begin ListBox lstPasswords 
  25.       Height          =   1785
  26.       Left            =   120
  27.       Sorted          =   -1  'True
  28.       TabIndex        =   10
  29.       Top             =   1080
  30.       Width           =   4215
  31.    End
  32.    Begin CheckBox chkClosedSystem 
  33.       Caption         =   "Adm&it only callers with pre-defined passwords"
  34.       Height          =   255
  35.       Left            =   120
  36.       TabIndex        =   8
  37.       Top             =   480
  38.       Width           =   4215
  39.    End
  40.    Begin CommandButton btnLockList 
  41.       Caption         =   "&Lock List..."
  42.       Height          =   375
  43.       Left            =   1680
  44.       TabIndex        =   6
  45.       Top             =   3000
  46.       Width           =   1335
  47.    End
  48.    Begin CommandButton btnDelete 
  49.       Caption         =   "&Delete"
  50.       Height          =   375
  51.       Left            =   4440
  52.       TabIndex        =   4
  53.       Top             =   2160
  54.       Width           =   1095
  55.    End
  56.    Begin CommandButton btnAdd 
  57.       Caption         =   "&Add..."
  58.       Height          =   375
  59.       Left            =   4440
  60.       TabIndex        =   2
  61.       Top             =   1200
  62.       Width           =   1095
  63.    End
  64.    Begin CommandButton btnModify 
  65.       Caption         =   "&Modify..."
  66.       Height          =   375
  67.       Left            =   4440
  68.       TabIndex        =   3
  69.       Top             =   1680
  70.       Width           =   1095
  71.    End
  72.    Begin CommandButton btnClose 
  73.       Cancel          =   -1  'True
  74.       Caption         =   "&Close"
  75.       Default         =   -1  'True
  76.       Height          =   375
  77.       Left            =   120
  78.       TabIndex        =   0
  79.       Top             =   3000
  80.       Width           =   1335
  81.    End
  82.    Begin CommandButton btnBrowse 
  83.       Caption         =   "&Browse..."
  84.       Height          =   375
  85.       Left            =   4440
  86.       TabIndex        =   1
  87.       Top             =   120
  88.       Width           =   1095
  89.    End
  90.    Begin TextBox txtPasswordFile 
  91.       Height          =   285
  92.       Left            =   1560
  93.       TabIndex        =   7
  94.       Top             =   120
  95.       Width           =   2775
  96.    End
  97.    Begin Label Label1 
  98.       Caption         =   " Last name, First name"
  99.       Height          =   255
  100.       Left            =   120
  101.       TabIndex        =   11
  102.       Top             =   840
  103.       Width           =   2175
  104.    End
  105.    Begin Label lblFileName 
  106.       Caption         =   "&Password file:"
  107.       Height          =   255
  108.       Left            =   120
  109.       TabIndex        =   9
  110.       Top             =   120
  111.       Width           =   1335
  112.    End
  113. ' The follwoing declarations are used for version control reasons only
  114. ' and are not used within the application
  115. ' "$Revision:   1.9  $"
  116. ' "$Date:   07 Jun 1993 15:43:50  $"
  117. Option Explicit
  118. Sub btnAdd_Click ()
  119.     ' Set caption for the form
  120.     frmPrivileges.Caption = sPrivAddTitle
  121.     ' These buttons are not valid for addition of new passwords
  122.     frmPrivileges.btnNext.Visible = False
  123.     frmPrivileges.btnPrevious.Visible = False
  124.     ' Reset these values
  125.     frmPrivileges.txtFirstName.Enabled = True
  126.     frmPrivileges.txtLastName.Enabled = True
  127.     frmPrivileges.txtPassword.Enabled = True
  128.     frmPrivileges.lblFirstName.Enabled = True
  129.     frmPrivileges.lblLastName.Enabled = True
  130.     frmPrivileges.lblPassword.Enabled = True
  131.     ' Set default values for adding new passwords
  132.     SetPasswordDefaults
  133.     ' Display the form
  134.     frmPrivileges.Show (1)
  135. End Sub
  136. Sub btnBrowse_Click ()
  137.     frmBrowse.cmbFileType.Clear
  138.     frmBrowse.cmbFileType.AddItem "Password files (*.pwd)"
  139.     frmBrowse.cmbFileType.AddItem "Text files (*.txt)"
  140.     frmBrowse.cmbFileType.AddItem "All files (*.*)"
  141.     frmBrowse.cmbFileType.ListIndex = 0
  142.     frmBrowse.Show (1)
  143. End Sub
  144. Sub btnBrowse_GotFocus ()
  145.     If Len(sCommDlgFile) <> 0 Then
  146.         txtPasswordFile.Text = sCommDlgFile
  147.     End If
  148.     sCommDlgFile = ""
  149. End Sub
  150. Sub btnCancel_Click ()
  151.     frmManage.Hide
  152. End Sub
  153. Sub btnClose_Click ()
  154.     StoreHostSettings
  155.     StoreUserSettings
  156.     frmManage.Hide
  157. End Sub
  158. Sub btnDelete_Click ()
  159.     Dim sTemp As String
  160.     Dim iResult As Integer
  161.     If frmManage.lstPasswords.ListIndex = 0 Then
  162.         MsgBox "This item cannot be removed from the password list.", MB_OK Or MB_ICONEXCLAMATION, "Error"
  163.         Exit Sub
  164.     End If
  165.     sTemp = "Are you sure you want to remove " + aPasswords(lstPasswords.ListIndex).sFirst + " " + aPasswords(lstPasswords.ListIndex).sLast + " from the password list?"
  166.     iResult = MsgBox(sTemp, MB_OKCANCEL Or MB_ICONQUESTION, "Delete Password")
  167.     If iResult = IDOK Then
  168.         RemovePassword frmManage.lstPasswords.ListIndex
  169.     Else
  170.         Exit Sub
  171.     End If
  172. End Sub
  173. Sub btnDetails_Click ()
  174.     frmPrivileges.Show (1)
  175. End Sub
  176. Sub btnHelp_Click ()
  177.     Help
  178. End Sub
  179. Sub btnLockList_Click ()
  180.     If StrComp(frmManage.btnLockList.Caption, sLockText, 0) = 0 Then
  181.         frmLock.Show (1)
  182.     Else
  183.         frmManage.btnLockList.Caption = sLockText
  184.         sLockWord = ""
  185.         StoreHostSettings
  186.         MsgBox "The password list has been UNLOCKED.", MB_OK Or MB_ICONINFORMATION, "Password List Unlocked"
  187.     End If
  188. End Sub
  189. Sub btnModify_Click ()
  190.     ' Set caption for the form
  191.     frmPrivileges.Caption = sPrivModifyTitle
  192.     ' These may have been disabled by a previous operation
  193.     frmPrivileges.btnNext.Visible = True
  194.     frmPrivileges.btnPrevious.Visible = True
  195.     ' Set values for modifying selected password
  196.     If frmManage.lstPasswords.ListIndex = 0 Then
  197.         frmPrivileges.txtFirstName.Enabled = False
  198.         frmPrivileges.txtLastName.Enabled = False
  199.         frmPrivileges.txtPassword.Enabled = False
  200.         frmPrivileges.lblFirstName.Enabled = False
  201.         frmPrivileges.lblLastName.Enabled = False
  202.         frmPrivileges.lblPassword.Enabled = False
  203.         iPasswordIndex = frmManage.lstPasswords.ListIndex
  204.         SetPasswordDefaults
  205.         frmPrivileges.txtFirstName.Text = sNewDefaultsText
  206.     Else
  207.         frmPrivileges.txtFirstName.Enabled = True
  208.         frmPrivileges.txtLastName.Enabled = True
  209.         frmPrivileges.txtPassword.Enabled = True
  210.         frmPrivileges.lblFirstName.Enabled = True
  211.         frmPrivileges.lblLastName.Enabled = True
  212.         frmPrivileges.lblPassword.Enabled = True
  213.         iPasswordIndex = frmManage.lstPasswords.ListIndex
  214.         GetPasswordDetails
  215.     End If
  216.     ' Display the form
  217.     fNameModified = False
  218.     fChanges = False
  219.     frmPrivileges.Show (1)
  220. End Sub
  221. Sub btnOK_Click ()
  222.     StoreHostSettings
  223.     frmManage.Hide
  224. End Sub
  225. Sub Form_Activate ()
  226.     If Len(sLockWord) = 0 Then
  227.         frmManage.btnLockList.Caption = sLockText
  228.     Else
  229.         frmManage.btnLockList.Caption = sUnlockText
  230.     End If
  231.     If (frmManage.lstPasswords.ListIndex = -1) Then
  232.         btnModify.Enabled = False
  233.         btnDelete.Enabled = False
  234.     End If
  235.     If (fCallerOnLine) Then
  236.         frmManage.lblFileName.Enabled = False
  237.         frmManage.txtPasswordFile.Enabled = False
  238.         frmManage.btnBrowse.Enabled = False
  239.     Else
  240.         frmManage.lblFileName.Enabled = True
  241.         frmManage.txtPasswordFile.Enabled = True
  242.         frmManage.btnBrowse.Enabled = True
  243.     End If
  244.         
  245. End Sub
  246. Sub lstPasswords_Click ()
  247.     btnModify.Enabled = True
  248.     btnDelete.Enabled = True
  249. End Sub
  250. Sub lstPasswords_DblClick ()
  251.     btnModify.Value = True
  252. End Sub
  253.