📄 系统_主界面.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm XT_Main
BackColor = &H00808000&
Caption = "新世纪/ERP5.0-设备管理"
ClientHeight = 6510
ClientLeft = 1380
ClientTop = 1440
ClientWidth = 11835
Icon = "系统_主界面.frx":0000
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 1
Left = 3360
Top = 1380
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 6135
Width = 11835
_ExtentX = 20876
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 6
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 5292
MinWidth = 5292
Key = "OperStatus"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Key = "zt"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 2117
MinWidth = 2117
Key = "czy"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 3519
MinWidth = 3528
Key = "rq"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Object.Width = 1411
MinWidth = 1411
TextSave = "14:44"
Key = "sj"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 3519
MinWidth = 3528
Key = "rjbb"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 11070
Top = 510
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":1042
Key = "stb"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":1496
Key = "xttb"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":18EE
Key = "qx"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":1D4E
Key = "kplr"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":21A2
Key = "kpgl"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":2602
Key = "tcxt"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":291E
Key = "szk"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统_主界面.frx":2D76
Key = "gnqx"
EndProperty
EndProperty
End
Begin VB.Menu c_File
Caption = "文件(&F)"
Index = 101
Begin VB.Menu Dev_register
Caption = "重新注册(&R)..."
End
Begin VB.Menu v5
Caption = "-"
End
Begin VB.Menu Dev_End
Caption = "退出系统(&Q)"
End
End
Begin VB.Menu c_jcsz
Caption = "设置(&I)"
Begin VB.Menu Dev_SortSet
Caption = "设备类别设置(&S)..."
End
Begin VB.Menu Dev_RepairSet
Caption = "维修类别设置(&R)..."
End
Begin VB.Menu Dev_StateSet
Caption = "设备状态设置(&T)..."
End
Begin VB.Menu Dev_LubricateSet
Caption = "润滑油设置(&L)..."
End
Begin VB.Menu Dev_ItemSet
Caption = "项目设置(&I)..."
End
Begin VB.Menu Dev_ItemSortSet
Caption = "项目相关类别设置(&X)..."
End
Begin VB.Menu Dev_ItemList
Caption = "项目相关明细设置(&M)..."
End
Begin VB.Menu Dev_ItemPlaceSet
Caption = "项目位置设置(&P)..."
End
End
Begin VB.Menu c_pzcl
Caption = "档案(&D)"
Begin VB.Menu Dev_DevCard
Caption = "设备卡片录入(&K)..."
End
Begin VB.Menu Dev_DevCardFind
Caption = "设备台帐查询(&F)..."
End
End
Begin VB.Menu c_yhdz
Caption = "变动(&R)"
Begin VB.Menu Dev_Remove
Caption = "设备调拨(&M)..."
End
Begin VB.Menu Dev_ChangeAdd
Caption = "设备革新(&A)..."
End
Begin VB.Menu Dev_DevReject
Caption = "设备报废(&B)..."
End
End
Begin VB.Menu Dev_DevRun
Caption = "运行(&Y)"
Begin VB.Menu Dev_CheckFile
Caption = "设备检查记录(&C)..."
End
Begin VB.Menu Dev_Accident
Caption = "设备事故(&S)..."
End
Begin VB.Menu Dev_HiddenTrouble
Caption = "设备隐患(&H)..."
End
Begin VB.Menu Dev_Malfunction
Caption = "设备故障(&M)..."
End
Begin VB.Menu Dev_StateCheck
Caption = "设备运行状态维护(&X)..."
End
End
Begin VB.Menu Dev_RepairManage
Caption = "检修(&C)"
Begin VB.Menu Dev_DayRepair
Caption = "设备日常维修(&D)..."
End
Begin VB.Menu Dev_MonthRepair
Caption = "设备检修计划(&M)..."
End
Begin VB.Menu Dev_CheckScenario
Caption = "设备检修方案(&S)..."
End
Begin VB.Menu Dev_DevCheckFile
Caption = "设备检修记录(&F)..."
End
End
Begin VB.Menu Dev_LubricateManage
Caption = "润滑(&L)"
Begin VB.Menu Dev_LubricateCard
Caption = "设备润滑标准(&C)..."
End
Begin VB.Menu Dev_LubricateStat
Caption = "年耗油统计(&S)..."
End
Begin VB.Menu Dev_LubricateAna
Caption = "润滑油分析(&A)..."
End
End
Begin VB.Menu Dev_SparePartManage
Caption = "备品备件(&S)"
Begin VB.Menu Dev_SparePart
Caption = "备品备件库存查询(&S)..."
End
End
Begin VB.Menu Dev_AirproofManage
Caption = "密封(&A)"
Begin VB.Menu Dev_Airproof
Caption = "设备密封点登记(&P)..."
End
Begin VB.Menu Dev_Leak
Caption = "设备泄漏登记(&L)..."
End
End
Begin VB.Menu Dev_Tolls
Caption = "工具(&T)"
Begin VB.Menu Dev_IsQ
Caption = "计算器(&S)..."
End
End
Begin VB.Menu mnuwindows
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnuWindowCascade
Caption = "层叠(&C)"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "横向平铺(&H)"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "纵向平铺(&V)"
End
Begin VB.Menu mnuWindowArrangeIcons
Caption = "排列图标(&A)"
End
End
Begin VB.Menu c_bz
Caption = "帮助(&H)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -