📄 frmcreatepaper.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmCreatePaper
BorderStyle = 0 'None
Caption = "命题设置"
ClientHeight = 4740
ClientLeft = 3630
ClientTop = 2475
ClientWidth = 4515
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4740
ScaleWidth = 4515
ShowInTaskbar = 0 'False
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 375
Left = 3120
TabIndex = 19
Top = 4200
Width = 1095
End
Begin VB.CommandButton CmdOk
Caption = "确定"
Height = 375
Left = 1680
TabIndex = 18
Top = 4200
Width = 1095
End
Begin VB.OptionButton OptTeacher
Caption = "手动命题"
Height = 495
Left = 240
TabIndex = 2
Top = 120
Value = -1 'True
Width = 1935
End
Begin VB.OptionButton OptAuto
Caption = "自动出题"
Height = 615
Left = 240
TabIndex = 1
Top = 600
Width = 1815
End
Begin VB.Frame FrmQues
Caption = "命题选项"
Enabled = 0 'False
Height = 2895
Left = 120
TabIndex = 0
Top = 1200
Width = 4215
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 15
Top = 2400
Width = 1080
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 12
Top = 1920
Width = 1080
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 9
Top = 1440
Width = 1080
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 6
Top = 960
Width = 1080
End
Begin MSComCtl2.UpDown udFilling
Height = 285
Left = 3000
TabIndex = 5
Top = 480
Width = 255
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "Text1"
BuddyDispid = 196618
OrigLeft = 2880
OrigTop = 480
OrigRight = 3135
OrigBottom = 735
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 285
Left = 1920
TabIndex = 3
Top = 465
Width = 1080
End
Begin MSComCtl2.UpDown udROR
Height = 285
Left = 3000
TabIndex = 8
Top = 960
Width = 255
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "Text2"
BuddyDispid = 196617
OrigLeft = 2880
OrigTop = 975
OrigRight = 3135
OrigBottom = 1230
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udSingleSel
Height = 285
Left = 3000
TabIndex = 11
Top = 1440
Width = 255
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "Text3"
BuddyDispid = 196616
OrigLeft = 3000
OrigTop = 1455
OrigRight = 3255
OrigBottom = 1710
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udMultiSel
Height = 285
Left = 3000
TabIndex = 14
Top = 1920
Width = 255
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "Text4"
BuddyDispid = 196615
OrigLeft = 3000
OrigTop = 1920
OrigRight = 3255
OrigBottom = 2175
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown udEssayQ
Height = 285
Left = 3000
TabIndex = 17
Top = 2400
Width = 255
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "Text5"
BuddyDispid = 196614
OrigLeft = 3000
OrigTop = 2400
OrigRight = 3255
OrigBottom = 2655
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "问答题"
Height = 255
Left = 240
TabIndex = 16
Top = 2415
Width = 1215
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "多选题"
Height = 255
Left = 240
TabIndex = 13
Top = 1935
Width = 1215
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "单选题"
Height = 255
Left = 240
TabIndex = 10
Top = 1455
Width = 1215
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "判断题"
Height = 255
Left = 240
TabIndex = 7
Top = 975
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "填空题"
Height = 255
Left = 240
TabIndex = 4
Top = 480
Width = 1215
End
End
End
Attribute VB_Name = "frmCreatePaper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdOk_Click()
If OptTeacher.Value = True Then
DataEnv.DelQuestion
frmModifyPaper.Show vbModal
QPaper.Created = True
Else
QPaper.FillingNum = udFilling.Value
QPaper.RightWrongNum = udROR.Value
QPaper.SingleSelNum = udSingleSel.Value
QPaper.MultiSelNum = udMultiSel.Value
QPaper.EssayQuesNum = udEssayQ.Value
If QPaper.Create Then
MsgBox "试卷已生成，请及时浏览或修改", vbInformation, "提示"
Else
MsgBox "试卷创建失败，请查找原因或与管理员联系", vbCritical, "错误"
End If
End If
Unload Me
End Sub
Private Sub Form_Load()
DataEnv.rsFillingQ.Open
udFilling.Min = 0
udFilling.Max = DataEnv.rsFillingQ.RecordCount
DataEnv.rsFillingQ.Close
DataEnv.rsRorWQ.Open
udROR.Min = 0
udROR.Max = DataEnv.rsRorWQ.RecordCount
DataEnv.rsRorWQ.Close
DataEnv.rsSingleSelQ.Open
udSingleSel.Min = 0
udSingleSel.Max = DataEnv.rsSingleSelQ.RecordCount
DataEnv.rsSingleSelQ.Close
DataEnv.rsMultiSelQ.Open
udMultiSel.Min = 0
udMultiSel.Max = DataEnv.rsMultiSelQ.RecordCount
DataEnv.rsMultiSelQ.Close
DataEnv.rsEssayQ.Open
udEssayQ.Min = 0
udEssayQ.Max = DataEnv.rsEssayQ.RecordCount
DataEnv.rsEssayQ.Close
End Sub
Private Sub OptAuto_Click()
If OptAuto.Value Then
FrmQues.Enabled = True
Else
FrmQues.Enabled = False
End If
End Sub
Private Sub OptTeacher_Click()
If OptAuto.Value Then
FrmQues.Enabled = True
Else
FrmQues.Enabled = False
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -