mdimediassist.frm

一个小型的社区医疗管理软件。只有100多K。功能还可以。英文界面

VERSION 5.00
Begin VB.MDIForm mdiMediAssist 
   BackColor       =   &H8000000C&
   Caption         =   "Medi-Assist"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuPatients 
      Caption         =   "&Patients"
      Begin VB.Menu mnuPatientsAdd 
         Caption         =   "&Add Patient"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuPatientsSearch 
         Caption         =   "&Search"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu mnuAbout 
      Caption         =   "&About Medi-Assist"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "E&xit"
   End
End
Attribute VB_Name = "mdiMediAssist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************
'Medi-Assist - Program Dossier
'mdiMediAssist
'Puraj Pravinchandra Patel
'Carlisle School - Martinsville, Virginia USA
'Computer Used: Pentium II 233, 144MB SDRAM, Windows 98
'Microsoft Visual Basic 6.0
'23 March 2000
'This multiple documet interface is responsible for
'giving any user access to add, search, update, and
'delete a patient record.
'******************************************************

Option Explicit


Private Sub mnuAbout_Click()

    'Display appropriate forms
    frmAdd.Hide
    frmSearch.Hide
    frmEdit.Hide
    frmAbout.Show
    
End Sub

Private Sub mnuExit_Click()

    'Terminate Application
    Unload frmAbout
    Unload frmAdd
    Unload frmSearch
    Unload frmEdit
    Unload Me
    
End Sub

Private Sub mnuPatientsAdd_Click()

    'Display appropriate forms
    frmAbout.Hide
    frmSearch.Hide
    frmEdit.Hide
    frmAdd.Show
    
End Sub

Private Sub mnuPatientsSearch_Click()

    'Display appropriate forms
    frmAbout.Hide
    frmAdd.Hide
    frmEdit.Hide
    frmSearch.Show
    
End Sub