📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmmain
BackColor = &H8000000C&
Caption = "Roso上机考试系统"
ClientHeight = 6315
ClientLeft = 165
ClientTop = 495
ClientWidth = 11880
LinkTopic = "MDIForm1"
Picture = "frmmain.frx":0000
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Interval = 5000
Left = 6480
Top = 6240
End
Begin MSComctlLib.Toolbar Toolbar2
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 2
Top = 615
Width = 11880
_ExtentX = 20955
_ExtentY = 1508
ButtonWidth = 2090
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "填写考生信息"
Key = "填写考生信息"
Object.ToolTipText = "填写考生信息"
ImageKey = "填写考生信息"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考试剩余时间"
Key = "考试剩余时间"
Object.ToolTipText = "考试剩余时间"
ImageKey = "考试剩余时间"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "退出系统"
Object.ToolTipText = "退出系统"
ImageKey = "提前交卷"
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList2
Left = 8760
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1915A
Key = "填写考生信息"
Object.Tag = "填写考生信息"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":19474
Key = "开始答题"
Object.Tag = "开始答题"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1980E
Key = "考试剩余时间"
Object.Tag = "考试剩余时间"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":19DA8
Key = "提前交卷"
Object.Tag = "提前交卷"
EndProperty
EndProperty
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 720
Top = 2880
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 5940
Width = 11880
_ExtentX = 20955
_ExtentY = 661
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1085
ButtonWidth = 2090
ButtonHeight = 926
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考场信息编辑"
Key = "考场信息编辑"
Object.ToolTipText = "考场信息编辑"
ImageKey = "考场信息编辑"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考场信息查询"
Key = "考场信息查询"
Object.ToolTipText = "考场信息查询"
ImageKey = "考场信息查询"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考场情况编辑"
Key = "考场情况编辑"
Object.ToolTipText = "考场情况编辑"
ImageKey = "考场情况编辑"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考场情况查询"
Key = "考场情况查询"
Object.ToolTipText = "考场情况查询"
ImageKey = "考场情况查询"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "备份数据"
Key = "备份数据"
Object.ToolTipText = "备份数据"
Object.Tag = "备份数据"
ImageKey = "备份数据"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "退出系统"
Object.ToolTipText = "退出系统"
ImageKey = "退出系统"
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 9840
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1A342
Key = "管理员登录"
Object.Tag = "管理员登录"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1A8DC
Key = "考场信息编辑"
Object.Tag = "考场信息编辑"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1AE76
Key = "考场信息查询"
Object.Tag = "考场信息查询"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1B410
Key = "考场情况查询"
Object.Tag = "考场情况查询"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1B9AA
Key = "考场情况编辑"
Object.Tag = "考场情况编辑"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1BF44
Key = "备份数据"
Object.Tag = "备份数据"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1C2DE
Key = "退出系统"
Object.Tag = "退出系统"
EndProperty
EndProperty
End
End
Begin VB.Menu 权限管理
Caption = "权限管理"
Begin VB.Menu 用户登录
Caption = "用户登录"
End
Begin VB.Menu 管理员密码修改
Caption = "管理员密码修改"
End
Begin VB.Menu 考生密码修改
Caption = "考生密码修改"
End
Begin VB.Menu 退出
Caption = "退出"
End
End
Begin VB.Menu 考场信息
Caption = "考场信息"
Begin VB.Menu 考场信息编辑
Caption = "考场信息编辑"
End
Begin VB.Menu sp2
Caption = "-"
End
Begin VB.Menu 考场信息维护
Caption = "考场信息维护"
End
Begin VB.Menu 考场信息查询
Caption = "考场信息查询"
End
End
Begin VB.Menu 考场情况
Caption = "考场情况"
Begin VB.Menu 考场情况编辑
Caption = "考场情况编辑"
End
Begin VB.Menu sp3
Caption = "-"
End
Begin VB.Menu 考场情况维护
Caption = "考场情况维护"
End
Begin VB.Menu 考场情况查询
Caption = "考场情况查询"
End
End
Begin VB.Menu 开始答题
Caption = "开始答题"
Begin VB.Menu 填写考生信息
Caption = "填写考生信息"
End
End
Begin VB.Menu 退出系统
Caption = "退出系统"
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public test As String
Public kaohao As String
Public kaochanghao As String
Public jieshushijian As String
Public kaishishijian As String
Public CurLoginUserName As String
Private Sub MDIForm_Load()
Toolbar1.Visible = False
Toolbar2.Visible = False
考场信息.Visible = False
考场情况.Visible = False
管理员密码修改.Visible = False
考生密码修改.Visible = False
开始答题.Visible = False
退出.Visible = False
CurLoginUserName = "普通用户"
End Sub
Private Sub Timer1_Timer()
StatusBar1.SimpleText = Now() & " 当前用户：" & CurLoginUserName
End Sub
'Private Sub Timer2_Timer()
'Timer2.Enabled = True
'Static i As Integer
'Select Case i
'Case 0
'Picture1.Picture = "/image/桌面/1.gif"
'Case 1
'Picture1.Picture = "/image/桌面/2.jgp"
'End Select
'i = i + 1
'If i > 1 Then i = 0
'End If
'End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "考场信息编辑"
frmkaochangxinxibianji.Show
Case "考场信息查询"
frmkaochangxinxichaxun.Show
Case "考场情况编辑"
frmkaochangqingkuangbianji.Show
Case "备份数据"
frmshujubeifen.Show
Case "考场情况查询"
frmkaochangqingkuangchaxun.Show
Case "退出系统"
End
End Select
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "填写考生信息"
frmtianxiekaoshixinxi.Show
Case "考试剩余时间"
frmjieshushijian.Show
Case "退出系统"
End
End Select
End Sub
Private Sub 密码修改_Click()
End Sub
Private Sub 管理员密码修改_Click()
frmguanlixiugai.Show
End Sub
Private Sub 开始答卷_Click()
frmkaishidati.Show
End Sub
Private Sub 考生密码修改_Click()
frmkaoshengxiugai.Show
End Sub
Private Sub 填写考生信息_Click()
frmtianxiekaoshixinxi.Show
End Sub
Private Sub 用户登录_Click()
frmlogin.Show
End Sub
Private Sub 考场情况编辑_Click()
frmkaochangqingkuangbianji.Show
End Sub
Private Sub 考场情况查询_Click()
frmkaochangqingkuangchaxun.Show
End Sub
Private Sub 考场情况维护_Click()
frmkaochangqingkuangweihu.Show
End Sub
Private Sub 考场信息编辑_Click()
frmkaochangxinxibianji.Show
End Sub
Private Sub 考场信息查询_Click()
frmkaochangxinxichaxun.Show
End Sub
Private Sub 考场信息维护_Click()
frmkaochangxinxiweihu.Show
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 退出系统_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -