www.pudn.com > 西南医院.rar > FrmMdi.frm

VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.MDIForm FrmMdi  
   Appearance      =   0  'Flat 
   BackColor       =   &H8000000C& 
   Caption         =   "西南医院中医科病人资料管理系统" 
   ClientHeight    =   10005 
   ClientLeft      =   165 
   ClientTop       =   450 
   ClientWidth     =   14460 
   LinkTopic       =   "MDIForm1" 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Timer Timer1  
      Interval        =   1000 
      Left            =   4680 
      Top             =   3840 
   End 
   Begin MSComctlLib.StatusBar StatusBar1  
      Align           =   2  'Align Bottom 
      Height          =   375 
      Left            =   0 
      TabIndex        =   0 
      Top             =   9630 
      Width           =   14460 
      _ExtentX        =   25506 
      _ExtentY        =   661 
      _Version        =   393216 
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}  
         NumPanels       =   4 
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   6218 
         EndProperty 
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            Style           =   1 
            AutoSize        =   1 
            Enabled         =   0   'False 
            Object.Width           =   6218 
            TextSave        =   "CAPS" 
         EndProperty 
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            Style           =   2 
            AutoSize        =   1 
            Object.Width           =   6218 
            TextSave        =   "NUM" 
         EndProperty 
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   6218 
         EndProperty 
      EndProperty 
   End 
   Begin VB.Menu mnuadd  
      Caption         =   "资料登记系统" 
      Begin VB.Menu mnuadd1  
         Caption         =   "基本资料登记" 
      End 
      Begin VB.Menu mnuadd2  
         Caption         =   "就诊资料登记" 
      End 
   End 
   Begin VB.Menu mnuselect  
      Caption         =   "资料查询系统" 
      Begin VB.Menu mnuselect1  
         Caption         =   "资料查询" 
      End 
   End 
   Begin VB.Menu mnusystem  
      Caption         =   "系统管理" 
      Begin VB.Menu mnuuseradd  
         Caption         =   "用户添加" 
      End 
      Begin VB.Menu mnuuserupdate  
         Caption         =   "用户修改" 
      End 
      Begin VB.Menu mnuuserdel  
         Caption         =   "用户删除" 
      End 
   End 
End 
Attribute VB_Name = "FrmMdi" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub MDIForm_Load() 
'frmmdi.Appearance 
End Sub 
 
Private Sub mnuadd1_Click() 
mnuadd1.Checked = Not mnuadd1.Checked 
If mnuadd1.Checked = True Then 
   FrmAdd1.Show 
   Else 
   Unload FrmAdd1 
End If 
End Sub 
 
Private Sub mnuadd2_Click() 
mnuadd2.Checked = Not mnuadd2.Checked 
If mnuadd2.Checked = True Then 
   FrmAdd2.Show 
   Else 
   Unload FrmAdd2 
End If 
End Sub 
 
Private Sub mnuselect1_Click() 
mnuselect1.Checked = Not mnuselect1.Checked 
If mnuselect1.Checked = True Then 
   FrmSelect.Show 
   Else 
   Unload FrmSelect 
End If 
End Sub 
 
Private Sub mnuuseradd_Click() 
mnuuseradd.Checked = Not mnuuseradd.Checked 
If mnuuseradd.Checked = True Then 
   FrmAdminAdd.Show 
   Else 
   Unload FrmAdminAdd 
End If 
 
End Sub 
 
Private Sub mnuuserdel_Click() 
mnuuserdel.Checked = Not mnuuserdel.Checked 
If mnuuserdel.Checked = True Then 
    FrmAdminDel.Show 
    Else 
    Unload FrmAdminDel 
End If 
 
End Sub 
 
Private Sub mnuuserupdate_Click() 
mnuuserupdate.Checked = Not mnuuserupdate.Checked 
If mnuuserupdate.Checked = True Then 
   FrmAdminUpdate.Show 
   Else 
   Unload FrmAdminUpdate 
End If 
 
End Sub 
 
Private Sub Timer1_Timer() 
StatusBar1.Panels(4).Text = "当前时间: " & Now 
End Sub