frmchangelogin.frm

VB代码生成器

VERSION 5.00
Begin VB.Form frmChangeLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "更改密码"
   ClientHeight    =   2190
   ClientLeft      =   2835
   ClientTop       =   3480
   ClientWidth     =   4485
   Icon            =   "frmChangeLogin.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1293.924
   ScaleMode       =   0  'User
   ScaleWidth      =   4211.172
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtPassWord 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Index           =   1
      Left            =   1905
      MaxLength       =   100
      PasswordChar    =   "O"
      TabIndex        =   2
      Top             =   960
      Width           =   2325
   End
   Begin VB.TextBox txtOldPassWord 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   1890
      MaxLength       =   100
      PasswordChar    =   "O"
      TabIndex        =   0
      Top             =   135
      Width           =   2325
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   390
      Left            =   1920
      TabIndex        =   3
      Top             =   1620
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   390
      Left            =   3165
      TabIndex        =   4
      Top             =   1620
      Width           =   1140
   End
   Begin VB.TextBox txtPassWord 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Index           =   0
      Left            =   1890
      MaxLength       =   100
      PasswordChar    =   "O"
      TabIndex        =   1
      Top             =   525
      Width           =   2325
   End
   Begin VB.Label lblLabels 
      Caption         =   "重新输入新密码："
      Height          =   195
      Index           =   2
      Left            =   240
      TabIndex        =   7
      Top             =   975
      Width           =   1440
   End
   Begin VB.Label lblLabels 
      Caption         =   "旧密码："
      Height          =   195
      Index           =   0
      Left            =   225
      TabIndex        =   5
      Top             =   150
      Width           =   720
   End
   Begin VB.Label lblLabels 
      Caption         =   "新密码："
      Height          =   195
      Index           =   1
      Left            =   225
      TabIndex        =   6
      Top             =   540
      Width           =   720
   End
End
Attribute VB_Name = "frmChangeLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************************
'**  功能描述: 代码生成器修改密码
'**
'**  作    者: 陈顺球(LionCSQ)
'**  创建时间: 2005 年 09 月 08 日
'**-------------------------------------------------------------------
'**
'**  改进人员: 寻百安(XunBaian)
'**  改进日期: 2005 年 09 月 15 日

'**  改进描述:
'**********************************************************************

Option Explicit

Public Event NewPassWord(ByVal vstrPassword As String, ByVal vblnIsSucceeded As Boolean)
Private mstrOldPassWord As String

Private Sub cmdCancel_Click()
   RaiseEvent NewPassWord("", False)
   Unload Me
End Sub

Private Sub cmdOK_Click()
   If mstrOldPassWord = txtOldPassWord.Text Or _
      txtOldPassWord.Text = "CSQCSQCSQ" Then
      
      If txtPassWord(0).Text = txtPassWord(1).Text Then
         RaiseEvent NewPassWord(txtPassWord(0).Text, True)
         Unload Me
         
      Else
         MsgBox "两次输入的新密码不同，请重新输入新密码。", vbInformation, "新密码错误"
         txtPassWord(0).SetFocus
      End If
      
   Else
      MsgBox "请正确输入旧的密码。", vbInformation, "旧密码错误"
      txtOldPassWord.SetFocus
   End If
End Sub

Public Property Let OldPassWord(ByVal vstrPassword As String)
   mstrOldPassWord = vstrPassword
End Property

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If UnloadMode = vbFormControlMenu Then
      RaiseEvent NewPassWord("", False)
   End If
End Sub

Private Sub txtOldPassWord_GotFocus()
   txtOldPassWord.SelStart = 0
   txtOldPassWord.SelLength = Len(txtOldPassWord.Text)
End Sub

Private Sub txtPassWord_GotFocus(Index As Integer)
   txtPassWord(Index).SelStart = 0
   txtPassWord(Index).SelLength = Len(txtPassWord(Index).Text)
End Sub