📄 frmmenu.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain
BackColor = &H00C0C0C0&
Caption = "系统主界面"
ClientHeight = 8205
ClientLeft = 1845
ClientTop = 1650
ClientWidth = 11745
FillColor = &H00C0FFC0&
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "frmmenu.frx":0000
ScaleHeight = 8205
ScaleWidth = 11745
Begin MSComctlLib.ImageList ImageList1
Left = 8400
Top = 720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":2808C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":28966
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29240
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29B1A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29C17
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29D21
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29E3E
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":29FE2
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":2A0E3
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmenu.frx":2A1B9
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Interval = 100
Left = 6120
Top = 2640
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 7215
Left = 0
TabIndex = 1
Top = 600
Width = 11775
_cx = 20770
_cy = 12726
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= "always"
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7830
Width = 11745
_ExtentX = 20717
_ExtentY = 661
SimpleText = "当前日期"
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 6165
MinWidth = 6174
Picture = "frmmenu.frx":2A2C8
Text = "今天是:"
TextSave = "今天是:"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
Object.Width = 6165
MinWidth = 6174
TextSave = "2005-9-29"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "17:12"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "frmmenu.frx":2A757
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 2
Top = 0
Width = 11745
_ExtentX = 20717
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "backup"
Object.ToolTipText = "数据库备份"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "restor"
Object.ToolTipText = "数据库还原"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "userpwd"
Object.ToolTipText = "用户修改密码"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zhuxiao"
Object.ToolTipText = "注销用户"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 9
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exit"
Object.ToolTipText = "退出系统"
ImageIndex = 10
EndProperty
EndProperty
OLEDropMode = 1
End
Begin VB.Menu sysmanage
Caption = "系统管理 "
WindowList = -1 'True
Begin VB.Menu usemanage
Caption = "用户管理"
Begin VB.Menu userupdate
Caption = "添加删除用户"
Shortcut = ^A
End
Begin VB.Menu userpwd
Caption = "修改密码(&M)"
Shortcut = ^C
End
End
Begin VB.Menu Mseg1
Caption = "-"
End
Begin VB.Menu backup
Caption = "数据库还原"
Shortcut = ^R
End
Begin VB.Menu restore
Caption = "数据库备份"
Shortcut = ^B
End
Begin VB.Menu Mseg6
Caption = "-"
End
Begin VB.Menu ussd
Caption = "用户锁定"
Shortcut = ^S
End
Begin VB.Menu zhuxiao
Caption = "用户注销(&Z)"
End
Begin VB.Menu Mseg7
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出(&E)"
End
End
Begin VB.Menu basemessge
Caption = "基本信息设置 "
Begin VB.Menu stumanage
Caption = "学生信息管理"
Begin VB.Menu stuupdate
Caption = "添加修改信息"
End
Begin VB.Menu selectstu
Caption = "查询学生信息"
End
End
Begin VB.Menu Mseg2
Caption = "-"
End
Begin VB.Menu teamanage
Caption = "教师信息管理"
Begin VB.Menu teaupdate
Caption = "添加修改信息"
Shortcut = ^T
End
Begin VB.Menu selecttea
Caption = "查询教师信息"
End
End
Begin VB.Menu Mseg3
Caption = "-"
End
Begin VB.Menu coursemanage
Caption = "课程信息管理"
Begin VB.Menu couupdate
Caption = "添加修改信息"
End
Begin VB.Menu selectcou
Caption = "查询课程信息"
End
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -