📄 frmprint.frm
字号:
VERSION 5.00
Begin VB.Form frmprint
Caption = "中小学通用排课系统 PK1.0-----------打 印------------设计：朱庆春"
ClientHeight = 6720
ClientLeft = 60
ClientTop = 345
ClientWidth = 9480
Icon = "Frmprint.frx":0000
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 6720
ScaleWidth = 9480
Begin VB.Frame fram
Caption = "打印临时课表"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 5760
TabIndex = 35
Top = 120
Width = 1695
Begin VB.CommandButton Cmdlsb
Caption = " 开 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 240
TabIndex = 36
Top = 1320
Width = 1215
End
End
Begin VB.CommandButton Cmdpcut
Caption = " 终止打印 返回主屏"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 5880
TabIndex = 29
Top = 4920
Width = 1335
End
Begin VB.CommandButton Cmdphelp
Caption = "帮 助"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 5880
TabIndex = 28
Top = 3480
Width = 1335
End
Begin VB.Frame Frajsm
Caption = "打印教师名单"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 7440
TabIndex = 20
Top = 3360
Width = 1815
Begin VB.OptionButton Optnjjsm
Caption = "按年级分组"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 26
Top = 840
Width = 1215
End
Begin VB.CommandButton cmdpjsmok
Caption = "开始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 390
TabIndex = 25
Top = 2040
Width = 1095
End
Begin VB.OptionButton Optkcjsm
Caption = "按课程分组"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 22
Top = 1320
Width = 1215
End
Begin VB.OptionButton Optbzm
Caption = "班主任名单"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 21
Top = 480
Width = 1215
End
End
Begin VB.TextBox Text1
Height = 285
Left = 9360
TabIndex = 14
Text = "Text5"
Top = 840
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text4
Height = 285
Left = 9360
TabIndex = 13
Text = "Text4"
Top = 600
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text3
Height = 285
Left = 9360
TabIndex = 12
Text = "Text3"
Top = 360
Visible = 0 'False
Width = 255
End
Begin VB.TextBox Text2
Height = 285
Left = 9360
TabIndex = 11
Text = "Text2"
Top = 120
Visible = 0 'False
Width = 255
End
Begin VB.Frame Frame4
Caption = "打印时间表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 7560
TabIndex = 3
Top = 120
Width = 1695
Begin VB.CommandButton Cmdpsjbok
Caption = "开始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 24
Top = 2160
Width = 975
End
Begin VB.TextBox Text5
Height = 285
Left = 360
TabIndex = 23
Text = "Text5"
Top = 1440
Width = 855
End
Begin VB.Label Label2
Caption = "（每页四份表）"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 27
Top = 480
Width = 1335
End
Begin VB.Label Label4
Caption = "打印页数："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 6
Top = 960
Width = 975
End
End
Begin VB.Frame Frame3
Caption = "打印总课表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 3240
TabIndex = 2
Top = 120
Width = 2295
Begin VB.CheckBox Check1
Caption = "带教师名"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 34
Top = 480
Width = 1575
End
Begin VB.CommandButton Cmdpzkbok
Caption = "开始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 19
Top = 2280
Width = 975
End
Begin VB.ListBox Lstpzkb
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1185
ItemData = "Frmprint.frx":030A
Left = 480
List = "Frmprint.frx":031D
TabIndex = 18
Top = 960
Width = 1215
End
Begin VB.Label Label1
Caption = "选定星期几："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 17
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame2
Caption = " 打印教师课表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 360
TabIndex = 1
Top = 3360
Width = 5295
Begin VB.OptionButton Option2
Caption = "两教师合并"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 33
Top = 2400
Width = 1455
End
Begin VB.OptionButton Option1
Caption = "每教师一表"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 32
Top = 2400
Width = 1455
End
Begin VB.CommandButton Cmdjsok
Caption = "开 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3360
TabIndex = 31
Top = 2400
Width = 1335
End
Begin VB.CheckBox Chkpjs
Caption = "全选"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 16
Top = 240
Width = 1215
End
Begin VB.ListBox Lstpjs
Columns = 4
Height = 1680
Left = 240
MultiSelect = 2 'Extended
TabIndex = 8
Top = 480
Width = 4695
End
Begin VB.CommandButton Cmdpjsok
Caption = "开始打印"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 10
Top = 1890
Width = 975
End
Begin VB.Label Labpjs
Caption = "选定教师："
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 5
Top = 240
Width = 975
End
End
Begin VB.Frame Frabj
Caption = "打印班级课表"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2895
Left = 360
TabIndex = 0
Top = 120
Width = 2775
Begin VB.CommandButton Cmdbjok
Caption = " 开 始。。。"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -