frm_findpassword.frm

图书馆信息管理系统

         BackColor       =   16777215
         MouseDownColor  =   -2147483644
         MouseOnColor    =   -2147483644
         StyleColor      =   0
         Style3dColor1   =   16577259
         Style3dColor2   =   8421504
         Picture         =   "Frm_FindPassword.frx":7A7C
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Lbl_TBarText 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "TitleBar Text"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   195
         Left            =   600
         TabIndex        =   6
         Top             =   150
         Width           =   1095
      End
   End
   Begin LabMangeSystem.XButton Cmd_Pre 
      Height          =   375
      Left            =   2400
      TabIndex        =   12
      Top             =   2040
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      Caption         =   "上一步"
      BackColor       =   14737632
      ForeColor       =   8421504
      MouseDownColor  =   -2147483644
      MouseOnColor    =   -2147483644
      StyleColor      =   16777215
      Style3dColor1   =   16577259
      Style3dColor2   =   8421504
      Picture         =   "Frm_FindPassword.frx":8016
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      IfDraw          =   -1  'True
   End
   Begin LabMangeSystem.XButton Cmd_Next 
      Height          =   375
      Left            =   3720
      TabIndex        =   13
      Top             =   2040
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   661
      Caption         =   "下一步"
      BackColor       =   14737632
      ForeColor       =   8421504
      MouseDownColor  =   -2147483644
      MouseOnColor    =   -2147483644
      StyleColor      =   16777215
      Style3dColor1   =   16577259
      Style3dColor2   =   8421504
      Picture         =   "Frm_FindPassword.frx":85B0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      IfDraw          =   -1  'True
   End
End
Attribute VB_Name = "Frm_FindPassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strUserName As String    '验证用户名
Dim StepNow As Integer       '当前的操作步骤(用于操作的倒退和前进)
Dim StepLast As Integer      '之前的操作步骤(用于出错时返回)
Option Explicit

'下一步按钮按下
Private Sub Cmd_Next_Click()
    Call CheckControl("Next")
End Sub

'上一步按钮按下
Private Sub Cmd_Pre_Click()
    Call CheckControl("Pre")
End Sub

Private Sub Cmd_TBarClose_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Lbl_TBarText.caption = Me.caption
    Call ShowStep(0)    '显示第一步
End Sub

'显示操作步骤
Private Sub ShowStep(n As Integer, Optional ByVal Err_Msg As String)
    Frame(StepNow).Visible = False
    If n <= 0 Then
        Cmd_Pre.Enabled = False
        Cmd_Next.Enabled = True
        StepNow = 0
        StepLast = 0
    ElseIf n = 1 Then
        Cmd_Pre.Enabled = True
        Cmd_Next.Enabled = True
        StepNow = 1
        StepLast = 1
    Else
        Lbl_Info.caption = Err_Msg
        Cmd_Pre.Enabled = True
        Cmd_Next.Enabled = False
        StepNow = 2
    End If
    Frame(StepNow).Visible = True
End Sub

'操作控制中心(控制上一步、下一步的操作)
Private Sub CheckControl(strDirection As String)
    Dim IsCheck As Boolean
    Dim Err_Msg As String
    
    If strDirection = "Next" Then
        Select Case StepNow
            Case 0
                If CheckUID(Err_Msg) = True Then IsCheck = True
            Case 1
                If CheckPWD(Err_Msg) = True Then Call CheckOver: Exit Sub
        End Select
        
        If IsCheck = True Then
            Call ShowStep(StepNow + 1)
        Else
            Call ShowStep(2, Err_Msg)
        End If
    Else
        If StepNow = 2 Then
            Call ShowStep(StepLast)
        Else
            Call ShowStep(StepNow - 1)
        End If
    End If
End Sub

'验证成功结束
Private Sub CheckOver()
    Dim rs As New ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM 账户 WHERE 用户名 = " & Str2SQL(strUserName)
    rs.Open strSQL, cnMain, 1, 1
    Call ShowStep(2, "登录密码：" & rs("密码"))
End Sub

'验证用户名
Private Function CheckUID(ByRef Err_Msg As String) As Boolean
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    
    strUserName = Trim(Txt_UID.Text)
    strSQL = "SELECT * FROM 账户 WHERE 用户名 = " & Str2SQL(strUserName)
    rs.Open strSQL, cnMain, 1, 1

    '用户名比较为文本比较(不区分大小写)
    If rs.EOF = True Then
        CheckUID = False
        Err_Msg = "用户名错误！"
    Else
        CheckUID = True
    End If
End Function

'验证二级密码
Private Function CheckPWD(ByRef Err_Msg As String) As Boolean
    Dim rs As New ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM 账户 WHERE 用户名 = " & Str2SQL(strUserName)
    rs.Open strSQL, cnMain, 1, 1

    '二级密码比较为二进制比较(区分大小写)
    If StrComp(rs("二级密码"), Txt_Password.Text, 0) = 0 Then
        CheckPWD = True
    Else
        CheckPWD = False
        Err_Msg = "二级密码错误！"
    End If
End Function

Private Sub Form_Unload(Cancel As Integer)
    If cnMain.State = adStateOpen Then cnMain.Close    '关闭窗体前关闭主连接
End Sub

Private Sub Txt_Password_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call Cmd_Next_Click
End Sub

Private Sub Txt_UID_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call Cmd_Next_Click
End Sub