📄 主菜单.frm
字号:
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 9
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "choice"
Object.Tag = "191"
Text = "选项设置"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "blank01"
Object.Tag = "01"
Text = "-"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "cost"
Object.Tag = "192"
Text = "耗电量"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "blank052"
Object.Tag = "052"
Text = "-"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "store"
Object.Tag = "192"
Text = "储藏温度模拟"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "blank053"
Object.Tag = "053"
Text = "-"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "rise"
Object.Tag = "193"
Text = "负载温度回升"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "blank054"
Object.Tag = "054"
Text = "-"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "freeze"
Object.Tag = "194"
Text = "冷冻能力"
EndProperty
EndProperty
EndProperty
BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "link"
Object.ToolTipText = "连接"
ImageIndex = 15
EndProperty
BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "break"
Object.ToolTipText = "断开"
ImageIndex = 16
EndProperty
BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 4
EndProperty
BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "up"
Object.ToolTipText = "数据备份导入"
ImageIndex = 17
EndProperty
BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "down"
Object.ToolTipText = "数据备份导出"
ImageIndex = 18
EndProperty
BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "email"
Object.ToolTipText = "邮箱"
ImageIndex = 19
EndProperty
BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "help"
Object.ToolTipText = "帮助"
ImageIndex = 20
EndProperty
BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "user"
Object.ToolTipText = "添加新用户"
ImageIndex = 21
EndProperty
BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "dog"
Object.ToolTipText = "管理员"
ImageIndex = 22
EndProperty
BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "key"
Object.ToolTipText = "修改用户密码"
ImageIndex = 23
EndProperty
BeginProperty Button34 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
OLEDropMode = 1
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8280
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin VB.Menu file
Caption = "文件(&F)"
Index = 10
Begin VB.Menu new
Caption = "新建(&N)"
Index = 11
End
Begin VB.Menu open
Caption = "打开(&O)..."
Index = 12
End
Begin VB.Menu blank1
Caption = "-"
Index = 1
End
Begin VB.Menu save
Caption = "保存(&S)..."
Index = 13
End
Begin VB.Menu resave
Caption = "另存(&A)..."
Index = 14
End
Begin VB.Menu blank2
Caption = "-"
Index = 2
End
Begin VB.Menu setup
Caption = "页面设置(&U)..."
Enabled = 0 'False
Index = 15
End
Begin VB.Menu print
Caption = "打印(&P)..."
Index = 16
End
Begin VB.Menu blank3
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu prepair
Caption = ""
Visible = 0 'False
End
Begin VB.Menu blank4
Caption = "-"
Index = 4
End
Begin VB.Menu exit
Caption = "退出(&E)"
Index = 0
End
End
Begin VB.Menu edit
Caption = "编辑(&E)"
Index = 20
Begin VB.Menu cut
Caption = "剪切(&X)"
Index = 21
End
Begin VB.Menu copy
Caption = "拷贝(&C)"
Index = 22
End
Begin VB.Menu paste
Caption = "粘贴(&P)"
Enabled = 0 'False
Index = 23
End
Begin VB.Menu delete
Caption = "删除(&D)"
Index = 24
Shortcut = {DEL}
End
Begin VB.Menu all
Caption = "全选(&S)"
Index = 25
End
Begin VB.Menu blank21
Caption = "-"
Index = 21
End
Begin VB.Menu find
Caption = "查找(&F)"
Index = 26
End
Begin VB.Menu replace
Caption = "替代(&R)"
Index = 27
End
End
Begin VB.Menu hostlocal
Caption = "登录(&H)"
Index = 30
Begin VB.Menu linkhost
Caption = "联机(&L)..."
Index = 34
Shortcut = ^L
End
Begin VB.Menu breakhost
Caption = "断接(&B)..."
Index = 33
Shortcut = ^B
End
Begin VB.Menu blank032
Caption = "-"
Index = 32
End
Begin VB.Menu downftp
Caption = "下载(&D)..."
Index = 32
Shortcut = ^D
End
Begin VB.Menu upftp
Caption = "上传(&U)..."
Index = 31
Shortcut = ^U
End
End
Begin VB.Menu database
Caption = "数据库(&D)"
Begin VB.Menu inputdata
Caption = "导入(&I)"
Shortcut = ^I
End
Begin VB.Menu OUTPUT
Caption = "导出(&O)"
Shortcut = ^O
End
Begin VB.Menu BLANK121
Caption = "-"
End
Begin VB.Menu backdata
Caption = "备份(&B)"
Shortcut = ^{F8}
End
End
Begin VB.Menu modify
Caption = "修改(&V)"
Index = 40
Begin VB.Menu partchoice
Caption = "部件修改(&V)..."
Index = 47
Shortcut = {F3}
End
Begin VB.Menu paperchoice
Caption = "图号修改(&C)..."
Index = 41
Shortcut = {F5}
End
Begin VB.Menu modelchoice
Caption = "机型修改(&S)..."
Index = 42
Shortcut = {F6}
End
Begin VB.Menu companychoice
Caption = "外协修改(&L)..."
Index = 43
Shortcut = {F7}
End
Begin VB.Menu materialchoice
Caption = "材料修改(&F)..."
Index = 44
Shortcut = {F8}
End
End
Begin VB.Menu state
Caption = "查询(&S)"
Index = 70
Begin VB.Menu partfind
Caption = "部件查询(&R)..."
Shortcut = ^R
End
Begin VB.Menu paperfind
Caption = "图号查询(&P)..."
Index = 71
Shortcut = ^J
End
Begin VB.Menu modelfind
Caption = "机型查询(&M)..."
Index = 72
Shortcut = ^M
End
Begin VB.Menu companyfind
Caption = "外协查询(&W)..."
Shortcut = ^W
End
Begin VB.Menu materialfind
Caption = "材料查询(&N)..."
Shortcut = ^N
End
End
Begin VB.Menu manager
Caption = "管理(&M)"
Index = 50
Begin VB.Menu modelrequire
Caption = "机型申请管理(&R)..."
Shortcut = ^Q
End
Begin VB.Menu partman
Caption = "部品管理(&P)"
Shortcut = ^P
End
Begin VB.Menu dwgman
Caption = "图纸管理(&G)"
Shortcut = ^G
End
Begin VB.Menu supplier
Caption = "供应商管理(&F)"
Shortcut = ^F
End
Begin VB.Menu tongrequire
Caption = "通用件管理(&T)..."
Shortcut = ^T
End
Begin VB.Menu handbookrequire
Caption = "说明书管理(&H)..."
Shortcut = ^H
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Index = 60
Begin VB.Menu support
Caption = "技术支持(&S)..."
Index = 61
Shortcut = {F1}
End
Begin VB.Menu blank060
Caption = "-"
Index = 60
End
Begin VB.Menu about
Caption = "关于版本(&A)..."
Index = 62
Shortcut = {F2}
End
End
End
Attribute VB_Name = "主菜单"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -