frmmain.frm

其主要功能是对生产的一些监控

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "生产管理系统"
   ClientHeight    =   5625
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8070
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnBasic 
      Caption         =   "基础数据管理(&X)"
      Begin VB.Menu mnBillManage 
         Caption         =   "物料主文件(&Y)"
      End
      Begin VB.Menu mnBillList 
         Caption         =   "物料清单（ROM）(&B)"
      End
      Begin VB.Menu mnCalendar 
         Caption         =   "工厂日历(&Z)"
      End
   End
   Begin VB.Menu mnMan 
      Caption         =   "生产计划管理(&Y)"
      Begin VB.Menu mnDemand 
         Caption         =   "主需求计划(&Z)"
      End
      Begin VB.Menu mnMPS 
         Caption         =   "MPS主生产计划(&M)"
      End
      Begin VB.Menu mnMRP 
         Caption         =   "MRP计算(&R)"
      End
      Begin VB.Menu mnSearch 
         Caption         =   "MRP查询(&P)"
      End
   End
   Begin VB.Menu mnExit 
      Caption         =   "退出系统(&Z)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnBillList_Click()
    Set formBillList = New frmBillList
    formBillList.Show
End Sub

Private Sub mnBillManage_Click()
    Set formBillManage = New frmBillManage
    formBillManage.Show
End Sub

Private Sub mnCalendar_Click()
    Set formCalendarMan = New frmCalendarMan
    formCalendarMan.Show
End Sub

Private Sub mnDemand_Click()
    Set formProductsDemand = New frmProductsDemand
    formProductsDemand.Show
End Sub

Private Sub mnExit_Click()
    End
End Sub

Private Sub mnMPS_Click()
    Set formMPS = New frmMPS
    formMPS.Show
End Sub

Private Sub mnMRP_Click()
    Set formMRP = New frmMRP
    formMRP.Show
End Sub

Private Sub mnSearch_Click()
    Set formSearch = New frmSearch
    formSearch.Show
End Sub