📄 frmpk.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmpk
BackColor = &H00FFFFFF&
Caption = "编排班级监考老师"
ClientHeight = 7050
ClientLeft = 60
ClientTop = 630
ClientWidth = 9480
ControlBox = 0 'False
FillColor = &H00C0C0C0&
BeginProperty Font
Name = "MS Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MDIChild = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 7050
ScaleWidth = 9480
Begin TabDlg.SSTab SSTab1
Height = 3525
Left = 120
TabIndex = 288
Top = 0
Visible = 0 'False
Width = 5310
_ExtentX = 9366
_ExtentY = 6218
_Version = 393216
Tab = 2
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "限制条件"
TabPicture(0) = "Frmpk.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).Control(1)= "Check1"
Tab(0).ControlCount= 2
TabCaption(1) = "排表信息"
TabPicture(1) = "Frmpk.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label17"
Tab(1).Control(1)= "Label16"
Tab(1).Control(2)= "Label15"
Tab(1).Control(3)= "Label14"
Tab(1).Control(4)= "Label13"
Tab(1).Control(5)= "Label12"
Tab(1).Control(6)= "Label5"
Tab(1).Control(7)= "Label6"
Tab(1).Control(8)= "Label8"
Tab(1).Control(9)= "Label4"
Tab(1).ControlCount= 10
TabCaption(2) = "排表进程"
TabPicture(2) = "Frmpk.frx":0038
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "PBar1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Command4"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Command3"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Command2"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).ControlCount= 4
Begin VB.CommandButton Command2
Caption = "开始编排本班"
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Left = 120
TabIndex = 315
Top = 2400
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "开始编排全校"
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Left = 2040
TabIndex = 311
Top = 2400
Width = 1695
End
Begin VB.CommandButton Command4
Caption = "关 闭"
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Left = 3960
TabIndex = 310
Top = 2400
Width = 1170
End
Begin VB.Frame Frame1
Caption = "设定自动排表限制条件"
Height = 1485
Left = -74760
TabIndex = 290
Top = 900
Width = 4695
Begin VB.OptionButton Option2
Caption = "不规定"
Height = 255
Left = 885
TabIndex = 292
Top = 885
Width = 1080
End
Begin VB.OptionButton Option1
Caption = "规定本班教师不监考本班任教课程的考试"
Height = 495
Left = 885
TabIndex = 291
Top = 360
Width = 3540
End
End
Begin VB.CheckBox Check1
Caption = "每班每场次由 2 人监考"
Height = 345
Left = -73770
TabIndex = 289
Top = 2760
Width = 2625
End
Begin ComctlLib.ProgressBar PBar1
Height = 270
Left = 345
TabIndex = 309
Top = 1425
Width = 4470
_ExtentX = 7885
_ExtentY = 476
_Version = 327682
Appearance = 1
End
Begin VB.Label Label17
Caption = "Label17"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = -72480
TabIndex = 308
Top = 2640
Width = 915
End
Begin VB.Label Label16
Caption = "Label16"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = -72465
TabIndex = 307
Top = 2280
Width = 915
End
Begin VB.Label Label15
Caption = "Label15"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = -72465
TabIndex = 306
Top = 1845
Width = 945
End
Begin VB.Label Label14
Caption = "Label14"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = -72465
TabIndex = 305
Top = 1455
Width = 1125
End
Begin VB.Label Label13
Caption = "Label13"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -72465
TabIndex = 304
Top = 1020
Width = 1035
End
Begin VB.Label Label12
Caption = "已排定监考场次："
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = -73845
TabIndex = 303
Top = 2685
Width = 1440
End
Begin VB.Label Label1
Caption = "Label1"
Height = 165
Index = 7
Left = -72285
TabIndex = 302
Top = 1035
Width = 1290
End
Begin VB.Label Label2
Caption = "Label2"
Height = 270
Index = 10
Left = -72300
TabIndex = 301
Top = 1470
Width = 1275
End
Begin VB.Label Label3
Caption = "Label3"
Height = 270
Index = 10
Left = -72300
TabIndex = 300
Top = 1890
Width = 1335
End
Begin VB.Label Label11
Caption = "Label4"
Height = 315
Left = -72300
TabIndex = 299
Top = 2370
Width = 1425
End
Begin VB.Label Label5
Caption = "监考教师数："
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = -73530
TabIndex = 298
Top = 1440
Width = 1020
End
Begin VB.Label Label6
Caption = "考试班级数："
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = -73515
TabIndex = 297
Top = 1035
Width = 1170
End
Begin VB.Label Label7
Caption = "监考教师数："
Height = 270
Index = 70
Left = -73515
TabIndex = 296
Top = 1470
Width = 1080
End
Begin VB.Label Label8
Caption = "总考试场次："
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = -73530
TabIndex = 295
Top = 1845
Width = 1155
End
Begin VB.Label Label4
Caption = "已排考试场次："
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -73695
TabIndex = 294
Top = 2265
Width = 1335
End
Begin VB.Label Label10
Caption = "已排定监考场次："
Height = 240
Index = 70
Left = -73875
TabIndex = 293
Top = 2850
Width = 1530
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid HFGd1
Height = 5025
Left = 15
TabIndex = 249
Top = 1680
Width = 3690
_ExtentX = 6509
_ExtentY = 8864
_Version = 393216
Rows = 8
Cols = 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -