?? b_login.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form B_Login
BackColor = &H00FFC0C0&
Caption = " 登 錄"
ClientHeight = 2370
ClientLeft = 3855
ClientTop = 2640
ClientWidth = 4185
LinkTopic = "Form1"
Moveable = 0 'False
ScaleHeight = 2370
ScaleWidth = 4185
Begin MSComDlg.CommonDialog CommonDialog1
Left = 240
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "放 棄"
Height = 320
Left = 2280
TabIndex = 3
Top = 1560
Width = 975
End
Begin VB.CommandButton Command1
Caption = "確 定"
Enabled = 0 'False
Height = 320
Left = 960
TabIndex = 2
Top = 1560
Width = 975
End
Begin VB.TextBox Text2
Height = 270
IMEMode = 3 'DISABLE
Left = 2040
PasswordChar = "*"
TabIndex = 1
Text = "Text2"
Top = 960
Width = 855
End
Begin VB.TextBox Text1
Height = 270
Left = 2040
TabIndex = 0
Text = "Text1"
Top = 240
Width = 855
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "密 碼:"
Height = 255
Left = 840
TabIndex = 5
Top = 960
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "用戶名稱:"
Height = 255
Left = 840
TabIndex = 4
Top = 300
Width = 1095
End
End
Attribute VB_Name = "B_Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃ B_Login 登錄 檢驗用戶名及密碼 ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
Option Explicit
Dim bytLgn As Byte ' 全程變量 StrUjb StrKls
Dim blnLok As Boolean, blnTc As Boolean
'
Private Sub Form_Load()
strT0 = "T_tm"
If myF_ChekTRec(strT0) < 1 Then ' 檢查 T_tm 記錄
MsgBox " Not Find T_tm ... ", 48, " !!"
blnTc = True: Exit Sub
End If
Set MyRs0 = New Recordset
StrSQL = "SELECT * FROM " & strT0 & " WHERE Dm like 'Kl%' ORDER BY Dm"
MyRs0.Open StrSQL, cnnTce, adOpenKeyset, adLockOptimistic
N0 = MyRs0.RecordCount
If MyRs0.RecordCount > 0 Then
MyRs0.MoveLast
N0 = MyRs0.RecordCount
Else
MsgBox " Not Find Datas ... ", 48, " Error"
blnTc = True: Exit Sub
End If
bytLgn = 3 ' 限制次數(shù)
Text1.Text = ""
Text2.Text = ""
i = A_Start.Top + (A_Start.Height - Me.Height) / 2
Me.Top = 6 * i / 9
i = A_Start.imgLogo.Left + A_Start.imgLogo.Width
Me.Left = A_Start.Left + A_Start.Frame1.Left + i + (A_Start.Frame1.Width - i - Me.Width) / 2
End Sub
Private Sub Form_Activate()
If blnTc Then Unload Me
Text1.SetFocus
End Sub
Private Sub Text1_Change() ' 檢查用戶名
StrUse = Trim(Text1.Text)
If myF_Len(StrUse) > 6 Then
MsgBox " 用戶名最大長度為六個英文字符位,請修改 ... ", 48, " 請注意"
Text1.Text = Left(StrUse, 6)
Text1.SetFocus ' 重新輸入
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) ' 檢驗
If KeyAscii = 13 Then Call Text1_LostFocus
End Sub
Private Sub Text1_LostFocus()
StrUse = Trim(Text1.Text)
If StrUse = "" Then
Command2.SetFocus ' Quit
Else
If F_HcUse Then ' PtxtUserName
Text2.SetFocus
Else ' 用戶名未通過
If bytLgn = 0 Then
MsgBox " 很抱歉,用戶名不符 ... ", 48, " 登錄錯誤 !!!"
StrUjb = "3"
Unload Me
End If
End If
End If
End Sub
Function F_HcUse() As Boolean ' 核對用戶名
StrUse = Trim(Text1.Text)
blnLok = False
MyRs0.MoveFirst
Do While Not MyRs0.EOF
If Trim(MyRs0![Mc]) = StrUse Then
blnLok = True: Exit Do
End If
MyRs0.MoveNext
Loop
If Not blnLok Then
F_HcUse = False ' 用戶名不符
bytLgn = bytLgn - 1
If bytLgn > 0 Then
MsgBox " 請再輸入一次用戶名 ... ", 48, " 登錄錯誤 " & IIf(bytLgn = 1, "!!", "!")
Text1.Text = ""
Text1.SetFocus
End If
Else
F_HcUse = True
bytLgn = 3
End If
End Function
Private Sub Text2_Change()
StrKls = Trim(Text2.Text)
If StrKls = "" Then Exit Sub
If myF_Len(StrUse) > 6 Then
MsgBox " 密碼最大長度為六個英文字符位,請修改 ... ", 48, " 請注意"
Text2.Text = Left(StrKls, 6)
Text2.SetFocus ' 重新輸入
End If
If StrKls = Trim(MyRs0![Jc]) Then Command1.Enabled = True
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) ' 檢驗
If KeyAscii = 13 Then Call Text2_LostFocus
End Sub
Private Sub Text2_LostFocus()
StrKls = Trim(Text2.Text)
If StrKls = "" Then
Command2.SetFocus ' Re Input
Else
If F_HcKls Then ' txtPassword
Command1.SetFocus
Else ' 密碼未通過
If bytLgn = 0 Then
MsgBox " 很抱歉,密碼不符 ... ", 48, " 登錄錯誤 !!!"
StrUjb = "3"
Unload Me
End If
End If
End If
End Sub
Function F_HcKls() As Boolean ' 核對密碼
StrKls = Trim(Text2.Text)
If StrKls = Trim(MyRs0![Jc]) Then
F_HcKls = True
StrUjb = MyRs0![Bz] ' 取出級別
Command1.Enabled = True
Else
F_HcKls = False ' 口令不符
bytLgn = bytLgn - 1
If bytLgn > 0 Then
MsgBox " 請再輸入一次密碼 ... ", 48, " 登錄錯誤 " & IIf(bytLgn = 1, "!!", "!")
Text2.Text = ""
Text2.SetFocus
End If
End If
End Function
Private Sub Command1_KeyPress(KeyAscii As Integer) ' cmdOK
If KeyAscii = 13 Then Call Command1_Click
End Sub
Private Sub Command1_Click() ' 確認(rèn)處理
StrDms = MyRs0![dm]
StrUjb = MyRs0![Bz] ' 取出級別
StrUse = Trim(Text1.Text)
StrKls = Trim(Text2.Text)
MyRs0.Close
Unload Me
End Sub
Private Sub Command2_Click() ' cmdCancel
StrUjb = "3"
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
'If N0 > 0 Then MyRs0.Close ' ?
Select Case StrUjb
Case "1"
Form01.Show ' 啟動管理員菜單
Case "2"
Form02.Show ' 啟動操作員菜單
Case "3"
Form03.Show ' 啟動瀏覽菜單
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -