📄 login.frm
字号:
VERSION 5.00
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "请登录"
ClientHeight = 3195
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 5655
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "华文行楷"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Login.frx":0000
ScaleHeight = 1887.713
ScaleMode = 0 'User
ScaleWidth = 5309.737
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdOK
BackColor = &H80000012&
Caption = "确定"
Default = -1 'True
BeginProperty Font
Name = "方正舒体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 4080
MaskColor = &H00FFFFFF&
TabIndex = 3
Top = 480
Width = 1020
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
BeginProperty Font
Name = "方正舒体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 4080
TabIndex = 4
Top = 1680
Width = 1020
End
Begin VB.Frame fraLogin
BackColor = &H80000006&
Caption = "登录"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2295
Left = 360
TabIndex = 5
Top = 360
Width = 3255
Begin VB.TextBox txtPwd
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 1
Top = 900
Width = 1605
End
Begin VB.ComboBox cboUserType
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Login.frx":59FF
Left = 1080
List = "Login.frx":5A01
Style = 2 'Dropdown List
TabIndex = 2
Top = 1440
Width = 1605
End
Begin VB.TextBox txtUser
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1080
TabIndex = 0
Top = 360
Width = 1605
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "密码："
BeginProperty Font
Name = "方正舒体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 225
Index = 1
Left = 540
TabIndex = 8
Top = 975
Width = 630
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackColor = &H00000000&
Caption = "选择身份："
BeginProperty Font
Name = "方正舒体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 225
Index = 2
Left = 180
TabIndex = 7
Top = 1500
Width = 1050
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackColor = &H80000007&
Caption = "用户名："
BeginProperty Font
Name = "方正舒体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 225
Index = 0
Left = 360
TabIndex = 6
Top = 435
Width = 840
End
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 Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
On Error GoTo errHandler
'建立全局性的数据连接
Set gConn = New ADODB.Connection
Dim strConn As String
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Sale;Data Source=F55759797EAB441;UID=Admin;PWD=111"
gConn.Open strConn, "Admin", "111"
'取得用户输入的用户名和密码
Dim user As String, pwd As String
user = txtUser
pwd = txtPwd
'取得用户的用户类型和用户名,并分别保存在两个全局变量gnUserType和gsUserName中
gnUserType = cboUserType.ListIndex
gsUserName = user
'根据所取得的用户名、密码和用户类型在数据库中进行搜索
Dim strSQL As String
strSQL = "select * from userlist where 用户名= '" & user & "' and 用户密码 ='" & pwd & "' and 用户类型=" & gnUserType
Dim r As New ADODB.Recordset
r.Open strSQL, gConn, adOpenStatic
'用户密码错误的次数，如果错误次数超过3次，则退出系统
Static nTryCount As Integer
If r.EOF Then '登录失败
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
txtUser.SetFocus
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser)
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统!再见！", vbCritical, "无权限"
Unload Me
'关闭数据连接
gConn.Close
End If
Else '登陆成功
Unload Me
frmMain.Show '显示MDI主窗口
End If
r.Close
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "错误"
End Sub
Private Sub Form_Load()
cboUserType.Clear
'在cboUser中加载用以表示用户类型的字符串
cboUserType.AddItem "管理人员", 0
cboUserType.AddItem "仓管人员", 1
cboUserType.AddItem "销售人员", 2
cboUserType.ListIndex = 0
End Sub
Private Sub fraLogin_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -