VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H80000004&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用戶登錄"
   ClientHeight    =   2745
   ClientLeft      =   1545
   ClientTop       =   1335
   ClientWidth     =   5145
   BeginProperty Font 
      Name            =   "宋體"
      Size            =   9
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2745
   ScaleWidth      =   5145
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdOk 
      BackColor       =   &H80000004&
      Caption         =   "確定(&O)"
      BeginProperty Font 
         Name            =   "楷體_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1080
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   5
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H80000004&
      Caption         =   "取消(&C)"
      BeginProperty Font 
         Name            =   "楷體_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   4
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox txtPassWord 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   960
      Width           =   1935
   End
   Begin VB.TextBox txtClerkCode 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2040
      TabIndex        =   0
      Top             =   480
      Width           =   1935
   End
   Begin VB.Label lblpassword 
      BackColor       =   &H80000004&
      Caption         =   "密  碼"
      BeginProperty Font 
         Name            =   "楷體_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   840
      TabIndex        =   3
      Top             =   960
      Width           =   975
   End
   Begin VB.Label lbluser 
      BackColor       =   &H80000004&
      Caption         =   "用戶名"
      BeginProperty Font 
         Name            =   "楷體_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   840
      TabIndex        =   2
      Top             =   480
      Width           =   1095
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Clerk As clsClerk

Private Sub cmdCancel_Click()
   
    GDB.Close
    Set GDB = Nothing
    Unload Me
 
End Sub

Private Sub cmdOK_Click()
On Error GoTo Err
Dim sClerkCode As String, sPassWord As String
Dim lRes As Long

    Set Clerk = New clsClerk
    
    sClerkCode = Trim(txtClerkCode.Text)
    sPassWord = Trim(txtPassWord.Text)
    
    If Trim(txtClerkCode) = "" Then
        MsgBox "請輸入用戶代碼！", vbCritical + vbOKOnly, "系統提示"
        Exit Sub
    End If
    
    lRes = Clerk.CheckClerk(sClerkCode, sPassWord)
        

    If lRes = 1 Then
        MsgBox "用戶不存在，請重新輸入用戶代碼！", vbCritical + vbOKOnly, "請輸入用戶代碼"
        txtClerkCode.SetFocus
        txtClerkCode.SelStart = 0
        txtClerkCode.SelLength = Len(txtClerkCode.Text)
    ElseIf lRes = 2 Then
        MsgBox "密碼錯誤，請確認密碼是否正確？", vbCritical + vbOKOnly, "請輸入用戶密碼"
        txtPassWord.SetFocus
        txtPassWord.SelStart = 0
        txtPassWord.SelLength = Len(txtPassWord.Text)
    ElseIf lRes = 0 Then
        mdiMain.Show
        Unload Me
    End If
    
    Exit Sub
Err:
    MsgBox Err.Description, vbOKOnly, "Error"
    
    
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyEscape Then
            Call cmdCancel_Click
    End If

End Sub

Private Sub txtClerkCode_KeyDown(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyReturn Then
        SendKeys "{Tab}"
    End If
    
End Sub

Private Sub txtClerkCode_LostFocus()

    txtClerkCode.Text = Right(String(4, "0") + txtClerkCode.Text, 4)

End Sub

Private Sub txtPassWord_GotFocus()
    If Len(txtPassWord.Text) > 0 Then
        txtPassWord.SelStart = 0
        txtPassWord.SelLength = Len(txtPassWord.Text)
    End If
End Sub

Private Sub txtpassword_KeyDown(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyReturn Then
        Call cmdOK_Click
    End If
    
End Sub