frmchangepwd.frm

本论文以西电基础教学实验中心学生上机管理系统为背景

VERSION 5.00
Begin VB.Form frmChangePwd 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "更改登录密码"
   ClientHeight    =   2280
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3240
   Icon            =   "frmChangePwd.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2280
   ScaleWidth      =   3240
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdNo 
      Caption         =   "取　消"
      Height          =   375
      Left            =   2040
      TabIndex        =   6
      Top             =   1800
      Width           =   855
   End
   Begin VB.CommandButton cmdYes 
      Caption         =   "确　定"
      Height          =   375
      Left            =   840
      TabIndex        =   5
      Top             =   1800
      Width           =   855
   End
   Begin VB.Frame fraChangePwd 
      Caption         =   "更改登录密码"
      Height          =   1335
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   2655
      Begin VB.TextBox txtPassWord 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1200
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   840
         Width           =   1215
      End
      Begin VB.TextBox txtPwd 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1200
         MaxLength       =   6
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label lblPassWord 
         AutoSize        =   -1  'True
         Caption         =   "确认密码："
         Height          =   180
         Left            =   360
         TabIndex        =   3
         Top             =   840
         Width           =   900
      End
      Begin VB.Label lblPwd 
         AutoSize        =   -1  'True
         Caption         =   "密码："
         Height          =   180
         Left            =   360
         TabIndex        =   1
         Top             =   360
         Width           =   540
      End
   End
End
Attribute VB_Name = "frmChangePwd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsUser As Recordset
Private Function Judge() As Boolean
If txtPwd.Text <> txtPassWord.Text Then
    MsgBox "确认密码不一致请重新填写！", vbOKOnly + vbExclamation, "机房管理"
    txtPassWord.Text = ""
    txtPassWord.SetFocus
    ElseIf txtPwd.Text = "" Then
        MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "机房管理"
   Else
        Judge = True
End If
End Function

Private Sub cmdNo_Click()
Unload Me
End Sub

Private Sub cmdYes_Click()
If Judge = True Then
    If MsgBox("确实要修改密码吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
        Set rsUser = New Recordset
        rsUser.Open "select * from TbUser where U_id like '" & frmLoad.StrU_ID & "'", Modmain.conn, 3, 2
        rsUser.Fields!U_Psw = txtPwd.Text
        rsUser.Update
        MsgBox "修改成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
        Unload Me
    End If
End If

End Sub

Private Sub txtPwd_LostFocus()
Set rsUser = New Recordset
rsUser.Open "select * from TbUser where U_Psw like '" & txtPwd.Text & "'", Modmain.conn, 3, 2

If rsUser.RecordCount <> 0 Then
    MsgBox "该密码已经有人使用，请重新编写！", vbOKOnly + vbCritical, "机房管理"
    txtPwd.Text = ""
    txtPwd.SetFocus
End If
rsUser.Close
Set rsUser = Nothing

End Sub