storemain.frm

来自「用与大型超市的管理与运行；具有提高效率节省费用的优点」· FRM 代码 · 共 126 行

VERSION 5.00
Begin VB.MDIForm storemain 
   BackColor       =   &H8000000C&
   Caption         =   "超市仓储管理系统"
   ClientHeight    =   5835
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7395
   Icon            =   "storemain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "storemain.frx":08CA
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu inout 
      Caption         =   "进库出库"
      Begin VB.Menu in 
         Caption         =   "进出库"
      End
   End
   Begin VB.Menu goodsinfo 
      Caption         =   "货物资料"
      Begin VB.Menu goodsfind 
         Caption         =   "货物查询"
      End
      Begin VB.Menu thinginfo 
         Caption         =   "商品信息"
      End
   End
   Begin VB.Menu kufang 
      Caption         =   "库房信息"
      Begin VB.Menu storegather 
         Caption         =   "货物汇总"
      End
      Begin VB.Menu storemanager 
         Caption         =   "库房管理"
      End
   End
   Begin VB.Menu systemmanager 
      Caption         =   "系统管理"
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
End
Attribute VB_Name = "storemain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub client_Click()

End Sub

Private Sub clientdate_Click()

End Sub

Private Sub date_Click()

End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub goodsfind_Click()
storefind.Show
End Sub

Private Sub goodsno_Click()
summary_menu = "goodsno"
storesum.Show
End Sub

Private Sub goodsnodate_Click()
summary_menu = "goodsnodate"
storesum.Show
End Sub

Private Sub in_Click()
storein.Caption = "进出库"
storein.Show
storefind.Hide
storegoods.Hide
storesum.Hide
storemanage.Hide

End Sub

Private Sub out_Click()
storein.Caption = "出库"
storein.Show
storefind.Hide
storegoods.Hide
storesum.Hide
storemanage.Hide

End Sub

Private Sub storemanager_Click()
storemanage.Show
storefind.Hide
storegoods.Hide
storesum.Hide
storein.Hide

End Sub

Private Sub storegather_Click()
storesum.Show
storefind.Hide
storegoods.Hide
storein.Hide
storemanage.Hide

End Sub

Private Sub thinginfo_Click()
storegoods.Show
storefind.Hide
storein.Hide
storesum.Hide
storemanage.Hide

End Sub