Hospital management system in java

ACKNOWLEDGEMENT
First of all We would like to express our heartful
thanks to ” The
Almighty God” for this opportunity, which he rendered
to us and gives the
physical strength and pleasant mind to complete this
project work.
We thank our honorable Principal VASANTHI BHAT,
for her inspiration. And we thank for our
project guide for the
correct guidance and advice.
We also thank our department staff
MS ARCHANA KRISHNAN (HEAD OF THE
DEPARTMENT
Ms.RANI BOPAIAH (CO-ORDINATOR)
who all encourage and satisfy our needs to finish this
project work.
We extent our thanks and gratitude to our parents,
Friends and those who
helped us directly and indirectly for the successful
completion of this
project work.
CONTENTS
S.No Contents
1. Introduction

Synopsis
Company Profile
2. Project Objective
Input Design
Output Design
9. Sample Codings
10. Screenshots
11. Bibiliography
INTRODUCTION
SYNOPSIS
This project will automate the daily operations of LIFE
LINE hospital.
The project keeps track of the staff and patient (in-
patient, out-patient) details. It
also takes care of the ward, medical, invoice and the
doctor’s appointment
details. The system generates the daily ward
availability, the status of the
operation theatres and ICU.
HOSPITAL MANAGEMENT is an integrated Hospital
Information
System, which addresses all the major functional areas
of multi-specialty
hospitals. The HOSPITAL MANAGEMENT enables
better patient care, patient

safety, patient confidentiality, efficiency, reduced
costs and better management
information system. It provides easy access to critical
information thus enabling
the management to take better decisions on time.
This project deals with processing of each and every
department in the
hospital. This project sincerely aims to reduce the
manual processing of each
department.
The Scope of the project takes care of the details of
each and every
department. These details gives the doctor, staffs,
specialists and patient details
including their salary, attendance , doctor’s
appointments and the billing
system. The details of Doctor and staff help the
hospital to maintain the record
of every person. Their attendance details help them to
know about their attentive
presence while salary is calculated. The billing system
provides an efficient way
for calculating bill details of the patients.
COMPANY PROFILE
GVHospitals is a multi-specialty, tertiary care hospital

extending quality health care service to people in and
around BANGALOE for the
past 12 years. The hospital was founded by G.V.VARUN
The hospital is located at MALLESHWARAM
Its head office
is located at MYSORE
PROJECT OBJECTIVE
PROJECT OBJECTIVE
To computerize all details regarding patient details &
hospital details.
To automate the process of ward entries.
To maintain records effectively.
To manage current status of staff and doctor
availablity.
The project has information regarding the inpatient
details, outpatient
details, Billing details and Ambulance details.
This project includes modules such as
1) Admission
Inpatient
Outpatient
2) Staff Details
Payroll
Personnel Details
Attendance

On Duty
Shift
3) Billing
Inpatient
Outpatient
4) Consultation
5) Ward Details
6) Ambulance Service
Driver
Ambulance
MODULES REQUIRED
Admission :
This module records basic patient related information,
which is collected
when the patient visits the hospital for the first time.
Each patient is allocated
a unique patient identification numbers also known as
Hospital No.
Patient Details:
It keeps track of all details about both in-patient and
out-patient.
Patient id, patient name, address, admitted date,
doctor name, room no are
entered in a form and stored for future reference.
Also particular patient details

can be viewed in the table using a separate form with a
attribute patient id.
Outpatient:
This module manages activities related to patient who
visits the Hospital
Resident Doctor or Consultant Doctor for Medical
Consultations, diagnosis and
treatment.
Inpatient:
Admission request will be made here. Request for
admission is made
before patient admitting the hospital.
Staff Details:
It keeps track of all details about doctors and staffs
of the hospital. staffs,
Doctors, Nurses name, staff id, address, qualification,
cell no, e-mail are entered
and stored in a separate form. Individual staff details
can be viewed in the table
using a separate form with a attribute Staff id.
Salary Details:
This module contains the details salary for the doctors
and nurse. This
salary calculated basic salary, PF, HRA, and year
increment for the staffs from

date of joining automatically calculated.
Consultation Details :
This module contains the details for the inpatient
which includes disease
name, type of treatment and medicine given to them.
Billing Details:
This module bills the both inpatient and outpatient who
comes to hospital.
Ward Details:
This module enters and stores the details about each
ward of the hospital
for future reference. Individual ward detail can be
viewed in the table using
ward id .The attributes used in storing a ward detail is
ward id, ward name,
floor no, no of rooms.
Ambulance Services:
Another service for Ambulance availability, out time, in
time, search for
the ambulance went to place for petrol and fuel
expenses.
SYSTEM
SPECIFICATION
SYSTEM CONFIGURATION
HARDWARE REQUIREMENTS

PROCESSOR :INTEL PENTIUM 4 (OR)HIGHER
RAM :512 MB & ABOVE
HARD DISK DRIVE : 500 MB FREE SPACE OR ABOVE
PRINTER : INK-JET PRINTER
PEN DRIVE : 512MB.
SOFTWARE REQUIREMENTS
PROGRAMMING LANGUAGE : VISUAL
PROGRAMMING
BACKEND :MS SQL SERVER-2005
FRONT END :VISUAL BASIC.NET
OPERATING SYSTEM : WINDOWS XP & HIGHER
VERSION
SOFTWARE SPECIFICATION
VISUAL STUDIO . NET
Visual Studio .NET is a complete set of development
tools for building
ASP Web applications
XML Web services
desktop applications
mobile applications
Visual Basic .NET, Visual C++ .NET, and Visual C# .NET
all use the
same integrated development environment (IDE), which
allows them to share

tools and facilitates in the creation of mixed-language
solutions.
Visual Basic
Visual Basic has been updated to include many new and
improved
language features that make it a powerful object-
oriented programming
language. These features include inheritance,
interfaces, and overloading,
among others. Visual Basic also now supports
structured exception handling,
and custom attributes. In addition, Visual Basic
supports multithreading.
Multithreading is the ability to assign individual tasks
to separate processing
threads.
C#
Visual C#, pronounced C sharp, is a new object-
orientedprogramming
language that is an evolution of C and C++, providing a
simple and type-safe
language for developing applications.
C++
Managed Extensions for C++ and attributed
programming are just some

of the enhancements made to the C++ language.
Managed Extensions simplify
the task of migrating existing C++ applications to the
new .NET Framework.
Attributes, like C++ keywords, are used in your source
files and interpreted by
the compiler. Attributes are designed to provide a
quick and efficient method to
simplify COM programming with Visual C++.
JScript
JScript has been updated to be a class-based, object-
oriented scripting
language that maintains full backwards compatibility
with previous versions of
JScript. JScript now provides class-based objects,
typed variables, true compiled
code, and cross-language support through Common
Language Specification
(CLS) compliance. The primary role of JScript is
development of Web sites
with ASP.NET and customization of applications with
Script for the .NET
Framework.
Types of forms used in .Net
Web Forms

Web Forms are an ASP.NET technology that you use to
create
programmable Web pages. Web Forms render
themselves as browsercompatible
HTML and script, which allows any browser on any
platform to
view the pages. Using Web Forms, you create Web
pages by dragging and
dropping controls onto the designer and then adding
code, similar to the way
that you create Visual Basic forms
Input design
Input design is a part of overall system design,
requires the very
careful analysis of the input data items. The goal of
the input design is to make
the data entry easier, logical and free from errors.
The user controls input data.
The commonly used input, output devices are mouse,
keyboard
and the visual display unit. The well designed, well
organized screen formats
are used to acquire the inputs. The data accepted is
stored on database file.
Our system is classified into subsystem such as

Admission
Staff Details
Billing
Consultation Details
Ward Details
Ambulance Service
Data Report
Output Design
Output is the most important and direct source of
information the user.
Efficient & intelligent output design improves the
system relationships
with the users and helps in decision-making. The output
is collected in order to
help the user to make a wise decision.
Our project is yet to be implemented.
SAMPLE CODINGS
SAMPLE CODINGS :
Login form:
Public Class Login
Dim form1 As New mainmenu
Private Sub OK_Click(ByVal sender As System.Object,
ByVal
e As System.EventArgs) Handles OK.Click
If PasswordTextBox.Text = "hospital" Then

MsgBox("Login Success", MsgBoxStyle.Information,
"Hospital Management")
PasswordTextBox.Text = ""
Me.Hide()
mainmenu.Show()
Else
MsgBox("Login Failed", MsgBoxStyle.Critical,
PasswordTextBox.Text = ""
Me.Show()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class
Main Menu:
Public Class mainmenu

Private Sub ExitToolStripMenuItem_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub InpatientToolStripMenuItem_Click(ByVal
sender
As System.Object, ByVal e As System.EventArgs)
Handles
InpatientToolStripMenuItem.Click
Me.Hide()
inpatient.Show()
End Sub
Private Sub OutpatientToolStripMenuItem_Click(ByVal
sender
Handles
OutpatientToolStripMenuItem.Click
Me.Hide()
outpatient.Show()
End Sub
Private Sub DoctorToolStripMenuItem_Click(ByVal
sender As
Me.Hide()

doctper.Show()
End Sub
Private Sub DoctorToolStripMenuItem1_Click(ByVal
sender As
Me.Hide()
docpay.Show()
End Sub
sender As
Me.Hide()
doctsal.Show()
End Sub
Private Sub
PersonalDetailsToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
PersonalDetailsToolStripMenuItem.Click
Me.Hide()
doctper.Show()
End Sub
Private Sub mainmenu_Load(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
sender As
Me.Hide()
doctate.Show()
End Sub
sender As
doctsif.Show()
End Sub
Private Sub ODFormToolStripMenuItem_Click(ByVal
sender As
System.Object, ByVal e As System.EventArgs) Handles
ODFormToolStripMenuItem.Click
Me.Hide()
doctsal.Show()
End Sub
Private Sub
PayrollDetailsToolStripMenuItem_Click(ByVal
PayrollDetailsToolStripMenuItem.Click
Me.Hide()

docpay.Show()
End Sub
Private Sub
AttendanceDetailsToolStripMenuItem_Click(ByVal
AttendanceDetailsToolStripMenuItem.Click
Me.Hide()
doctate.Show()
End Sub
Private Sub
ShiftDetailsToolStripMenuItem_Click(ByVal
ShiftDetailsToolStripMenuItem.Click
Me.Hide()
doctsif.Show()
End Sub
Private Sub InpatientToolStripMenuItem1_Click(ByVal
sender
Handles
InpatientToolStripMenuItem1.Click
Me.Hide()
inpatbill.Show()

End Sub
Private Sub
OutpatientToolStripMenuItem1_Click(ByVal
OutpatientToolStripMenuItem1.Click
Me.Hide()
outpatbill.Show()
End Sub
Private Sub
ConsultationToolStripMenuItem_Click(ByVal
ConsultationToolStripMenuItem.Click
Me.Hide()
consul.Show()
End Sub
Private Sub
WardDetailsToolStripMenuItem_Click(ByVal
WardDetailsToolStripMenuItem.Click
Me.Hide()
ward.Show()
End Sub

Private Sub
BillingAndPharmacyToolStripMenuItem_Click(ByVal
sender As
BillingAndPharmacyToolStripMenuItem.Click
End Sub
Private Sub
AmbulanceServiceToolStripMenuItem_Click(ByVal
AmbulanceServiceToolStripMenuItem.Click
Me.Hide()
ambul.Show()
End Sub
Private Sub ExitToolStripMenuItem1_Click(ByVal
sender As
Me.Hide()
Login.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click_1(ByVal
sender As
ExitToolStripMenuItem.Click
Me.Hide()

Login.Show()
End Sub
Private Sub InpatientsToolStripMenuItem_Click(ByVal
sender
Handles
InpatientsToolStripMenuItem.Click
iptreport.Show()
End Sub
Private Sub PharmacyToolStripMenuItem_Click(ByVal
sender
Handles
PharmacyToolStripMenuItem.Click
iptbillview.Show()
End Sub
Private Sub
FeesCollectionsToolStripMenuItem_Click(ByVal
FeesCollectionsToolStripMenuItem.Click
outbillview.Show()
End Sub
End Class
Inpatient Admission :

Imports System.Data.OleDb
Public Class inpatient
System.Object,
Dim cmd As New OleDbCommand
conn.open()
Dim sql As String = "insert into ipt values('" &
TextBox6.Text & "','" & TextBox5.Text & "','" &
TextBox4.Text
& "','" & RichTextBox4.Text & "','" &
DateTimePicker1.Text &
"','" & ComboBox1.Text & "','" & TextBox2.Text & "','"
&
TextBox8.Text
& "','" & DateTimePicker2.Text & "')"
cmd = New OleDbCommand(sql, conn)
cmd.ExecuteReader()
MsgBox("Record Inserted", MsgBoxStyleInformation,
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
RichTextBox4.Text = ""

TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
ComboBox1.Text = ""
conn.close()
End Sub
Private Sub inpatient_Load(ByVal sender As
System.Object,
Me.ComboBox1.Items.Add("Male")
Me.ComboBox1.Items.Add("Female")
End Sub
System.Object,
Me.Hide()
mainmenu.Show()
End Sub
System.Object,
iptrecord.Show()
End Sub
End Class

Outpatient Admission :
Public Class outpatient
System.Object,
Me.Hide()
mainmenu.Show()
End Sub
System.Object,
conn.open()
Dim sql As String = "insert into opt values('" &
TextBox4.Text
& "','" & RichTextBox4.Text & "','" &
"','" & ComboBox1.Text & "','" & TextBox2.Text & "','"
&
TextBox8.Text
& "')"
cmd = New OleDbCommand(sql, conn)

cmd.ExecuteReader()
MsgBox("Record Inserted", MsgBoxStyle.Information,
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
RichTextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
ComboBox1.Text = ""
conn.close()
End Sub
Private Sub outpatient_Load(ByVal sender As
System.Object,
Me.ComboBox1.Items.Add("Male")
Me.ComboBox1.Items.Add("Female")
End Sub
End Class
Inpatient Bill :
Imports System.Data
Public Class inpatbill

Dim adp As New OleDbDataAdapter
Dim ds As New DataSet
Dim x As New Integer
Dim dr As OleDbDataReader
System.Object,
Me.Hide()
mainmenu.Show()
End Sub
System.Object,
conn.open()
cmd = New OleDbCommand("insert into inbill values('"
&
TextBox1.Text & "','" & ComboBox1.Text & "','" &
TextBox3.Text
& "','" & DateTimePicker2.Text & "','" &
TextBox8.Text & "','"
& TextBox9.Text & "','" & DateTimePicker1.Text &
"','" &
DateTimePicker2.Text & "','" & TextBox11.Text & "')",
conn)

cmd.ExecuteNonQuery()
MsgBox("Bill Saved to Database",
MsgBoxStyle.OkOnly,
cmd.Dispose()
TextBox1.Text = " "
TextBox3.Text = " "
TextBox8.Text = " "
TextBox9.Text = " "
TextBox10.Text = " "
ComboBox1.Text = " "
DateTimePicker1.Value = Now.Date
conn.close()
End Sub
Private Sub inpatbill_Load(ByVal sender As
System.Object,
ComboBox1.TabIndex = 0
TextBox9.TabIndex = 1
conn.open()
cmd = New OleDbCommand("select * from ipt", conn)

dr = cmd.ExecuteReader
While (dr.Read)
ComboBox1.Items.Add(dr(0).ToString)
End While
cmd.Dispose()
cmd = New OleDbCommand("select max(bno) from
inbill",
conn)
If dr.Read = True Then
TextBox1.Text = dr(0) + 1.ToString
Else
TextBox1.Text = 1
End If
cmd.Dispose()
conn.close()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal
sender As
ComboBox1.SelectedIndexChanged
conn.open()
adp = New OleDbDataAdapter("select * from ipt where
mrdno=' " & ComboBox1.Text & "'", adpx)
adp.Fill(ds, "ipt")

TextBox3.Text = ds.Tables(0).Rows(0)(1).ToString
DateTimePicker1.Value =
ds.Tables(0).Rows(0)(10).ToString()
x = DateTimePicker2.Value.Day -
DateTimePicker1.Value.Day
TextBox8.Text = x * 300
conn.close()
End Sub
Private Sub TextBox11_Enter(ByVal sender As Object,
ByVal
e As System.EventArgs) Handles TextBox11.Enter
Dim x, y, z As New Integer
x = TextBox8.Text
y = TextBox9.Text
z = TextBox10.Text
TextBox11.Text = x + y + z
End Sub
System.Object,
iptbillview.Show()
End Sub
End Class

Outpatient Bill :
Imports System.Data
Public Class outpatbill
Dim x As New Integer
System.Object,
Me.Hide()
mainmenu.Show()
End Sub
System.Object,
conn.open()
cmd = New OleDbCommand("insert into bill values('" &
TextBox1.Text & "','" & ComboBox1.Text & "','" &
TextBox2.Text
& "','" & TextBox3.Text & "','" &
DateTimePicker1.Text & "','"
& TextBox7.Text & "')", conn)

MsgBox("Record inserted to Database",
MsgBoxStyle.OkOnly, "Hospital Management")
cleardata()
conn.close()
End Sub
Sub cleardata()
TextBox1.Text = Nothing
ComboBox1.Text = Nothing
End Sub
sender As
conn.open()
adp = New OleDbDataAdapter("select * from opt
where
hno=' " & ComboBox1.Text & "'", adpx)
adp.Fill(ds, "opt")
conn.close()

End Sub
Private Sub outpatbill_Load(ByVal sender As
System.Object,
conn.open()
cmd = New OleDbCommand("select * from opt", conn)
While (dr.Read)
End While
cmd.Dispose()
cmd = New OleDbCommand("select max(bno) from bill",
conn)
If dr.Read = True Then
TextBox1.Text = dr(0) + 1.ToString
Else
TextBox1.Text = 1
End If
conn.close()
cmd.Dispose()
End Sub
System.Object,

cleardata()
End Sub
System.Object,
outbillview.Show()
End Sub
End Class
Inpatient Record Search:
Imports System.Data
Public Class iptrecord
System.Object,
conn.open()
Try
Dim sql As String = "select * from ipt where name
= '" & TextBox1.Text & "'"
Dim adp As OleDbDataAdapter
adp = New OleDbDataAdapter(sql, adpx)
Dim ds As DataSet = New DataSet
adp.Fill(ds, "ipt")
DataGridView1.DataSource = ds.Tables("ipt")
Catch

MsgBox("Record not Found", , "Hospital
Management")
End Try
conn.close()
End Sub
Private Sub iptrecord_Load(ByVal sender As
System.Object,
TextBox1.Focus()
End Sub
End Class
Consultation:
Imports System.Data
Public Class consul
System.Object,
Me.Hide()
mainmenu.Show()
End Sub

Private Sub consul_Load(ByVal sender As
System.Object,
DataGridView1.Hide()
conn.open()
cmd = New OleDbCommand("select * from ipt", conn)
While (dr.Read)
End While
cmd.Dispose()
End Sub
sender As
adp = New OleDbDataAdapter("select * from ipt where
mrdno=' " & ComboBox1.Text & "'", adpx)
adp.Fill(ds, "ipt")
ComboBox2.Text = ds.Tables(0).Rows(0)(5).ToString
End Sub

System.Object,
cmd = New OleDbCommand("insert into cons values('" &
ComboBox1.Text & "','" & TextBox2.Text & "','" &
TextBox3.Text
& "','" & ComboBox2.Text & "','" &
"','" & TextBox5.Text & "','" & TextBox6.Text & "')",
conn)
MsgBox("Record inserted to Database",
MsgBoxStyle.OkOnly, "Hospital Management")
cleardata()
cmd.Dispose()
End Sub
Sub cleardata()
TextBox2.Text = " "
TextBox3.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
End Sub

System.Object,
cleardata()
End Sub
System.Object,
DataGridView1.Show()
Try
Dim sql As String = "select * from cons where
mrdno = '" & ComboBox1.Text & "'"
Dim adp As OleDbDataAdapter
adp = New OleDbDataAdapter(sql, adpx)
Dim ds As DataSet = New DataSet
adp.Fill(ds, "cons")
DataGridView1.DataSource = ds.Tables("cons")
Catch
MsgBox("Record not Found", , "Hospital
Management")
End Try
conn.close()
End Sub
End Class
Module :

Module Module1
Public v As New OleDbConnection
Public adpx As String = "Provider=SQLOLEDB;Data
Source=ARULSOFT;Integrated Security=SSPI;Initial
Catalog=hospital1"
Public conn = New
OleDbConnection("Provider=SQLOLEDB;Data
Catalog=hospital1")
Public x As Integer = New Integer + 1
Public Sub opendata()
v.ConnectionString = "Provider=SQLOLEDB;Data
Catalog=hospital1"
v.Open()
End Sub
Public Sub closedata()
v.Close()
v = Nothing
End Sub
End Module
BIBILIOGRAPHY
BIBILIOGRAPHY

1. OOP WITH MICROSOFT VISUAL BASIC.NET
AND
MICROSOFT VISUAL C#.NET STEP BY STEP BY
ROBIN.A.REYNOLDS – HAERTLE – Microsoft Press
2002
2. THE BOOK OF VISUAL BASIC 2005. byMatthew
MacDonald –
NO STARCH PRESS
3. VB.NET Developer’s Guide by Syngress Publishing,
Inc.
4. Visual Basic .NET How to Program Second Edition
by Deitel &
Associates, Inc.,
5. VB.Net Language in a Nutshell by Steven Roman,
Ron Petrusha –
O’Reilly 2001
6. Microsoft ADO.NET Step By Step – Microsoft
Press 2005
7. Programming Microsoft Windows with Microsoft
Visual Basic .NET
by Charles Petsold 2002
8. PROGRAMMING MICROSOFT VISUAL
BASIC.NET By
Francesco Baleno – Microsoft Press 2004

9. Microsoft Visual Basic .NET Projects for the
Classroom By Alfred C
Thompson Distributed byMainfunction.com
10.Software Engineering , A PRACTITIONER’S
APPROACH by
Roger.S.Pressman,Ph.D. Fifth Edition
11. Software Engineering Concepts, By Richard
E.Fairley – Tata
McGraw – Hill Publishing Company
LimitedWEBILIOGRAPHY
WEBILIOGRAPHY
1. http://www.vbdotnetheaven.com/
2. http://www.connectionstrings.com/

Hospital management system in java

More Related Content

What's hot (20)

Viewers also liked (13)

Similar to Hospital management system in java (20)

Hospital management system in java