📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "成绩管理系统 V2.1 设计:长江职工大学 吴琦"
ClientHeight = 6345
ClientLeft = 165
ClientTop = 735
ClientWidth = 9150
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
NegotiateToolbars= 0 'False
ScrollBars = 0 'False
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 9150
_ExtentX = 16140
_ExtentY = 741
ButtonWidth = 635
ButtonHeight = 582
ImageList = "ImageList1"
_Version = 327680
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 19
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "new"
Object.ToolTipText = "新建一个数据库"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "open"
Object.ToolTipText = "打开一个数据库"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "close"
Object.ToolTipText = "关闭数据库"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "print"
Object.ToolTipText = "打印设置"
Object.Tag = ""
ImageIndex = 4
Object.Width = 1
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "allow"
Object.ToolTipText = "允许编辑"
Object.Tag = ""
ImageIndex = 8
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "stopedit"
Object.ToolTipText = "禁止编辑"
Object.Tag = ""
ImageIndex = 9
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "cut"
Object.ToolTipText = "剪切"
Object.Tag = ""
ImageIndex = 10
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "copy"
Object.ToolTipText = "复制"
Object.Tag = ""
ImageIndex = 11
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "paste"
Object.ToolTipText = "粘贴"
Object.Tag = ""
ImageIndex = 12
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "find"
Object.ToolTipText = "按名次查询"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "pywh"
Object.ToolTipText = "评语维护"
Object.Tag = ""
ImageIndex = 13
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "help"
Object.ToolTipText = "帮助"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "list"
Object.ToolTipText = "切换到查询,打印窗口"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "exit"
Object.ToolTipText = "退出"
Object.Tag = ""
ImageIndex = 14
EndProperty
EndProperty
BorderStyle = 1
MouseIcon = "MDIForm1.frx":030A
Begin ComctlLib.ProgressBar PB1
Height = 255
Left = 5880
TabIndex = 1
Top = 120
Visible = 0 'False
Width = 3780
_ExtentX = 6668
_ExtentY = 450
_Version = 327680
BorderStyle = 1
Appearance = 1
MouseIcon = "MDIForm1.frx":0326
OLEDropMode = 1
End
End
Begin MSComDlg.CommonDialog dlgcmd1
Left = 5280
Top = 2880
_ExtentX = 847
_ExtentY = 847
_Version = 327680
End
Begin ComctlLib.ImageList ImageList1
Left = 1320
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = 33023
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327680
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 14
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0342
Key = "new"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0454
Key = "open"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0566
Key = "close"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0880
Key = "print"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0992
Key = "find"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0AA4
Key = "help"
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0BB6
Key = "list"
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0CC8
Key = "allow"
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0FE2
Key = "stopedit"
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":12FC
Key = "cut"
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":1496
Key = "copy"
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":1630
Key = "paste"
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":17CA
Key = "pywh"
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":1AE4
Key = "exit"
EndProperty
EndProperty
End
Begin VB.Menu wfile
Caption = "文件[&F]"
Begin VB.Menu wnew
Caption = "新建数据库[&N]"
End
Begin VB.Menu wopen
Caption = "打开数据库[&O]"
End
Begin VB.Menu wclose
Caption = "关闭数据库[&C]"
End
Begin VB.Menu wsp0
Caption = "-"
End
Begin VB.Menu wcompact
Caption = "压缩数据库[&M]"
End
Begin VB.Menu wrepair
Caption = "修复数据库[&R]"
End
Begin VB.Menu wsp1
Caption = "-"
End
Begin VB.Menu wexit
Caption = "退出[&E]"
End
End
Begin VB.Menu wedit
Caption = "编辑[&E]"
Begin VB.Menu wcut
Caption = "剪切[&T]"
Enabled = 0 'False
End
Begin VB.Menu wcopy
Caption = "复制[&C]"
Enabled = 0 'False
End
Begin VB.Menu wpaste
Caption = "粘贴[&P]"
Enabled = 0 'False
End
Begin VB.Menu wsp3
Caption = "-"
End
Begin VB.Menu weditstart
Caption = "允许编辑[&S]"
Shortcut = {F2}
End
Begin VB.Menu weditend
Caption = "禁止编辑[&E]"
Shortcut = {F3}
End
End
Begin VB.Menu wquery
Caption = "查询[&Q]"
Begin VB.Menu wqty
Caption = "通用查询[&B]"
Shortcut = {F4}
End
Begin VB.Menu ttt
Caption = "-"
End
Begin VB.Menu sdxq
Caption = "个人成绩多学期查询[&D]"
End
Begin VB.Menu wsp4
Caption = "-"
End
Begin VB.Menu WQNO
Caption = "按学号查询[&N]"
Index = 0
Shortcut = {F5}
End
Begin VB.Menu WQNO
Caption = "按姓名查询[&M]"
Index = 1
Shortcut = {F6}
End
Begin VB.Menu WQNO
Caption = "按名次查询[&R]"
Index = 2
Shortcut = {F7}
End
End
Begin VB.Menu wsort
Caption = "排序[&S]"
Begin VB.Menu ws
Caption = "按学号排序[&S]"
Index = 0
Shortcut = {F8}
End
Begin VB.Menu ws
Caption = "按姓名排序[&N]"
Index = 1
Shortcut = {F9}
End
Begin VB.Menu ws
Caption = "按总分排序[&O]"
Index = 2
Shortcut = {F11}
End
End
Begin VB.Menu wcolor
Caption = "颜色设置[&C]"
Begin VB.Menu wcor
Caption = "背景颜色"
Index = 0
Shortcut = ^G
End
Begin VB.Menu wcor
Caption = "标注字颜色"
Index = 1
Shortcut = ^L
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -