home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / NEWPW.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-09  |  4.4 KB  |  157 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNewPassword 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   1995
  6.    ClientLeft      =   3645
  7.    ClientTop       =   3540
  8.    ClientWidth     =   3750
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2460
  19.    HelpContextID   =   2016136
  20.    Icon            =   "NEWPW.frx":0000
  21.    Left            =   3585
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1995
  27.    ScaleWidth      =   3750
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   1  'CenterOwner
  30.    Top             =   3135
  31.    Width           =   3870
  32.    Begin VB.TextBox txtVerify 
  33.       Height          =   285
  34.       Left            =   120
  35.       MaxLength       =   20
  36.       PasswordChar    =   "*"
  37.       TabIndex        =   5
  38.       Top             =   1560
  39.       Width           =   1695
  40.    End
  41.    Begin VB.CommandButton cmdCancel 
  42.       Cancel          =   -1  'True
  43.       Caption         =   "
  44. (&C)"
  45.       Default         =   -1  'True
  46.       Height          =   375
  47.       Left            =   2040
  48.       MaskColor       =   &H00000000&
  49.       TabIndex        =   7
  50.       Top             =   960
  51.       Width           =   1575
  52.    End
  53.    Begin VB.CommandButton cmdOK 
  54.       Caption         =   "
  55. (&O)"
  56.       Height          =   375
  57.       Left            =   2040
  58.       MaskColor       =   &H00000000&
  59.       TabIndex        =   6
  60.       Top             =   360
  61.       Width           =   1575
  62.    End
  63.    Begin VB.TextBox txtNewPW 
  64.       Height          =   285
  65.       Left            =   120
  66.       MaxLength       =   20
  67.       PasswordChar    =   "*"
  68.       TabIndex        =   3
  69.       Top             =   960
  70.       Width           =   1695
  71.    End
  72.    Begin VB.TextBox txtOldPW 
  73.       Height          =   285
  74.       Left            =   120
  75.       PasswordChar    =   "*"
  76.       TabIndex        =   1
  77.       Top             =   360
  78.       Width           =   1695
  79.    End
  80.    Begin VB.Label lblLabels 
  81.       AutoSize        =   -1  'True
  82.       Caption         =   "
  83.       Height          =   195
  84.       Index           =   2
  85.       Left            =   120
  86.       TabIndex        =   4
  87.       Top             =   1320
  88.       Width           =   480
  89.    End
  90.    Begin VB.Label lblLabels 
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "
  93.       Height          =   195
  94.       Index           =   1
  95.       Left            =   120
  96.       TabIndex        =   2
  97.       Top             =   720
  98.       Width           =   1110
  99.    End
  100.    Begin VB.Label lblLabels 
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "
  103.       Height          =   195
  104.       Index           =   0
  105.       Left            =   120
  106.       TabIndex        =   0
  107.       Top             =   120
  108.       Width           =   1035
  109.    End
  110. Attribute VB_Name = "frmNewPassword"
  111. Attribute VB_Base = "0{529A44AD-C9E1-11CF-9ED2-00AA00574745}"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_TemplateDerived = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. Attribute VB_Customizable = False
  118. Option Explicit
  119. '>>>>>>>>>>>>>>>>>>>>>>>>
  120. Const FORMCAPTION = "
  121. Const BUTTON1 = "
  122. (&O)"
  123. Const BUTTON2 = "
  124. (&C)"
  125. Const Label1 = "
  126. Const Label2 = "
  127. Const LABEL3 = "
  128. Const MSG1 = "
  129. '>>>>>>>>>>>>>>>>>>>>>>>>
  130. Private Sub cmdCancel_Click()
  131.   Unload Me
  132. End Sub
  133. Private Sub cmdOK_Click()
  134.   On Error GoTo OKErr
  135.   Dim sTmp As String
  136.   Dim usr As User
  137.   If txtNewPW.Text <> txtVerify.Text Then
  138.     Beep
  139.     MsgBox MSG1, 48
  140.     txtVerify.SetFocus
  141.     Exit Sub
  142.   End If
  143.   gwsMainWS.Users(gwsMainWS.UserName).NewPassword txtOldPW.Text, txtNewPW.Text
  144.   Unload Me
  145.   Exit Sub
  146. OKErr:
  147.   ShowError
  148. End Sub
  149. Private Sub Form_Load()
  150.   Me.Caption = FORMCAPTION
  151.   cmdOK.Caption = BUTTON1
  152.   cmdCancel.Caption = BUTTON2
  153.   lblLabels(0).Caption = Label1
  154.   lblLabels(1).Caption = Label2
  155.   lblLabels(2).Caption = LABEL3
  156. End Sub
  157.