zhu.frm

vb课程设计医院管理系统内含实验报告文档

VERSION 5.00
Begin VB.MDIForm zhu 
   BackColor       =   &H8000000C&
   Caption         =   "主界面"
   ClientHeight    =   7185
   ClientLeft      =   1695
   ClientTop       =   2040
   ClientWidth     =   10995
   LinkTopic       =   "MDIForm1"
   Begin VB.Menu aa 
      Caption         =   "病人基本信息"
   End
   Begin VB.Menu bb 
      Caption         =   "病人医治信息"
   End
   Begin VB.Menu cc 
      Caption         =   "医院病例信息"
   End
   Begin VB.Menu dd 
      Caption         =   "数据信息查询"
      Begin VB.Menu ee 
         Caption         =   "病人基本信息"
      End
      Begin VB.Menu ff 
         Caption         =   "病人医治信息"
      End
      Begin VB.Menu gg 
         Caption         =   "病例信息"
      End
   End
   Begin VB.Menu hh 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "zhu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub aa_Click()
brxx.Show
bingli.Hide
yizhi.Hide
Form1.Hide
Form2.Hide
Form3.Hide
End Sub

Private Sub bb_Click()
yizhi.Show
bingli.Hide
brxx.Hide
Form1.Hide
Form2.Hide
Form3.Hide
End Sub

Private Sub cc_Click()
bingli.Show
yizhi.Hide
brxx.Hide
Form1.Hide
Form2.Hide
Form3.Hide
End Sub

Private Sub ee_Click()
Form1.Show
Form2.Hide
Form3.Hide
bingli.Hide
yizhi.Hide
brxx.Hide

End Sub

Private Sub ff_Click()
Form1.Hide
Form2.Show
Form3.Hide
bingli.Hide
yizhi.Hide
brxx.Hide

End Sub

Private Sub gg_Click()
Form1.Hide
Form2.Hide
Form3.Show
bingli.Hide
yizhi.Hide
brxx.Hide

End Sub

Private Sub hh_Click()
zhu.Hide
hao.Show
End Sub