?? frmlogin.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -