frmeditpassword.frm

一个简单的快餐店收银软件

VERSION 5.00
Begin VB.Form frmEditPassword 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "密码修改"
   ClientHeight    =   3165
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5115
   Icon            =   "frmEditPassword.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3165
   ScaleWidth      =   5115
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   3000
      TabIndex        =   7
      Top             =   2400
      Width           =   1095
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   1320
      TabIndex        =   6
      Top             =   2400
      Width           =   1095
   End
   Begin VB.TextBox txtNewPwd2 
      Height          =   330
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   1680
      Width           =   2055
   End
   Begin VB.TextBox txtNewPwd1 
      Height          =   330
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   1080
      Width           =   2055
   End
   Begin VB.TextBox txtOldPwd 
      Enabled         =   0   'False
      Height          =   330
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   480
      Width           =   2055
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "确认新密码："
      Height          =   180
      Left            =   720
      TabIndex        =   4
      Top             =   1800
      Width           =   1080
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "新密码："
      Height          =   180
      Left            =   1080
      TabIndex        =   3
      Top             =   1200
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "原密码："
      Height          =   180
      Left            =   1080
      TabIndex        =   1
      Top             =   600
      Width           =   720
   End
End
Attribute VB_Name = "frmEditPassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
If Me.txtNewPwd1 <> Me.txtNewPwd2 Then
    MsgBox "你输入的密码不匹配。请在两个文本框内输入该用户的密码！", vbCritical, "提示窗口"
    SendNext Me.txtNewPwd1
    Exit Sub
End If
sSQL = "update UserInfo set uPassword='" & Trim(Me.txtNewPwd1) & "'"
sSQL = sSQL & " where uCode='" & Trim(gUserID) & "'"
Conn.Execute sSQL
MsgBox "密码修改成功，请记住新密码！", vbInformation, "提示窗口"
Unload Me
End Sub

Private Sub Form_Load()
sSQL = "select * from UserInfo where uCode='" & Trim(gUserID) & "'"
If Rs.State <> 0 Then Rs.Close
Rs.CursorLocation = adUseClient
Rs.Open sSQL, Conn, adOpenForwardOnly, adLockReadOnly
If Not Rs.EOF Then
    Me.txtOldPwd = Rs.Fields("uPassword")
Else
    MsgBox "数据异常！", vbInformation, "提示窗口"
    Exit Sub
End If

End Sub

Private Sub txtNewPwd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    SendNext Me.txtNewPwd2
End If
End Sub