Hospital

Published on January 2017 | Categories: Documents | Downloads: 44 | Comments: 0 | Views: 315
of 94
Download PDF   Embed   Report

Comments

Content

Chapter 1 Objective of the project

1

AIM OF THE PROJECT
Reduction of the time consumed in filling the forms. Maintenance and quick access to inpatients and outpatients records. Provide inpatients expenditure details. Provide hospital staff information like Doctors, Nurse, Lab technicians and attendee’s information. Department information. 24 hrs Pharmacy 24hrs Ambulance Services.

We have 8 forms:        

Login Form Doctor Form MDI Form Inpatients info Form Outpatients info Form Department Form Expenditure Form Pharmacy Form

2

Chapter 2 Theoretical background of project

3

LOGIN FORM:

Login form is an authentication form various departments in the hospital are given different logins for the forms.it we give the correct user/password it will connect to the MDI Form.

HOSP FORM:

It provides an access to various form of an application like inventory, patient information, information of the hospital staffs which includes Doctors, nurses and other helper staffs. MDI Form is the base form where all the form gets populated.

INPATIENT FORM:

When a patient is taken inside the hospital his/her information is taken in this form by the nurse. This information includes a inpatient no, patient name etc.

OUTPATIENT FORM:

When a patient is discharged from the hospital his details are taken and patient is discharged.

4

EXPENDITURE FORM:

This form denotes all the expenses incurred for the patient during the treatment process like lab charges, scanning, ward charges etc.

DOCTORS FORM: Doctors form give the complete details of the doctors like qualification, department, address, etc..

DEPARTMENT FORM:

This form denote the various departments in an opital like orthopeadic, eye, etc.

PHARMACY FORM:

We have got a 24*7 online pharmacy to request and dispatch of the medicines.

5

Chapter 3 DEFINATION OF PROBLEM

6

EXISTING SYSTEM
The existing system needs to be computerized and should facilitate the Life Line employees to provide quick and reliable services to the patients and their attendants. The existing system analyzed is very slow requires more of the human work, giving rise to the requirement of more man power and takes a lot of strain in handling the patients details and keeping track of the records.

PROPOSED SYSTEM
A new system needs to be developed for Life Line that should accomplish the following functions:

 Patient details should be duely stored and maintained in the system.  The front desk assistant should be able to allot a unique OPID to a patient.  The departmental assistant should be able to allot a unique IPID to the patient referred from the front desk.  Patient history should be recorded so that the concerned doctor could use the details for treatment.  The system should be able to generate treatment details and respective reports when the patient is ready to leave the hospital.  The Patient insurance details should be managed to help the patient enjoy insurance benefits.  An efficient payroll management module needs to be created to facilitate employees of Life Line.

7

Chapter 4 SYSTEM ANALAYSIS AND DESIGN

8

SYSTEM ANALYSIS
System Analysis A system is a set or arrangement of functionally dependent component or working together to attain a predefined goal by processing information. It is the process of examine of a business situation with the intent of improving it through better procedure and method. It is the process of gathering and method. It is process gathering and interpreting facts. Timing problems and using the information to recommend improvement to the system. Analysis is used gained and understanding of the conclusion of the system there is a system description and as set of requirement for a new system. It there is on existing system, then the analysis only defines the requirement. The step, which follows, will propose a new system that meets these requirements. The new system may be built a fresh or by changing the existing system. Development being by defining a model of new system an continuous by converting these model to a system in a short analysis specifies what the system should do. Analysis objective An efficient system analysis always plays the role of strong foundation for development of any proposed system. Information play key role, as the horizon of knowledge keep on expending, since this project is anaphor to convert the manual in to computer based system, a through knowledge of the day-to-day functions of present system of mandatory the objective of this study comprise. Feasibility Study

9

Feasibility is the determination of whether or not a project is worth doing. The process followed in making this decision is called feasibility study. It determines whether a project should be taken or not. Various types of feasibility were studied, like: Technical feasibility This is concerned with specifying equipment and the software that successfully satisfies the user requirements. In examining the technical feasibility, the configuration of the system is given importance than the actual hardware. Operational feasibility It is mainly related to the human organizational and political aspects. It involved the study of the changes to be through in the system, new skills needed etc. In the present manual system there is no use of computer and also the operational staff has no idea about the operation of the computer system, hence an introductory training of the staff is needed. Economic feasibility It is the most frequently used technique for the evaluation of the effectiveness of the proposed system. It involves the cost/benefit analysis. This study has out weighed the manual system to the new system. Social feasibility It is the determination of whether a system will by the user or not. This examines the probability of the project being accepted directly by the users. Management feasibility It is to determine whether the proposed system will be acceptable to the management or not. Time feasibility
10

It is a determination of whether the proposed system can be implemented fully within a stipulated time interval. Fact Finding Fact-finding means learning about the existing system as much as possible. The various methods that were employed to find facts are: Observing the current system: Direct observation of the system allows the analyst to verify his understanding of the system. It is one of the most difficult techniques. It requires intrusion into the user’s area and can cause adverse reaction by the users if not handled properly. The user should not be able to know that he is being observed else he might behave in a different manner. We had to be very careful in doing the on-site observation though the users are co-operative or reluctant. A lot of information about the system was gathered by observing the existing system at work. Gathering information form the existing documents The information regarding the system was gathered by the existing documents such as various reports, procedure and practices of the, Raipur (C.G.). After studying these documents we got the various requirements of the system which helped us to determine to what extent were the requirements being met by the present system. Defining the system requirements During the fact-finding phase of the system, we gathered facts, figures and documents and came to grip with the entire scope of the problem. After the fact-finding, the system requirements were defined as to what were the system requirements. These were then put forward to the management and the user. After the approval from them, we proceeded to start the system design.
11

CHAPTER 5 Hardware and software requirement

12

The following are the minimum requirement for the smooth and successful running of the module. Hardware  Microprocessor  Hard Disk properly  Memory Office

-

166 MHz or Higher Min 1GB for Operating system & program to setup

32 MB (Min) As the package is developed using MS

2000 it requires 32 MB Min RAM  Display Key Board  Mouse  Printer Software:  Operating System  RDBMS  GUI Tool CGA/VGA or higher 84/109 Keys use Any Standard Mouse 80/132 cols.

MS Windows 95 or Higher

MS Access

Visual Basic 6.0

13

CHAPTER 6 plate form specification

14

Plate form Specification The minimum software requirement for developing the software “Electronic Showroom” is as follows:-

Operating System Front End Back End

: : :

Windows XP Visual Basic 6.0 MS Access 2003

15

Introduction to Windows XP An Operating System (OS) dictates how all the parts (software and hardware resources) of your computer work together and how specific tasks (i.e., displaying and saving information) are to be performed.

Windows XP is built primarily on Windows 2000 technology which includes the best attributes of previous Windows versions. People who already know and have used previous versions of Windows should have no problems using Windows XP. One major difference will be in the logging in and logging out procedures. Windows XP offers several benefits over other versions, namely, its built-in file encryption and password control capabilities provide basic data and access security, increased reliability and performance ability, friendly graphical user interface (GUI), and its Web communication features. Windows XP's desktop is graphical which allows the user to click on pictures (or icons) to launch applications, open files and folders, connect to a network, and perform many other functions.

Users should find that Windows XP is more efficient and customizable than previous versions and other platforms. The Start button on the bottom left corner of the screen allows easy access to just about everything in the system. The Start button is used to initiate applications, opens or search for documents, adjusts settings, activates the Help Support system, manages files, and maintains the entire system to meet your specific needs.

The taskbar acts as a "home base" and has three elements: the Start button, a bar across the bottom of the screen that lines up opened (active) applications side-by-side, and the system tray located on the bottom right corner where the clock and other system icons may appear. The taskbar is an efficient tool of keeping track of what applications are active, and allows for switching between applications.

16

About Visual Basic 6.0

Visual Basic is the most Popular Object Oriented event Driven Programming language .It revolves around readymade objects, and it is event driven i.e. all the activities in a program are triggered by one event or another .The main advantage of visual Programming languages is that we can concentrate on what we want our program to do, not how to get the programming language to do it. Some Visual Basic features are: 1.Compatibility:Visual Basic is capable of producing software as sophisticated as any other data access techniques available. 2. Flexibility: It not only provides database access but can also be used to link it with other word processor, spreadsheets software etc. 3. Familiarity: Because it can be said as an extended version of Basic, which is very easy to learn and work with, its syntax seems to be more familiar. 4. Features: Various Additional Features Like ADO reports And other various type of Active X controls are Supported by this application, which helps widely in development of the Project. Visual Basic has developed into an extremely powerful application development tool and it is often referred to as a Rapid Application Development (RAD) tool. Another key concept of Visual Basic is the ability to create and use self contained components or objects. One type of Objects is VB Controls. Controls are elements we can use when designing a user interface. VB controls enable us to add feature to our programs without having to be involved in the details of how these feature works. This software is also designed using several controls available in Visual Basic with the help of which interactive user interface screen can be developed. Form Controls are used as containers for other controls like command buttons, labels, scroll bar, combo box etc. To avoid any invalid entries to be made a suitable restriction is put on different controls with the help of their properties. Coding scheme of different controls is hidden from their appearance and this resulted into graphical user interface based event driven programming.
17

About MS Access This is a Backend Tool widely used for Personal Computer as a Data Base. The relational database is a well-defined theoretical model of working with and managing a set of data that attends to three specific things: Data Structure, Data integrity and Data manipulation .The MS Access has a distinct component, which adheres to these requirements. The basic Data Structure in Access is Table having fixed number of columns but variable rows. The Data integrity rules of the relational models can be defined within Access relationship using integrity constraints. When a table is created in Access the integrity rule is defied at that very time. MS Access has many important features that make it not only an exceptional database Management System but also an excellent database for personal system in windows environment,  It provides highly secure environment to do better handling of database.  It can handle reasonable amount of data.  Easily support all window based systems

The goal of the access is to help you get your work done in the least of time, with a minimum of effort. What type of application can you develop in Access? Microsoft Access offers a variety of features for different databases needs. It can be used to develop five general type of application: 1. Personal application. 2. Application used to run a small business. 3. Department application. 4. Corporation- wide application. 5.Front :- end for enterprise-wide client/server application.
18

What is Database actually? The term database means different things to different people. For many years in the world of Dbase was used to describe a collection of fields and records in a client/server environment. Dbase refers to all the data schema, indexes, rules, triggers and stored procedures associated with a system in access terms, a dbase is a collection of all the tables, queries, forms, reports, macros and modules that compose a complete system.

Actually database is a collection of related information. Here information is stored in tabular form one record shows all possible attributes of an entity. In a simple word entity can be identified by its attributes like his name, color, height and hairstyle etc identify a person. So in databases a record makes tuple while attributes make fields.

19

CHAPTER 7 Data flow diagram

20

DATA FLOW DIAGRAMS
A data flow diagram is graphical tool used to describe and analyze movement of data through a system. These are the central tool and the basis from which the other components are developed. The transformation of data from input to output, through processed, may be described logically and independently of physical components associated with the system. These are known as the logical data flow diagrams. The physical data flow diagrams show the actual implements and

movement of data between people, departments and workstations. A full description of a system actually consists of a set of data flow diagrams. Using two familiar notations Yourdon, Gane and Sarson notation develops the data flow diagrams. Each component in a DFD is labeled with a descriptive name. Process is further identified with a number that will be used for identification purpose. The development of DFD’S is done in several levels. Each process in lower level diagrams can be broken down into a more detailed DFD in the next level. The lop-level diagram is often called context diagram. It consists a single process bit, which plays vital role in studying the current system. The process in the context level diagram is exploded into other process at the first level DFD. The idea behind the explosion of a process into more process is that understanding at one level of detail is exploded into greater detail at the next level. This is done until further explosion is necessary and an adequate amount of detail is described for analyst to understand the process. Larry Constantine first developed the DFD as a way of expressing system requirements in a graphical from, this lead to the modular design. A DFD is also known as a “bubble Chart” has the purpose of clarifying system requirements and identifying major transformations that will become programs in system design. So it is the starting point of the design to the lowest level of detail. A DFD consists of a series of bubbles joined by data flows in the system.

21

DFD SYMBOLS: In the DFD, there are four symbols 1. A square defines a source(originator) or destination of system data 2. An arrow identifies data flow. It is the pipeline through which the information flows 3. A circle or a bubble represents a process that transforms incoming data flow into outgoing data flows. 4. An open rectangle is a data store, data at rest or a temporary repository of data

Process that transforms data flow.

Source or Destination of data

Data flow

Data Store

22

DFD(DATA FLOW DIAGRAM)

COTEXT(0 LEVEL DFD)

23

24

25

CHAPTER 8 E R diagram

26

ER constructs
In E-R diagrams, entity types are represented by squares. See the table below. Relationship types are shown in diamond shaped boxes attached to the participating entity types with straight lines. Attributes are shown in ovals, and each attribute is attached to its entity type or relationship type by a straight line. Multivalued attributes are shown in double ovals. Key attributes have their names underlined. Derived attributes are shown in dotted ovals.

Weak entity types are distinguished by being placed in double rectangles and by having their identifying relationship placed in double diamonds.

Attaching a 1, M, or N on each participating edge specifies cardinality ratio of each binary relationship type. The participation constraint is specified by a single line for partial participation and by double lines for total participation. The participation constraints specify whether the existence of an entity depends on its being related to another entity via the relationship type. If every entity of an entity set is related to some other entity set via a relationship type, then the participation of the first entity type is total. If only few member of an entity type is related to some entity type via a relationship type, the participation is partial.

ENTITY TYPE

WEAK ENTITY TYPE

RELATIONSHIP TYPE

ATTRIBUTE

27

KEY ATTRIBUTE

MULTIVALUED ATTRIBUTE

DERIVED ATTRIBUTE

TOTAL PARTICIPATION OF E2 IN R

Cardinality Ratio 1:N FOR E1:E2 IN R

Structural Constraint(Min,Max) On Participation Of E In R

Naming Data Objects
The names should have the following properties:
   unique, Have meaning to the end-user. Contain the minimum number of words needed to uniquely and accurately describe the object.

For entities and attributes, names are singular nouns while relationship names are typically verbs.

28

ER-DIAGRAM

PreDoc Address DocID

PreHosp

Med History

OP ID

Patient

Has

Medical History IP ID

Name

Undergoes OP ID

Login IP ID Treatment Doc ID Password Treat Details Doctor

User Name

Speciality Doc ID Name

29

CHAPTER 9 DATABASE DESIGN

30

Table for Admitted patients Details

Table for Discharge patients

31

Table for Doctor’s Information

Table for Medicine

32

Table for Ward

33

CHAPTER 10 Input and output screen design

34

LOGINE FORM

35

HOME WINDOW FORM

36

DOCTORS FORM

37

ADMITTED PATIENTS FORM

38

DISCHARGE PATIENTS FORM

39

MEDICINE FORM

40

OPD DOCTORS FORM

41

SEARCHING FORM

42

REORT GENERATION Form

43

REORT GENERATION 2 FORM

44

REORT GENERATION 3

45

CHAPTER 12 coding

46

For LOGIN Form Private Sub Command1_Click() If (Text1.Text = "mca3" And Text2.Text = "mca3") Then home.Show Unload Me Else MsgBox "Username or Password Not Recognaized", vbOKOnly + vbQuestion, "NO ENTRY" End If End Sub

Private Sub Form_Load()

End Sub

For Main Home Window :-

Dim Cal As Variant Dim i As Integer Private Sub Command1_Click() Load doctor Unload home End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click for view of Doctors Information " End Sub

Private Sub Command10_Click() Load search Unload home End Sub
47

Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Search Records " End Sub Private Sub Command11_Click() Unload Me Load report End Sub Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Report Genetration " End Sub

Private Sub Command12_Click() Load abt_us abt_us.Show Unload Me End Sub Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Information About Project and Devloper " End Sub

Private Sub Command13_Click() Load calendar calendar.Show Unload Me End Sub Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For see Calendar " End Sub Private Sub Command14_Click() Cal = Shell("calc.exe", normalmode)
48

End Sub Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Use of CALCULATOR" End Sub Private Sub Command2_Click() opd_pati.Show home.Hide End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = "Click for the getting information of OPD patients " End Sub Private Sub Command3_Click() Load medicine Unload home End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Medicine Department Information " End Sub Private Sub Command4_Click() Load pat_info Unload home End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click for View of Admitted Patients Information " End Sub Private Sub Command5_Click() Load ward Unload home End Sub

49

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click for View of Wards Information" End Sub

Private Sub Command6_Click() Load month Unload Me End Sub

Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click for See Month" End Sub Private Sub Command7_Click() Dim s As Integer s = MsgBox("R You want to close the Application", vbYesNo + vbQuestion, "Closing Information") If s = vbYes Then En End If

End Sub Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = "Click to EXIT FROM APPLICATION" End Sub Private Sub Command8_Click() Load opd_doctor Unload Me End Sub

Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
50

moto.Caption = "click for the OPD status of doctors " End Sub

Private Sub Command9_Click() Load discharge Unload home Unload doctor End Sub

Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = " Click For Discharge Patients Information " End Sub

Private Sub Form_Load() i=1 home.WindowState = 2 If home.Enabled = True Then Timer1.Enabled = True Else Timer1.Enabled = False End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) moto.Caption = "DO NOT NOISE" End Sub

Private Sub Timer1_Timer()

If i < 19 Then Image2.Picture = ImageList1.ListImages(i).Picture
51

i=i+1 Else i=1 End If

End Sub For Doctors information:Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then MsgBox "your are in First Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious

End If

End Sub

Private Sub Command3_Click() If Adodc1.Recordset.EOF = True Then MsgBox "your are in last Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveLast Else Adodc1.Recordset.MoveNext

End If
52

End Sub

Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub

Private Sub Command5_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False a = MsgBox(("Are U want a add new record "), vbYesNo + vbQuestion) If a = 6 Then

Adodc1.Recordset.AddNew Text1.Locked = False Text2.Locked = False Text4.Locked = False Text5.Locked = False Combo1.Locked = False

Text1.SetFocus

Else

Adodc1.Recordset.MoveFirst Command1.Enabled = True Command2.Enabled = True
53

Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If End Sub

Private Sub Command6_Click()

Dim z As Integer

z = MsgBox("R U want to changed The record ! ", vbYesNo + vbQuestion)

If z = vbYes Then

Text1.Locked = False Text2.Locked = False Text4.Locked = False Text5.Locked = False Combo1.Locked = False MsgBox "Edition Mode is Activated", vbOKOnly + vbInformation, "Informaton"

Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False
54

Command9.Enabled = False

ElseIf z = vbNo Then

Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveFirst MsgBox "Edition mode has cancled", vbOKOnly + vbCritical, "information"

End If

End Sub

Private Sub Command7_Click()

If (Text1.Text = Empty Or Text2.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty) Then

MsgBox "Please Fill all Fields carefully ", vbOKOnly

Else

Adodc1.Recordset.Update

MsgBox "Record save Succesfully", vbOKOnly

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True
55

Text1.Locked = True Text2.Locked = True Text4.Locked = True Text5.Locked = True Combo1.Locked = True

End If

End Sub

Private Sub Command8_Click() Dim c As String

If (Text1.Text = Empty Or Text2.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty) Then

MsgBox "Please,check all fields ", vbOKOnly Else

c = MsgBox(("sure ! U want to delet this Record"), vbYesNo + vbQuestion) If c = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast Command7.Enabled = False

MsgBox "Record Successfully Deleted", vbExclamation, "Delete Information"

Else: c = vbNo Adodc1.Recordset.MoveLast

MsgBox "Record Deletion Canceled", vbExclamation, "Delete Information"

End If
56

End If

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True

End Sub

Private Sub Form_Load() Dim a As String, b As String doctor.Width = 9570 doctor.Height = 7800 MDIForm1.home1.Enabled = False

Text1.Locked = True Text2.Locked = True Text4.Locked = True Text5.Locked = True Combo1.Locked = True End Sub

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub Private Sub Command9_Click()
57

home.Show Unload Me Unload MDIForm1

End Sub

For Admitted Patients information:-

Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then MsgBox "your are in First Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious

End If

End Sub

Private Sub Command3_Click() If Adodc1.Recordset.EOF = True Then MsgBox "your are in last Record", vbOKOnly + vbInformation, Massage Adodc1.Recordset.MoveLast Else
58

Adodc1.Recordset.MoveNext

End If

End Sub

Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub

Private Sub Command5_Click()

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

a = MsgBox(("Are U want a add new record "), vbYesNo + vbQuestion) If a = 6 Then

Adodc1.Recordset.AddNew Text1.SetFocus Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False
59

Text7.Locked = False Text8.Locked = False Text9.Locked = False Text10.Locked = False Else

Adodc1.Recordset.MoveFirst Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If End Sub

Private Sub Command6_Click() Dim z As Integer

z = MsgBox("R U want to changed The record ! ", vbYesNo + vbQuestion)

If z = vbYes Then

Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False
60

Text9.Locked = False Text10.Locked = False

MsgBox "Edition Mode is Activated", vbOKOnly

Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

ElseIf z = vbNo Then

Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveFirst MsgBox "Edition mode has cancled"

End If End Sub

Private Sub Command7_Click()

If (Text1.Text = Empty Or Text2.Text = Empty Or Text3.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Text6.Text = Empty Or Text7.Text = Empty Or Text8.Text = Empty Or Text9.Text = Empty Or Text10.Text = Empty) Then MsgBox "please Fill all Fields carefully ", vbOKOnly

61

Else

Adodc1.Recordset.Update MsgBox "record save Succesfully", vbOKOnly

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Text9.Locked = True Text10.Locked = True End If

End Sub

Private Sub Command8_Click() Dim c As String

62

If (Text1.Text = Empty Or Text2.Text = Empty Or Text3.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Text6.Text = Empty Or Text7.Text = Empty Or Text8.Text = Empty Or Text9.Text = Empty Or Text10.Text = Empty) Then

MsgBox "please , check all fields ", vbOKOnly

Else

c = MsgBox(("sure ! U want to delet this Record"), vbYesNo + vbQuestion) If c = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast Command7.Enabled = False MsgBox "Record Successfully Deleted", vbExclamation, "Delete Information"

Else: c = vbNo Adodc1.Recordset.MoveLast

MsgBox "Record Deletion Canceled", vbExclamation, "Delete Information" End If End If

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False
63

Command8.Enabled = True Command9.Enabled = True End Sub

Private Sub Command9_Click() home.Show Unload Me Unload MDIForm1

End Sub

Private Sub Form_Load() pat_info.Width = 8730 pat_info.Height = 9315 MDIForm1.home1.Enabled = False

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Text9.Locked = True Text10.Locked = True End Sub

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub
64

For Discharge Patients:-

Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then MsgBox "your are in First Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious

End If

End Sub

Private Sub Command3_Click() If Adodc1.Recordset.EOF = True Then MsgBox "your are in last Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveLast Else Adodc1.Recordset.MoveNext

End If

End Sub

Private Sub Command4_Click()
65

Adodc1.Recordset.MoveLast End Sub

Private Sub Command5_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

Text1.Locked = False Text2.Locked = False Text3.Locked = False Text5.Locked = False Combo1.Locked = False Combo2.Locked = False Combo3.Locked = False a = MsgBox(("Are U want a add new record "), vbYesNo + vbQuestion) If a = 6 Then

Adodc1.Recordset.AddNew Text1.SetFocus

Else

Adodc1.Recordset.MoveFirst Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True
66

Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If End Sub

Private Sub Command6_Click() Dim z As Integer

z = MsgBox("R U want to changed The record ! ", vbYesNo + vbQuestion)

If z = vbYes Then

Text1.Locked = False Text2.Locked = False Text3.Locked = False Text5.Locked = False Combo1.Locked = False Combo2.Locked = False Combo3.Locked = False

MsgBox "Edition Mode is Activated", vbOKOnly Text1.SetFocus

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False
67

Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

ElseIf z = vbNo Then

Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveFirst MsgBox "Edition mode has cancled"

End If

End Sub

Private Sub Command7_Click()

If (Text1.Text = Empty Or Text2.Text = Empty Or Text3.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty Or Combo2.Text = Empty Or Combo3.Text = Empty) Then MsgBox "please Fill all Fields carefully ", vbOKOnly

Else

Adodc1.Recordset.Update MsgBox "record save Succesfully", vbOKOnly Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True
68

Command9.Enabled = True

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text5.Locked = True Combo1.Locked = True Combo2.Locked = True Combo3.Locked = True End If

End Sub

Private Sub Command8_Click()

Dim c As String

If (Text1.Text = Empty Or Text2.Text = Empty Or Text3.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty Or Combo2.Text = Empty Or Combo3.Text = Empty) Then MsgBox "please , check all fields ", vbOKOnly

Else

c = MsgBox(("sure ! U want to delet this Record"), vbYesNo + vbQuestion) If c = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast Command7.Enabled = False MsgBox "Record Successfully Deleted", vbExclamation, "Delete Information"

69

Else: c = vbNo

Adodc1.Recordset.MoveLast

MsgBox "Record Deletion Canceled", vbExclamation, "Delete Information"

End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If

End Sub

Private Sub Form_Load() doctor.Width = 9570 doctor.Height = 7800 MDIForm1.home1.Enabled = False

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text5.Locked = True Combo1.Locked = True Combo2.Locked = True Combo3.Locked = True End Sub
70

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub Private Sub Command9_Click()

home.Show Unload Me Unload MDIForm1

End Sub For Medicine:-

Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then MsgBox "your are in First Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious

End If

End Sub

Private Sub Command3_Click() If Adodc1.Recordset.EOF = True Then
71

MsgBox "your are in last Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveLast Else Adodc1.Recordset.MoveNext End If

End Sub

Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub

Private Sub Command5_Click() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False Text1.Locked = False Text2.Locked = False Text4.Locked = False Text5.Locked = False Combo1.Locked = False a = MsgBox(("Are U want a add new record "), vbYesNo + vbQuestion) If a = 6 Then

Adodc1.Recordset.AddNew Text1.SetFocus Else

72

Adodc1.Recordset.MoveFirst Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If End Sub

Private Sub Command6_Click() Dim z As Integer

z = MsgBox("R U want to changed The record ! ", vbYesNo + vbQuestion)

If z = vbYes Then

Text1.Locked = False Text2.Locked = False Text4.Locked = False Text5.Locked = False Combo1.Locked = False

MsgBox "Edition Mode is Activated", vbOKOnly

Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False
73

Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

ElseIf z = vbNo Then

Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveFirst MsgBox "Edition mode has cancled"

End If

End Sub

Private Sub Command7_Click()

If (Text1.Text = Empty Or Text2.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty) Then MsgBox "please Fill all Fields carefully ", vbOKOnly

Else

Adodc1.Recordset.Update MsgBox "record save Succesfully", vbOKOnly

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False
74

Command8.Enabled = True Command9.Enabled = True

Text1.Locked = True Text2.Locked = True Text4.Locked = True Text5.Locked = True Combo1.Locked = True

End If

End Sub

Private Sub Command8_Click() Dim c As String

If (Text1.Text = Empty Or Text2.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Combo1.Text = Empty) Then

MsgBox "please , check all fields ", vbOKOnly

Else

c = MsgBox(("sure ! U want to delet this Record"), vbYesNo + vbQuestion) If c = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast Command7.Enabled = False
75

MsgBox "Record Successfully Deleted", vbExclamation, "Delete Information"

Else: c = vbNo Adodc1.Recordset.MoveLast

MsgBox "Record Deletion Canceled", vbExclamation, "Delete Information"

End If End If

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End Sub

Private Sub Command9_Click()

home.Show Unload Me Unload MDIForm1

End Sub

Private Sub Form_Load() medicine.Width = 9570
76

medicine.Height = 7290 MDIForm1.home1.Enabled = False

Text1.Locked = True Text2.Locked = True Text4.Locked = True Text5.Locked = True Combo1.Locked = True

End Sub

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub

For Ward Information Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command2_Click() If Adodc1.Recordset.BOF = True Then MsgBox "your are in First Record", vbOKOnly + vbInformation, Massage Adodc1.Recordset.MoveFirst Else Adodc1.Recordset.MovePrevious

End If
77

End Sub

Private Sub Command3_Click() If Adodc1.Recordset.EOF = True Then MsgBox "your are in last Record", vbOKOnly + vbInformation, "Massage" Adodc1.Recordset.MoveLast Else Adodc1.Recordset.MoveNext

End If

End Sub

Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub

Private Sub Command5_Click()

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

a = MsgBox(("Are U want a add new record "), vbYesNo + vbQuestion)
78

If a = 6 Then

Adodc1.Recordset.AddNew Text1.SetFocus Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False

Else

Adodc1.Recordset.MoveFirst Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If End Sub

Private Sub Command6_Click() Dim z As Integer

z = MsgBox("R U want to changed The record ! ", vbYesNo + vbQuestion)

If z = vbYes Then

Text1.Locked = False Text2.Locked = False
79

Text3.Locked = False Text4.Locked = False Text5.Locked = False

MsgBox "Edition Mode is Activated", vbOKOnly

Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False

ElseIf z = vbNo Then

Adodc1.Recordset.CancelUpdate Adodc1.Recordset.MoveFirst

MsgBox "Edition mode has cancled"

End If

End Sub

Private Sub Command7_Click()

If (Text1.Text = Empty Or Text2.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty Or Text3.Text = Empty) Then MsgBox "please Fill all Fields carefully ", vbOKOnly
80

Else

Adodc1.Recordset.Update MsgBox "record save Succesfully", vbOKOnly

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End If

End Sub

Private Sub Command8_Click() Dim c As String

81

If (Text1.Text = Empty Or Text2.Text = Empty Or Text3.Text = Empty Or Text4.Text = Empty Or Text5.Text = Empty) Then

MsgBox "please , check all fields ", vbOKOnly

Else

c = MsgBox(("sure ! U want to delet this Record"), vbYesNo + vbQuestion) If c = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast Command7.Enabled = False MsgBox "Record Successfully Deleted", vbExclamation, "Delete Information" Else: c = vbNo Adodc1.Recordset.MoveLast MsgBox "Record Deletion Canceled", vbExclamation, "Delete Information" End If End If

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True End Sub Private Sub Command9_Click() Unload Me home.Show Unload MDIForm1

82

End Sub

Private Sub Form_Load() ward.Width = 9120 ward.Height = 7965 MDIForm1.home1.Enabled = False

Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True End Sub

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub For Serach :-

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click()

If (Option1.Value = False And Option2.Value = False And Option3.Value = False) Then

MsgBox "Please first select categeory", vbOKOnly + vbInformation, "Massage" Text1.Text = " " End If

If Option1.Value = True Then Dim f As Integer rs.MoveFirst
83

Do While (rs.EOF <> True) If (rs!reg_id = Text1.Text) Then Label3.Caption = rs!patients_name Label4.Caption = rs!admitted_date Label5.Caption = rs!ward_id Label6.Caption = rs!bed_no

f=1

End If

rs.MoveNext Loop

If f <> 1 Then MsgBox "Record Not found ! ", vbOKOnly + vbInformation, "massege" End If End If

If Option2.Value = True Then

rs.MoveFirst

Do While (rs.EOF <> True) If (rs!patients_name = Text1.Text) Then

Label3.Caption = rs!reg_id Label4.Caption = rs!admitted_date Label5.Caption = rs!ward_id Label6.Caption = rs!bed_no f=1

End If
84

rs.MoveNext Loop

If f <> 1 Then MsgBox "Record Not found ! ", vbOKOnly + vbInformation, "massege" End If End If If Option3.Value = True Then

rs.MoveFirst Do While (rs.EOF <> True) If (rs!bed_no = Text1.Text) Then

Label3.Caption = rs!reg_id Label4.Caption = rs!patients_name Label5.Caption = rs!ward_id Label6.Caption = rs!bed_no f=1

End If

rs.MoveNext Loop

If f <> 1 Then MsgBox "Record Not found ! ", vbOKOnly + vbInformation, "massege" End If End If End Sub

Private Sub Command2_Click()
85

Text1.Text = Clear Label3.Caption = "Wait" Label4.Caption = "Wait" Label5.Caption = "Wait" Label6.Caption = "Wait" End Sub

Private Sub Command9_Click() con.Close home.Show Unload Me Unload MDIForm1

End Sub

Private Sub Form_Load() MDIForm1.home1.Enabled = False search.Width = 11970 search.Height = 9930 con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=kunal_hospital" con.Open rs.Open "admitted_patients", con, adOpenDynamic, adLockOptimistic

End Sub

Private Sub Form_Unload(Cancel As Integer) MDIForm1.home1.Enabled = True End Sub

Private Sub Option1_Click()

If Option1.Value = True Then Label2.Caption = "Enter the Patients ID Number "
86

Label7.Caption = "Name of Patients " Label8.Caption = "Admiitted Date " Label9.Caption = "Ward ID NUmber. " Label10.Caption = "BED Number "

ElseIf Option1.Value = False Then Label2.Caption = "Enter ..... " Label7.Caption = " " Label8.Caption = " " Label9.Caption = " " Label10.Caption = " "

End If End Sub

Private Sub Option2_Click() Text1.Locked = False If Option2.Value = True Then Label2.Caption = "Enter the Name of Patients "

Label7.Caption = "Ragistration No.of Patients " Label8.Caption = "Date Of Admittion " Label9.Caption = "Ward ID NUmber. " Label10.Caption = "BED Number "

ElseIf Option2.Value = False Then Label2.Caption = "Enter ..... " Label7.Caption = " " Label8.Caption = " " Label9.Caption = " " Label10.Caption = " "

87

End If End Sub

Private Sub Option3_Click() Text1.Locked = False If Option3.Value = True Then Label2.Caption = "Enter the ID of Doctor "

Label7.Caption = "Ragisgtration Number of Patients " Label8.Caption = "Patients Name " Label9.Caption = "Ward ID NUmber. " Label10.Caption = "BED Number "

ElseIf Option1.Value = False Then Label2.Caption = "Enter ..... "

Label7.Caption = " " Label8.Caption = " " Label9.Caption = " " Label10.Caption = " " End If

End Sub

88

CHAPTER 13 Conclusion

89

The project Hospital Management System 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.

90

CHAPTER 14 Limitation and future scope

91

LIMITATION OF THE SYSTEM

Limitations of the system and future development areas:

Limitation of any system is difference between the required system & the developed system: -

1. It is developed for only stand-alone PC. 2. This system is quite easy to use this is not its limitation but its restrictive features are its limitation. 3. The back end used in the system is M S Access, which is not an RDBMS. 4. The system does not support multiple users. 5. There are few things, which should be kept in mind while using the system.

92

CHAPTER 15 references

93

References
For the completion of this project I referred to the following goods

1. Data Base Programming with Visual Basic 6.0 By Curtis L. Smith & Michael C. Amundsel 2. Using Visual Basic 6.0 By Brian Silver & Jeff Spott 3. Mastering Visual Basic By My Microsoft 4. Mastering Visual Basic By BPB Publication 5. Introduction to VB programming By V.K. Jain

94

Sponsor Documents

Or use your account on DocShare.tips

Hide

Forgot your password?

Or register your new account on DocShare.tips

Hide

Lost your password? Please enter your email address. You will receive a link to create a new password.

Back to log-in

Close