📄 login.frm
字号:
VERSION 5.00
Begin VB.Form login
BorderStyle = 1 'Fixed Single
Caption = "系统登录"
ClientHeight = 2745
ClientLeft = 45
ClientTop = 330
ClientWidth = 5085
Icon = "login.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2745
ScaleWidth = 5085
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "确定(&O)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1320
TabIndex = 7
Top = 2160
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "退出(&Q)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2760
TabIndex = 6
Top = 2160
Width = 1095
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3000
Width = 1695
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 2160
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3000
Width = 1740
End
Begin VB.Frame Frame1
Height = 1455
Left = 720
TabIndex = 0
Top = 600
Width = 3735
Begin VB.ComboBox Combo1
Height = 300
ItemData = "login.frx":0442
Left = 1440
List = "login.frx":0444
TabIndex = 4
Top = 360
Width = 1815
End
Begin VB.TextBox Text2
Height = 270
IMEMode = 3 'DISABLE
Left = 1440
PasswordChar = "*"
TabIndex = 3
Top = 960
Width = 1815
End
Begin VB.Label Label2
Caption = "密码:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 2
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "用户名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1
Top = 360
Width = 975
End
End
Begin VB.Label Label3
Caption = "图书销售管理系统"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 5
Top = 240
Width = 3135
End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public logcount As Integer
Public strzybh As String
Public aa As Long
Private Sub Combo1_Click()
Text2.SetFocus
End Sub
Private Sub Combo1_GotFocus()
'防止重复
If Combo1.ListCount > 0 Then
Exit Sub
End If
Data1.Refresh
Data1.Recordset.MoveFirst
'职员最多也超不过100人
For i = 1 To 100
Combo1.AddItem Data1.Recordset.Fields(1)
Data1.Recordset.MoveNext
On Error GoTo this
Next
this:
Exit Sub
End Sub
Private Sub Command1_Click()
'用户身份验证
Dim i As Integer
logcount = logcount + 1
If logcount = 4 Then
MsgBox "您无权登录本系统！", vbCritical, "警告"
Unload login
Exit Sub
End If
aa = 0
aa = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i = 1 To aa
If Data1.Recordset.Fields(1) = Trim$(Me.Combo1.Text) And Data1.Recordset.Fields(2) = Trim$(Me.Text2.Text) Then
strzybh = Data1.Recordset.Fields(0)
xtrz.Data1.Recordset.AddNew
xtrz.Data1.Recordset("dlry") = Combo1.Text
xtrz.Data1.Recordset("rq") = Date
xtrz.Data1.Recordset("kssj") = Time
xtrz.Data1.Recordset("jssj") = 0
xtrz.Data1.Recordset.Update
xtrz.Data1.Refresh
dlz = strzybh
dlm = Data1.Recordset.Fields(1)
Call caidanlan
' mainform.Show
Unload Me
mainform.Enabled = True
Exit Sub
End If
Data1.Recordset.MoveNext
Next
MsgBox "用户名或密码错误" & vbCrLf & vbCrLf & " 请重试！", vbInformation, "提示"
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
Combo1.Text = "管理员"
Text2.Text = "gly"
'数据源设置
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "select * from yhmm"
Data2.DatabaseName = App.Path & "\db1.mdb"
Data2.RecordSource = "select * from qxfp"
End Sub
Sub caidanlan()
'确定菜单栏的隐现
Dim i As Integer
Dim jlcount As Integer
jlcount = 0
Data2.Recordset.MoveLast
jlcount = Data2.Recordset.RecordCount
Data2.Recordset.MoveFirst
For i = 1 To jlcount
If Data2.Recordset.Fields(0) = strzybh Then
Exit For
End If
Data2.Recordset.MoveNext
Next
If Data2.Recordset.Fields(1) = "1" Then
mainform.spxx1.Enabled = True
Else
mainform.spxx1.Enabled = False
End If
If Data2.Recordset.Fields(2) = "1" Then
mainform.khxx1.Enabled = True
Else
mainform.khxx1.Enabled = False
End If
If Data2.Recordset.Fields(3) = "1" Then
mainform.zyxx1.Enabled = True
Else
mainform.zyxx1.Enabled = False
End If
If Data2.Recordset.Fields(4) = "1" Then
mainform.spzjrk.Enabled = True
Else
mainform.spzjrk.Enabled = False
End If
If Data2.Recordset.Fields(5) = "1" Then
mainform.spdd.Enabled = True
Else
mainform.spdd.Enabled = False
End If
If Data2.Recordset.Fields(6) = "1" Then
mainform.spxx1.Enabled = True
Else
mainform.spxx1.Enabled = False
End If
If Data2.Recordset.Fields(7) = "1" Then
mainform.dhdcl.Enabled = True
Else
mainform.dhdcl.Enabled = False
End If
If Data2.Recordset.Fields(8) = "1" Then
mainform.xsdd.Enabled = True
Else
mainform.xsdd.Enabled = False
End If
If Data2.Recordset.Fields(9) = "1" Then
mainform.xsdcl.Enabled = True
Else
mainform.xsdcl.Enabled = False
End If
If Data2.Recordset.Fields(10) = "1" Then
mainform.xsdcx.Enabled = True
Else
mainform.xsdcx.Enabled = False
End If
If Data2.Recordset.Fields(11) = "1" Then
mainform.xsth.Enabled = True
Else
mainform.xsth.Enabled = False
End If
If Data2.Recordset.Fields(12) = "1" Then
mainform.kccx.Enabled = True
Else
mainform.kccx.Enabled = False
End If
If Data2.Recordset.Fields(13) = "1" Then
mainform.dhth.Enabled = True
Else
mainform.dhth.Enabled = False
End If
If Data2.Recordset.Fields(14) = "1" Then
mainform.kcpd.Enabled = True
Else
mainform.kcpd.Enabled = False
End If
If Data2.Recordset.Fields(15) = "1" Then
mainform.sptj.Enabled = True
Else
mainform.sptj.Enabled = False
End If
If Data2.Recordset.Fields(16) = "1" Then
mainform.spzjck.Enabled = True
Else
mainform.spzjck.Enabled = False
End If
If Data2.Recordset.Fields(18) = "1" Then
mainform.bbzx.Enabled = True
Else
mainform.bbzx.Enabled = False
End If
If Data2.Recordset.Fields(19) = "1" Then
mainform.zhfx.Enabled = True
Else
mainform.zhfx.Enabled = False
End If
If Data2.Recordset.Fields(20) = "1" Then
mainform.czrygl1.Enabled = True
Else
mainform.czrygl1.Enabled = False
End If
If Data2.Recordset.Fields(21) = "1" Then
mainform.sjbf.Enabled = True
Else
mainform.sjbf.Enabled = False
End If
If Data2.Recordset.Fields(22) = "1" Then
mainform.sjcsh.Enabled = True
Else
mainform.sjcsh.Enabled = False
End If
If Data2.Recordset.Fields(23) = "1" Then
mainform.rl.Enabled = True
Else
mainform.rl.Enabled = False
End If
If Data2.Recordset.Fields(24) = "1" Then
mainform.jsq.Enabled = True
Else
mainform.jsq.Enabled = False
End If
If Data2.Recordset.Fields(25) = "1" Then
mainform.yszk.Enabled = True
Else
mainform.yszk.Enabled = False
End If
If Data2.Recordset.Fields(26) = "1" Then
mainform.yfzk.Enabled = True
Else
mainform.yfzk.Enabled = False
End If
If Data2.Recordset.Fields(27) = "1" Then
mainform.qtzk.Enabled = True
Else
mainform.qtzk.Enabled = False
End If
If Data2.Recordset.Fields(28) = "1" Then
mainform.jb.Enabled = True
Else
mainform.jb.Enabled = False
End If
mainform.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -