📄 login.frm
字号:
VERSION 5.00
Begin VB.Form login
BorderStyle = 1 'Fixed Single
Caption = "公交线路管理系统"
ClientHeight = 2310
ClientLeft = 5760
ClientTop = 3165
ClientWidth = 3240
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2310
ScaleWidth = 3240
Begin VB.TextBox loginTxt2
Height = 270
IMEMode = 3 'DISABLE
Left = 1440
PasswordChar = "*"
TabIndex = 10
Top = 1440
Width = 1335
End
Begin VB.TextBox loginTxt1
Height = 270
Left = 1440
TabIndex = 9
Top = 1080
Width = 1335
End
Begin VB.CommandButton loginCmd2
Caption = "退 出"
Height = 375
Left = 1680
TabIndex = 6
Top = 1800
Width = 1095
End
Begin VB.CommandButton loginCmd1
Caption = "登 录"
Height = 375
Left = 480
TabIndex = 5
Top = 1800
Width = 1095
End
Begin VB.Frame loginFrame
BackColor = &H80000018&
BorderStyle = 0 'None
Height = 255
Left = 480
TabIndex = 1
Top = 720
Width = 2295
Begin VB.OptionButton loginOption2
Caption = "管理人员"
Height = 255
Left = 1200
TabIndex = 3
Top = 0
Width = 1215
End
Begin VB.OptionButton loginOption1
Caption = "普通用户"
Height = 255
Left = 0
TabIndex = 2
Top = 0
Value = -1 'True
Width = 1215
End
End
Begin VB.Timer loginTimer
Left = 2880
Top = 0
End
Begin VB.Image loginImage2
Height = 255
Left = 480
Top = 1440
Width = 255
End
Begin VB.Image loginImage1
Height = 255
Left = 480
Top = 1080
Width = 255
End
Begin VB.Label loginLabel3
BackStyle = 0 'Transparent
Caption = "用户名："
Height = 255
Left = 720
TabIndex = 8
Top = 1080
Width = 735
End
Begin VB.Label loginLabel4
BackStyle = 0 'Transparent
Caption = "密 码："
Height = 255
Left = 720
TabIndex = 7
Top = 1440
Width = 735
End
Begin VB.Label loginLabel2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户登录"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 285
Left = 1080
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.Label loginLabel1
BackStyle = 0 'Transparent
Caption = "欢迎光临公交管理系统"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 255
Left = 0
TabIndex = 0
Top = 0
Width = 3015
End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load() '加载窗口
Call Form_Resize '调用初始化窗口函数
End Sub
Private Sub Form_Resize() '初始化窗口
'滚动条字符
'=================================================================================================================
loginLabel1.Left = 0
loginLabel1.Top = 60
loginTimer.Interval = 100
loginTimer.Enabled = True
'=================================================================================================================
'背景图片
'=================================================================================================================
login.Icon = LoadPicture(App.Path + "\picture\icon.ico")
login.Picture = LoadPicture(App.Path + "\picture\adminback.jpg")
loginImage1.Picture = LoadPicture(App.Path + "\picture\admin.gif")
loginImage2.Picture = LoadPicture(App.Path + "\picture\password.gif")
'=================================================================================================================
'设置颜色
'=================================================================================================================
Randomize
linecolor = vbRed ' RGB((Rnd * 255), (Rnd * 255), (Rnd * 255))
sitecolor = vbBlack ' RGB((Rnd * 255), (Rnd * 255), (Rnd * 255))
End Sub
Private Sub loginCmd1_Click()
If loginOption2.Value = True Then
If loginTxt1.Text = "" Then
MsgBox "选中管理员时用户名不能为空！请输入用户名", vbOKOnly, "出错信息"
loginTxt1.SetFocus
ElseIf loginTxt2.Text = "" Then
MsgBox "密码不能为空！请输入密码", vbOKOnly, "出错信息"
loginTxt2.SetFocus
Else
Set cnn = New Connection
cnn.CursorLocation = adUseClient
Set cmd = New Command
Set rs = New Recordset
Set para = New Parameter
'连接数据源
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\Data\bus.mdb"
'关联command和connection对象
cmd.ActiveConnection = cnn
'设置cmd相关属性
cmd.CommandType = adCmdText
cmd.CommandText = "select * from Users where Username=?"
'设置para相关属性
para.Type = adBSTR
para.Direction = adParamInput
para.Value = loginTxt1.Text
'把para添加到参数集
cmd.Parameters.Append para
cmd.Parameters(0) = loginTxt1.Text
'执行command对象
Set rs = cmd.Execute
'判断是否有这个管理员
If Not rs.EOF Then '有这个管理员
'密码是否正确
If rs("UserPassword").Value = Trim(loginTxt2.Text) Then '密码正确
MsgBox "欢迎管理员进入公交线路管理系统！", vbOKOnly, "欢迎信息"
rs.Close
Unload Me
Busmanage.Show
Else '密码错误
MsgBox "您的密码：" & loginTxt2.Text & " 错误！请确定是否按下了Caps Lock键", vbOKOnly, "出错信息"
rs.Close
loginTxt2.SelStart = 0
loginTxt2.SelLength = Len(loginTxt2.Text)
loginTxt2.SetFocus
End If
Else '没有这个管理员
MsgBox "您的管理员用户名：" & loginTxt1.Text & " 错误！请确定是否按下了Caps Lock键", vbOKOnly, "出错信息"
rs.Close
loginTxt1.SelStart = 0
loginTxt1.SelLength = Len(loginTxt2.Text)
loginTxt1.SetFocus
End If
End If
Else
Unload Me
BusSelect.Show
End If
End Sub
Private Sub loginCmd2_Click() '判断登入还是登出
Dim lore As Integer
lor = MsgBox("谢谢您的光临！欢迎您下次再次光临！", vbOKCancel, "欢送信息")
If lor = vbOK Then '登出
Unload Me
Else '继续登入
MsgBox "谢谢您再次光临！", vbOKOnly, "欢迎信息"
End If
End Sub
Private Sub loginOption1_Click() 'loginOption1单选框被选中
Call loginclear '调用清空文本框函数
End Sub
Private Sub loginOption2_Click() 'loginOption2单选框被选中
Call loginclear '调用清空文本框函数
End Sub
Private Sub loginTimer_Timer() '控制滚动字符的位置
loginLabel1.Left = loginLabel1.Left - 100
If loginLabel1.Left < -loginLabel1.Width Then
loginLabel1.Left = login.Width
End If
End Sub
Private Sub loginclear() '清空文本框
loginTxt1.SetFocus
loginTxt1.Text = ""
loginTxt2.Text = ""
End Sub
Private Sub loginTxt1_KeyPress(KeyAscii As Integer) '快捷键
If KeyAscii = 13 Then
Call loginCmd1_Click
End If
End Sub
Private Sub loginTxt2_KeyPress(KeyAscii As Integer) '快捷键
If KeyAscii = 13 Then
Call loginCmd1_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -