mdiform1.frm

来自「音像店(CD刻录)进销存管理系统」· FRM 代码 · 共 70 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5430
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8835
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuXTSZ 
      Caption         =   "系统设置"
      Begin VB.Menu mnuDLSGL 
         Caption         =   "代理商管理"
      End
      Begin VB.Menu mnuSPGL 
         Caption         =   "商品管理"
      End
      Begin VB.Menu mnuGQLX 
         Caption         =   "歌曲类型"
      End
   End
   Begin VB.Menu mnuXSGL 
      Caption         =   "销售管理"
      Begin VB.Menu mnuDDLR 
         Caption         =   "订单录入"
      End
      Begin VB.Menu mnuTDCL 
         Caption         =   "退碟处理"
      End
   End
   Begin VB.Menu mnuKCGL 
      Caption         =   "库存管理"
      Begin VB.Menu mnuRKCZ 
         Caption         =   "入库操作"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuDDLR_Click()
  frmDD_GL.Show
End Sub

Private Sub mnuDLSGL_Click()
  frmDLS_GL.Show
End Sub

Private Sub mnuGQLX_Click()
  frmGQLX_GL.Show
End Sub

Private Sub mnuRKCZ_Click()
  frmRKCZ_GL.Show
End Sub

Private Sub mnuSPGL_Click()
  frmSP_GL.Show
End Sub

Private Sub mnuTDCL_Click()
  frmTDCL_GL.Show
End Sub