frmmain.frm

简单邮电信息管理

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "邮购信息管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu cust 
      Caption         =   "顾客管理"
   End
   Begin VB.Menu order 
      Caption         =   "订单管理"
   End
   Begin VB.Menu sales 
      Caption         =   "销售管理"
   End
   Begin VB.Menu stor 
      Caption         =   "库房管理"
      Begin VB.Menu Out 
         Caption         =   "出库"
      End
      Begin VB.Menu Shop 
         Caption         =   "进货"
      End
   End
   Begin VB.Menu report 
      Caption         =   "报表查询"
   End
   Begin VB.Menu letter 
      Caption         =   "打印信件"
   End
   Begin VB.Menu system 
      Caption         =   "系统维护"
      Begin VB.Menu User 
         Caption         =   "用户设置"
      End
   End
   Begin VB.Menu window 
      Caption         =   "窗口"
      WindowList      =   -1  'True
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cust_Click()
Load frmCust
End Sub

Private Sub order_Click()
Load frmOrder
End Sub

Private Sub Out_Click()
Load frmOut
End Sub

Private Sub sales_Click()
Load frmSales
End Sub

Private Sub Shop_Click()
Load frmShop
End Sub

Private Sub stor_Click()
Load frmStor
End Sub
Private Sub MDIForm_Load()
Me.cust = False
Me.order = False
Me.sales = False
Me.stor = False
Me.report = False
Me.system = False
Me.letter = False
End Sub

Private Sub User_Click()
Load frmUser
End Sub