📄 main.frm
字号:
VERSION 5.00
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form formmain
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "星零排课系统"
ClientHeight = 8985
ClientLeft = 45
ClientTop = 435
ClientWidth = 12750
Icon = "main.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 8985
ScaleWidth = 12750
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.CommandButton Command11
Caption = "销"
Height = 375
Left = 12120
TabIndex = 40
ToolTipText = "注销已生成的课程表"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command10
Caption = "配"
Height = 375
Left = 11160
TabIndex = 39
ToolTipText = "公共教室配置"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command9
Caption = "生"
Height = 375
Left = 10680
TabIndex = 38
ToolTipText = "执行课程表生成操作"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command8
Caption = "已"
Height = 375
Left = 11640
TabIndex = 37
ToolTipText = "查看该班级已生成的课表"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command7
Caption = "存"
Height = 375
Left = 13560
TabIndex = 36
ToolTipText = "保存新增记录"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command6
Caption = "显"
Height = 375
Left = 10200
TabIndex = 35
ToolTipText = "显示课程信息记录"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command5
Caption = "+"
Height = 375
Left = 12600
TabIndex = 34
ToolTipText = "增加明细"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command4
Caption = "删"
Height = 375
Left = 14520
TabIndex = 33
ToolTipText = "删除课程信息记录"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command3
Caption = "修"
Height = 375
Left = 14040
TabIndex = 32
ToolTipText = "修改课程信息记录"
Top = 4750
Width = 375
End
Begin VB.CommandButton Command2
Caption = "新"
Height = 375
Left = 13080
TabIndex = 31
ToolTipText = "新增记录按钮,得到可填写新行"
Top = 4750
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Left = 5040
OleObjectBlob = "main.frx":F84A
TabIndex = 17
Top = 4780
Width = 945
End
Begin VB.Frame Frame2
Caption = "课程管理信息"
Height = 5175
Left = 2280
TabIndex = 15
Top = 5040
Width = 9375
Begin FlexCell.Grid Grid1
Height = 4815
Left = 120
TabIndex = 16
Top = 240
Width = 10020
_ExtentX = 17674
_ExtentY = 8493
AllowUserResizing= 0 'False
Appearance = 0
Cols = 9
GridColor = 0
Rows = 8
ScrollBars = 2
ScrollBarStyle = 0
End
End
Begin VB.PictureBox Picmenu_bg
BackColor = &H00404040&
Height = 8985
Left = 0
ScaleHeight = 8925
ScaleWidth = 1935
TabIndex = 4
Top = 0
Width = 1990
Begin VB.PictureBox Picmenu_qg
BackColor = &H00404040&
Height = 495
Index = 0
Left = 0
ScaleHeight = 435
ScaleWidth = 1995
TabIndex = 14
Top = 1920
Visible = 0 'False
Width = 2055
Begin as97Popup.asPopup asPopup6
Height = 855
Left = 360
Top = 2400
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "main.frx":F8B2
Caption = "公共教室"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12632319
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin as97Popup.asPopup asPopup10
Height = 855
Left = 360
ToolTipText = "查看销售记录"
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "main.frx":14200
Caption = "班级管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12632319
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
Begin as97Popup.asPopup asPopup4
Height = 855
Left = 360
ToolTipText = "查看销售记录"
Top = 1320
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "main.frx":18B5D
Caption = "课程管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12632319
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
End
Begin VB.CommandButton Command_menu
Caption = "资源管理"
Height = 375
Index = 0
Left = 0
MouseIcon = "main.frx":1D5F4
MousePointer = 99 'Custom
TabIndex = 13
Top = 0
Width = 1935
End
Begin VB.CommandButton Command_menu
Caption = "课程信息管理"
Height = 375
Index = 1
Left = 0
MouseIcon = "main.frx":1D746
MousePointer = 99 'Custom
TabIndex = 12
Top = 360
Width = 1935
End
Begin VB.CommandButton Command_menu
Caption = "课程表输出"
Height = 375
Index = 2
Left = 0
MouseIcon = "main.frx":1D898
MousePointer = 99 'Custom
TabIndex = 11
Top = 720
Width = 1935
End
Begin VB.CommandButton Command_menu
Caption = "系统管理"
Height = 375
Index = 3
Left = 0
MouseIcon = "main.frx":1D9EA
MousePointer = 99 'Custom
TabIndex = 10
Top = 1080
Width = 1935
End
Begin VB.CommandButton Command_menu
Caption = "离开系统"
Height = 375
Index = 4
Left = 0
MouseIcon = "main.frx":1DB3C
MousePointer = 99 'Custom
TabIndex = 9
Top = 1440
Width = 1935
End
Begin VB.PictureBox Picmenu_qg
BackColor = &H00404040&
Height = 375
Index = 1
Left = 0
ScaleHeight = 315
ScaleWidth = 1995
TabIndex = 8
Top = 2520
Visible = 0 'False
Width = 2055
Begin VB.CommandButton XPButton4
Caption = "注销课程表"
Height = 375
Left = 240
TabIndex = 27
Top = 1080
Width = 1455
End
Begin VB.CommandButton XPButton9
Caption = "公共教室配置"
Height = 375
Left = 240
TabIndex = 26
Top = 2280
Width = 1455
End
Begin VB.CommandButton XPButton8
Caption = "已生成的课表"
Height = 375
Left = 240
TabIndex = 25
Top = 480
Width = 1455
End
Begin VB.CommandButton delbutton
Caption = "删除课程"
Height = 375
Left = 240
TabIndex = 24
Top = 5880
Width = 1455
End
Begin VB.CommandButton editbutton
Caption = "修改课程"
Height = 375
Left = 240
TabIndex = 23
Top = 5280
Width = 1455
End
Begin VB.CommandButton savebutton
Caption = "保存课程"
Height = 375
Left = 240
TabIndex = 22
Top = 4680
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "增加明细"
Height = 375
Left = 240
TabIndex = 21
Top = 4080
Width = 1455
End
Begin VB.CommandButton XPButton1
Caption = "增加课程"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -