VERSION 5.00
Begin VB.Form frmPass 
   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 = "frmPass"
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 frmPass
End Sub