📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H00C0FFFF&
Caption = "教学资源管理系统"
ClientHeight = 7185
ClientLeft = 165
ClientTop = 555
ClientWidth = 9960
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 2000
Left = 9120
Top = 1680
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 6915
Width = 9960
_ExtentX = 17568
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 11906
Text = "状态"
TextSave = "状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2005-2-19"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "22:06"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 9120
Top = 2280
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "所有文件(*.*)|*.*"
FontStrikeThru = -1 'True
End
Begin VB.Menu mnuXitong
Caption = "系统(&S)"
Begin VB.Menu mnuXitongBeifen
Caption = "数据备份"
End
Begin VB.Menu mnuXitongHuanyuan
Caption = "还原备份"
End
Begin VB.Menu mnuXitongCanshu
Caption = "参数设置(&C)"
End
Begin VB.Menu mnuXitongHuishou
Caption = "回收站"
End
Begin VB.Menu aaa
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu mnuTianjiaMain
Caption = "添加(&A)"
Begin VB.Menu mnuTianjia
Caption = "教学论文(&L)"
Index = 1
End
Begin VB.Menu mnuTianjia
Caption = "教案(&J)"
Index = 2
End
Begin VB.Menu mnuTianjia
Caption = "课件(&K)"
Index = 3
Shortcut = ^A
End
Begin VB.Menu mnuTianjia
Caption = "辅教资料"
Index = 4
End
Begin VB.Menu mnuTianjia
Caption = "考试题"
Index = 5
End
Begin VB.Menu mnuTianjia
Caption = "说课稿"
Index = 6
End
Begin VB.Menu mnuTianjia
Caption = "电子书籍"
Index = 7
End
Begin VB.Menu mnuTianjia
Caption = "-"
Index = 8
End
Begin VB.Menu mnuTianjia
Caption = "图片"
Index = 9
End
Begin VB.Menu mnuTianjia
Caption = "文本"
Index = 10
End
Begin VB.Menu mnuTianjia
Caption = "动画及视频"
Index = 11
End
Begin VB.Menu mnuTianjia
Caption = "声音"
Index = 12
End
Begin VB.Menu mnuTianjia
Caption = "教学微单元"
Index = 13
End
Begin VB.Menu mnuTianjia
Caption = "原程序"
Index = 14
End
Begin VB.Menu mnuTianjia
Caption = "-"
Index = 15
End
Begin VB.Menu mnuTianjia
Caption = "教学总结"
Index = 16
End
Begin VB.Menu mnuTianjia
Caption = "教学计划"
Index = 17
End
Begin VB.Menu mnuTianjia
Caption = "其他"
Index = 18
End
End
Begin VB.Menu mnuLiulanMain
Caption = "浏览(&V)"
Begin VB.Menu munasdfjsdklf
Caption = "按类型浏览"
Begin VB.Menu mnuLiulan
Caption = "教学论文(&L)"
Index = 1
Shortcut = ^L
End
Begin VB.Menu mnuLiulan
Caption = "教案(&J)"
Index = 2
Shortcut = ^J
End
Begin VB.Menu mnuLiulan
Caption = "课件(&K)"
Index = 3
Shortcut = ^K
End
Begin VB.Menu mnuLiulan
Caption = "辅教资料"
Index = 4
End
Begin VB.Menu mnuLiulan
Caption = "考试题(&T)"
Index = 5
Shortcut = ^T
End
Begin VB.Menu mnuLiulan
Caption = "说课稿"
Index = 6
End
Begin VB.Menu mnuLiulan
Caption = "电子书籍"
Index = 7
Shortcut = ^E
End
Begin VB.Menu mnuLiulan
Caption = "-"
Index = 8
End
Begin VB.Menu mnuLiulan
Caption = "图片"
Index = 9
End
Begin VB.Menu mnuLiulan
Caption = "文本"
Index = 10
End
Begin VB.Menu mnuLiulan
Caption = "动画及视频"
Index = 11
End
Begin VB.Menu mnuLiulan
Caption = "声音"
Index = 12
End
Begin VB.Menu mnuLiulan
Caption = "教学微单元"
Index = 13
End
Begin VB.Menu mnuLiulan
Caption = "原程序"
Index = 14
End
Begin VB.Menu mnuLiulan
Caption = "-"
Index = 15
End
Begin VB.Menu mnuLiulan
Caption = "教学总结"
Index = 16
End
Begin VB.Menu mnuLiulan
Caption = "教学计划"
Index = 17
End
Begin VB.Menu mnuLiulan
Caption = "其他"
Index = 18
End
End
Begin VB.Menu sdfsdfsdfsadfsadfsd
Caption = "-"
End
Begin VB.Menu munaklsjfdkljhhgkjdsfhkjhkfgjfd
Caption = "按年级浏览"
Begin VB.Menu mnuLLNianji
Caption = "小学一年级上期"
Index = 1
End
Begin VB.Menu mnuLLNianji
Caption = "小学一年级下期"
Index = 2
End
Begin VB.Menu mnuLLNianji
Caption = "小学二年级上期"
Index = 3
End
Begin VB.Menu mnuLLNianji
Caption = "小学二年级下期"
Index = 4
End
Begin VB.Menu mnuLLNianji
Caption = "小学三年级上期"
Index = 5
End
Begin VB.Menu mnuLLNianji
Caption = "小学三年级下期"
Index = 6
End
Begin VB.Menu mnuLLNianji
Caption = "小学四年级上期"
Index = 7
End
Begin VB.Menu mnuLLNianji
Caption = "小学四年级下期"
Index = 8
End
Begin VB.Menu mnuLLNianji
Caption = "小学五年级上期"
Index = 9
End
Begin VB.Menu mnuLLNianji
Caption = "小学五年级下期"
Index = 10
End
Begin VB.Menu mnuLLNianji
Caption = "小学六年级上期"
Index = 11
End
Begin VB.Menu mnuLLNianji
Caption = "小学六年级下期"
Index = 12
End
Begin VB.Menu mnuLLNianji
Caption = "-"
Index = 13
End
Begin VB.Menu mnuLLNianji
Caption = "初中一年级上期"
Index = 14
End
Begin VB.Menu mnuLLNianji
Caption = "初中一年级下期"
Index = 15
End
Begin VB.Menu mnuLLNianji
Caption = "初中二年级上期"
Index = 16
End
Begin VB.Menu mnuLLNianji
Caption = "初中二年级下期"
Index = 17
End
Begin VB.Menu mnuLLNianji
Caption = "初中三年级上期"
Index = 18
End
Begin VB.Menu mnuLLNianji
Caption = "初中三年级下期"
Index = 19
End
Begin VB.Menu mnuLLNianji
Caption = "-"
Index = 20
End
Begin VB.Menu mnuLLNianji
Caption = "高中一年级上期"
Index = 21
End
Begin VB.Menu mnuLLNianji
Caption = "高中一年级下期"
Index = 22
End
Begin VB.Menu mnuLLNianji
Caption = "高中二年级上期"
Index = 23
End
Begin VB.Menu mnuLLNianji
Caption = "高中二年级下期"
Index = 24
End
Begin VB.Menu mnuLLNianji
Caption = "高中三年级上期"
Index = 25
End
Begin VB.Menu mnuLLNianji
Caption = "高中三年级下期"
Index = 26
End
Begin VB.Menu mnuLLNianji
Caption = "-"
Index = 27
End
Begin VB.Menu mnuLLNianji
Caption = "任何年级"
Index = 28
End
Begin VB.Menu mnuLLNianji
Caption = "其它"
Index = 29
End
End
Begin VB.Menu dfghsfd
Caption = "-"
End
Begin VB.Menu umnookjdslkjfklsjadf
Caption = "按科目浏览"
Begin VB.Menu mnuLLKemu
Caption = "语文"
Index = 1
End
Begin VB.Menu mnuLLKemu
Caption = "数学"
Index = 2
End
Begin VB.Menu mnuLLKemu
Caption = "英语"
Index = 3
End
Begin VB.Menu mnuLLKemu
Caption = "-"
Index = 4
End
Begin VB.Menu mnuLLKemu
Caption = "物理"
Index = 5
End
Begin VB.Menu mnuLLKemu
Caption = "化学"
Index = 6
End
Begin VB.Menu mnuLLKemu
Caption = "生物"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -