frmpass.frm

程序主要是关于学生成绩管理系统

VERSION 5.00
Begin VB.Form frmPassxg 
   BackColor       =   &H00C0C0C0&
   Caption         =   "修改密码"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3450
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   3450
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   1680
      TabIndex        =   9
      Top             =   2640
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0080FF80&
      Caption         =   "确定"
      Height          =   375
      Left            =   240
      TabIndex        =   8
      Top             =   2640
      Width           =   855
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H00C0FFFF&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   7
      Top             =   1920
      Width           =   1575
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00C0FFFF&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   1320
      Width           =   1575
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00C0FFFF&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   720
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0FFFF&
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "验证："
      Height          =   375
      Left            =   240
      TabIndex        =   6
      Top             =   2040
      Width           =   735
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0C0C0&
      Caption         =   "新密码："
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "旧密码："
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "用户名："
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   735
   End
End
Attribute VB_Name = "frmPassxg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo errh
    Dim rs As New Recordset
'If Not addnewstate Then
If Text1.Text <> "" Then
   If Text2.Text <> "" Then
      If Text3.Text <> "" Then
            If Text3.Text = Text4.Text Then
                Set rs = cn.Execute("SELECT * FROM 用户表 ")
                If rs.EOF Then
                    rs.Close
                    Exit Sub
                End If
                rs.Close
                rs.LockType = adLockOptimistic
                rs.CursorType = adOpenKeyset
                rs.Open "用户表", cn, , , adCmdTable
                rs.Find ("UserName=" & "'" & Text1.Text & "'")
                If rs.Fields("Password").Value = Text2.Text Then
                    rs.Update "Password", Text3.Text
                    rs.Close
                    Me.Hide
                    upok = True
                    MsgBox "修改成功!"
                Else
                    MsgBox "错误的的旧密码"
                    rs.Close
                End If
            Else
                MsgBox "密码错误,请重新输入"
            End If
      Else
        MsgBox "密码不能为空"
      End If
    Else
        MsgBox "密码不能为空"
    End If
Else
   MsgBox "用户名不能为空"
End If

Exit Sub
errh:
    MsgBox Err.Description
End Sub

Private Sub Command2_Click()
 Me.Hide
    upok = False
End Sub

Private Sub Form_Load()
MakeCenter frmPassxg
End Sub