📄 frmmain.frm
字号:
Picture = "FrmMain.frx":745C
Top = 1800
Width = 480
End
Begin VB.Image ImgXSLR
Height = 480
Left = 4200
MouseIcon = "FrmMain.frx":7766
MousePointer = 99 'Custom
Picture = "FrmMain.frx":7BA8
Top = 1800
Width = 480
End
Begin VB.Label LabPJCL
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "判卷处理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 840
TabIndex = 5
Top = 3240
Visible = 0 'False
Width = 840
End
Begin VB.Image ImgPJCL
Height = 480
Left = 960
MouseIcon = "FrmMain.frx":7FEA
MousePointer = 99 'Custom
Picture = "FrmMain.frx":842C
Top = 2640
Visible = 0 'False
Width = 480
End
Begin VB.Label LabSJSC
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "试卷生成"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 765
TabIndex = 4
Top = 2400
Width = 840
End
Begin VB.Image ImgSJSC
Height = 480
Left = 960
MouseIcon = "FrmMain.frx":8736
MousePointer = 99 'Custom
Picture = "FrmMain.frx":8B78
Top = 1800
Width = 480
End
Begin VB.Label LabKSSZ
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "考试设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 2385
TabIndex = 3
Top = 2400
Width = 840
End
Begin VB.Image ImgKSSZ
Height = 480
Left = 2520
MouseIcon = "FrmMain.frx":8E82
MousePointer = 99 'Custom
Picture = "FrmMain.frx":92C4
Top = 1800
Width = 480
End
End
Begin VB.PictureBox PicSM
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 6840
Left = 15
ScaleHeight = 6810
ScaleWidth = 3075
TabIndex = 1
Top = 1110
Width = 3105
Begin VB.Label LabBZ
BackStyle = 0 'Transparent
Caption = " 试卷生成是整个系统的试题试卷生成模块。通过它可以选择题目库里保存的题目任意生成你想要的试卷。也可以随机生成，让系统了帮你出卷！"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 3735
Left = 240
TabIndex = 18
Top = 1245
Width = 2655
End
Begin VB.Label LabSM
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "试卷生成"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1140
TabIndex = 17
Top = 615
Width = 1395
End
Begin VB.Image ImgSM
Height = 720
Left = 270
Picture = "FrmMain.frx":95CE
Stretch = -1 'True
Top = 450
Width = 720
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 705
Top = 2865
End
Begin MSComctlLib.StatusBar Stb
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 7965
Width = 11880
_ExtentX = 20955
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5080
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5080
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5080
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 1110
Left = 0
Picture = "FrmMain.frx":98D8
Stretch = -1 'True
Top = 0
Width = 11835
End
Begin VB.Menu Active
Caption = "基本操作(&A)"
Begin VB.Menu CreateSJ
Caption = "试卷生成/修改(&C)"
End
Begin VB.Menu SetKS
Caption = "考试设置(&S)"
End
Begin VB.Menu InsertXS
Caption = "职工信息录入(&X)"
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出(&Q)"
End
End
Begin VB.Menu InsertTM
Caption = "题目录入(&I)"
Begin VB.Menu InXZ
Caption = "选择题录入/修改(&X)"
End
Begin VB.Menu InPD
Caption = "判断题录入/修改(&P)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu InTK
Caption = "填空题录入/修改(&T)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu InWD
Caption = "问答题录入/修改(&W)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu InZW
Caption = "论述题录入/修改(&Z)"
Enabled = 0 'False
Visible = 0 'False
End
End
Begin VB.Menu PanJuan
Caption = "判卷处理(&P)"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu LSPanJuan
Caption = "非标准题判卷(&T)"
Enabled = 0 'False
End
End
Begin VB.Menu Query
Caption = "系统查询(&E)"
Begin VB.Menu QueryTM
Caption = "试卷查询(&T)"
End
Begin VB.Menu QueryXS
Caption = "职工信息查询(&S)"
End
Begin VB.Menu QueryCJ
Caption = "职工成绩查询(&X)"
End
End
Begin VB.Menu SysStart
Caption = "系统初始化(&S)"
Begin VB.Menu DBStart
Caption = "系统数据库初始化(&S)"
End
Begin VB.Menu qqqq
Caption = "-"
End
Begin VB.Menu WeiHuDW
Caption = "单位信息设置(&D)"
End
End
Begin VB.Menu WeiHu
Caption = "数据维护(&W)"
Begin VB.Menu WeiHuKM
Caption = "分公司信息维护(&K)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu WeiHuNJ
Caption = "部门信息维护(&G)"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu q1
Caption = "-"
End
Begin VB.Menu WeiHuCZ
Caption = "操作员维护(&C)"
End
Begin VB.Menu WeiHuMM
Caption = "修改密码(&M)"
End
Begin VB.Menu q5
Caption = "-"
End
Begin VB.Menu WeiHuBH
Caption = "数据备份/恢复(&B)"
Enabled = 0 'False
Visible = 0 'False
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu SystemHelp
Caption = "系统帮助(&H)"
End
Begin VB.Menu qqq
Caption = "-"
End
Begin VB.Menu About
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub About_Click()
FrmAbout.Visible = False
FrmAbout.Show 1
End Sub
Private Sub Command1_Click()
'FrmPanJuan.Show 1
End Sub
Private Sub CreateSJ_Click()
UseForm = "FrmShiJuan"
FrmSet.Show 1
End Sub
'设置菜单操作权限
Public Sub SetMeun()
'保存取得操作员的权限
Dim QuanXian As String
Dim adoRs As Recordset
Set adoRs = New Recordset
adoRs.Open "select quanxian from admin where code='" + UserCode + "'", adoCn, adOpenStatic, adLockOptimistic
'取得各个权限的数组
QuanXian = adoRs.Fields(0).Value
Set adoRs = Nothing
Dim QX() As String
QX = Split(QuanXian, ",")
'设置各个菜单的可用性
''''''''''''''菜单顺序
'试卷生成/修改'考试设置'职工信息录入'选择题录入/修改'填空题录入/修改'判断题录入/修改
'问答题录入/修改'论述题录入/修改'试卷查询'职工查询'职工成绩查询'系统数据库初始化
'单位信息设置'部门信息维护'车间信息维护'操作员维护'数据备份/恢复'判卷处理
CreateSJ.Enabled = YN2TF(QX(0))
ImgSJSC.Enabled = YN2TF(QX(0))
SetKS.Enabled = YN2TF(QX(1))
ImgKSSZ.Enabled = YN2TF(QX(1))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -