mdi_frm.frm

前些年帮人写的毕业设计

VERSION 5.00
Begin VB.MDIForm MDI_frm 
   BackColor       =   &H8000000C&
   Caption         =   "药房销售管理"
   ClientHeight    =   5310
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7110
   Icon            =   "MDI_frm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu jbxx 
      Caption         =   "基本信息"
      Begin VB.Menu ypxx 
         Caption         =   "药品信息管理"
      End
      Begin VB.Menu gysxx 
         Caption         =   "供应商信息管理"
      End
      Begin VB.Menu crklx 
         Caption         =   "出入库类型维护"
      End
      Begin VB.Menu mpxx 
         Caption         =   "名片信息管理"
      End
   End
   Begin VB.Menu ckgls 
      Caption         =   "仓库管理"
      Begin VB.Menu rkgl 
         Caption         =   "入库管理"
      End
      Begin VB.Menu ckgl 
         Caption         =   "出库管理"
      End
      Begin VB.Menu thgla 
         Caption         =   "退货管理"
      End
      Begin VB.Menu thgl 
         Caption         =   "退回管理"
      End
   End
   Begin VB.Menu cx 
      Caption         =   "查询"
      Begin VB.Menu kccx 
         Caption         =   "库存查询"
      End
      Begin VB.Menu crjcx 
         Caption         =   "出入库查询"
      End
   End
End
Attribute VB_Name = "MDI_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ckgl_Click()
    Frm_Part_Out.Show
    Frm_Part_Out.ZOrder 0
End Sub

Private Sub crjcx_Click()
    Frm_Part_InorOut.Show
    Frm_Part_InorOut.ZOrder 0
    
End Sub

Private Sub crklx_Click()
    Frm_Type.Show
    Frm_Type.ZOrder 0
End Sub

Private Sub gysxx_Click()
    Frm_Supply.Show
    Frm_Supply.ZOrder 0
End Sub

Private Sub kccx_Click()
    Frm_part.Show
    Frm_part.ZOrder 0
End Sub

Private Sub mpxx_Click()
    Frm_Calling_Card.Show
    Frm_Calling_Card.ZOrder 0
End Sub

Private Sub rkgl_Click()
    Frm_Part_In.Show
    Frm_Part_In.ZOrder 0
End Sub

Private Sub thgl_Click()
    Frm_Tuihui.Show
    Frm_Tuihui.ZOrder 0
End Sub

Private Sub thgla_Click()
    Frm_Tuihuo.Show
    Frm_Tuihuo.ZOrder 0
End Sub

Private Sub ypxx_Click()
    Frm_Standard.Show
    Frm_Standard.ZOrder 0
End Sub