frmxgmm.frm

物流管理系统实例程序

VERSION 5.00
Begin VB.Form frmXgmm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改密码"
   ClientHeight    =   1830
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   3780
   Icon            =   "frmXgmm.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1830
   ScaleWidth      =   3780
   ShowInTaskbar   =   0   'False
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.TextBox txtXmm 
      Enabled         =   0   'False
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   840
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   855
      Width           =   2850
   End
   Begin VB.TextBox txtYmm 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   840
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   480
      Width           =   2850
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   360
      Left            =   2340
      TabIndex        =   3
      Top             =   1350
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   360
      Left            =   1005
      TabIndex        =   2
      Top             =   1350
      Width           =   1215
   End
   Begin VB.Label lblZyID 
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   840
      TabIndex        =   7
      Top             =   90
      Width           =   2850
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "职员ID:"
      Height          =   180
      Index           =   2
      Left            =   165
      TabIndex        =   6
      Top             =   105
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "新密码:"
      Height          =   180
      Index           =   0
      Left            =   165
      TabIndex        =   5
      Top             =   855
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "原密码:"
      Height          =   180
      Index           =   1
      Left            =   165
      TabIndex        =   4
      Top             =   480
      Width           =   630
   End
End
Attribute VB_Name = "frmXgmm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    '更新密码
    mCdt.UpdataMm lblZyID, Trim(txtYmm), Trim(txtXmm)
    Unload Me
End Sub

Public Function checkMm(strZyID As String, strMm As String) As Integer
    '身份验证过程
    On Error Resume Next
    Dim rs As ADODB.Recordset
    Dim I As Integer
    Set rs = mCdt.rsGzryYzmm(strZyID, strMm)
    I = rs(0)
    rs.Close
    checkMm = I
End Function

Private Sub txtYmm_LostFocus()
    '更新密码前调用身份验证过程
    If checkMm(lblZyID, txtYmm) = 1 Then
        txtYmm.Enabled = False
        txtXmm.Enabled = True
        cmdOK.Enabled = True
        txtXmm.SetFocus
    Else
        MsgBox "该职员身份或密码验证无效！", vbInformation
        txtYmm.SetFocus
    End If
End Sub