📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "农资进销存管理系统"
ClientHeight = 5295
ClientLeft = 165
ClientTop = 735
ClientWidth = 8085
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Timer CurrentTimer
Enabled = 0 'False
Interval = 1000
Left = 720
Top = 4440
End
Begin MSComctlLib.Toolbar tbToolBar
Align = 1 'Align Top
Height = 360
Left = 0
TabIndex = 1
Top = 0
Width = 8085
_ExtentX = 14261
_ExtentY = 635
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "imlToolbarIcons"
_Version = 393216
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 5025
Width = 8085
_ExtentX = 14261
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 13705
Text = "状态"
TextSave = "状态"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 120
Top = 4440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 1200
Top = 4440
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 37
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":044A
Key = "mnuSupplier"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":08A2
Key = "mnuCustomer"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0CFA
Key = "mnuWaresList"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1152
Key = "mnuCharge"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15AA
Key = "mnuInitBalance"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1A02
Key = "mnuInitStockDetail"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1E5A
Key = "mnuRights"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":22B2
Key = "mnuOperatorLogin"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":270A
Key = "mnuChangePassword"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2B62
Key = "mnuChangeManager"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2FBA
Key = "mnuStockUpInvoice"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3412
Key = "mnuInformalInvoice"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":386A
Key = "mnuStockUpReturn"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3CC2
Key = "mnuWaresIn"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":411A
Key = "mnuWaresSurrogate"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4572
Key = "mnuWaresBack"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":49CA
Key = "mnuWaresWastage"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4E22
Key = "mnuWaresOut"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":527A
Key = "mnuWaresOutOther"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":56D2
Key = "mnuRedSellBill"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":5B2A
Key = "mnuWaresSell"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":5F82
Key = "mnuSelfUse"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":63DA
Key = "mnuRedSell"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6832
Key = "mnuStockUpCost"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6C8A
Key = "mnuStockUpCharge"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":70E2
Key = "mnuSetWarehouse"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":753A
Key = "mnuUnderwayWares"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7992
Key = "mnuDesktopLedger"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7DEA
Key = "mnuExit"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7F4E
Key = "mnuDealInReport"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":83A6
Key = "mnuStockListing"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":87FE
Key = "mnuLackWares"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8C56
Key = "mnuOverstockWares"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":90AE
Key = "mnuDaiFa"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9506
Key = "mnuSetDepart"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":995E
Key = "mnuIncomeAnalyze"
EndProperty
BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9C7E
Key = "mnuProfitAnalyze"
EndProperty
EndProperty
End
Begin VB.Menu mnuSystem
Caption = "系统设置"
Begin VB.Menu mnuSetWarehouse
Caption = "设置库房"
End
Begin VB.Menu mnuSetDepart
Caption = "设置部门"
End
Begin VB.Menu mnuSupplier
Caption = "供应商管理"
End
Begin VB.Menu mnuCustomer
Caption = "客户管理"
End
Begin VB.Menu mnuWaresList
Caption = "商品目录"
End
Begin VB.Menu mnuCharge
Caption = "经营费用"
End
Begin VB.Menu mnuSystemBar0
Caption = "-"
End
Begin VB.Menu mnuInitBalance
Caption = "库存商品初始设置"
End
Begin VB.Menu mnuInitStockDetail
Caption = "期初库存明细"
End
Begin VB.Menu mnuSystemBar1
Caption = "-"
End
Begin VB.Menu mnuRights
Caption = "操作员管理"
End
Begin VB.Menu mnuSystemBar2
Caption = "-"
End
Begin VB.Menu mnuOperatorLogin
Caption = "更换操作员"
End
Begin VB.Menu mnuChangePassword
Caption = "操作员更改口令"
End
Begin VB.Menu mnuChangeManager
Caption = "改变主管"
End
Begin VB.Menu mnuSystemBar3
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出"
End
End
Begin VB.Menu mnuStockUpVoucher
Caption = "进货单据"
Begin VB.Menu mnuStockUpInvoice
Caption = "商品购进单"
End
Begin VB.Menu mnuInformalInvoice
Caption = "商品估进单"
Visible = 0 'False
End
Begin VB.Menu mnuStockUpReturn
Caption = "进货退还单"
Visible = 0 'False
End
End
Begin VB.Menu mnuHouseVoucher
Caption = "库房单据"
Begin VB.Menu mnuWaresIn
Caption = "验收入库单"
Visible = 0 'False
End
Begin VB.Menu mnuWaresSurrogate
Caption = "代管入库单"
Visible = 0 'False
End
Begin VB.Menu mnuWaresBack
Caption = "商品退还单"
Visible = 0 'False
End
Begin VB.Menu mnuVoucherBar0
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuWaresWastage
Caption = "商品升耗报告单"
End
Begin VB.Menu mnuVoucherBar1
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuWaresOut
Caption = "出库单"
Visible = 0 'False
End
Begin VB.Menu mnuWaresOutOther
Caption = "代管出库单"
Visible = 0 'False
End
Begin VB.Menu mnuRedSellBill
Caption = "退库单"
Visible = 0 'False
End
End
Begin VB.Menu mnuSellVoucher
Caption = "销售单据"
Begin VB.Menu mnuWaresSell
Caption = "销售单"
End
Begin VB.Menu mnuSelfUse
Caption = "调拨单"
End
Begin VB.Menu mnuRedSell
Caption = "销售退货单"
Visible = 0 'False
End
End
Begin VB.Menu mnuStockUpAnalyze
Caption = "采购分析"
Begin VB.Menu mnuStockUpCost
Caption = "采购成本分析"
End
Begin VB.Menu mnuStockUpCharge
Caption = "采购费用分析"
End
Begin VB.Menu mnuUnderwayWares
Caption = "在途商品分析"
End
End
Begin VB.Menu mnuStockQuery
Caption = "库存查询"
Begin VB.Menu mnuDesktopLedger
Caption = "库存商品台帐"
End
Begin VB.Menu mnuDealInReport
Caption = "进销存汇总表"
End
Begin VB.Menu mnuStockListing
Caption = "库存商品清单"
End
Begin VB.Menu mnuLackWares
Caption = "库房短缺商品分析"
End
Begin VB.Menu mnuOverstockWares
Caption = "库房超储商品分析"
End
End
Begin VB.Menu mnuSellAnalyze
Caption = "销售分析"
Begin VB.Menu mnuDaiFa
Caption = "成交待发商品"
End
Begin VB.Menu mnuIncomeAnalyze
Caption = "商品收入汇总分析"
End
Begin VB.Menu mnuProfitAnalyze
Caption = "商品毛利分析"
End
End
Begin VB.Menu mnuAccount
Caption = "明细帐"
Begin VB.Menu mnuMonthEnd
Caption = "月结"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -