📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form login
Caption = "图书管理系统登录"
ClientHeight = 4995
ClientLeft = 4140
ClientTop = 2475
ClientWidth = 7515
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4995
ScaleWidth = 7515
Begin VB.ComboBox Combo1
BackColor = &H80000014&
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 3720
TabIndex = 4
Top = 1800
Width = 2175
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
IMEMode = 3 'DISABLE
Left = 3720
PasswordChar = "*"
TabIndex = 0
Top = 2400
Width = 2175
End
Begin VB.CommandButton Command2
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4320
Style = 1 'Graphical
TabIndex = 2
Top = 3480
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "登录"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
TabIndex = 1
Top = 3480
Width = 1455
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "图书管理系统"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 840
Left = 1200
TabIndex = 6
Top = 480
Width = 5130
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码："
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1800
TabIndex = 5
Top = 2400
Width = 1800
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名："
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1800
TabIndex = 3
Top = 1755
Width = 1800
End
Begin VB.Image Image1
Height = 5010
Left = 0
Picture = "Form1.frx":0E42
Top = 0
Width = 7500
End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim logincn As New ADODB.Connection
Dim loginrsuser As New ADODB.Recordset
Private Sub combo1_GotFocus()
Combo1.BackColor = &H80FFFF
Label1.ForeColor = &H80FFFF
End Sub
Private Sub combo1_LostFocus()
Combo1.BackColor = &H80000014
Label1.ForeColor = &H80000012
End Sub
Private Sub Command1_Click()
Set logincn = New Connection
logincn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
logincn.CursorLocation = adUseClient
logincn.Open
If logincn.State = adStateOpen Then
Set loginrsuser = New Recordset
loginrsuser.CursorLocation = adUseClient
loginrsuser.Open "Select 密码 from admin where admin = '" & Combo1.Text & "'", logincn, adOpenDynamic, adLockOptimistic
End If
If loginrsuser.EOF <> True Then
If loginrsuser(0) = Text1.Text Then
susername = UCase(Combo1.Text)
Select Case susername
Case "管理员"
usertype = 1
loguser = "管理员"
nul = MsgBox("你好管理员！你将能对数据进行全部的操作！", vbOKOnly, "提示：")
Unload Me
main.Show
Case "一般用户"
usertype = 2
loguser = "一般用户"
nul = MsgBox("你好，用户！你将只能浏览数据！", vbOKOnly, "提示：")
Unload Me
main.Show
Case "工作人员"
usertype = 3
loguser = "工作人员"
nul = MsgBox("你好，工作人员！你对数据的操作将受到一定限制！", vbOKOnly, "提示：")
Unload Me
main.Show
End Select
loginrsuser.Close
Else
nul = MsgBox("你的密码不对啦！", vbOKOnly, "密码错误！")
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Set logincn = New Connection
logincn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
logincn.CursorLocation = adUseClient
logincn.Open
If logincn.State = adStateOpen Then
Set loginrsuser = New Recordset
loginrsuser.CursorLocation = adUseClient
loginrsuser.Open "Select admin from admin", logincn, adOpenKeyset, adLockPessimistic
End If
Dim i As Integer
For i = 0 To loginrsuser.RecordCount
Combo1.AddItem loginrsuser(0)
loginrsuser.MoveNext
If loginrsuser.EOF = True Then
loginrsuser.MoveLast
Combo1.ListIndex = 0
Exit Sub
End If
Next i
loginrsuser.Close
End Sub
Private Sub Label3_Click()
'usertype = 1 ' 调试中免输密码进入，（太费时间啦^-^）
'loguser = "管理员"
'Unload Me
'main.Show
End Sub
Private Sub Text1_GotFocus()
Text1.BackColor = &H80FFFF
Label2.ForeColor = &H80FFFF
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set logincn = New Connection
logincn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
logincn.CursorLocation = adUseClient
logincn.Open
If logincn.State = adStateOpen Then
Set loginrsuser = New Recordset
loginrsuser.CursorLocation = adUseClient
loginrsuser.Open "Select 密码 from admin where admin = '" & Combo1.Text & "'", logincn, adOpenDynamic, adLockOptimistic
End If
If loginrsuser.EOF <> True Then
If loginrsuser(0) = Text1.Text Then
susername = UCase(Combo1.Text)
Select Case susername
Case "管理员"
usertype = 1
loguser = "管理员"
nul = MsgBox("你好管理员！你将能对数据进行全部的操作！", vbOKOnly, "提示：")
Unload Me
main.Show
Case "一般用户"
usertype = 2
loguser = "一般用户"
nul = MsgBox("你好，用户！你将只能浏览数据！", vbOKOnly, "提示：")
Unload Me
main.Show
Case "工作人员"
usertype = 3
loguser = "工作人员"
nul = MsgBox("你好，工作人员！你对数据的操作将受到一定限制！", vbOKOnly, "提示：")
Unload Me
main.Show
End Select
loginrsuser.Close
Else
nul = MsgBox("你的密码不对啦！", vbOKOnly, "密码错误！")
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
End If
End If
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = &H80000014
Label2.ForeColor = &H80000012
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &H80FFFF
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -