Advanced Hospital Management System

[seminar presentation]

[attachment=3521]

HOSPITAL MANAGEMENT

---

Presented BY
Hariprasath.v

---

PROBLEM DESCRIPTION:
This complex project has the scope of adding new employees doctors admitting outpatients, fixing appointments etc. This project also displays the services provided to outpatient. This project is all about student mark and its management. This project is to manage the student details including personal, academic and providing mark list in a college. This program also provides immediate details needed in the student mark management. This also provides the , where it is located.
INTERFACES:
o Welcome interface
o Login interface
o MDI main interface
o Application interface
o Doctor interface
o Employees interface
o Ward interface
o Outpatient interface
o Services interface
WELCOME INTERFACE:
In welcome interface, it includes just a progressing, intimates that the administrator is getting in the management program.
LOGIN INTERFACE:
In login interface, we provide authorization to the user getting in.
MDI MAIN INTERFACE:
The multiple document interface, provides base screen for all management program actions present in the management program. It contains menu bar which list the manipulation forms for management.
APPLICATION INTERFACE:
Application interface provides the basic accessories that is required for certain essential operations.
DOCTOR INTERFACE:
This interface provides us the facilities such as viewing doctor's details including his/her id, qualification and specialization, address etc.. It also display the list of doctors present in various departments. We can search a doctor by his id and then view his details. This interface alsor provides us the facility to add new doctors in.
EMPLOYEES INTERFACE:
This interface provides us the facilities such as viewing employee's details including his/her id, qualification, address etc.. It also display the list of employees present in various departments. We can search an employee by his id and then view his details. This interface also provides us the facility to add new employees in.
WARD INTERFACE:
This interface provides us the details about wards and the habited patients in those wards.
OUTPATIENT INTERFACE:
This interface provides us the information about the outpatients, what for they are in, appointments with doctor, bill details, time they are in etc..
SERVICES INTERFACE:
This interface provides us the information about the services present in that hospital, which time they are scheduled to be open, and the incharge administrator.
FUNCTIONAL CAPABILITIES:
The basic functionalities of this hospital management system are:
1.This provides the easy way of management to the administrator.
2.Highly user defined.
3.The details about doctors, employees, patients can be maintained and managed in an easy manner due to presence of database.
PERFORMANCE LEVEL:
Performance wise this system provide the opportunity to the user(administrator) to manage the details about doctors, employees, patients in a great user defined manner. Apart from management it also entertains the user. It also provides the basic accessories to the user(administrator). This project is completely user friendly.
DATA STRUCTURES:
The data related to various fields are aligned in the database in the form of tables. Oracle is used in the form of database. All the details of the management system are maintained in the database and can be accessed when required.
SAFETY:
1. A person can login, only when he/she enters a correct username and password, except, the new user who can register himself/ herself.
RELIABILITY:
Reliability is highly concerned with user satisfaction. As per reliability is concerned, it provides cent percent user satisfaction. It meets all the possible requirements of the user. The data are secured and thus provides more reliability.
SECURITY AND PRIVACY:
Proper security and privacy policy has been used to build this project. Authentication is the basic motive to precede the further processes. Corruption of database and software is not possible by any means.
QUALITY:
The most user friendly software, visual basic is used to build this project. This software is checked for its working in exceptional conditions. The various features used in this projet enhances the quality of the project. Each and every module individually serves its purpose and ultimately provides a quality product.
LIMITATIONS AND CONSTRAINTS:
Apart from all the quality features, the loss of data in database affects the whole system. Also visual basic is not a proper platform to work with, when compared to other software in this upcoming technology trends.

LOGIN FORM

Code:

LOGIN FORM CODING:
Private Sub Form_Load()
Call ShockwaveFlash1.LoadMovie(0, "C:\Documents and Settings\friends\Desktop\J.swf")
End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
End Sub

Private Sub Command1_Click()
If Trim(Text1.Text) = "care4u" And Trim(Text2.Text) = "admin" Then
MDIMain.Show
Else
MsgBox "Invalid username or password"
End If
End Sub

MDIFORM:



MDI FORM CODING:
Private Sub app_Click()
applications.Show
End Sub

Private Sub doc_Click()
doctors.Show
End Sub

Private Sub enp_Click()
employees.Show
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub logoff_Click()
login.Show
End Sub

Private Sub out_Click()
outpatient.Show
End Sub

Private Sub Service_Click()
services.Show
End Sub

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

Private Sub ward_Click()
warddetails.Show
End Sub

ADD DOCTOR FORM:



ADD DOCTOR CODING:
Option Explicit
Dim Cn As ADODB.Connection
Private Conn As String
Dim Rs As ADODB.Recordset

Private Sub Command1_Click()
Rs.AddNew
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
Rs(0) = Val(Text1.Text)
Rs(1) = Text2.Text
Rs(2) = Combo1.Text
Rs(3) = Text3.Text
Rs(4) = Text4.Text
Rs(5) = Combo2.Text
Rs(6) = Text5.Text
Rs(7) = Val(Text6.Text)
Rs(8) = Val(Text7.Text)
Rs.Update
Command2.Visible = False
Command1.Visible = True
End Sub
'##ModelId=3E46266C011B
Private Sub Command3_Click()
Rs.Delete
End Sub
'##ModelId=3E46266C0128
Private Sub Command4_Click()
Unload Me
End Sub
'##ModelId=3E46266C0129
Private Sub Command5_Click()
Dim i As Integer
Dim a As Integer
a = 0
i = InputBox("enter the id to be searched")
Rs.MoveFirst
While Not Rs.EOF
If i = Rs(0) Then
a = 1
Text1.Text = Rs(0)
  Text2.Text = Rs(1)
Combo1.Text = Rs(2)
Text3.Text = Rs(3)
Text4.Text = Rs(4)
Combo2.Text = Rs(5)
Text5.Text = Rs(6)
Text6.Text = Rs(7)
Text7.Text = Rs(8)
Else
Rs.MoveNext
End If
Wend
If a = 0 Then
MsgBox ("enter a valid id")
End If
End Sub
'##ModelId=3E46266C0138
Private Sub Form_Load()
Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"
       Set Cn = New ADODB.Connection
       With Cn
         .ConnectionString = Conn
         .CursorLocation = adUseClient
         .Open
       End With
    Set Rs = New ADODB.Recordset
    Rs.Open "adddoctors", Cn, adOpenDynamic, adLockOptimistic, adCmdTable
Set DataGrid1.DataSource = Rs
Command2.Visible = False
Exit Sub
End Sub

SERVICES FORM:



SERVICES FORM CODING:
Option Explicit
' Form Diposit
Dim Cn As ADODB.Connection
Private Conn As String
Dim Rs As ADODB.Recordset

Private Sub Label1_Click()
Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"
       Set Cn = New ADODB.Connection
       With Cn
         .ConnectionString = Conn
         .CursorLocation = adUseClient
         .Open
       End With
    Set Rs = New ADODB.Recordset
    Rs.Open "services", Cn, adOpenDynamic, adLockOptimistic, adCmdTable
End Sub
APPLICATION FORM:



APPLICATION FORM CODING:
Private Sub Command1_Click()
Shell "Notepad.exe", vbNormalFocus
End Sub

Private Sub Command2_Click()
Shell "calc.exe", vbNormalFocus
End Sub

Private Sub Command3_Click()
MsgBox "Sure you want to log off"
login.Show
End Sub

Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Label7.Caption = Time
Label8.Caption = Date
End Sub


ADD OUTPATIENT FORM:



ADD OUTPATIENT FORM CODING:

Private Sub Command1_Click()
Rs.AddNew
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
Rs(0) = Text1.Text
Rs(1) = Combo1.Text
Rs(2) = Text2.Text
Rs(3) = Combo2.Text
Rs(4) = Val(Text3.Text)
Rs(5) = Val(Text4.Text)
Rs(6) = Val(Text5.Text)
Rs(7) = Val(Text6.Text)
Rs(8) = Combo3.Text
Rs.Update
Command2.Visible = False
Command1.Visible = True
End Sub

Private Sub Command3_Click()
rz.Delete
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"
       Set Cn = New ADODB.Connection
       With Cn
         .ConnectionString = Conn
         .CursorLocation = adUseClient
         .Open
       End With
    Set Rs = New ADODB.Recordset    
    Rs.Open "Ward Details", Cn, adOpenDynamic, adLockOptimistic, adCmdTable    
    Set DataGrid1.DataSource = Rs
Command2.Visible = False
Exit Sub
End Sub

Private Sub Command5_Click()
Form9.Show
End Sub

WARD DETAILS FORM:



WARD DETAILS FORM CODING:
Option Explicit
Dim Cn As ADODB.Connection
Private Conn As String
Dim Rs As ADODB.Recordset

Private Sub Label1_Click()
Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"
       Set Cn = New ADODB.Connection
       With Cn
         .ConnectionString = Conn
         .CursorLocation = adUseClient
         .Open
       End With
    Set Rs = New ADODB.Recordset
    Rs.Open "Ward Details", Cn, adOpenDynamic, adLockOptimistic, adCmdTable
End Sub
EMPLOYEES DETAILS FORM :



EMPLOYEES DETAILS FORM CODING:
Option Explicit
Dim Cn As ADODB.Connection
Private Conn As String
Dim Rs As ADODB.Recordset

Private Sub Command1_Click()
Rs.AddNew
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
Rs(0) = Val(Text1.Text)
Rs(1) = Text2.Text
Rs(2) = Combo1.Text
Rs(3) = Text3.Text
Rs(4) = Combo2.Text
Rs(5) = Combo3.Text
Rs(6) = Val(Text4.Text)
Rs(7) = Text5.Text
Rs(8) = Text6.Text
Rs(9) = Val(Text7.Text)
Rs.Update
Command2.Visible = False
Command1.Visible = True
End Sub

Private Sub Command3_Click()
Rs.Delete
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Conn = "UID=scott;PWD=tiger;DRIVER={Microsoft ODBC for Oracle};"
       Set Cn = New ADODB.Connection
       With Cn
         .ConnectionString = Conn
         .CursorLocation = adUseClient
         .Open
       End With
    Set Rs = New ADODB.Recordset
    Rs.Open "employee", Cn, adOpenDynamic, adLockOptimistic, adCmdTable
    Set DataGrid1.DataSource = Rs
Command2.Visible = False
Set DataGrid1.DataSource = Rs
End Sub

USE CASE DIAGRAM:



CLASS DIAGRAM:


ACTIVITY DIAGRAM:

SEQUENCE DIAGRAM:




CONCLUSION:
The Visual Basic project for Hospital Management was completed successfully and executed using oracle database connection. This system was tested and proved for bug free project.