frm_main.frm

来自「SQL Server 2000课程设计:医药管理系统」· FRM 代码 · 共 107 行

VERSION 5.00
Begin VB.Form frm_Main 
   Caption         =   "药品存销管理系统"
   ClientHeight    =   3330
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6630
   LinkTopic       =   "Form1"
   ScaleHeight     =   3330
   ScaleWidth      =   6630
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu Menu_import 
      Caption         =   "药品入库管理"
      Begin VB.Menu Menu_im_add 
         Caption         =   "添加入库信息"
      End
      Begin VB.Menu Menu_im_del 
         Caption         =   "删除入库信息"
      End
      Begin VB.Menu Menu_im_upd 
         Caption         =   "修改入库信息"
      End
      Begin VB.Menu Menu_im_que 
         Caption         =   "查询入库信息"
      End
   End
   Begin VB.Menu Menu_info 
      Caption         =   "库存药品管理"
      Begin VB.Menu Menu_inf_add 
         Caption         =   "添加库存信息"
      End
      Begin VB.Menu Menu_inf_del 
         Caption         =   "删除库存信息"
      End
      Begin VB.Menu Menu_inf_upd 
         Caption         =   "修改库存信息"
      End
      Begin VB.Menu Menu_inf_que 
         Caption         =   "查询库存信息"
      End
   End
   Begin VB.Menu Menu_export 
      Caption         =   "药品出库管理"
      Begin VB.Menu Menu_ex_add 
         Caption         =   "添加出库信息"
      End
      Begin VB.Menu Menu_ex_del 
         Caption         =   "删除出库信息"
      End
      Begin VB.Menu Menu_ex_upd 
         Caption         =   "修改出库信息"
      End
      Begin VB.Menu Menu_ex_que 
         Caption         =   "查询出库信息"
      End
   End
   Begin VB.Menu Menu_quit 
      Caption         =   "退出药品存销管理系统"
   End
End
Attribute VB_Name = "frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Menu_im_add_Click()
    frm_im_add.Show
End Sub
Private Sub Menu_im_del_Click()
    frm_im_del.Show
End Sub
Private Sub Menu_im_upd_Click()
    frm_im_upd.Show
End Sub
Private Sub Menu_im_que_Click()
    frm_im_que.Show
End Sub
Private Sub Menu_inf_add_Click()
    frm_inf_add.Show
End Sub
Private Sub Menu_inf_del_Click()
    frm_inf_del.Show
End Sub
Private Sub Menu_inf_upd_Click()
    frm_inf_upd.Show
End Sub
Private Sub Menu_inf_que_Click()
    frm_inf_que.Show
End Sub
Private Sub Menu_ex_add_Click()
    frm_ex_add.Show
End Sub
Private Sub Menu_ex_del_Click()
    frm_ex_del.Show
End Sub
Private Sub Menu_ex_upd_Click()
    frm_ex_upd.Show
End Sub
Private Sub Menu_ex_que_Click()
    frm_ex_que.Show
End Sub
Private Sub Menu_quit_Click()
    Unload Me
End Sub