mdimain.frm

国外的医院管理系统。基于水晶报表。Crystal Hospital Management System

               Caption         =   "Add Patient Details"
               Shortcut        =   ^I
            End
            Begin VB.Menu AddOGuard 
               Caption         =   "Add Guardian Details"
               Shortcut        =   ^J
            End
            Begin VB.Menu RegIPatient 
               Caption         =   "Registration"
               Shortcut        =   ^K
            End
            Begin VB.Menu sep9 
               Caption         =   "-"
            End
            Begin VB.Menu viewAddmission 
               Caption         =   "View Admission List"
            End
         End
         Begin VB.Menu ITreat 
            Caption         =   "Treatments"
            Begin VB.Menu AddDocVisits 
               Caption         =   "Add Doctor Visits"
            End
            Begin VB.Menu ViewDocVisits 
               Caption         =   "View Doctor Visits"
            End
            Begin VB.Menu sep16 
               Caption         =   "-"
            End
            Begin VB.Menu addmediciine 
               Caption         =   "Add Medicinal Details"
            End
            Begin VB.Menu ViewMedDetails 
               Caption         =   "View Medicinal Details"
            End
            Begin VB.Menu sep15 
               Caption         =   "-"
            End
            Begin VB.Menu AddIPService 
               Caption         =   "Add Service Details"
            End
            Begin VB.Menu ViewSerDetails 
               Caption         =   "View Service Details"
            End
         End
         Begin VB.Menu InDischarge 
            Caption         =   "Discharge"
            Begin VB.Menu IPDischarge 
               Caption         =   "Discharge Patient"
            End
            Begin VB.Menu sep10 
               Caption         =   "-"
            End
            Begin VB.Menu ViewDischarge 
               Caption         =   "View Discharge List"
            End
         End
         Begin VB.Menu billpay 
            Caption         =   "Bill Payments"
            Begin VB.Menu IViewBill 
               Caption         =   "View Patient Bill"
            End
            Begin VB.Menu editPatient 
               Caption         =   "Edit Patient Bill"
            End
            Begin VB.Menu sep4 
               Caption         =   "-"
            End
            Begin VB.Menu IAddNewPay 
               Caption         =   "Add New Payment"
            End
            Begin VB.Menu sep3 
               Caption         =   "-"
            End
            Begin VB.Menu ISerPay 
               Caption         =   "Search Payment"
            End
         End
      End
   End
   Begin VB.Menu manegement 
      Caption         =   "Management"
      Begin VB.Menu HosManage 
         Caption         =   "&Hopital Management"
         Begin VB.Menu DocMng 
            Caption         =   "Doctor Management"
            Begin VB.Menu docSched 
               Caption         =   "Doctor Schedule"
            End
         End
         Begin VB.Menu ServiceMng 
            Caption         =   "Hospital Service Management"
            Begin VB.Menu sersched 
               Caption         =   "Service Scehdule"
            End
         End
         Begin VB.Menu sep14 
            Caption         =   "-"
         End
         Begin VB.Menu RoomMng 
            Caption         =   "Room Management"
            Begin VB.Menu addRoom 
               Caption         =   "Add New Room"
            End
            Begin VB.Menu DisplayRoom 
               Caption         =   "View Rooms"
            End
            Begin VB.Menu addRoomType 
               Caption         =   "Add Room Type"
            End
         End
         Begin VB.Menu WardMng 
            Caption         =   "Ward Management"
            Begin VB.Menu addWard 
               Caption         =   "Add New Ward"
            End
            Begin VB.Menu DisplayWard 
               Caption         =   "View Ward Details"
            End
         End
         Begin VB.Menu BedMng 
            Caption         =   "Bed Management"
            Begin VB.Menu addBed 
               Caption         =   "Add Bed Details"
            End
            Begin VB.Menu BedAvail 
               Caption         =   "Bed Avaiabilty"
            End
         End
      End
      Begin VB.Menu PharmacyMng 
         Caption         =   "Pharmacy Management"
         Begin VB.Menu sale 
            Caption         =   "Sale"
            Begin VB.Menu Invoice 
               Caption         =   "Invoice"
            End
            Begin VB.Menu Sep19 
               Caption         =   "-"
            End
            Begin VB.Menu Customers 
               Caption         =   "Customers"
            End
         End
         Begin VB.Menu Purchases 
            Caption         =   "Purchases"
            Begin VB.Menu PInvoice 
               Caption         =   "Purchase Invoice"
            End
            Begin VB.Menu Sep20 
               Caption         =   "-"
            End
            Begin VB.Menu Products 
               Caption         =   "Products"
            End
            Begin VB.Menu Categories 
               Caption         =   "Categories"
            End
            Begin VB.Menu Suppliers 
               Caption         =   "Suppliers"
            End
         End
         Begin VB.Menu sep27 
            Caption         =   "-"
         End
         Begin VB.Menu showNavigation 
            Caption         =   "Show Menu"
         End
      End
      Begin VB.Menu EmployeeMng 
         Caption         =   "Employee Management"
         Begin VB.Menu AddempDetails 
            Caption         =   "Add Employee Details"
         End
         Begin VB.Menu EmpSal 
            Caption         =   "Employee Salary Calculation"
         End
         Begin VB.Menu DocSalcal 
            Caption         =   "Doctor Salary Calculation"
         End
         Begin VB.Menu addDepartment 
            Caption         =   "Add Departments"
         End
         Begin VB.Menu sep23 
            Caption         =   "-"
         End
         Begin VB.Menu showempMenu 
            Caption         =   "Show Menu"
         End
      End
   End
   Begin VB.Menu Rep 
      Caption         =   "&Reports"
      Begin VB.Menu rptMngs 
         Caption         =   "Managerial Reports"
         Begin VB.Menu PatientReports 
            Caption         =   "Patient Report"
            Begin VB.Menu IPMEdIssue 
               Caption         =   "In Patient Medicine Issue"
            End
            Begin VB.Menu IPMedServices 
               Caption         =   "In Patient Medical Services"
            End
            Begin VB.Menu IPDocvisits 
               Caption         =   "In Patient Doctor Visits"
            End
         End
         Begin VB.Menu rptHospital 
            Caption         =   "Hospital Reports"
            Begin VB.Menu RoomRpt 
               Caption         =   "Room Report"
            End
            Begin VB.Menu wardrpt 
               Caption         =   "Ward Report"
            End
            Begin VB.Menu BedRpt 
               Caption         =   "Bed Reports"
            End
            Begin VB.Menu sep28 
               Caption         =   "-"
            End
            Begin VB.Menu MedSerShedrpt 
               Caption         =   "Medical Services Schedule"
            End
            Begin VB.Menu docSchedRpt 
               Caption         =   "Doctor Shedule"
            End
         End
         Begin VB.Menu rptPharmacy 
            Caption         =   "Pharmacy Reports"
            Begin VB.Menu rptSales 
               Caption         =   "Sales"
            End
            Begin VB.Menu rptPurchase 
               Caption         =   "Purchases"
            End
            Begin VB.Menu rptCustomers 
               Caption         =   "Customers"
            End
         End
         Begin VB.Menu rptEmployee 
            Caption         =   "Employee Reports"
         End
      End
      Begin VB.Menu rptLogs 
         Caption         =   "Log Reports"
      End
   End
   Begin VB.Menu tools 
      Caption         =   "&Tools"
      Begin VB.Menu chngPass 
         Caption         =   "Change Password"
      End
      Begin VB.Menu AddnewUser 
         Caption         =   "Add New User"
      End
   End
   Begin VB.Menu Settings 
      Caption         =   "&Settings"
      Begin VB.Menu hosdetails 
         Caption         =   "Hospital Details"
      End
      Begin VB.Menu sidebar 
         Caption         =   "Side Bar"
         Checked         =   -1  'True
      End
      Begin VB.Menu appInterface 
         Caption         =   "Application Preferences"
      End
      Begin VB.Menu sep18 
         Caption         =   "-"
      End
      Begin VB.Menu appSkin 
         Caption         =   "Application Skin"
         Begin VB.Menu defualt 
            Caption         =   "Default"
         End
         Begin VB.Menu macgrey 
            Caption         =   "Mac Grey"
         End
         Begin VB.Menu xpblue 
            Caption         =   "XP Blue"
         End
         Begin VB.Menu coolgreen 
            Caption         =   "Cool Green"
         End
         Begin VB.Menu LightB 
            Caption         =   "Light Brown"
         End
         Begin VB.Menu lightV 
            Caption         =   "Light Violet"
         End
         Begin VB.Menu winclassic 
            Caption         =   "Win Classic"
         End
      End
   End
   Begin VB.Menu help 
      Caption         =   "&Help"
      Begin VB.Menu content 
         Caption         =   "Contents"
         Shortcut        =   {F1}
      End
      Begin VB.Menu sep32 
         Caption         =   "-"
      End
      Begin VB.Menu shortCuts 
         Caption         =   "Short Cut Keys"
         Shortcut        =   {F2}
      End
      Begin VB.Menu credits 
         Caption         =   "Credits"
         Shortcut        =   +^{F9}
      End
      Begin VB.Menu sep33 
         Caption         =   "-"
      End
      Begin VB.Menu register1 
         Caption         =   "Register Crystal HMS"
         Shortcut        =   +^{F11}
      End
      Begin VB.Menu sep13 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "About Crystal HMS"
         Shortcut        =   +^{F12}
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub addBed_Click()
frmAddBedDetails.Show
End Sub

Private Sub addDepartment_Click()
frm_settngs.Show
End Sub

Private Sub addDoc_Click()
frmAddDoctorDetails.Show
End Sub

Private Sub AddDocVisits_Click()
frmDoctorVisit.Show
End Sub


Private Sub AddempDetails_Click()
frm_add_employee.Show
End Sub

Private Sub AddIPatient_Click()
frmInPatientDetails.Show
End Sub

Private Sub AddIPService_Click()
frmInPatientServices.Show
End Sub

Private Sub addmediciine_Click()
frmInPatientMedicine.Show
End Sub

Private Sub addnewPrescription_Click()
frmOutPatientTreatments.Show

End Sub

Private Sub AddnewUser_Click()
frmUserDetails.Show
End Sub

Private Sub AddOGuard_Click()
frmGuardianDetails.Show
End Sub

Private Sub addOPatient_Click()
frmAddOutPatientDetails.Show
End Sub

Private Sub AddOPay_Click()
frmOPSerBillPayments.Show
End Sub

Private Sub addRoom_Click()
frmAddRoom.Show
End Sub

Private Sub addRoomType_Click()
frmAddRoomType.Show
End Sub

Private Sub AddSer_Click()
frmAddServices.Show
End Sub

Private Sub AddSerApp_Click()
frmAddSerAppointments.Show
End Sub


Private Sub addWard_Click()
frmAddWard.Show
End Sub

Private Sub appInterface_Click()
frmAppPreferences.Show
End Sub

Private Sub backup_Click()
frmBackUp.Show
End Sub

Private Sub BedAvail_Click()
frmBEDDisplay.Show
End Sub

Private Sub BedRpt_Click()
frmbedwardreport.Show
End Sub

Private Sub Categories_Click()
FrmCategories.Show
End Sub

Public Sub chngPass_Click()
frmChangePassword.Show
End Sub

Private Sub content_Click()
  'View help files
   Dim strHFile As String
   
   strHFile = App.Path & "\Help\CHMS.chm"
   
   ShellExecute Me.hWnd, "open", strHFile, "", "", vbNormalFocus
End Sub

Private Sub coolgreen_Click()
Call select_color_type(3)
sys_color = "3"
End Sub