?? 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 + -