Hospital Management - Java- Class 12th - (IP Project)
(Software Made & Developed in Net Beans IDE 6.5.1 and MySQL)
DECLARATION
I hereby declare that his desertion entitled “HOSPITAL MANAGEMENT” embodies the documentation of my project work carried out in session 2015 to 2016 and it is correct and true to the best of my knowledge. No part of this document may be copied or distributed without prior information to the owner of this project. PUBLIC SCHOOL is the sole owner of this project.
I hereby declare that his desertion entitled “HOSPITAL MANAGEMENT” embodies the documentation of my project work carried out in session 2015 to 2016 and it is correct and true to the best of my knowledge. No part of this document may be copied or distributed without prior information to the owner of this project. PUBLIC SCHOOL is the sole owner of this project.
HOSPITAL MANAGEMENT
(Software Made & Developed in Net Beans IDE 6.5.1 and MySQL)
SUBMITTED BY :
BOARD ROLL NO. :
DATE OF SUBMISSION
UNDER THE SUPERVISION OF
MISS. S.
(IP Teacher)
PUBLIC SCHOOL
(Affiliated to CBSE)
SUBMITTED BY :
BOARD ROLL NO. :
DATE OF SUBMISSION
UNDER THE SUPERVISION OF
MISS. S.
(IP Teacher)
PUBLIC SCHOOL
(Affiliated to CBSE)
java_hospital_management.txt |
Option Explicit
Private Sub MDIForm_DblClick()
If LoginSucceeded = True Then
frmNewReg.Show
Else
frmLogin.Show 1
End If
End Sub
Private Sub MDIForm_Load()
Me.Caption = Me.Caption & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If LoginSucceeded = False Then Exit Sub
If MsgBox("Exiting IHMS will abort all tasks in progress. Data and files might be lost. " & vbCrLf & "Are you sure you want to exit?", vbCritical + vbYesNo) = vbYes Then
Cancel = 0
End
Else
Cancel = 1
End If
End Sub
Private Sub mnuClose_Click()
Unload frmOldPatient
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuHelpAbout_Click()
frmAbout.Show 1
End Sub
Private Sub MDIForm_DblClick()
If LoginSucceeded = True Then
frmNewReg.Show
Else
frmLogin.Show 1
End If
End Sub
Private Sub MDIForm_Load()
Me.Caption = Me.Caption & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If LoginSucceeded = False Then Exit Sub
If MsgBox("Exiting IHMS will abort all tasks in progress. Data and files might be lost. " & vbCrLf & "Are you sure you want to exit?", vbCritical + vbYesNo) = vbYes Then
Cancel = 0
End
Else
Cancel = 1
End If
End Sub
Private Sub mnuClose_Click()
Unload frmOldPatient
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuHelpAbout_Click()
frmAbout.Show 1
End Sub
Private Sub mnuLogIn_Click()
'Check if database is available. if not, exit the app.
If Dir(App.Path & "\IHMS_97.mdb") = "" Then
MsgBox "Working database file not found." + vbCrLf + "Please make sure the access database file 'IHMS_97' available and try launching the application again." + vbCrLf + "The application will now exit...", , "ERROR"
End
End If
frmLogin.Show 1
End Sub
Private Sub mnuLogOut_Click()
If MsgBox("Logging out will abort all tasks in progress. Data and files might be lost. " & vbCrLf & "Are you sure you want to Log Out?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
LoginSucceeded = False
Call ConfigMenus
End Sub
Private Sub mnuNewPatient_Click()
frmNewReg.Show
mnuNewPatient.Enabled = False
tbrMainToolbar.Buttons(1).Enabled = False
End Sub
Private Sub mnuOpen_Click()
'f3: Search for record by hospital number.
patientNumberX = 0 'hosp number being sought for
patientNumberX = Val(InputBox("Please enter the patient's HOSPITAL NUMBER:"))
If patientNumberX = 0 Then Exit Sub 'User selects cancel
Unload frmOldPatient
frmWait.Show 1
End Sub
Private Sub mnuToolsKnowledgeBase_Click()
MsgBox "This function is still under development.", vbInformation
End Sub
Private Sub mnuToolsOptions_Click()
MsgBox "This function is still under development.", vbInformation
End Sub
Private Sub mnuToolsUsers_Click()
frmUserMgt.Show 1
End Sub
Private Sub tbrMainToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
'Log In/Log Out.
If LoginSucceeded = False Then
'The user is currently logged out
'Check if database is available. if not, exit the app.
If Dir(App.Path & "\IHMS_97.mdb") = "" Then
MsgBox "Working database file not found." + vbCrLf + "Please make sure the access database file 'IHMS_97' available and try launching the application again." + vbCrLf + "The application will now exit...", , "ERROR"
End
End If
frmLogin.Show 1
Else
'The user is currently logged in
If MsgBox("Logging out will abort all tasks in progress. Data and files might be lost. " & vbCrLf & "Are you sure you want to Log Out?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
LoginSucceeded = False
Call ConfigMenus
End If
Case 2
'Register New Patient.
frmNewReg.Show
mnuNewPatient.Enabled = False
tbrMainToolbar.Buttons(2).Enabled = False
Case 3
'Search DB for existing patient file.
'f3: Search for record by hospital number.
patientNumberX = 0 'hosp number being sought for
patientNumberX = Val(InputBox("Please enter the patient's HOSPITAL NUMBER:"))
If patientNumberX = 0 Then Exit Sub 'User selects cancel
Unload frmOldPatient
frmWait.Show 1
Case 4
'Admit/Discharge this patient.
MsgBox "This function is still under development.", vbInformation
Case 5
'Diagnose this patient.
MsgBox "This function is still under development.", vbInformation
Case 6
'About This App.
frmAbout.Show 1
End Select
End Sub