📄 frmload.frm
字号:
VERSION 5.00
Begin VB.Form frmLoad
BorderStyle = 3 'Fixed Dialog
Caption = "系统登录"
ClientHeight = 3570
ClientLeft = 45
ClientTop = 330
ClientWidth = 4830
Icon = "frmLoad.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3570
ScaleWidth = 4830
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtPassword
Height = 270
IMEMode = 3 'DISABLE
Left = 1440
MaxLength = 6
PasswordChar = "*"
TabIndex = 0
Top = 2040
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "确 定"
Default = -1 'True
Height = 495
Left = 3240
TabIndex = 3
Top = 2040
Width = 975
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
Height = 495
Left = 3240
TabIndex = 2
Top = 2760
Width = 975
End
Begin VB.PictureBox picIcon
Height = 555
Left = 240
Picture = "frmLoad.frx":27A2
ScaleHeight = 495
ScaleWidth = 495
TabIndex = 1
Top = 240
Width = 555
End
Begin VB.Label lblVersion
AutoSize = -1 'True
Caption = "导师：臧明相"
Height = 180
Left = 3000
TabIndex = 11
Top = 840
Width = 1080
End
Begin VB.Label lblUserType
AutoSize = -1 'True
Height = 180
Left = 1560
TabIndex = 10
Top = 3000
Width = 90
End
Begin VB.Label lblType
AutoSize = -1 'True
Caption = "用户类型："
Height = 180
Left = 600
TabIndex = 9
Top = 3000
Width = 900
End
Begin VB.Label lblUserName
AutoSize = -1 'True
Height = 180
Left = 1560
TabIndex = 8
Top = 2520
Width = 90
End
Begin VB.Label lblName
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "用户名："
Height = 180
Left = 600
TabIndex = 7
Top = 2550
Width = 735
End
Begin VB.Label lblPassword
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "密码："
Height = 180
Left = 600
TabIndex = 6
Top = 2070
Width = 555
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "大型机房学生上机管理系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 285
Left = 840
TabIndex = 5
Top = 360
Width = 3825
End
Begin VB.Line lin1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 120
X2 = 4800
Y1 = 1710
Y2 = 1710
End
Begin VB.Line lin1
BorderColor = &H00808080&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 120
X2 = 4800
Y1 = 1695
Y2 = 1695
End
Begin VB.Label lblDeveloper
AutoSize = -1 'True
Caption = "作者：荣瓴"
Height = 180
Left = 3000
TabIndex = 4
Top = 1320
Width = 1140
End
End
Attribute VB_Name = "frmLoad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsUser As Recordset
Dim rsPurview As Recordset
Public StrU_ID As String
Public StrU_Name As String
Public BlCardholder As Boolean
Public BlInstitute As Boolean
Public BlComputer As Boolean
Public BlCurrSchedule As Boolean
Public BlStopUse As Boolean
Public BlPrepay As Boolean
Public BlSaving As Boolean
Public BlExitCard As Boolean
Public BlTable As Boolean
Public BlGraph As Boolean
Public BlSaveStatistic As Boolean
Public BlEductionStatistic As Boolean
Public BlShangjiStatistic As Boolean
Public BlOperator As Boolean
Public BlDatabase As Boolean
Public blOperateLog As Boolean
Public BlPrinter As Boolean
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
Static n As Integer
n = n + 1
Set rsUser = New Recordset
rsUser.Open "select * from tbuser,tbrole where tbuser.U_Psw LIKE '" & txtPassWord.Text & "' and left(tbuser.u_id,1)=tbrole.R_ID", Modmain.conn, 3, 2
StrU_ID = rsUser.Fields!U_ID
StrU_Name = rsUser.Fields!u_name
lblUserName = rsUser.Fields!u_name
lblUserType.Caption = rsUser.Fields!r_Name
frmmain.SbaMain.Panels(2) = "操作员：" & StrU_Name
If rsUser.RecordCount <> 0 Then
OK = True
Set rsPurview = New Recordset
Dim strPurview As String
strPurview = "select TbPurview.menuName from tbuser,TbPurview,TbAllocatee where TbAllocatee.P_ID=TbPurview.P_ID and TbAllocatee.u_id=tbuser.u_id and tbuser.U_Psw LIKE '" & txtPassWord.Text & "'"
rsPurview.Open strPurview, Modmain.conn, 3, 2
While Not rsPurview.EOF
If rsPurview.Fields("menuName") = "MnuInstitute" Then '院系、专业、班级信息维护
frmmain.MnuInstitute.Enabled = True
frmmain.TbaMain.Buttons("Institute").Enabled = True
BlInstitute = True
End If
If rsPurview.Fields("menuName") = "MnuCardholder" Then '持卡人信息维护
frmmain.MnuCardholder.Enabled = True
frmmain.TbaMain.Buttons("Cardholder").Enabled = True
BlCardholder = True
End If
If rsPurview.Fields("menuName") = "MnuComputer" Then '计算机信息维护
frmmain.MnuComputer.Enabled = True
frmmain.TbaMain.Buttons("Computer").Enabled = True
BlComputer = True
End If
If rsPurview.Fields("menuName") = "MnuCurrSchedule" Then '课表信息维护
frmmain.MnuCurrSchedule.Enabled = True
frmmain.TbaMain.Buttons("CurrSchedule").Enabled = True
BlCurrSchedule = True
End If
If rsPurview.Fields("menuName") = "MnuStopUse" Then '卡停用及挂失
frmmain.MnuStopUse.Enabled = True
frmmain.TbaMain.Buttons("StopUse").Enabled = True
BlStopUse = True
End If
If rsPurview.Fields("menuName") = "MnuPrepay" Then '集体充值
frmmain.MnuPrepay.Enabled = True
frmmain.TbaMain.Buttons("Prepay").Enabled = True
BlPrepay = True
End If
If rsPurview.Fields("menuName") = "MnuSaving" Then '个人充值
frmmain.MnuSaving.Enabled = True
frmmain.TbaMain.Buttons("Saving").Enabled = True
BlSaving = True
End If
If rsPurview.Fields("menuName") = "MnuExitCard" Then '退卡
frmmain.MnuExitCard.Enabled = True
frmmain.TbaMain.Buttons("ExitCard").Enabled = True
BlExitCard = True
End If
If rsPurview.Fields("menuName") = "MnuTable" Then '机房状态监控（列表）
frmmain.MnuTable.Enabled = True
frmmain.TbaMain.Buttons("Table").Enabled = True
BlTable = True
End If
If rsPurview.Fields("menuName") = "MnuGraph" Then '机房状态监控（图示）
frmmain.MnuGraph.Enabled = True
frmmain.TbaMain.Buttons("Graph").Enabled = True
BlGraph = True
End If
If rsPurview.Fields("menuName") = "MnuSaveStatistic" Then '充值统计
frmmain.MnuSaveStatistic.Enabled = True
frmmain.TbaMain.Buttons("SaveStatistic").Enabled = True
BlSaveStatistic = True
End If
If rsPurview.Fields("menuName") = "MnuEductionStatistic" Then '教学上机统计
frmmain.MnuEductionStatistic.Enabled = True
frmmain.TbaMain.Buttons("EductionStatistic").Enabled = True
BlEductionStatistic = True
End If
If rsPurview.Fields("menuName") = "MnuShangjiStatistic" Then '上机情况统计
frmmain.MnuShangjiStatistic.Enabled = True
frmmain.TbaMain.Buttons("ShangjiStatistic").Enabled = True
BlShangjiStatistic = True
End If
If rsPurview.Fields("menuName") = "MnuOperator" Then '操作员维护
frmmain.MnuOperator.Enabled = True
frmmain.TbaMain.Buttons("Operator").Enabled = True
BlOperator = True
End If
If rsPurview.Fields("menuName") = "MnuDatabase" Then '数据库备份与恢复
frmmain.MnuDatabase.Enabled = True
frmmain.TbaMain.Buttons("Database").Enabled = True
BlDatabase = True
End If
If rsPurview.Fields("menuName") = "MnuOperateLog" Then '系统操作日志
frmmain.MnuOperateLog.Enabled = True
frmmain.TbaMain.Buttons("OperateLog").Enabled = True
blOperateLog = True
End If
If rsPurview.Fields("menuName") = "MnuPrinter" Then '打印机设置
frmmain.MnuPrinter.Enabled = True
frmmain.TbaMain.Buttons("Printer").Enabled = True
BlPrinter = True
End If
rsPurview.MoveNext
Wend
Unload Me
If BlOK = True Then
frmmain.Show 1
End If
ElseIf n = 3 Then
MsgBox "对不起！您不是本系统的用户，无权使用！", vbOKOnly + vbCritical, "机房管理"
Unload Me
Else
MsgBox "用户名或口令不正确，请重新输入！", vbOKOnly + vbCritical, "机房管理"
txtPassWord.Text = ""
txtPassWord.SetFocus
End If
End Sub
Private Sub Form_Load()
Dead
'BlInstitute = False
'BlCardholder = False
'BlComputer = False
'BlCurrSchedule = False
'BlStopUse = False
'BlPrepay = False
'BlSaving = False
'BlExitCard = False
'BlTable = False
'BlGraph = False
'BlSaveStatistic = False
'BlEductionStatistic = False
'BlShangjiStatistic = False
'BlOperator = False
'BlDatabase = False
'BlOperateLog = False
'BlPrinter = False
End Sub
Private Sub Dead()
frmmain.MnuInstitute.Enabled = False
frmmain.TbaMain.Buttons("Institute").Enabled = False
BlInstitute = False
frmmain.MnuCardholder.Enabled = False
frmmain.TbaMain.Buttons("Cardholder").Enabled = False
BlCardholder = False
frmmain.MnuComputer.Enabled = False
frmmain.TbaMain.Buttons("Computer").Enabled = False
BlComputer = False
frmmain.MnuCurrSchedule.Enabled = False
frmmain.TbaMain.Buttons("CurrSchedule").Enabled = False
BlCurrSchedule = False
frmmain.MnuStopUse.Enabled = False
frmmain.TbaMain.Buttons("StopUse").Enabled = False
BlStopUse = False
frmmain.MnuPrepay.Enabled = False
frmmain.TbaMain.Buttons("Prepay").Enabled = False
BlPrepay = False
frmmain.MnuSaving.Enabled = False
frmmain.TbaMain.Buttons("Saving").Enabled = False
BlSaving = False
frmmain.MnuExitCard.Enabled = False
frmmain.TbaMain.Buttons("ExitCard").Enabled = False
BlExitCard = False
frmmain.MnuTable.Enabled = False
frmmain.TbaMain.Buttons("Table").Enabled = False
BlTable = False
frmmain.MnuGraph.Enabled = False
frmmain.TbaMain.Buttons("Graph").Enabled = False
BlGraph = False
frmmain.MnuSaveStatistic.Enabled = False
frmmain.TbaMain.Buttons("SaveStatistic").Enabled = False
BlSaveStatistic = False
frmmain.MnuEductionStatistic.Enabled = False
frmmain.TbaMain.Buttons("EductionStatistic").Enabled = False
BlEductionStatistic = False
frmmain.MnuShangjiStatistic.Enabled = False
frmmain.TbaMain.Buttons("ShangjiStatistic").Enabled = False
BlShangjiStatistic = False
frmmain.MnuOperator.Enabled = False
frmmain.TbaMain.Buttons("Operator").Enabled = False
BlOperator = False
frmmain.MnuDatabase.Enabled = False
frmmain.TbaMain.Buttons("Database").Enabled = False
BlDatabase = False
frmmain.MnuOperateLog.Enabled = False
frmmain.TbaMain.Buttons("OperateLog").Enabled = False
blOperateLog = False
frmmain.MnuPrinter.Enabled = False
frmmain.TbaMain.Buttons("Printer").Enabled = False
BlPrinter = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -