PROJECT REPORT

ON
HOSPITAL MANAGEMENT SYSTEM
IN PARTIAL FULFILLMENT OF REQUIREMENT OF
DEGREE OF BACHELOR OF TECHNOLOGY IN
COMPUTER SCIENCE
(CSE)

GUIDED BY: PREPARED BY:

SATBIR SINGH

ROLL NO. -1239424

YEAR-2014

CHANDIGARH ENGINEERING COLLEGE

LANDRAN
 HOSPITAL MANAGEMENT SYSTEM

CERTIFICATE

TO WHOM SO EVER IT MAY CONCERN

This is to certify that Mr Satbir Singh Roll.no…1239424) has completed

his one full semester on project work titled “HOSPITAL MANAGEMENT
SYSTEM” satisfactorily in partial fulfillment of requirement Of Degree of
Bachelor of Technology in Computer Science (CSE),Chandigah
Engineering College LANDRAN , in the year 2014.

Guide HOD

Neeraj sharma

Date: / /2014

Place: Gurdaspur

BTech.(CSE) Roll no. - 1239424 2

 HOSPITAL MANAGEMENT SYSTEM

ACKNOWLEDGEMENT

 With a deep sense of great respect we would like to extend my

heartiest thanks to all those who provided me immense help and
guidance during in my 4th semester.

 I would like thanks Mr. NEERAJ SHARMA (H.O.D of Computer

Dept.) for providing a Opportunity for A creating a “Hospital
Management system”.

 All the teachers for providing a vision about the system, their
patience and suggestions on improving.

 My skill set through their constant guidance during this system. I

have greatly benefited from their Regular review and inspiration
throughout the work.

 I express my gratitude to guide Mr. Raman Jyoti for his timely help
and for showing keen interest in my work, which enabled me to complete
it in assigned span of time?

 Last but not the least i would like to mention here that i am greatly
indebted to each and Everybody Who has been associated with my
system at any stage but whose name does not find in this?

SATBIR SINGH

BTech.(CSE) Roll no. - 1239424 3

 HOSPITAL MANAGEMENT SYSTEM

ABSTRACT

 My project Hospital Management System mainly focuses on the different

Hospital related tasks, Room Booking system, which is highly user
friendly easy to use, where in user can easy sales/return of item.

 I have developed this Medical Inventory System as my semester

project with a view to get familiar with the technology as well as with
windows utility.

 My system mainly deals with different type of Medical Test , Doctors,

Patients Information very easily.

 Since I had time constraints I was not able to make out module into
live and living portal but would try for the same together with the
interference.

BTech.(CSE) Roll no. - 1239424 4

 HOSPITAL MANAGEMENT SYSTEM

NEED FOR COMPUTERIZATION

Before studying the need for the computerization in the factory we

should have a look at the various departments and the organizations
layout of the factory. We have to deal with Agents details, party details,
item details, indents, and accounts also. In manual system at the time of
enquiries one has to check all the records for the availability of items as
per the requirement of the user, which is very time consuming, and
tedious one. This can lead to errors. There is no doubt that the existing
manual system can be improved by changing certain procedures and by
employing more man power but at same time employment of more and
more personal means more expensive which can be brought down by
computerization and the same time efficiency if not improved can at
least be the same. Another major drawback of the manual system that is
found from the study is that there is large amount of data redundancy
due to manual system .It is because a piece of information has to be
checked rapidly, which leads to the enormous wastage of time and
increase the possibility of committing the errors.

In brief it has been said that computerization not

only helps in improving the operational efficiency and in cutting down the
expenses on man power but it also helps to maintain a database with
less errors that can be utilized for references. It also helps in reducing
the wastage of human efforts that can be utilized for other productive
purpose leading.

BTech.(CSE) Roll no. - 1239424 5

 HOSPITAL MANAGEMENT SYSTEM

Table of Contents

SR.NO Topic

1 Introduction

2 System Requirement Specification

3 Problem Identification

4 System Analysis

5 Preliminary Investigation

6 Feasibility Study

7 Problem Analysis

8 System Development Strategies

9 Software Engg, Paradigm Applied

10 Information gathering

11 System Flow Diagram

12 Data Dictionary

13 Screen -Layouts

14 Coding

15 Testing And Implementation plan

Conclusion & Further Enhancement Of The

16
System

17 Bibliography

BTech.(CSE) Roll no. - 1239424 6

 HOSPITAL MANAGEMENT SYSTEM

INTRODUCTION

BTech.(CSE) Roll no. - 1239424 7

 HOSPITAL MANAGEMENT SYSTEM

Project Profile

Project Title Hospital Management System

Developed For Chauhan Medicity

Developed At Asian Computer Tech. , Gurdaspur.

Objectives The main aim of the system is provide computerized

maintaining stock

Front End VB.Net 2008

Back End MS Access

Tools Microsoft Office 2007

Project Guide Mr. Raman Jyoti

Developed By Mr. Satbir Singh (Roll no. 1239424)

BTech.(CSE) Roll no. - 1239424 8

 HOSPITAL MANAGEMENT SYSTEM

About The Organization

The organization of CHAUHAN MEDICITY is establish in year 2008

which are grown in full organization within.

 It is situated at Ptk-Asr Highway,Kotli (Gurdaspur).

 The owner of this Hospital is Dr. Daljit Singh Chauhan

 The organization is concerned with the different Medical treatments.

 It is one of the popular Hospital Store In Gurdaspur & Pathankot.

 In this Hospital many type of treatments of patients are maintain and

sale.

BTech.(CSE) Roll no. - 1239424 9

 HOSPITAL MANAGEMENT SYSTEM

INTRODUCTION TO SOFTWARE

Purpose

 The Software is for the automation of Hospital Management.

It maintains two levels of users:-

Administrator Level
User Level

 The Software includes:-

Maintaining Patient details. Providing Prescription, Precautions and Diet

advice. Providing and maintaining all kinds of tests for a patient. Billing and
Report generation.

Scope

It can be used in any Hospital, Clinic, Dispensary or Pathology labs for

maintaining patient details and their test results.

BTech.(CSE) Roll no. - 1239424 10

 HOSPITAL MANAGEMENT SYSTEM

Overview

Project is related to Hospital Management System. The project maintains

two levels of users:-
 Administrator Level-Doctor

 User Level-Data Entry Operator

Main facilities available in this project are:-

 Maintaining records of indoor/outdoor patients.

 Maintaining patients diagnosis details, advised tests to be done.

 Providing different test facilities to a doctor for diagnosis of patients.

 X-Ray

 Urine Test

 Stool Test

 Sonography Test

 Gastroscopy Test

 Colonoscopy Test

 Blood Test

 Biochemistry Test

 Maintaining patient’s injection entry records.

 Maintaining patient’s prescription, medicine and diet advice details.

 Providing billing details for indoor/outdoor patients.

 Maintaining backup of data as per user requirements (between

mentioned dates).

 If user forgets his/her password then it can be retrieved by hint

question.

BTech.(CSE) Roll no. - 1239424 11

 HOSPITAL MANAGEMENT SYSTEM

In this project collection of data is from different pathology labs.

Results of tests, prescription, precautions and diet advice will be

automatically updated in the database. Related test reports, patient details
report, prescription and billing reports can be generated as per user
requirements.

User or Administrator can search a patient’s record by his/her name or

their registration date.

Patient’s diet advice can be provided in Hindi.

BTech.(CSE) Roll no. - 1239424 12

 HOSPITAL MANAGEMENT SYSTEM

Overall Description

Goals of proposed system

1. Planned approach towards working: - The working in the organization

will be well planned and organized. The data will be stored properly in
data stores, which will help in retrieval of information as well as its
storage.

2. Accuracy: - The level of accuracy in the proposed system will be

higher. All operation would be done correctly and it ensures that
whatever information is coming from the center is accurate.

3. Reliability: - The reliability of the proposed system will be high

due to the above stated reasons. The reason for the increased reliability
of the system is that now there would be proper storage of information.

4. No Redundancy: - In the proposed system utmost care would be

that no information is repeated anywhere, in storage or otherwise.
This would assure economic use of storage space and consistency in the
data stored.

5. Immediate retrieval of information: - The main objective of

proposed system is to provide for a quick and efficient retrieval of
information. Any type of information would be available whenever the
user requires.

6. Immediate storage of information: - In manual system there

are many problems to store the largest amount of information.

7. Easy to Operate: - The system should be easy to operate and should

be such that it can be developed within a short period of time and fit in
the limited budget of the user.

BTech.(CSE) Roll no. - 1239424 13

 HOSPITAL MANAGEMENT SYSTEM

Backgro1und

A Hospital is a place where Patients come up for general diseases.

Hospitals provide facilities like:-

 Consultation by Doctors on Diseases. Diagnosis for diseases.

 Providing treatment facility.

 Facility for admitting Patients (providing beds, nursing, medicines

etc.) Immunization for Patients/Children.

Various operational works that are done in a Hospital are:-

Recording information about the Patients that come.
Generating bills.

 Recording information related to diagnosis given to Patients.

 Keeping record of the Immunization provided to children/patients.

 Keeping information about various diseases and medicines available

to cure them.

 These are the various jobs that need to be done in a Hospital by the
operational staff and Doctors. All these works are done on papers.

The work is done as follows:-

 Information about Patients is done by just writing the Patients name,

age and gender. Whenever the Patient comes up his information is
stored freshly. Bills are generated by recording price for each facility
provided to Patient on a separate sheet and at last they all are
summed up.

 Diagnosis information to patients is generally recorded on the

document, which contains Patient information. It is destroyed after
some time period to decrease the paper load in the office.

BTech.(CSE) Roll no. - 1239424 14

 HOSPITAL MANAGEMENT SYSTEM

 Immunization records of children are maintained in pre-formatted

sheets, which are kept in a file.

 Information about various diseases is not kept as any document.

Doctors themselves do this job by remembering various medicines.

All this work is done manually by the receptionist and other operational
staff and lot of papers are needed to be handled and taken care of.
Doctors have to remember various medicines available for diagnosis and
sometimes miss better alternatives as they can’t remember them at that
time.

BTech.(CSE) Roll no. - 1239424 15

 HOSPITAL MANAGEMENT SYSTEM

User Characteristics

Every user should be:

 Comfortable of working with computer.

 He must have knowledge in medical field.

 He must also have basic knowledge of English too.

Constraints

 GUI is only in English.

 Login and password is used for identification of user and there is no

facility for guest.

BTech.(CSE) Roll no. - 1239424 16

 HOSPITAL MANAGEMENT SYSTEM

SYSTEM REQUIREMENT
SPECIFICATION

BTech.(CSE) Roll no. - 1239424 17

 HOSPITAL MANAGEMENT SYSTEM

Software Requirement

Development Side

 Microsoft xp service pack 2 or upwards

 Sql Server 2008

 MS Office 2007

 MS Visual Studio 2008

 Crystal report 9.0 on later

Client Side

 Microsoft xp service pack 2 or upwards

 Sql Server 2008 Microsoft .Net Framework 3.5

Hardware Requirement

Development Side

 CPU : Pentium-IV processor or any processor.

 HARDDISK : 40 GB or above.

 RAM : 256 MB or above.

Client Side

 CPU : Pentium-IV processor or any processor.

 HARDDISK : 40 GB or above.

 RAM : 256 MB or above.

 DEVICE : printer

BTech.(CSE) Roll no. - 1239424 18

 HOSPITAL MANAGEMENT SYSTEM

PROBLEM
IDENTIFICATION

BTech.(CSE) Roll no. - 1239424 19

 HOSPITAL MANAGEMENT SYSTEM

Existing System

The existing Hospital System is manual system. The main drawback of

the existing system is time consumption. There are number of records
and hence a larger number of registers have to be kept to the store.

This document required more storing space, more manpower and job
become tedious.

In Existing system following points are observed:

 chances of errors and data processing time

 Timely Due to manual process, required more time to complete

user requirement

 It will increase updating is complicated.

 Security of data were not maintain

Definitions of problems

Problems with conventional system

1. Lack of immediate retrievals: -The information is very difficult to

retrieve and to find particular information like- E.g. - To find out
about the patient’s history, the user has to go through various registers.
This results in inconvenience and wastage of time.

2. Lack of immediate information storage: - The information

generated by various transactions takes time and efforts to be stored at
right place.

3. Lack of prompt updating: - Various changes to information like

patient details or immunization details of child are difficult to make as
paper work is involved.

BTech.(CSE) Roll no. - 1239424 20

 HOSPITAL MANAGEMENT SYSTEM

4. Error prone manual calculation: - Manual calculations are error prone

and take a lot of time this may result in incorrect information.
For example calculation of patient’s bill based on various treatments.

5. Preparation of accurate and prompt reports: - This becomes a

difficult task as information is difficult to collect from various registers.

BTech.(CSE) Roll no. - 1239424 21

 HOSPITAL MANAGEMENT SYSTEM

Need For The New System

Alternative Solutions

1. Improved Manual System:-

One of the alternative solutions is the improvement of the manual system.

Anything, which can be done by using automated methods, can be done
manually. But the question arises how to perform thing manually in a
sound manner. Following are some suggestions, which can be useful in the
manual system.

A more sophisticate register maintenance for various Patient Information,

Doctor diary, Immunization Details and a good system for writing bill
amount employees and stock availed for the customers can be maintained
at central place.

Adequate staff may be maintained so that updations are made at the very
moment at the same time. Proper person for proper work should be made
responsible so that a better efficiency could be achieved. This needs a lot
of work force.

2. Batch System:-

Another alternative solution can be used of computer based batch system

for maintaining the information regarding purchase details, customers and
employees. A batch system refers to a system in which data is processed
in a periodical basis.

The batch system is able to achieve most of the goals and sub goals. But a
batch system data is processed in sequential basis. Therefore batch
system is not suggested.

BTech.(CSE) Roll no. - 1239424 22

 HOSPITAL MANAGEMENT SYSTEM

3. Online System:-

This system (HMS) provides online storage/ updations and retrieval

facility. This system promises very less or no paper work and also provides
help to Doctor and operational staff.

In this system everything is stored electronically so very less amount of

paper work is required and information can be retrieved very easily
without searching here and there into registers. This system is been
discussed here.

 The existing of Hospital is manually which require more paper work

so it needs to computerized the system to get following benefits.

 Computer enhances easy and simple means of Storing information.

The space occupied for storing of information is reduced.

 Computers helps in fast retrieval of information .we can search

information in a short of time.

 Maintenance of data is very easy and workload is reduced.

 It’s a paperless system.

 We can generate report on demand.

 It will give faster modification.

BTech.(CSE) Roll no. - 1239424 23

 HOSPITAL MANAGEMENT SYSTEM

SYSTEM ANALYSIS

BTech.(CSE) Roll no. - 1239424 24

 HOSPITAL MANAGEMENT SYSTEM

SYSTEM ANALYSIS

 Requirement analysis is a software engineering task that bridges the gap

between system engineering and software design. It provides the
software designer with a representation of information and function that
can be translated to data.

 Before developing any computerized system, it is imperative to examine

initially. The problem in the exiting system and also ascertain the basic
needs that should be fulfilled by the proposed system the primary aspect
of developing a full 1 fledged automated system would be to learn the
current procedure and the information flow to locate the problem in the
exiting system to identify what recourses are used to discuss with user
and their authority as to what improvement must in the exiting system.

Definition : -

 “Analysis of system is process of gathering fact, solution of problem

and to decide overall constitution of the desired system. In system
analysis we have to analyze all the processes, related features, required
function, available sources and the time which should be specified for the
analysis stage

 The most important phase of developing any system is system

analysis. Because of the analysis phase decides that type of
requirements, materials, strangles and techniques, models are required.

 All these things are depend upon our system that what type of our
output of our system to function. We desire from the system is
responsible for defining the above factors. So the overall structure of
system that we want to implement will be decided in analysis part of a
system development by analyst.

BTech.(CSE) Roll no. - 1239424 25

 HOSPITAL MANAGEMENT SYSTEM

Preliminary

Investigation

BTech.(CSE) Roll no. - 1239424 26

 HOSPITAL MANAGEMENT SYSTEM

Preliminary Investigation

 Interviewing

The information is collected from system leader by interviewing to

them a took suggesting from end user as per their requirement.

 Visiting For Clarification, Visited To Chahuan Hospital,Kotli.

 Questionnaires

By asking possible question to the system leader at the time of interview

some questionnaires to collect the required information.

BTech.(CSE) Roll no. - 1239424 27

 HOSPITAL MANAGEMENT SYSTEM

Feasibility Study

BTech.(CSE) Roll no. - 1239424 28

 HOSPITAL MANAGEMENT SYSTEM

Feasibility Study

Technical feasibility

 Customer the work for the system can be done with the present
equipment and three is no need of other technologies so this application
is technically feasible.

Economic feasibility

 All software packages are available or already exist in the company

and institute so this system is economically feasible.

Operation feasibility

 System will be use immediate because all staff is aware of how to

operate so there is no need to train them, so it is operationally feasible
for the company and institute.

 At the end of investigation it is found that this system is feasibly in

all points of view.

Schedual feasibility

 It is a measure of how reasonable the project timetable is

Implementation feasibility

 As far the Implementation is concerned, there would not be any

problem. All the user of it gets its service by only operate this system.

BTech.(CSE) Roll no. - 1239424 29

 HOSPITAL MANAGEMENT SYSTEM

Depending on the results of the initial investigation the survey is now

expanded to a more detailed feasibility study. “FEASIBILITY STUDY” is a
test of system proposal according to its workability, impact of the
organization, ability to meet needs and effective use of the resources. It
focuses on these major questions:

1. What are the user’s demonstrable needs and how does a candidate
system meet them?

2. What resources are available for given candidate system?

3. What are the likely impacts of the candidate system on the

organization?

4. Whether it is worth to solve the problem?

During feasibility analysis for this project, following primary areas of

interest are to be considered. Investigation and generating ideas about a
new system does this.

BTech.(CSE) Roll no. - 1239424 30

 HOSPITAL MANAGEMENT SYSTEM

Front-end and back-end selection

An important issue for the development of a project is the selection of

suitable front-end and back-end. When we decided to develop the project
we went through an extensive study to determine the most suitable
platform that suits the needs of the organization as well as helps in
development of the project.

The aspects of our study included the following factors.

Front-end selection:

1. It must have a graphical user interface that assists employees that are
not from IT background.

2. Scalability and extensibility.

3. Flexibility.

4. Robustness.

5. According to the organization requirement and the culture.

6. Must provide excellent reporting features with good printing support.

7. Platform independent.

8. Easy to debug and maintain.

9. Event driven programming facility.

10. Front end must support some popular back end like Ms Access.

According to the above stated features we selected VB .Net as the front-

end for developing our project.

BTech.(CSE) Roll no. - 1239424 31

 HOSPITAL MANAGEMENT SYSTEM

Back-end Selection:

1. Multiple user support.

2. Efficient data handling.

3. Provide inherent features for security.

4. Efficient data retrieval and maintenance.

5. Stored procedures.

6. Popularity.

7. Operating System compatible.

8. Easy to install.

9. Various drivers must be available.

10. Easy to implant with the Front-end.

According to above stated features we selected Ms-Access as the backend.

The technical feasibility is frequently the most difficult area encountered at

this stage. It is essential that the process of analysis and definition be
conducted in parallel with an
assessment to technical feasibility. It centers on the existing computer
system (hardware, software etc.) and to what extent it can support the
proposed system.

BTech.(CSE) Roll no. - 1239424 32

 HOSPITAL MANAGEMENT SYSTEM

Problem
Analysis

BTech.(CSE) Roll no. - 1239424 33

 HOSPITAL MANAGEMENT SYSTEM

Problem Analysis

 We are asked some question for good requirement those are as

follow :

 What is the addition functionality you want in the system?

 What are the problems you face in the existing system?

 What are you expectation with the system?

 How do you manage to do this work manually?

 Is there anything else that wants to specify?

 What the help of analysis we tried out to reduce the communication gap
between the user and us.

BTech.(CSE) Roll no. - 1239424 34

 HOSPITAL MANAGEMENT SYSTEM

System Development

Strategies

System Development Strategies

BTech.(CSE) Roll no. - 1239424 35

 HOSPITAL MANAGEMENT SYSTEM

 There are three distinct approaches to the development of any good

system as the point of view system analysis and design.

 System development life cycle method.

 Structure analysis development method.

 System prototype method.

 Here, starting with 1st system development life cycle method. Which
has the following activities of any system?

 Preliminary investigation.

 Determination of system requirement.

 Design of system.

 Development of software.

 System testing.

 Implementation and evolution.

BTech.(CSE) Roll no. - 1239424 36

 HOSPITAL MANAGEMENT SYSTEM

Software Engneering

Paradigm Applied

BTech.(CSE) Roll no. - 1239424 37

 HOSPITAL MANAGEMENT SYSTEM

 Software Engineering paradigm Applied

Requirements

Design

Implement

Test

Deliver

 The waterfall model derivers its name due to the cascading effect
from one phase to the other as is illustrated in above fig.

 In this model each phase where define starting and ending point with
identifiable deliveries to the next phase.

 Note that this model is some time referred to as the linear sequential
model or the software life cycle model.

BTech.(CSE) Roll no. - 1239424 38

 HOSPITAL MANAGEMENT SYSTEM

 The waterfall diagram is basically divided into following 5 models.

 Requirement

 Design

 Implementation

 Verification

 Maintenance

 Requirement

 In the requirement phase the need to create the application is

specified what is the need of the system is defined.

 What information to be feeder to create the application will come

under the requirement phase?

 Design

 After the requirement phase the next phase is the design phase where
the application is designed according the forms and other modules
created.

 Implementation

 Implementation is the process of having a system personnel phase check

out and put new equipment into use, train user, install new application
and construct any file of data need to use it.

 Verification

 After the whole application is being developed the main phase is

verification phase where the whole application tested and verifies to
check the whole application

 Maintenance

 After the successful verification of the application the main phase is the
maintenance where the application needs to be maintained for its
successful operation in future.

BTech.(CSE) Roll no. - 1239424 39

 HOSPITAL MANAGEMENT SYSTEM

INFORMATION

GATHERING

BTech.(CSE) Roll no. - 1239424 40

 HOSPITAL MANAGEMENT SYSTEM

Information Gathering

 Information from field

 The main information of this system is gathering from the

Chuhan Medicity Hospital.Kotli

The error of this system are seen the studied. Because of this error we need
necessary to develop.

This type of system :

 The system mainly develop for organize for remove the paper work.

 Other detail are given to us from lecturer of our institute

 Information from books:

 The detail of designing of coding of this system are viewed from the “The
complete reference of net programming book “, Master in VB.Net.

BTech.(CSE) Roll no. - 1239424 41

 HOSPITAL MANAGEMENT SYSTEM

System Flow

Diagram

BTech.(CSE) Roll no. - 1239424 42

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 43

 HOSPITAL MANAGEMENT SYSTEM

Data Dictionary

BTech.(CSE) Roll no. - 1239424 44

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 45

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 46

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 47

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 48

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 49

 HOSPITAL MANAGEMENT SYSTEM

BTech.(CSE) Roll no. - 1239424 50

 HOSPITAL MANAGEMENT SYSTEM

SCREEN DESIGN

BTech.(CSE) Roll no. - 1239424 51

 HOSPITAL MANAGEMENT SYSTEM

LOGIN FORM

THIS IS LOGIN FORM. WHICH IS USED TO PROVIDE PERSON TO

INCLUDE HIS/HER SELF?

THIS IS FOR EXITING PERSON HOW WANTS TO USE PROVIDED

SERVICE. IN OUR LOGIN FORM ONE TYPES OF THE USER LIKE USER ARE
LOGIN.THIS FORM IS SELECT ADMINISTRATOR AND GIVES USER ARE
LOGIN.IF THE USER NAME AND PASSWORD ARE CORRECT THEN WILL
BE OPEN THE APPLICATION.

BTech.(CSE) Roll no. - 1239424 52

 HOSPITAL MANAGEMENT SYSTEM

HOSPITAL MASTER

IF USER LOGIN. THIS MAIN FORM WILL BE OPEN AND USER HAVE
FOLLOWING WRITES:

SAVE RECORD IN DATABASE

UPDATE RECORD

DELETE RECORD AND E.T.C.

BTech.(CSE) Roll no. - 1239424 53

 HOSPITAL MANAGEMENT SYSTEM

ROUTINE CHEKUP

BTech.(CSE) Roll no. - 1239424 54

 HOSPITAL MANAGEMENT SYSTEM

PATIENT INFORMATION

THIS FORM IS DISPLAING THE INFORMATION ABOUT DIFFERENT TYPES

OF PATIENTS.

BTech.(CSE) Roll no. - 1239424 55

 HOSPITAL MANAGEMENT SYSTEM

DOCTOR INFORMATION

THIS FORM IS DISPLAYING THE INFORMATION ABOUT DOCTORS

BTech.(CSE) Roll no. - 1239424 56

 HOSPITAL MANAGEMENT SYSTEM

SISTER/WARDBOY INFORMATION

THIS FORM IS DISPLAYING THE INFORMATION ABOUT DIFFERENT

SISTERS/WARDBOY

BTech.(CSE) Roll no. - 1239424 57

 HOSPITAL MANAGEMENT SYSTEM

DISCHARGE INFORMATION

THIS FORM IS DISPLAYING THE INFORMATION ABOUT DISCHARGE

PATIENT.

BTech.(CSE) Roll no. - 1239424 58

 HOSPITAL MANAGEMENT SYSTEM

BILL INFORMATION

THIS FORM IS DISPLAYING THE INFORMATION ABOUT BILL OF

PATIENT.

BTech.(CSE) Roll no. - 1239424 59

 HOSPITAL MANAGEMENT SYSTEM

CODING

BTech.(CSE) Roll no. - 1239424 60

 HOSPITAL MANAGEMENT SYSTEM

FORM LOGIN

Imports System.Data.OleDb

Public Class frmLogin

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txt_Username As System.Windows.Forms.TextBox
Friend WithEvents txt_Password As System.Windows.Forms.TextBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents SB_Login As System.Windows.Forms.StatusBar
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(frmLogin))
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txt_Username = New System.Windows.Forms.TextBox()
Me.txt_Password = New System.Windows.Forms.TextBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.SB_Login = New System.Windows.Forms.StatusBar()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 14.25!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))

BTech.(CSE) Roll no. - 1239424 61

 HOSPITAL MANAGEMENT SYSTEM

Me.Label1.ForeColor = System.Drawing.Color.Teal
Me.Label1.Location = New System.Drawing.Point(184, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(120, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "User Name"
'
'PictureBox1
'
Me.PictureBox1.BorderStyle =
System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Image =
CType(resources.GetObject("PictureBox1.Image"),
System.Drawing.Bitmap)
Me.PictureBox1.Location = New System.Drawing.Point(16, 48)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(144, 144)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 14.25!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Teal
Me.Label2.Location = New System.Drawing.Point(184, 120)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(112, 24)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Password"
'
'txt_Username
'
Me.txt_Username.Location = New System.Drawing.Point(320, 64)
Me.txt_Username.Name = "txt_Username"
Me.txt_Username.Size = New System.Drawing.Size(128, 20)
Me.txt_Username.TabIndex = 1
Me.txt_Username.Text = ""
'
'txt_Password
'
Me.txt_Password.Font = New System.Drawing.Font("Microsoft
Sans Serif", 9.75!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_Password.Location = New System.Drawing.Point(320, 120)
Me.txt_Password.Name = "txt_Password"
Me.txt_Password.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.txt_Password.Size = New System.Drawing.Size(128, 22)
Me.txt_Password.TabIndex = 2
Me.txt_Password.Text = ""
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.btnOK.Location = New System.Drawing.Point(240, 192)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(72, 32)
Me.btnOK.TabIndex = 3
Me.btnOK.Text = "OK"
'

BTech.(CSE) Roll no. - 1239424 62

 HOSPITAL MANAGEMENT SYSTEM

'btnCancel
'
Me.btnCancel.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnCancel.Location = New System.Drawing.Point(360, 192)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(72, 32)
Me.btnCancel.TabIndex = 4
Me.btnCancel.Text = "Cancel"
'
'SB_Login
'
Me.SB_Login.Font = New System.Drawing.Font("Tahoma", 9.75!,
System.Drawing.FontStyle.Bold)
Me.SB_Login.Location = New System.Drawing.Point(0, 248)
Me.SB_Login.Name = "SB_Login"
Me.SB_Login.Size = New System.Drawing.Size(474, 32)
Me.SB_Login.TabIndex = 7
Me.SB_Login.Text = "Attempt : "
'
'frmLogin
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.LightGray
Me.ClientSize = New System.Drawing.Size(474, 280)
Me.Controls.AddRange(New System.Windows.Forms.Control()
{Me.SB_Login, Me.btnCancel, Me.btnOK, Me.txt_Password,
Me.txt_Username, Me.Label2, Me.PictureBox1, Me.Label1})
Me.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"),
System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmLogin"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Login"
Me.ResumeLayout(False)

End Sub

#End Region

#Region "Variable"
Public Shared counter As Integer = 3
Dim str As String = "Attempt : "
#End Region

#Region "All button event"

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnOK.Click
If txt_Username.Text = "hospital" And txt_Password.Text =
"user" Then
Me.Hide()

Dim r0 As String

Dim Flag_constr As String =

BTech.(CSE) Roll no. - 1239424 63

 HOSPITAL MANAGEMENT SYSTEM

FORM MAIN

'hospital
'696, 689
'form size=880, 780

Imports System.Data.OleDb

Public Class frmMain

Inherits System.Windows.Forms.Form

#Region "Public variable"

Public Shared flag As Integer
#End Region

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form

Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents pnlMain As System.Windows.Forms.Panel
Friend WithEvents pnlContent As System.Windows.Forms.Panel
Friend WithEvents btnRoutineCheckup As
System.Windows.Forms.Button
Friend WithEvents btnAdmitpatient As System.Windows.Forms.Button
Friend WithEvents btnAddDoctor As System.Windows.Forms.Button
Friend WithEvents btnAddsisboy As System.Windows.Forms.Button
Friend WithEvents btnDischargePatient As
System.Windows.Forms.Button
Friend WithEvents pnlShowlist As System.Windows.Forms.Panel
Friend WithEvents btnBill As System.Windows.Forms.Button
Friend WithEvents mnuF As System.Windows.Forms.MainMenu
Friend WithEvents mnuF_File As System.Windows.Forms.MenuItem
Friend WithEvents mnuH As System.Windows.Forms.MenuItem

BTech.(CSE) Roll no. - 1239424 64

 HOSPITAL MANAGEMENT SYSTEM

Friend WithEvents mnuH_Help As System.Windows.Forms.MenuItem

Friend WithEvents mnuH_About As System.Windows.Forms.MenuItem
Friend WithEvents tmr_SB As System.Windows.Forms.Timer
Friend WithEvents btnCalculator As System.Windows.Forms.Button
Friend WithEvents btnNotepad As System.Windows.Forms.Button
Friend WithEvents imgList_Icon As System.Windows.Forms.ImageList
Friend WithEvents btnEmail As System.Windows.Forms.Button
Friend WithEvents mnuT As System.Windows.Forms.MenuItem
Friend WithEvents mnuT_Calculator As
System.Windows.Forms.MenuItem
Friend WithEvents mnuT_Notepad As System.Windows.Forms.MenuItem
Friend WithEvents mnuT_Email As System.Windows.Forms.MenuItem
Friend WithEvents btnBed As System.Windows.Forms.Button
Friend WithEvents lblDetails As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents mnuF_Exit As System.Windows.Forms.MenuItem
Friend WithEvents SB_Main As System.Windows.Forms.StatusBar
Friend WithEvents SBP1_Status As
System.Windows.Forms.StatusBarPanel
Friend WithEvents SBP2_Today As
System.Windows.Forms.StatusBarPanel
Friend WithEvents SBP3_Date As
System.Windows.Forms.StatusBarPanel
Friend WithEvents SBP4_Time As
System.Windows.Forms.StatusBarPanel
Friend WithEvents SBP5_Showtime As
System.Windows.Forms.StatusBarPanel
<System.Diagnostics.DebuggerStepThrough()> Private Sub

END SUB

BTech.(CSE) Roll no. - 1239424 65

 HOSPITAL MANAGEMENT SYSTEM

FORM DOCTOR

Imports System.Data
Imports System.Data.OleDb

Public Class frmDoctor

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form

Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents DTP_DOJ As System.Windows.Forms.DateTimePicker
Friend WithEvents txtPhone As System.Windows.Forms.TextBox
Friend WithEvents txtName As System.Windows.Forms.TextBox
Friend WithEvents txtID As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GB_Doctor As System.Windows.Forms.GroupBox
Friend WithEvents GB_DoctorView As System.Windows.Forms.GroupBox
Friend WithEvents LV_DoctorView As System.Windows.Forms.ListView
Friend WithEvents btnCustomprint As System.Windows.Forms.Button
Friend WithEvents btnExcel As System.Windows.Forms.Button
Friend WithEvents btnSearch As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnSaveDoctor As System.Windows.Forms.Button
Friend WithEvents btnDeleteDoctor As System.Windows.Forms.Button
Friend WithEvents btnUpdateDoctor As System.Windows.Forms.Button

BTech.(CSE) Roll no. - 1239424 66

 HOSPITAL MANAGEMENT SYSTEM

Friend WithEvents btnAddDoctor As System.Windows.Forms.Button

Friend WithEvents RtxtAddress As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.GB_Doctor = New System.Windows.Forms.GroupBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnSaveDoctor = New System.Windows.Forms.Button()
Me.btnDeleteDoctor = New System.Windows.Forms.Button()
Me.btnUpdateDoctor = New System.Windows.Forms.Button()
Me.btnAddDoctor = New System.Windows.Forms.Button()
Me.DTP_DOJ = New System.Windows.Forms.DateTimePicker()
Me.txtPhone = New System.Windows.Forms.TextBox()
Me.txtName = New System.Windows.Forms.TextBox()
Me.txtID = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.RtxtAddress = New System.Windows.Forms.TextBox()
Me.btnSearch = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
Me.btnCustomprint = New System.Windows.Forms.Button()
Me.GB_DoctorView = New System.Windows.Forms.GroupBox()
Me.LV_DoctorView = New System.Windows.Forms.ListView()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.GB_Doctor.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GB_DoctorView.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GB_Doctor
'
Me.GB_Doctor.Controls.AddRange(New
System.Windows.Forms.Control() {Me.GroupBox3, Me.DTP_DOJ,
Me.txtPhone, Me.txtName, Me.txtID, Me.Label5, Me.Label4, Me.Label3,
Me.Label2, Me.Label1, Me.RtxtAddress})
Me.GB_Doctor.Location = New System.Drawing.Point(16, 16)
Me.GB_Doctor.Name = "GB_Doctor"
Me.GB_Doctor.Size = New System.Drawing.Size(504, 296)
Me.GB_Doctor.TabIndex = 0
Me.GB_Doctor.TabStop = False
Me.GB_Doctor.Text = "Doctor Detail"
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New
System.Windows.Forms.Control() {Me.btnCancel, Me.btnSaveDoctor,
Me.btnDeleteDoctor, Me.btnUpdateDoctor, Me.btnAddDoctor})
Me.GroupBox3.Location = New System.Drawing.Point(328, 48)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(136, 208)
Me.GroupBox3.TabIndex = 31
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Transaction"
'
'btnCancel

BTech.(CSE) Roll no. - 1239424 67

 HOSPITAL MANAGEMENT SYSTEM

'
Me.btnCancel.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnCancel.Location = New System.Drawing.Point(24, 160)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(88, 23)
Me.btnCancel.TabIndex = 9
Me.btnCancel.Text = "Cancel"
'
'btnSaveDoctor
'
Me.btnSaveDoctor.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnSaveDoctor.Location = New System.Drawing.Point(24, 128)
Me.btnSaveDoctor.Name = "btnSaveDoctor"
Me.btnSaveDoctor.Size = New System.Drawing.Size(88, 23)
Me.btnSaveDoctor.TabIndex = 8
Me.btnSaveDoctor.Text = "Save Doctor"
'
'btnDeleteDoctor
'
Me.btnDeleteDoctor.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnDeleteDoctor.Location = New System.Drawing.Point(24,
96)
Me.btnDeleteDoctor.Name = "btnDeleteDoctor"
Me.btnDeleteDoctor.Size = New System.Drawing.Size(88, 23)
Me.btnDeleteDoctor.TabIndex = 7
Me.btnDeleteDoctor.Text = "Delete Doctor"
'
'btnUpdateDoctor
'
Me.btnUpdateDoctor.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnUpdateDoctor.Location = New System.Drawing.Point(24,
64)
Me.btnUpdateDoctor.Name = "btnUpdateDoctor"
Me.btnUpdateDoctor.Size = New System.Drawing.Size(88, 23)
Me.btnUpdateDoctor.TabIndex = 6
Me.btnUpdateDoctor.Text = "Edit Doctor"
'
'btnAddDoctor
'
Me.btnAddDoctor.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnAddDoctor.Location = New System.Drawing.Point(24, 29)
Me.btnAddDoctor.Name = "btnAddDoctor"
Me.btnAddDoctor.Size = New System.Drawing.Size(88, 23)
Me.btnAddDoctor.TabIndex = 5
Me.btnAddDoctor.Text = "Add Doctor"
'
'DTP_DOJ
'
Me.DTP_DOJ.Format =
System.Windows.Forms.DateTimePickerFormat.Short
Me.DTP_DOJ.Location = New System.Drawing.Point(168, 240)
Me.DTP_DOJ.Name = "DTP_DOJ"
Me.DTP_DOJ.Size = New System.Drawing.Size(104, 20)
Me.DTP_DOJ.TabIndex = 4
'
'txtPhone

BTech.(CSE) Roll no. - 1239424 68

 HOSPITAL MANAGEMENT SYSTEM

'
Me.txtPhone.Location = New System.Drawing.Point(168, 200)
Me.txtPhone.Name = "txtPhone"
Me.txtPhone.TabIndex = 3
Me.txtPhone.Text = ""
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(168, 88)
Me.txtName.Name = "txtName"
Me.txtName.TabIndex = 1
Me.txtName.Text = ""
'
'txtID
'
Me.txtID.Enabled = False
Me.txtID.Location = New System.Drawing.Point(168, 48)
Me.txtID.Name = "txtID"
Me.txtID.ReadOnly = True
Me.txtID.TabIndex = 20
Me.txtID.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(48, 240)
Me.Label5.Name = "Label5"
Me.Label5.TabIndex = 19
Me.Label5.Text = "Date of joining"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(48, 200)
Me.Label4.Name = "Label4"
Me.Label4.TabIndex = 18
Me.Label4.Text = "Phone"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(48, 128)
Me.Label3.Name = "Label3"
Me.Label3.TabIndex = 17
Me.Label3.Text = "Address"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(48, 88)
Me.Label2.Name = "Label2"
Me.Label2.TabIndex = 16
Me.Label2.Text = "Name"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(48, 48)
Me.Label1.Name = "Label1"
Me.Label1.TabIndex = 15
Me.Label1.Text = "ID"
'
'RtxtAddress
'
Me.RtxtAddress.Location = New System.Drawing.Point(168, 120)
Me.RtxtAddress.Multiline = True

BTech.(CSE) Roll no. - 1239424 69

 HOSPITAL MANAGEMENT SYSTEM

Me.RtxtAddress.Name = "RtxtAddress"
Me.RtxtAddress.ScrollBars =
System.Windows.Forms.ScrollBars.Both
Me.RtxtAddress.Size = New System.Drawing.Size(100, 56)
Me.RtxtAddress.TabIndex = 2
Me.RtxtAddress.Text = ""
'
'btnSearch
'
Me.btnSearch.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnSearch.Location = New System.Drawing.Point(24, 32)
Me.btnSearch.Name = "btnSearch"
Me.btnSearch.TabIndex = 11
Me.btnSearch.Text = "Search"
'
'btnExcel
'
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.btnExcel.Location = New System.Drawing.Point(24, 72)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.TabIndex = 12
Me.btnExcel.Text = "Excel"
'
'btnCustomprint

BTech.(CSE) Roll no. - 1239424 70

 HOSPITAL MANAGEMENT SYSTEM

FORM DISCHARGE

Imports System.Data.OleDb

Public Class frmDischarge

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form

Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtBedCharge As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtDisease As System.Windows.Forms.TextBox
Friend WithEvents txtphone As System.Windows.Forms.TextBox
Friend WithEvents txtAge As System.Windows.Forms.TextBox
Friend WithEvents txtPatiname As System.Windows.Forms.TextBox
Friend WithEvents txtRegno As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents LV_Discharge As System.Windows.Forms.ListView

BTech.(CSE) Roll no. - 1239424 71

 HOSPITAL MANAGEMENT SYSTEM

Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox

Friend WithEvents btnDeleteRegistration As
System.Windows.Forms.Button
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents btnSearch As System.Windows.Forms.Button
Friend WithEvents btnExcel As System.Windows.Forms.Button
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents btnCustomprint As System.Windows.Forms.Button
Friend WithEvents Rtxt_Remark As System.Windows.Forms.TextBox
Friend WithEvents RtxtAddress As System.Windows.Forms.TextBox
Friend WithEvents CB_BedCategory As System.Windows.Forms.TextBox
Friend WithEvents CB_Bedno As System.Windows.Forms.TextBox
Friend WithEvents DTP_date As System.Windows.Forms.TextBox
Friend WithEvents CB_Bloodgp As System.Windows.Forms.TextBox
Friend WithEvents cbDoctor As System.Windows.Forms.TextBox
Friend WithEvents DTP_DOD As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.DTP_DOD = New System.Windows.Forms.TextBox
Me.cbDoctor = New System.Windows.Forms.TextBox
Me.CB_Bloodgp = New System.Windows.Forms.TextBox
Me.DTP_date = New System.Windows.Forms.TextBox
Me.CB_Bedno = New System.Windows.Forms.TextBox
Me.CB_BedCategory = New System.Windows.Forms.TextBox
Me.RtxtAddress = New System.Windows.Forms.TextBox
Me.Rtxt_Remark = New System.Windows.Forms.TextBox
Me.GroupBox3 = New System.Windows.Forms.GroupBox
Me.btnDeleteRegistration = New System.Windows.Forms.Button
Me.Label14 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.txtBedCharge = New System.Windows.Forms.TextBox
Me.Label10 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.txtDisease = New System.Windows.Forms.TextBox
Me.txtphone = New System.Windows.Forms.TextBox
Me.txtAge = New System.Windows.Forms.TextBox
Me.txtPatiname = New System.Windows.Forms.TextBox
Me.txtRegno = New System.Windows.Forms.TextBox
Me.Label11 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.LV_Discharge = New System.Windows.Forms.ListView
Me.GroupBox4 = New System.Windows.Forms.GroupBox
Me.btnSearch = New System.Windows.Forms.Button
Me.btnExcel = New System.Windows.Forms.Button
Me.GroupBox5 = New System.Windows.Forms.GroupBox
Me.btnCustomprint = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()

BTech.(CSE) Roll no. - 1239424 72

 HOSPITAL MANAGEMENT SYSTEM

Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.LightGray
Me.GroupBox1.Controls.Add(Me.DTP_DOD)
Me.GroupBox1.Controls.Add(Me.cbDoctor)
Me.GroupBox1.Controls.Add(Me.CB_Bloodgp)
Me.GroupBox1.Controls.Add(Me.DTP_date)
Me.GroupBox1.Controls.Add(Me.CB_Bedno)
Me.GroupBox1.Controls.Add(Me.CB_BedCategory)
Me.GroupBox1.Controls.Add(Me.RtxtAddress)
Me.GroupBox1.Controls.Add(Me.Rtxt_Remark)
Me.GroupBox1.Controls.Add(Me.GroupBox3)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Controls.Add(Me.Label13)
Me.GroupBox1.Controls.Add(Me.txtBedCharge)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.Label9)
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.txtDisease)
Me.GroupBox1.Controls.Add(Me.txtphone)
Me.GroupBox1.Controls.Add(Me.txtAge)
Me.GroupBox1.Controls.Add(Me.txtPatiname)
Me.GroupBox1.Controls.Add(Me.txtRegno)
Me.GroupBox1.Controls.Add(Me.Label11)
Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Location = New System.Drawing.Point(16, 8)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(512, 504)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Patient Detail"
'
END SUB

BTech.(CSE) Roll no. - 1239424 73

 HOSPITAL MANAGEMENT SYSTEM

FORM BILL

System.Windows.Forms.FlatStyle.System
Me.btnDeleteRegistration.Location = New
System.Drawing.Point(32, 40)
Me.btnDeleteRegistration.Name = "btnDeleteRegistration"
Me.btnDeleteRegistration.Size = New System.Drawing.Size(112,
32)
Me.btnDeleteRegistration.TabIndex = 15
Me.btnDeleteRegistration.Text = "Delete"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(40, 472)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 23)
Me.Label14.TabIndex = 151
Me.Label14.Text = "Discharge Date"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(40, 120)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(100, 23)
Me.Label13.TabIndex = 150
Me.Label13.Text = "Bed Charge/Day"
'
'txtBedCharge
'
Me.txtBedCharge.Location = New System.Drawing.Point(160, 120)
Me.txtBedCharge.Name = "txtBedCharge"
Me.txtBedCharge.ReadOnly = True
Me.txtBedCharge.Size = New System.Drawing.Size(104, 20)
Me.txtBedCharge.TabIndex = 4
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(40, 432)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(100, 23)
Me.Label10.TabIndex = 144
Me.Label10.Text = "Remarks"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(40, 360)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(100, 23)
Me.Label9.TabIndex = 143
Me.Label9.Text = "Blood Group"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(40, 392)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(100, 23)
Me.Label8.TabIndex = 140

BTech.(CSE) Roll no. - 1239424 74

 HOSPITAL MANAGEMENT SYSTEM

Me.Label8.Text = "Doctor"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(40, 328)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(100, 23)
Me.Label7.TabIndex = 139
Me.Label7.Text = "Disease"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(40, 296)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(100, 23)
Me.Label6.TabIndex = 138
Me.Label6.Text = "Date"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(40, 264)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(100, 23)
Me.Label5.TabIndex = 137
Me.Label5.Text = "Phone No"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(40, 216)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(100, 23)
Me.Label4.TabIndex = 136
Me.Label4.Text = "Address"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(40, 184)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(100, 23)
Me.Label3.TabIndex = 135
Me.Label3.Text = "Age"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(40, 152)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(100, 23)
Me.Label2.TabIndex = 134
Me.Label2.Text = "Patient Name"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(40, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 23)
Me.Label1.TabIndex = 133
Me.Label1.Text = "Registration No"
'
END BUTTON()
END SUB

BTech.(CSE) Roll no. - 1239424 75

 HOSPITAL MANAGEMENT SYSTEM

FORM PATIENT

Imports System.Data
Imports System.Data.OleDb

Public Class frmAdmitPatient

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

'code for filling the combobox of doctors

Dim r1 As String
Dim FillcbDoctor_constr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hm.mdb"
Dim FillcbDoctor_cmdstr As String = "select * from Doctors"
'Dim Fill_Textbox_cmdstr As String = "select * from
clinicpatients"
Dim FillcbDoctor_con As New
OleDbConnection(FillcbDoctor_constr)
Dim FillcbDoctor_com As New OleDbCommand(FillcbDoctor_cmdstr,
FillcbDoctor_con)
FillcbDoctor_con.Open()
Dim FillcbDoctor_DR As OleDbDataReader =
FillcbDoctor_com.ExecuteReader
While FillcbDoctor_DR.Read
'r0 = insert_DR(0)
r1 = FillcbDoctor_DR(1)
cbDoctor.Items.Add(r1)
End While
FillcbDoctor_con.Close() 'code end

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

BTech.(CSE) Roll no. - 1239424 76

 HOSPITAL MANAGEMENT SYSTEM

'NOTE: The following procedure is required by the Windows Form

Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents GrpBox_PatiInfo As
System.Windows.Forms.GroupBox
Friend WithEvents cbDoctor As System.Windows.Forms.ComboBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtDisease As System.Windows.Forms.TextBox
Friend WithEvents txtphone As System.Windows.Forms.TextBox
Friend WithEvents txtAge As System.Windows.Forms.TextBox
Friend WithEvents txtPatiname As System.Windows.Forms.TextBox
Friend WithEvents txtRegno As System.Windows.Forms.TextBox
Friend WithEvents GB_PatientView As System.Windows.Forms.GroupBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label

Friend WithEvents btnSaveRegistration As

System.Windows.Forms.Button
Friend WithEvents btnCancelRegistration As
System.Windows.Forms.Button
Friend WithEvents btnEditRegistration As
System.Windows.Forms.Button
Friend WithEvents btnRegisterPatient As
System.Windows.Forms.Button
Friend WithEvents RtxtAddress As System.Windows.Forms.TextBox
Friend WithEvents Rtxt_Remark As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.GrpBox_PatiInfo = New System.Windows.Forms.GroupBox()
Me.Rtxt_Remark = New System.Windows.Forms.TextBox()
Me.RtxtAddress = New System.Windows.Forms.TextBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.btnDischarge = New System.Windows.Forms.Button()
Me.btnSaveRegistration = New System.Windows.Forms.Button()
Me.btnCancelRegistration = New System.Windows.Forms.Button()
Me.btnEditRegistration = New System.Windows.Forms.Button()
Me.btnRegisterPatient = New System.Windows.Forms.Button()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtBedCharge = New System.Windows.Forms.TextBox()
Me.DTP_date = New System.Windows.Forms.DateTimePicker()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbDoctor = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDisease = New System.Windows.Forms.TextBox()
Me.txtphone = New System.Windows.Forms.TextBox()

BTech.(CSE) Roll no. - 1239424 77

 HOSPITAL MANAGEMENT SYSTEM

Me.txtAge = New System.Windows.Forms.TextBox()

Me.txtPatiname = New System.Windows.Forms.TextBox()
Me.txtRegno = New System.Windows.Forms.TextBox()
Me.CB_Bloodgp = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.CB_BedCategory = New System.Windows.Forms.ComboBox()
Me.CB_Bedno = New System.Windows.Forms.ComboBox()
Me.btnSearch = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
Me.GB_PatientView = New System.Windows.Forms.GroupBox()
Me.LV_PatiView = New System.Windows.Forms.ListView()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnCustomprint = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.GrpBox_PatiInfo.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GB_PatientView.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GrpBox_PatiInfo
'
Me.GrpBox_PatiInfo.Controls.AddRange(New
System.Windows.Forms.Control() {Me.Rtxt_Remark, Me.RtxtAddress,
Me.GroupBox3, Me.Label13, Me.txtBedCharge, Me.DTP_date, Me.Label10,
Me.Label9, Me.cbDoctor, Me.Label8, Me.Label7, Me.Label6, Me.Label5,
Me.Label4, Me.Label3, Me.Label2, Me.Label1, Me.txtDisease,
Me.txtphone, Me.txtAge, Me.txtPatiname, Me.txtRegno, Me.CB_Bloodgp,
Me.Label11, Me.Label12, Me.CB_BedCategory, Me.CB_Bedno})
Me.GrpBox_PatiInfo.Location = New System.Drawing.Point(16, 8)
Me.GrpBox_PatiInfo.Name = "GrpBox_PatiInfo"
Me.GrpBox_PatiInfo.Size = New System.Drawing.Size(512, 480)
Me.GrpBox_PatiInfo.TabIndex = 4
Me.GrpBox_PatiInfo.TabStop = False
Me.GrpBox_PatiInfo.Text = "Patient Detail"
'
'Rtxt_Remark
'
Me.Rtxt_Remark.Location = New System.Drawing.Point(144, 432)
Me.Rtxt_Remark.Multiline = True
Me.Rtxt_Remark.Name = "Rtxt_Remark"
Me.Rtxt_Remark.ScrollBars =
System.Windows.Forms.ScrollBars.Both
Me.Rtxt_Remark.Size = New System.Drawing.Size(100, 40)
Me.Rtxt_Remark.TabIndex = 12
Me.Rtxt_Remark.Text = ""
'
'RtxtAddress
'
Me.RtxtAddress.Location = New System.Drawing.Point(144, 224)
Me.RtxtAddress.Multiline = True
Me.RtxtAddress.Name = "RtxtAddress"
Me.RtxtAddress.ScrollBars =
System.Windows.Forms.ScrollBars.Both
Me.RtxtAddress.Size = New System.Drawing.Size(104, 40)
Me.RtxtAddress.TabIndex = 6
Me.RtxtAddress.Text = ""
'
'GroupBox3

BTech.(CSE) Roll no. - 1239424 78

 HOSPITAL MANAGEMENT SYSTEM

'
Me.GroupBox3.Controls.AddRange(New
System.Windows.Forms.Control() {Me.btnDischarge,
Me.btnSaveRegistration, Me.btnCancelRegistration,
Me.btnEditRegistration, Me.btnRegisterPatient})
Me.GroupBox3.Location = New System.Drawing.Point(320, 40)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(176, 280)
Me.GroupBox3.TabIndex = 69
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Transaction"
'
'btnDischarge
'
Me.btnDischarge.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnDischarge.Location = New System.Drawing.Point(32, 224)
Me.btnDischarge.Name = "btnDischarge"
Me.btnDischarge.Size = New System.Drawing.Size(112, 32)
Me.btnDischarge.TabIndex = 18
Me.btnDischarge.Text = "Discharge Patient"
'
'btnSaveRegistration
'
Me.btnSaveRegistration.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnSaveRegistration.Location = New
System.Drawing.Point(32, 128)
Me.btnSaveRegistration.Name = "btnSaveRegistration"
Me.btnSaveRegistration.Size = New System.Drawing.Size(112,32)
Me.btnSaveRegistration.TabIndex = 16
Me.btnSaveRegistration.Text = "Save Registration"
'
'btnCancelRegistration
'
Me.btnCancelRegistration.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnCancelRegistration.Location = New
System.Drawing.Point(32, 176)
Me.btnCancelRegistration.Name = "btnCancelRegistration"
Me.btnCancelRegistration.Size = New System.Drawing.Size(112,
32)
Me.btnCancelRegistration.TabIndex = 17
Me.btnCancelRegistration.Text = "Cancel Registration"
'
'btnEditRegistration
'
Me.btnEditRegistration.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnEditRegistration.Location = New
System.Drawing.Point(32, 80)

Me.btnRegisterPatient.FlatStyle =
System.Windows.Forms.FlatStyle.System
Me.btnRegisterPatient.Location = New System.Drawing.Point(32,
32)
Me.btnRegisterPatient.Name = "btnRegisterPatient"
Me.btnRegisterPatient.Size = New System.Drawing.Size(112, 32)

BTech.(CSE) Roll no. - 1239424 79

 HOSPITAL MANAGEMENT SYSTEM

FORM WARDBOY/SISTER

#Region "Function for binding textbox with record"

'code for binding text box with 1st record of table
Sub Fill_Textbox_Admit()
Dim r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12 As
String

Dim Fill_Textbox_constr As String =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hm.mdb"
'Dim Fill_Textbox_cmdstr As String = "select
Regno,Name,Age,Address,Phone,Checkupdate,Checkuptime,Disease,Bloodgro
up,Doctor,Remarks from clinicpatients where Regno=1"
Dim Fill_Textbox_cmdstr As String = "select * from admit"
Dim Fill_Textbox_con As New
OleDbConnection(Fill_Textbox_constr)
Dim insert_com As New OleDbCommand(Fill_Textbox_cmdstr,
Fill_Textbox_con)
Fill_Textbox_con.Open()
Dim insert_DR As OleDbDataReader = insert_com.ExecuteReader
While insert_DR.Read
r0 = insert_DR(0)
r1 = insert_DR(1)
r2 = insert_DR(2)
r3 = insert_DR(3)
r4 = insert_DR(4)
r5 = insert_DR(5)
r6 = insert_DR(6)
r7 = insert_DR(7)
r8 = insert_DR(8)
r9 = insert_DR(9)
r10 = insert_DR(10)
r11 = insert_DR(11)
r12 = insert_DR(12)
Exit While
End While
Fill_Textbox_con.Close()

txtRegno.Text = r0
CB_BedCategory.Text = r1
CB_Bedno.Text = r2
txtBedCharge.Text = r3
txtPatiname.Text = r4
txtAge.Text = r5
RtxtAddress.Text = r6
txtphone.Text = r7
If r8 = Nothing Then
DTP_date.Text = ""
Else
DTP_date.Value = r8
End If

txtDisease.Text = r9
CB_Bloodgp.Text = r10
cbDoctor.Text = r11
Rtxt_Remark.Text = r12
End Sub
#End Region

BTech.(CSE) Roll no. - 1239424 80

 HOSPITAL MANAGEMENT SYSTEM

#Region "All button events"

#Region "Function for deleting record"

Sub delete_Record()
Dim delete_Constr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\hm.mdb"
Dim delete_Comstr As String
Dim delete_Con As OleDbConnection
Dim delete_Com As OleDbCommand

Dim ID As String

ID = txtRegno.Text
delete_Comstr = "Delete from admit WHERE Regno=" & ID

delete_Con = New OleDbConnection(delete_Constr)

delete_Com = New OleDbCommand(delete_Comstr, delete_Con)

delete_Con.Open()
Try
delete_Com.ExecuteNonQuery()
MsgBox("Patient record deleted successfully.",
MsgBoxStyle.Information, "Delete Registration")
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
delete_Con.Close()

Fill_Textbox_Admit()
fill_listview()
End Sub
#End Region

#Region "Load event of frmAdmitPatient"

Private Sub frmAdmitPatient_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load

Fill_Textbox_Admit()
fill_listview()

If LV_PatiView.Items.Count = 0 Then
'MessageBox.Show("There is no record to show.", "Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
btnRegisterPatient.Enabled = True
btnEditRegistration.Enabled = False
'btnDeleteRegistration.Enabled = False
btnSaveRegistration.Enabled = False
btnCancelRegistration.Enabled = False
btnDischarge.Enabled = False
'btnPrint.Enabled = False
btnCustomprint.Enabled = False
btnSearch.Enabled = False
btnExcel.Enabled = False

CB_BedCategory.Enabled = False
CB_Bedno.Enabled = False

'code when listview is empty

txtBedCharge.ReadOnly = True

BTech.(CSE) Roll no. - 1239424 81

 HOSPITAL MANAGEMENT SYSTEM

txtPatiname.ReadOnly = True
txtAge.ReadOnly = True
RtxtAddress.ReadOnly = True
txtphone.ReadOnly = True
DTP_date.Enabled = False
txtDisease.ReadOnly = True
CB_Bloodgp.Enabled = False
cbDoctor.Enabled = False
Rtxt_Remark.ReadOnly = True
Else
btnSaveRegistration.Enabled = False
btnCancelRegistration.Enabled = False

CB_BedCategory.Enabled = False
CB_Bedno.Enabled = False

'code when listview is empty

txtBedCharge.ReadOnly = False
txtPatiname.ReadOnly = False
txtAge.ReadOnly = False
RtxtAddress.ReadOnly = False
txtphone.ReadOnly = False
DTP_date.Enabled = True
txtDisease.ReadOnly = False
CB_Bloodgp.Enabled = True
cbDoctor.Enabled = True
Rtxt_Remark.ReadOnly = False
End If
End Sub
#End Region

#Region "Fuction for filling Listview"

'fill listview
Sub fill_listview()
' Clear list view column headers and items
LV_PatiView.Columns.Clear()
LV_PatiView.Items.Clear()

'If LV.Items.Count > 0 Then

'LV.Items.Clear()
'End If

' Get SQL Query from textbox

Dim fillLV_comstr As String = "select * from admit"
Dim fillLV_Con As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\
hm.mdb")

' Create Command object

Dim NewQuery As New OleDbCommand(fillLV_comstr, fillLV_Con)

Try
' Open Connection
Try
fillLV_Con.Open()
Catch e As Exception
MsgBox(e.Message)
End Try

BTech.(CSE) Roll no. - 1239424 82

 HOSPITAL MANAGEMENT SYSTEM

' Execute Command and Get Data

' Get column names for list view from data reader

Dim i As Integer
For i = 0 To NewReader.FieldCount - 1
Dim header As New ColumnHeader()
header.Text = NewReader.GetName(i)
LV_PatiView.Columns.Add(header)
Next

' Add item to list view items collection

LV_PatiView.Items.Add(NewItem)
End While

' Close data reader

NewReader.Close()

Catch ex As OleDbException
' Create and error column header
Dim ErrorHeader As New ColumnHeader()
ErrorHeader.Text = "oledb Error"
LV_PatiView.Columns.Add(ErrorHeader)

' Add Error List Item

Dim ErrorItem As New ListViewItem(ex.Message)
LV_PatiView.Items.Add(ErrorItem)

Catch ex As Exception
' Create and error column header
Dim ErrorHeader As New ColumnHeader()
ErrorHeader.Text = "Error"
LV_PatiView.Columns.Add(ErrorHeader)

' Add Error List Item

Dim ErrorItem As New ListViewItem("An error has
occurred")
LV_PatiView.Items.Add(ErrorItem)

Finally
fillLV_Con.Close()
End Try
End Sub
#End Region

#Region "Listview event"

#Region "All textbox Keypress event"

Private Sub txtBedCharge_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles
txtBedCharge.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Or e.KeyChar =
CChar(ChrW(Keys.Space)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub

BTech.(CSE) Roll no. - 1239424 83

 HOSPITAL MANAGEMENT SYSTEM

Private Sub txtPatiname_KeyPress(ByVal sender As Object, ByVal e

As System.Windows.Forms.KeyPressEventArgs) Handles
txtPatiname.KeyPress
If Char.IsLetter(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Or e.KeyChar =
CChar(ChrW(Keys.Space)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub

Private Sub txtAge_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtAge.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Or e.KeyChar =
CChar(ChrW(Keys.Space)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub

Private Sub txtphone_KeyPress(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles txtphone.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Or e.KeyChar =
CChar(ChrW(Keys.Space)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub

Private Sub txtDisease_KeyPress(ByVal sender As Object, ByVal e

As System.Windows.Forms.KeyPressEventArgs) Handles
txtDisease.KeyPress
If Char.IsLetter(e.KeyChar) = False Then
If e.KeyChar = CChar(ChrW(Keys.Back)) Or e.KeyChar =
CChar(ChrW(Keys.Space)) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub

#End Region

#Region "CB_BedCategory event i.e. bed type"

BTech.(CSE) Roll no. - 1239424 84

 HOSPITAL MANAGEMENT SYSTEM

Testing

&

Impleentation Plan

BTech.(CSE) Roll no. - 1239424 85

 HOSPITAL MANAGEMENT SYSTEM

Testing

After the preparation of our project we used it with the help of

hypothetical data. As the requirement was satisfied with these data, we
implemented the project on the original data.

The system though developed carefully, whenever it is taken in

actual use may generate errors. So the main purpose of testing is to
remove such type of runtime error and correct them. The scope of the
system test includes both manual operation and computerized
operations. We performed various system tests such as program test,
string test, and system test.

Program test:

These are designed to test the logic of program. Under this

testing, the individual forms were considered as a program and
verification was done by entering hypothetical as well as original data.

System test:
These are used to test all programs which together constitute the
system consisted of various forms. All forms are liked with each other
perfectly and make our system a perfect one.

Testing is an important part of program

development. During this stage the program is checked for
errors or bugs.he purpose of doing test is not to demonstrate
that there are no errors in the program but to detect any bug
that may exist.

BTech.(CSE) Roll no. - 1239424 86

 HOSPITAL MANAGEMENT SYSTEM

It is a common misconception that the Purpose of testing is

to prove that a program is working correctly. This a dangerous
myth because it can load to insufficient testing and Program with
hidden fault.

It is very difficult to decide how much

Testing is enough. A good programmer may be able to reduce
the Number of errors in a program but he/she should know
that is impossible to develop a program that is 100% error free.

BTech.(CSE) Roll no. - 1239424 87

 HOSPITAL MANAGEMENT SYSTEM

PROCESS RELATED TESTING:

TESTING AND OPTIMIZATION

Testing:-the hardest task

You can write a program in an hour that can have 50 million possible
combinations to test. The labor involved can cost fortunes. Therefore
testing is often the first thing to slip when resources stretch - but it's the
entire organization that suffers when a defect causes problems. Lost
revenue or reputation is probably the least harmful result of defects.
Measurements show that a defect discovered during design that costs $1
to rectify will cost $1,000 to repair in production. This is a tremendous
cost differential and clearly points out the advantage of early error
detection.

Testing vs. Quality Assurance

Quality Assurance is the process of making sure that the customers gets
enough of what they pay for to satisfy their needs. Testing is the means
by which we perform the process. You can test without assuring quality,
but you can't assure quality without testing. A common problem with
software quality is that the assurance is in the hands of the producers.
While the producers can certainly create and perform insightful, powerful
tests, it is perfectly possible to design tests that will churn away forever
and never discover a defect. This is the psychological temptation when
the software producers program tests to evaluate them.

BTech.(CSE) Roll no. - 1239424 88

 HOSPITAL MANAGEMENT SYSTEM

Testing Levels

Software testing is usually done at several levels. They are commonly

referred to as unit testing, integration testing, and system testing.

Test Phases

There is several type of testing in a comprehensive software test

process, many of which occur simultaneously.

BTech.(CSE) Roll no. - 1239424 89

 HOSPITAL MANAGEMENT SYSTEM

IMPLEMENTATION PHASE

The implementation phase involves installing approved applications

into production environments. Primary tasks include announcing the
implementation schedule, training end users, and installing the product.
Additionally, organizations should input and verify data, configure and
test system and security parameters, and conduct post-implementation
reviews. Management should circulate implementation schedules to all
affected parties and should notify users of any implementation
responsibilities.

After organizations install a product, pre-existing data is manually

input or electronically transferred to a new system. Verifying the
accuracy of the input data and security configurations is a critical part of
the implementation process. Organizations often run a new system in
parallel with an old system until they verify the accuracy and reliability of
the new system. Employees should document any programming,
procedural, or configuration changes made during the verification
process.

User Training

The user was given an exhaustive training to train him how to

handle the application according to his user rights. Regular training
sessions were conducted after the application was implemented so that
maximum uses would be given personnel attention. Any doubts of the
user were tried to clear up to his satisfaction.

The users were made to operate to application on their own a

number of times before they actually started using the application so
that they get well used to the environment under which they would be
working thereon which would result in saving precious time of the
company as the user would not spend any extra time in learning about

BTech.(CSE) Roll no. - 1239424 90

 HOSPITAL MANAGEMENT SYSTEM

the use of the application after it has been implemented for use in their
official work.

Post Implementation Review

The review about post implementation from them is completely

satisfactory. They are pleased with our services and our nature. We
followed the rules of there school. We plan out our system according to
their convenience. They were totally satisfied and pleased with our
system. They haven’t any problem regarding our project work.

BTech.(CSE) Roll no. - 1239424 91

 HOSPITAL MANAGEMENT SYSTEM

Conclusion

The project Hospital Management System (HMS) is for computerizing the

working in a hospital. The software takes care of all the requirements of
an average hospital and is capable to provide easy and effective
storage of information related to patients that come up to the hospital.

It generates test reports; provide prescription details including various

tests, diet advice, and medicines prescribed to patient and doctor. It
also provides injection details and billing facility on the basis of patient’s
status whether it is an indoor or outdoor patient.

The system also provides the facility of backup as per the requirement.

BTech.(CSE) Roll no. - 1239424 92

 HOSPITAL MANAGEMENT SYSTEM

Further Enhancement

In the system you can get the reports which includes

bills,customers information. In the bills we can know the item
information and also stock information.

Since modular and structure approach has been taken towards

development of system, it can also expand other functions of the part of
organization. It also very useful for the management. With the used of
these system user can easily update the record, view the record and
quickly generate the report.

BTech.(CSE) Roll no. - 1239424 93

 HOSPITAL MANAGEMENT SYSTEM

Bibliography

1. www.freelancer.com

2. www.mednetus.com

3. www.captera.com

4. www.henryschein.com

5. Mastering VB 6.0

6. CHAUHAN MEDICITY HOSPITAL.

**************

BTech.(CSE) Roll no. - 1239424 94