主界面.frm

来自「简单的超市管理系统」· FRM 代码 · 共 101 行

VERSION 5.00
Begin VB.Form 主界面 
   Caption         =   "主界面"
   ClientHeight    =   6000
   ClientLeft      =   4245
   ClientTop       =   2940
   ClientWidth     =   7485
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "主界面.frx":0000
   ScaleHeight     =   6000
   ScaleWidth      =   7485
   Begin VB.Menu 基本数据 
      Caption         =   "基本数据管理"
      Begin VB.Menu 厂商信息 
         Caption         =   "厂商基本信息"
      End
      Begin VB.Menu 商品信息 
         Caption         =   "商品基本信息"
      End
      Begin VB.Menu 职员信息 
         Caption         =   "职员基本信息"
      End
   End
   Begin VB.Menu 采购信息 
      Caption         =   "采购信息管理"
      Begin VB.Menu 询价 
         Caption         =   "采购询价"
      End
      Begin VB.Menu 厂单 
         Caption         =   "厂单信息"
      End
   End
   Begin VB.Menu 销售信息 
      Caption         =   "销售信息管理"
      Begin VB.Menu 销售 
         Caption         =   "销售报价及录入"
      End
   End
   Begin VB.Menu 信息查询 
      Caption         =   "信息统计查询"
      Begin VB.Menu 商品查询 
         Caption         =   "商品信息查询"
      End
      Begin VB.Menu 排行 
         Caption         =   "销售排行"
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "系统退出"
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 厂单_Click()
厂单信息.Show
Unload Me
End Sub

Private Sub 厂商信息_Click()
厂商基本信息.Show
Unload Me
End Sub

Private Sub 排行_Click()
销售排行.Show
Unload Me
End Sub

Private Sub 商品查询_Click()
商品信息查询.Show
Unload Me
End Sub

Private Sub 商品信息_Click()
商品基本信息.Show
Unload Me
End Sub

Private Sub 退出_Click()
End
End Sub

Private Sub 销售_Click()
销售报价.Show
Unload Me
End Sub

Private Sub 询价_Click()
采购询价.Show
Unload Me
End Sub

Private Sub 职员信息_Click()
职员基本信息.Show
Unload Me
End Sub