📄 flogin.frm
字号:
VERSION 5.00
Begin VB.Form frmLogin
BackColor = &H00C0C0C0&
Caption = "登录"
ClientHeight = 4665
ClientLeft = 60
ClientTop = 450
ClientWidth = 7095
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
LinkTopic = "Form1"
Picture = "fLogin.frx":0000
ScaleHeight = 8490
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
WindowState = 2 'Maximized
Begin VB.OptionButton Option2
Caption = "Option2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 3360
TabIndex = 8
Top = 1680
Width = 255
End
Begin VB.OptionButton Option1
Caption = "Option1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 720
TabIndex = 6
Top = 1680
Width = 255
End
Begin VB.CommandButton Command2
Caption = "取消"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4080
TabIndex = 5
Top = 5640
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "登 录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 4
Top = 5640
Width = 1095
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2760
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 7080
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
IMEMode = 3 'DISABLE
Left = 2880
PasswordChar = "*"
TabIndex = 3
ToolTipText = "密码：111"
Top = 4440
Width = 2655
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2640
TabIndex = 2
ToolTipText = "管理:lingyun"
Top = 3360
Width = 2655
End
Begin VB.Label Label6
BackColor = &H00FFFFFF&
Caption = "学生信息管理系统"
ForeColor = &H80000008&
Height = 615
Left = 1800
TabIndex = 10
ToolTipText = "用户:cai密码:111"
Top = 240
Width = 3855
End
Begin VB.Label Label5
Caption = "用户登录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 9
Top = 1680
Width = 1095
End
Begin VB.Label Label4
Caption = "管理员登录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 7
Top = 1680
Width = 1215
End
Begin VB.Label Label2
Caption = "请输入密码"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 1
ToolTipText = "密码：111"
Top = 4440
Width = 1815
End
Begin VB.Label Label1
Caption = "请输入用户名"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 0
ToolTipText = "管理员:lingyun"
Top = 3360
Width = 2175
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim str1 As String, str2 As String
'判断用户名和密码不为空！
If Text1.Text = "" Then
MsgBox "用户不能为空，请重新输入！！！"
Text2.Text = ""
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox " 密码不能为空，请重新输入！！！"
Text2.SetFocus
Exit Sub
End If
If flag <> 1 And flag <> 2 Then
MsgBox "错误！！请确认是管理员登录还是用户登录，"
Exit Sub
End If
'检查是用户登录还是管理员登录
Data1.Connect = "Access"
Data1.DatabaseName = "" & App.Path & "\db1.mdb"
str1 = "select *from guanliyuan"
str2 = "select *from user"
Select Case flag
Case 1: '若身份为管理员
Data1.RecordSource = str1
Data1.Refresh
Case 2: '若为客户身份
Data1.RecordSource = str2
Data1.Refresh
End Select
'查找输入的管理员或者用户是否存在
Data1.Recordset.MoveFirst
While Data1.Recordset.Fields("User_Name") <> Text1.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox "该管理员或用户不存在！！"
Text1.SetFocus
Exit Sub
End If
Wend
'判断密码是否正确
If Data1.Recordset.Fields("User_Password") <> Text2.Text Then
MsgBox " 密码不正确,请重输!!"
Text2 = ""
Text2.SetFocus
Exit Sub
End If
'用户和密码正确后,进入系统
MDIForm1.Show
Unload frmLogin
End Sub
Private Sub Command2_Click()
Unload frmLogin
End Sub
Private Sub Option2_Click(Index As Integer)
flag = Index
Text2.SetFocus
End Sub
Private Sub Option1_Click(Index As Integer)
flag = Index
Text2.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -