menu.frm

是个很使用的库存管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000001&
   Caption         =   "恒兴集团库存管理系统 "
   ClientHeight    =   8310
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11880
   Icon            =   "menu.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   MouseIcon       =   "menu.frx":0442
   Moveable        =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   8055
      Left            =   0
      Picture         =   "menu.frx":0884
      ScaleHeight     =   7995
      ScaleWidth      =   11820
      TabIndex        =   0
      Top             =   0
      Width           =   11880
   End
   Begin VB.Menu TCST 
      Caption         =   "系统(&F)"
      Begin VB.Menu xtdl 
         Caption         =   "登录"
      End
      Begin VB.Menu SJGL 
         Caption         =   "&初始化"
         Enabled         =   0   'False
      End
      Begin VB.Menu TCGL 
         Caption         =   "&退出系统"
      End
   End
   Begin VB.Menu CSSZ 
      Caption         =   "设置(&E)"
      Enabled         =   0   'False
      Begin VB.Menu BMSZ 
         Caption         =   "&部门"
      End
      Begin VB.Menu SPSZ 
         Caption         =   "&商品"
      End
   End
   Begin VB.Menu RKGL 
      Caption         =   "商品入库(&V)"
      Enabled         =   0   'False
      Begin VB.Menu RKDJ 
         Caption         =   "&入库"
      End
   End
   Begin VB.Menu CKGL 
      Caption         =   "商品出库(&P)"
      Enabled         =   0   'False
      Begin VB.Menu CKDJ 
         Caption         =   "&出库"
      End
   End
   Begin VB.Menu CXDY 
      Caption         =   "查询(&O)"
      Enabled         =   0   'False
      Begin VB.Menu CXDYS 
         Caption         =   "&查询打印"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BMSZ_Click()
Form4.Show 1
End Sub

Private Sub CKDJ_Click()
Form1.Show 1
End Sub

Private Sub CKLL_Click()
Form6.Show 1
End Sub

Private Sub CXDYS_Click()
Form7.Show 1
End Sub

Private Sub KCLL_Click()
Form5.Show 1
End Sub

Private Sub RKDJ_Click()
Form3.Show 1
End Sub

Private Sub SJGL_Click()
Form11.Show 1
End Sub

Private Sub SPSZ_Click()
Form2.Show 1
End Sub

Private Sub TCGL_Click()
End
End Sub

Private Sub YHGL_Click()
Form8.Show 1
End Sub

Private Sub xtdl_Click()
Form9.Show
End Sub