mdimain.frm

This file came from Planet-Source-Code.com...the home millions of lines of source code You can view

Private Sub credits_Click()
frmCredits.Show
End Sub

Private Sub Customers_Click()
FrmCustomers.Show
End Sub

Private Sub defualt_Click()
Call select_color_type(0)
sys_color = "0"
End Sub

Private Sub Del_Click()
frmCancelSerAppointments.Show
End Sub

Private Sub DelDocApp_Click()
frmCancelDocAppointments.Show
End Sub

Private Sub DisplayRoom_Click()
frmRoomDetails.Show
End Sub

Private Sub DisplayWard_Click()
frmWardDetails.Show
End Sub

Private Sub DisSer_Click()
frmService.Show
End Sub

Private Sub DocApp_Click()
frmAddDocAppointments.Show
End Sub

Private Sub DocSalcal_Click()
frm_app_count.Show
End Sub

Private Sub docsched_Click()
frmDoctorSchedule.Show
End Sub



Private Sub editPatient_Click()
frmInPatientBill.Show
End Sub

Private Sub EmpSal_Click()
frm_add_salary_info.Show
End Sub

Public Sub Exit_Click()
AppState = 1
Unload MDIMain

'If MsgBox("Are you sure ?", vbQuestion + vbYesNo, "Confirm Quit Application") = vbYes Then
   'End
'End If

End Sub

Private Sub hosdetails_Click()
frmCompany.Show
End Sub

Private Sub IAddNewPay_Click()
frmIPBillPayments.Show
End Sub

Private Sub Invoice_Click()
frmOrder.Show
End Sub

Private Sub IPDischarge_Click()
frmIPDischarge.Show
End Sub

Private Sub IPDocvisits_Click()
frmInPatientDocReport.Show
End Sub

Private Sub IPMEdIssue_Click()
frmInPatientMedReport.Show
End Sub

Private Sub IPMedServices_Click()
frmInPatientServiceReport.Show
End Sub

Private Sub IViewBill_Click()
frmIPBill.Show
End Sub

Private Sub LightB_Click()
Call select_color_type(5)
sys_color = "5"
End Sub

Private Sub lightV_Click()
Call select_color_type(4)
sys_color = "4"
End Sub

Public Sub logoff_Click()
If MsgBox("Are you sure you want to Log Off the system ?", vbYesNo + vbQuestion, "Log off") = vbYes Then
    AppState = 0
    Unload Me
    frmLogin.Show
End If

End Sub

Private Sub macgrey_Click()
Call select_color_type(1)
sys_color = "1"
End Sub

Private Sub MDIForm_Activate()
Load frmSideBar
Call disMenu
End Sub



Private Sub MDIForm_Load()

original_menu_color = GetSysColor(4)
original_buttonface_color = GetSysColor(15)
original_buttonshadow_color = GetSysColor(16)
original_buttonhighlight_color = GetSysColor(20)
'Set the system color
Call select_color_type(Val(sys_color))


Me.WindowState = vbMaximized
Load frmSideBar

StatusBar1.Panels(2).Text = Date

'Disable Employee Management Section (Not Completed Yet)
Call disMenu


End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
'Restore the orignal system color
On Error Resume Next

If AppState = 0 Then
AppState = 1
New_System_Color.SelectColor(4) = original_menu_color
New_System_Color.SelectColor(15) = original_buttonface_color
New_System_Color.SelectColor(16) = original_buttonshadow_color
New_System_Color.SelectColor(20) = original_buttonhighlight_color
Call change_system_color
   
Cancel = 0
Exit Sub
End If



'If MsgBox("Are you sure ?", vbQuestion + vbYesNo, "Confirm Quit Application") = vbYes Then
New_System_Color.SelectColor(4) = original_menu_color
New_System_Color.SelectColor(15) = original_buttonface_color
New_System_Color.SelectColor(16) = original_buttonshadow_color
New_System_Color.SelectColor(20) = original_buttonhighlight_color


Call change_system_color
' Close the database connection on exit
cnPatients.Close
'End
Cancel = 0
   
'Else
   'Cancel = 1
'End If

End Sub



Private Sub MedSerShedrpt_Click()
frmservicesreports.Show
End Sub

Private Sub PInvoice_Click()
FrmPurchases.Show
End Sub

Private Sub Products_Click()
FrmProducts.Show
End Sub

Private Sub RegIPatient_Click()
frmAdmissionDetails.Show
End Sub

Private Sub register1_Click()
frmAppRegister.Show
End Sub



Private Sub RoomRpt_Click()
frmbedwardreport.Show
End Sub

Private Sub rptCustomers_Click()
frmCustomerReport.Show
End Sub

Private Sub rptEmployee_Click()

If MsgBox("This section is currently Under Construction" & vbCrLf & "Do you want to Continue ?", vbQuestion + vbYesNo, "Crystal Employee Management System") = vbYes Then
    frmemployeereports.Show
End If

End Sub

Private Sub rptLogs_Click()
frmLogReport.Show
End Sub

Private Sub rptPurchase_Click()
frmPurchasesReport.Show
End Sub

Private Sub rptSales_Click()
frmSalesReport.Show
End Sub

Private Sub salesbycus_Click()
frmCusSalesReport.Show
End Sub

Private Sub SearchDocApp_Click()
frmViewDoctorAppointments.Show
End Sub

Private Sub SearchSerApp_Click()
frmViewServiceAppointments.Show
End Sub

Private Sub sersched_Click()
frmServiceSchedule.Show
End Sub

Private Sub showempMenu_Click()




If showempMenu.Checked = True Then
    showempMenu.Checked = False
ElseIf showempMenu.Checked = False Then
    showempMenu.Checked = True
End If


If showempMenu.Checked = True Then
    frm_employee.Show
    
ElseIf showempMenu.Checked = False Then
    frm_employee.Hide
End If








End Sub

Private Sub showNavigation_Click()

If showNavigation.Checked = True Then
    showNavigation.Checked = False
ElseIf showNavigation.Checked = False Then
    showNavigation.Checked = True
End If


If showNavigation.Checked = True Then
    FrmNavigation.Show
    
ElseIf showNavigation.Checked = False Then
    FrmNavigation.Hide
End If

End Sub

Private Sub sidebar_Click()

If sidebar.Checked = True Then
    sidebar.Checked = False
ElseIf sidebar.Checked = False Then
    sidebar.Checked = True
End If


If sidebar.Checked = True Then
    frmSideBar.Show
    
ElseIf sidebar.Checked = False Then
    frmSideBar.Hide
End If




End Sub

Private Sub Suppliers_Click()
FrnSuppliers.Show
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = Time
End Sub

Private Sub Timer2_Timer()

If appRegistered = False Then
    If DateAdd("n", 30, LogTime) = Time Then
        MsgBox "30 Minutes Trial Period Over" & vbCrLf & "Please register the program", vbInformation
        Unload MDIMain
    End If
End If



End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)


Select Case Button
    Case "Out Patient"
        frmAddOutPatientDetails.Show
        
    Case "In Patient"
        frmInPatientDetails.Show
        
    Case "Admission"
        frmAdmissionDetails.Show
End Select


End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu
    Case "Doctor Appointment"
    frmAddDocAppointments.Show
    
    Case "Medical Appointment"
    frmAddSerAppointments.Show
    
    Case "In Patient Bill Payments"
        frmIPBillPayments.Show
    Case "Doctor Appointment Payments"
        frmOPBillPayments.Show
    Case "Service Appointment Payments"
        frmOPSerBillPayments.Show
End Select

End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button
    Case "Customers"
        FrmCustomers.Show
        
    Case "Sales Invoice"
        frmOrder.Show
        
    
End Select


End Sub

Private Sub ViewDischarge_Click()
frmDisplayIPDischarge.Show
End Sub

Private Sub ViewDoc_Click()
frmDoctorDetails.Show
End Sub

Private Sub ViewDocApp_Click()
frmViewDoctorAppointments.Show
End Sub

Private Sub ViewDocVisits_Click()
frmDoctorVisit.Show
End Sub

Private Sub ViewMedDetails_Click()
frmInPatientOrders.Show
End Sub

Private Sub ViewOBill_Click()
frmOPBillPayments.Show
End Sub

Private Sub ViewOPatient_Click()
frmDisplayOutPatient.Show
End Sub

Private Sub ViewSerApp_Click()
frmViewServiceAppointments.Show
End Sub

Private Sub viewOPHistory_Click()
frmDisplayOPHistory.Show
End Sub

Private Sub ViewSerDetails_Click()
frmIPServiceDetails.Show
End Sub


Private Sub wardrpt_Click()
frmbedwardreport.Show
End Sub

Private Sub winclassic_Click()
Call select_color_type(6)
sys_color = "6"
End Sub

Private Sub xpblue_Click()
Call select_color_type(2)
sys_color = "2"
End Sub