📄 frmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmain
AutoShowChildren= 0 'False
BackColor = &H00808080&
Caption = "建发鞋楦厂电脑管理系统"
ClientHeight = 8010
ClientLeft = 240
ClientTop = 2265
ClientWidth = 11805
Icon = "frmain.frx":0000
LinkTopic = "MDIForm1"
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 2000
Left = 2760
Top = 2160
End
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 2400
_ExtentX = 794
_ExtentY = 794
BackColor = -2147483643
ImageWidth = 22
ImageHeight = 17
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":07E0
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":0D32
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":1244
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":1756
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":1BD0
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":20A2
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":2694
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":2DBA
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":33E4
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":3BC6
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmain.frx":4514
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 585
Left = 0
TabIndex = 0
Top = 0
Width = 11805
_ExtentX = 20823
_ExtentY = 1032
ButtonWidth = 1773
ButtonHeight = 979
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客户登记 "
Object.ToolTipText = "客户登记"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "指令单"
Object.ToolTipText = "订单(简)"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "样品生产单"
Object.ToolTipText = "样品生产单"
ImageIndex = 8
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "大货生产单"
Object.ToolTipText = "大货生产单"
ImageIndex = 11
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "提货单"
ImageIndex = 10
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "开发指令单"
ImageIndex = 9
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "请款单"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "档案登记"
ImageIndex = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Object.ToolTipText = "退出操作系统"
ImageIndex = 12
EndProperty
EndProperty
End
Begin VB.Menu main
Caption = "【&B.基础资料】"
Index = 1
Begin VB.Menu base
Caption = "&1.客户登记"
Index = 1
End
Begin VB.Menu base
Caption = "&2.客户档案资料"
Index = 2
Shortcut = ^Y
End
Begin VB.Menu base
Caption = "&3.职员分配"
Index = 3
End
Begin VB.Menu base
Caption = "&4.报价资料"
Index = 4
End
Begin VB.Menu base
Caption = "&5.物料资料"
Index = 5
End
Begin VB.Menu base
Caption = "&6.型体类型一"
Index = 6
End
Begin VB.Menu base
Caption = "&7.型体类型二"
Index = 7
End
Begin VB.Menu base
Caption = "&8.型体类型三"
Index = 8
End
Begin VB.Menu base
Caption = "&9.客户方向"
Index = 9
End
Begin VB.Menu base
Caption = "&10.客户范围"
Index = 10
End
Begin VB.Menu base
Caption = "-"
Index = 11
Visible = 0 'False
End
Begin VB.Menu base
Caption = "&11.数据备份"
Index = 12
Visible = 0 'False
End
Begin VB.Menu base
Caption = "&12.数据删除"
Index = 13
Visible = 0 'False
End
Begin VB.Menu base
Caption = "&13.客户通知登记管理"
Enabled = 0 'False
Index = 14
End
End
Begin VB.Menu main
Caption = "【&G.订单管理】"
Index = 2
Begin VB.Menu gr
Caption = "&1.指令单"
Index = 1
End
Begin VB.Menu gr
Caption = "&2.指令单汇总表"
Index = 2
End
Begin VB.Menu gr
Caption = "&3.样品生产单"
Index = 3
End
Begin VB.Menu gr
Caption = "&4.样品生产单明细表"
Index = 4
End
Begin VB.Menu gr
Caption = "&5.样品生产单汇总表"
Index = 5
End
Begin VB.Menu gr
Caption = "&6.大货生产单"
Index = 6
End
Begin VB.Menu gr
Caption = "&7.大货生产单明细表"
Index = 7
End
Begin VB.Menu gr
Caption = "&8.大货生产单汇总表"
Index = 8
End
Begin VB.Menu gr
Caption = "&9.生产单汇总表"
Index = 9
End
Begin VB.Menu gr
Caption = "&10.生产单月汇总表"
Index = 10
End
Begin VB.Menu gr
Caption = "&11.生产单直方图 "
Index = 11
End
Begin VB.Menu gr
Caption = "&12.样品排单明细表"
Index = 12
End
Begin VB.Menu gr
Caption = "&13.大货排单明细表"
Index = 13
End
Begin VB.Menu gr
Caption = "&14.急单明细表"
Index = 14
End
Begin VB.Menu gr
Caption = "&15.生产进度表"
Index = 15
End
End
Begin VB.Menu main
Caption = "【&T.提货管理】"
Index = 3
Begin VB.Menu tq
Caption = "&1.提货单"
Index = 1
End
Begin VB.Menu tq
Caption = "&2.提货单汇总表"
Index = 2
End
Begin VB.Menu tq
Caption = "&3.请款单"
Index = 3
End
Begin VB.Menu tq
Caption = "&4.请款单汇总表"
Index = 4
End
Begin VB.Menu tq
Caption = "&5.请款单与提货单对比表"
Index = 5
End
End
Begin VB.Menu main
Caption = "【&E.仓库管理】"
Index = 4
Begin VB.Menu cube
Caption = "&1.排单交货期更改系统"
Index = 1
Shortcut = ^E
End
Begin VB.Menu cube
Caption = "&2.仓库记录"
Index = 2
End
Begin VB.Menu cube
Caption = "&3.仓库日包装数量登记"
Index = 3
End
Begin VB.Menu cube
Caption = "&4.仓库包装产量"
Index = 4
End
Begin VB.Menu cube
Caption = "&5.进料单"
Index = 5
End
Begin VB.Menu cube
Caption = "&6.领料单"
Index = 6
End
Begin VB.Menu cube
Caption = "&7.退料单"
Index = 7
End
Begin VB.Menu cube
Caption = "&8.进料单查询"
Index = 8
End
Begin VB.Menu cube
Caption = "&9.领料单查询"
Index = 9
End
Begin VB.Menu cube
Caption = "&10.退料单查询"
Index = 10
End
End
Begin VB.Menu main
Caption = "【&E.开发管理】"
Index = 5
Begin VB.Menu kf
Caption = "&1.开发指令单"
Index = 1
End
Begin VB.Menu kf
Caption = "&2.开发档案"
Index = 2
End
Begin VB.Menu kf
Caption = "&3.开发排单明细表"
Index = 3
End
Begin VB.Menu kf
Caption = "&4.开发档案查询"
Index = 4
End
Begin VB.Menu kf
Caption = "&5.开发单汇总表"
Index = 5
End
End
Begin VB.Menu main
Caption = "【&K.客户资料管理】"
Index = 6
Begin VB.Menu zl
Caption = "&1.客户提供资料"
Index = 1
End
Begin VB.Menu zl
Caption = "&2.客户提供资料查询"
Index = 2
End
Begin VB.Menu zl
Caption = "&3.生产资料调用单管理"
Index = 3
End
Begin VB.Menu zl
Caption = "&4.生产资料调用单查询"
Index = 4
End
Begin VB.Menu zl
Caption = "&5.样品生产单查询"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -