mdiform1.frm

服装销售管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "服装店营销管理系统"
   ClientHeight    =   6930
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   10305
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu system 
      Caption         =   "系统功能"
      Begin VB.Menu add 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu modify 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu base 
      Caption         =   "基本信息设置"
      Begin VB.Menu cust_query 
         Caption         =   "客户信息查询"
         Shortcut        =   ^C
      End
      Begin VB.Menu customer_alter 
         Caption         =   "客户信息更新"
         Shortcut        =   ^D
      End
      Begin VB.Menu supp_query 
         Caption         =   "供应商信息查询"
         Shortcut        =   ^E
      End
      Begin VB.Menu supp_alter 
         Caption         =   "供应商信息更新"
         Shortcut        =   ^F
      End
      Begin VB.Menu close_query 
         Caption         =   "商品信息查询"
         Shortcut        =   ^G
      End
      Begin VB.Menu close_alter 
         Caption         =   "商品信息更新"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu carrage 
      Caption         =   "库存信息管理"
      Begin VB.Menu carrage_query 
         Caption         =   "库存查询"
         Shortcut        =   ^I
      End
      Begin VB.Menu carrage_input 
         Caption         =   "入库管理"
         Shortcut        =   ^J
      End
      Begin VB.Menu carr_out 
         Caption         =   "出库管理"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu in 
      Caption         =   "进货信息管理"
      Index           =   0
      Begin VB.Menu in_query 
         Caption         =   "进货查询"
         Shortcut        =   ^L
      End
      Begin VB.Menu in_alter 
         Caption         =   "进货更新"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu sold 
      Caption         =   "销售信息管理"
      Begin VB.Menu sold_query 
         Caption         =   "销售查询"
         Shortcut        =   ^N
      End
      Begin VB.Menu sold_array 
         Caption         =   "畅销排名"
         Shortcut        =   ^O
      End
      Begin VB.Menu sold_back 
         Caption         =   "退货信息"
         Shortcut        =   ^P
      End
      Begin VB.Menu sold_all 
         Caption         =   "销售统计"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^R
      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 about_Click()
frmAbout.Show
MDIForm1.Enabled = False
End Sub

Private Sub close_alter_Click()
商品信息更新.Show
End Sub

Private Sub close_query_Click()
商品信息查询.Show
End Sub

Private Sub cust_query_Click()
客户信息查询.Show
End Sub

Private Sub customer_alter_Click()
客户信息更新.Show

End Sub

Private Sub quit_Click()
End
End Sub

Private Sub supp_alter_Click()
供应商信息更新.Show
End Sub

Private Sub supp_query_Click()
供应商信息查询.Show
End Sub