home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / newpw.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.4 KB  |  122 lines
  1. VERSION 4.00
  2. Begin VB.Form frmNewPassword 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Set Password"
  5.    ClientHeight    =   1995
  6.    ClientLeft      =   3645
  7.    ClientTop       =   3540
  8.    ClientWidth     =   3750
  9.    Height          =   2400
  10.    HelpContextID   =   2016136
  11.    Icon            =   "NEWPW.frx":0000
  12.    Left            =   3585
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1995
  18.    ScaleWidth      =   3750
  19.    Top             =   3195
  20.    Width           =   3870
  21.    Begin VB.TextBox txtVerify 
  22.       Height          =   285
  23.       Left            =   120
  24.       MaxLength       =   20
  25.       PasswordChar    =   "*"
  26.       TabIndex        =   2
  27.       Top             =   1560
  28.       Width           =   1695
  29.    End
  30.    Begin VB.CommandButton cmdCancel 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "&Cancel"
  33.       Default         =   -1  'True
  34.       Height          =   375
  35.       Left            =   2040
  36.       TabIndex        =   4
  37.       Top             =   960
  38.       Width           =   1575
  39.    End
  40.    Begin VB.CommandButton cmdOK 
  41.       Caption         =   "&OK"
  42.       Height          =   375
  43.       Left            =   2040
  44.       TabIndex        =   3
  45.       Top             =   360
  46.       Width           =   1575
  47.    End
  48.    Begin VB.TextBox txtNewPW 
  49.       Height          =   285
  50.       Left            =   120
  51.       MaxLength       =   20
  52.       PasswordChar    =   "*"
  53.       TabIndex        =   1
  54.       Top             =   960
  55.       Width           =   1695
  56.    End
  57.    Begin VB.TextBox txtOldPW 
  58.       Height          =   285
  59.       Left            =   120
  60.       PasswordChar    =   "*"
  61.       TabIndex        =   0
  62.       Top             =   360
  63.       Width           =   1695
  64.    End
  65.    Begin VB.Label lblLabels 
  66.       AutoSize        =   -1  'True
  67.       Caption         =   "Verify:"
  68.       Height          =   195
  69.       Index           =   2
  70.       Left            =   120
  71.       TabIndex        =   7
  72.       Top             =   1320
  73.       Width           =   435
  74.    End
  75.    Begin VB.Label lblLabels 
  76.       AutoSize        =   -1  'True
  77.       Caption         =   "New Password:"
  78.       Height          =   195
  79.       Index           =   1
  80.       Left            =   120
  81.       TabIndex        =   6
  82.       Top             =   720
  83.       Width           =   1110
  84.    End
  85.    Begin VB.Label lblLabels 
  86.       AutoSize        =   -1  'True
  87.       Caption         =   "Old Password:"
  88.       Height          =   195
  89.       Index           =   0
  90.       Left            =   120
  91.       TabIndex        =   5
  92.       Top             =   120
  93.       Width           =   1020
  94.    End
  95. Attribute VB_Name = "frmNewPassword"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99. Private Sub cmdCancel_Click()
  100.   Unload Me
  101. End Sub
  102. Private Sub cmdOK_Click()
  103.   On Error GoTo OKErr
  104.   Dim sTmp As String
  105.   Dim usr As User
  106.   If txtNewPW.Text <> txtVerify.Text Then
  107.     Beep
  108.     MsgBox "Invalid New Password Verification, try again.", 48
  109.     txtVerify.SetFocus
  110.     Exit Sub
  111.   End If
  112.   gwsMainWS.Users(gwsMainWS.UserName).NewPassword txtOldPW.Text, txtNewPW.Text
  113.   Unload Me
  114.   Exit Sub
  115. OKErr:
  116.   ShowError
  117.   Exit Sub
  118. End Sub
  119. Private Sub Form_Load()
  120.   CenterMe Me, gnMDIFORM
  121. End Sub
  122.