📄 frmmain.frm
字号:
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6360
TabIndex = 21
Top = 2160
Width = 720
End
Begin VB.Label lblS_NameList
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4920
TabIndex = 20
Top = 2160
Width = 120
End
Begin VB.Label lblS_Name
AutoSize = -1 'True
Caption = "专业："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3600
TabIndex = 19
Top = 2160
Width = 720
End
Begin VB.Label lblI_NameList
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 7800
TabIndex = 18
Top = 1680
Width = 120
End
Begin VB.Label lblI_Name
AutoSize = -1 'True
Caption = "院系："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6360
TabIndex = 17
Top = 1680
Width = 720
End
Begin VB.Label lblNoList
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4920
TabIndex = 16
Top = 1200
Width = 120
End
Begin VB.Label lblNo
AutoSize = -1 'True
Caption = "学号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3600
TabIndex = 15
Top = 1200
Width = 720
End
Begin VB.Label lblCH_NameList
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4920
TabIndex = 14
Top = 1680
Width = 120
End
Begin VB.Label lblCH_Name
AutoSize = -1 'True
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3600
TabIndex = 13
Top = 1680
Width = 720
End
Begin VB.Label lblCH_ID
AutoSize = -1 'True
Caption = "卡号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3600
TabIndex = 11
Top = 720
Width = 720
End
Begin VB.Label lblMore
AutoSize = -1 'True
Caption = "更多>>"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 9840
MouseIcon = "frmmain.frx":14AEA
MousePointer = 99 'Custom
TabIndex = 4
Top = 5400
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "当前上机人员列表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4800
TabIndex = 3
Top = 5400
Width = 1920
End
Begin VB.Label lblInformation
Caption = "欢迎使用"
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 3045
Left = 9720
TabIndex = 2
Top = 840
Width = 555
End
Begin VB.Menu MnuSysManage
Caption = "系统管理"
Begin VB.Menu MnuOperator
Caption = "操作员维护"
End
Begin VB.Menu MnuReworkPsd
Caption = "更改登录密码"
End
Begin VB.Menu Mnu1
Caption = "-"
End
Begin VB.Menu MnuDatabase
Caption = "数据库备份与恢复"
End
Begin VB.Menu MnuOperateLog
Caption = "系统操作日志"
End
Begin VB.Menu Mnu2
Caption = "-"
End
Begin VB.Menu MnuPrinter
Caption = "打印机设置"
End
Begin VB.Menu Mnu3
Caption = "-"
End
Begin VB.Menu MnuStart
Caption = "注销"
End
Begin VB.Menu MnuExit
Caption = "退出"
End
End
Begin VB.Menu MnuBasicData
Caption = "基础数据管理"
Begin VB.Menu MnuInstitute
Caption = "院系、专业、班级信息维护"
Shortcut = {F2}
End
Begin VB.Menu MnuCardholder
Caption = "持卡人信息维护"
End
Begin VB.Menu Mnu4
Caption = "-"
End
Begin VB.Menu MnuComputer
Caption = "计算机信息维护"
End
Begin VB.Menu Mnu5
Caption = "-"
End
Begin VB.Menu MnuCurrSchedule
Caption = "课表信息维护"
End
End
Begin VB.Menu MnuDisposal
Caption = "日常处理"
Begin VB.Menu MnuStopUse
Caption = "卡停用及挂失"
End
Begin VB.Menu Mnu6
Caption = "-"
End
Begin VB.Menu MnuPrepay
Caption = "集体充值"
End
Begin VB.Menu MnuSaving
Caption = "个人充值"
End
Begin VB.Menu Mnu7
Caption = "-"
End
Begin VB.Menu MnuExitCard
Caption = "退卡"
End
End
Begin VB.Menu MnuClassRoom
Caption = "机房监控"
Begin VB.Menu MnuTable
Caption = "机房状态监控（列表）"
End
Begin VB.Menu MnuGraph
Caption = "机房状态监控（图示）"
End
End
Begin VB.Menu MnuFind
Caption = "统计报表"
Begin VB.Menu MnuSaveStatistic
Caption = "充值统计"
End
Begin VB.Menu MnuEductionStatistic
Caption = "教学上机统计"
End
Begin VB.Menu Mnu12
Caption = "-"
End
Begin VB.Menu MnuShangjiStatistic
Caption = "上机情况统计"
End
End
Begin VB.Menu MnuHelp
Caption = "帮 助"
Begin VB.Menu MnuHelpFrom
Caption = "帮助"
End
Begin VB.Menu MnuAbout
Caption = "关于"
End
End
Begin VB.Menu MnuExitSystem
Caption = "退出系统"
End
Begin VB.Menu MnuLOOK
Caption = "SS"
Visible = 0 'False
Begin VB.Menu MnuLOOKPerson
Caption = "查看"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmmain.frm ''
'' ''
''Created On 2004.2.2--2004.2.30 ''
'' ''
''Description 提供上下机登记,本系统的主窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsMenu As Recordset
Dim lItem As ListItem
Dim LPItem As ListItem
Dim itmX As ListItem
Dim RsCardholder As Recordset
Dim rsSJCount As Recordset
Dim RsExitCardholder As Recordset
Dim RsCountCardholder As Recordset
Dim rsInstitute As Recordset
Dim rsSort As Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -