Hospital Report

PROJECT REPORT ON

HEALTH CARE SYSTEM

Submitted towards the partial fulfillment of the requirement For the award of the degree of BACHELOR OF COMPUTER APPLICATION (BCA)

SUBMITTED BY

UNDER THE GUIDANCE

RAVISH TYAGI (Roll no 8030081)

Gaurav Sharma

DEEN DAYAL COLLEGE, M. NAGAR AFFILIATED TO CH. CHARAN SINGH, UNIVERSITY, MEERUT

1

CONTENTS

1. Contents of Index 2. Title of the project 3. Acknowledgement 4. Study Center Certificate 5. Certificate 6. Self Certificate 7. Project Outline

 Project Outline Objective  Problem definition  Required hardware  Required software  The hardware & software specification of environment necessary to run the project 8. The Sponsoring Organization 9. System Analysis

10.

Software Planning

11.

System Design

12.

Testing and Debugging

13.

Security of the System

14. Conclusion 15. Bibliography

2

PROJECT TITLE

HEALTH CARE SYSTEM

3

ACKNOWLEDGEMENT

This project report on ”HEALTH CARE SYSTEM (HCS)” is the result of idea and suggestions to me by Gaurav Sharma. I have received unfailing encouragement and inspiration of Gaurav Sharma exceptional knowledge and unparalleled behavior is full of ardent inspiration in it. However, we can never adequate thank all those who have their assistance, guidance, cooperation criticism contributed to the improvement of this report. I am ebullient in expressing my intense in debtless heartiest gratitude to all of them. Since performance feedback is essential for effective communication, mistakes and creative feedback of the report may be unhesitatingly communicated to me, which will be as far as possible duly acknowledged and most welcome. In this report, whatever is beneficial comes from almighty, and whatever is faulty is mine.

DATE

SUBMITTED BY RAVISH TYAGI (Roll no 8030081)

4

CERTIFICATE

This is to certify that this project entitled “HEALTH CARE SYSTEM (HCS)” submitted in

partial fulfillment of the degree of BCA to the

Ch.Charan Singh University, Meerut, prepared by RAVISH TYAGI (ROLL NO 8030081) an authentic work carried out by him at DEEN DAYAL COLLEGE, M.Nagar under my Guidance. The matter embodied in this project work has been submitted earlier for award of any degree or diploma to the best of my knowledge and belief.

Signature of the Guide GAURAV SHARMA

5

SELF CERTIFICATE

This is to certify that the dissertation/project report titled “HEALTH CARE SYSTEM (HCS)” is done by us is an authentic work carried out for the partial fulfillment of the requirements for the award of the degree of BCA under the guidance of GAURAV SHARMA The matter embodied in this project work has not been submitted earlier for award of any degree or diploma to the best of my knowledge and belief.

Signature of the student

Signature of the HOD

RAVISH TYAGI(Roll no 8030081)

6

COLLEGE CERTIFICATE

7

INTRODUCTION TO PRESENT SYSTEM

Hospital Management System is a tool that It provides efficient services to its Patient. The various types of operations and dealings take places in the Hospital. But we had undertaken the work of Computerization of Generation of Hospital and Management which covers the activities related to Patient, Staff etc.

& All Types of

activities corresponds to the Doctors, these operations was manually operated by the clerks and Operator and the operations were really time consuming task to perform. The present system will help them a lot.

8

HARDWARE REQUIREMENT

This software run in any environment .This software needs at least Pentium prosessor 32MB RAM memory,2.1GB of Hard disk ,SVGA display of 1 MB video memory and color monitor but with this lot of processor power consumed and speed of the system will be very slow. Therefore a realistic hardware configuration for this software is:Processor

:

Pentium 3 or higher processor

Operating System

:

Microsoft windows 98 or xp

Ram Memory

:

64 MB

Monitor

:

VGA Monitor or high resolution

:

8.4 GB of free space required

Display

:

VGA card

Keyboard

:

104 keys

Mouse

:

True Mouse

Visual Basic

:

6.0

Microsoft Access

:

2003

Monitor Hard Disk during installation

9

FRONT END VISUAL BASIC has been developed by Microsoft. Visual Basic can use a large number of reference liabraries and components. Visual Basic –the environment-provides integration with a variety of other tools, including source code management ,component reuse tools and data manipulation. Visual Basic truly is much more of a “programming environment” than just a language. using this environment ,a single developer can quickly create a simple application; a team of developers can create a so sophisticated, distributed application. Features in Visual Basic 6.0  Data access  Internet features  Controls  Component creation  Language  Wizards Visual Basic has evolved to be much more than a language-it is an application producing “machine”.no other development environment on the planet provides as wide a variety of capabilities in the box as Visual Basic. Even though Visual Basic is much more productive than other tools,it also requires more discipline to produce clean design. A key to improving your

10

programming technique is to embrace the capabilities to create classes and ActiveX in Visual Basic. As system becomes more complex and distributed, no single tool can address all of the needs of the system.Visual Basic provides the development environments with the raw tools needed to build small systems well as components of large system. If we look at all of the new features and functions added to the 6.0 release of the Visual Basic, a couple of themes become evident: the internet and the database BACK END A database is a collection of information that’s related to a particular subject or purpose, such as tracking customer orders or maintaining a music collection .If your database isn’t stored on a computer, or only parts of it are , you may be tracking information from a variety of sources that you have having to coordinate and organize yourself. For example, suppose the

phone numbers of your suppliers are stored in

various locations: in a card file containing supplier phone numbers, in product information file cabinet, and in a spreadsheet containing order information .if a supplier’s phone number changes, you might have to update that information in all three places in database, however, you only have to update that information in one place- the supplier’s phone number is automatically updated wherever you use it in database. 11

Using Microsoft Access, you can manage all your information from a single database file. within the file, you can use: • Tables to store your data. • Queries to find and retrieve just the data you want • Forms to view, add and update data in tables. • Reports to analyze or print data in a specific layout. • Data access pages to view, update, or analyze the database’s data from the internet or an intranet.

12

HOSPITAL CHART

BOOKING ROOM

STAFF

HOSPITAL

ROOMS

CALCULATE BILL PATIENT REPORTS

13

DFD FOR USER LOGIN

1

USER

User_id

User Enter Their Password & User_Id for Opening the application Accessing User Information Invalid User Matched

Pasword Validity Process Process

Accessing User

Information Valid User for Type Matching

Invalid User Type

User Type Validity Process

Matched

14

DFD FOR ROOM

t ROOM Room details

Room not available

Data Validity Process

Patient1

1

2

Patient2

15

DFD FOR PATIENT

PATIENT 1

Room1

Accessing Patient Info

Searching Room

Not found

Display Process Available room

16

ENTITY – RELATIONSHIP DIAGRAM The entity – relationship (E – R) data model is based on a perception of a real world that consists of a collection of basic objects, called entities, and of relationships among these objects. An entity is a thing or objects in the real world that is distinguishable from other objects. Entities are described in database by a set of attributes. A relationship is an association among several entities. The set of all entities of the same type and the set of all relationships of the same type are termed as entity set and relationship set, respectively. The overall logical structure (schema) of a database can be expressed graphically by an E-R Diagram, which is built up from the following components:

• Rectangles, which represents entity sets. • Ellipses, which represents attributes. • Diamonds, which represents relationships among entity sets. • Lines, which link attributes to entity sets and entity sets to relationships.

17

rent

Age

Orderno.

Phone

Address

Roomtype

Name

Roomno

ROOM Roomno

Patient

Admit

Date contains

Pid

has

HOSPITAL DATABASE

Has staff members

address staff staffid

name

post

18

OPERATIONS OF PRESENT SYSTEM

The Hospital Management is further the integration of various sub-systems. Broadly speaking these sub-system are based on following broadly classified activities. A. Room management • Add new rooms • Delete room • Modify room • Search room B. Staff management • Add new staff • Delete staff • Modify staff • Search staff C. Patient Management • Add new patient • Delete patient • Modify patient • Search patient D. Calculating bill

19

SYSTEM DEVELOPMENT LIFE CYCLE

Software development is a complex process so we divide the process in a small module. These modules are called system development phases. These phases are combinedly known as system development life cycle. These linear cycle phases are given below: i. Recognition of Needs: - It includes preliminary survey and initial

investigation by personnel interviews and questionnaires. ii. System Analysis: - Detailed evaluation of present system and data

collection is done. The various reports and documents used are studied in detail. After that the interview of various levels of management is carried out. The DFD. Data dictionary, Menu chart are the tools used for it. iii. System Desigh: - It involves general and detailed design specification,

output, input files, files, program construction plans, all these details are submitted to user and got signed. iv. System

Construction: - It involves implementation of total

construction plan i.e. coding. It is done in a language i.e. known to user, analyst and programmer. v. Testing: - Each and every input and output program is executed

separately and tested for bugs. Whole of the system is executed and test 20

data is prepared and is fed in to the system and the output reports are compared with the parameters. vi. Implementation: - It checks that users requirement are fulfilled or not. Response time is checked and finally the user manual is prepared and is submitted.

21

ANALYSIS PHASE PROPOSAL FOR A NEW SYSTEM SYSTEM DEFINATION A system may be defined as any set of modules and ideas and its interrelationships that is ordered to achieve a common goal .A system processes the input to produce outputs .The process in a manual system usually employs various types of elements. • Physical • Procedural • Conceptual • Social etc. A system is limited by its boundary. A system is composed of sub-systems, which are also systems as this developed Hospital Management System. It was decided to develop a system which having following features: 1. Room management 2. Staff management 3. Patient management Therefore, the system has the characteristics of frequently available information.

22

PERFORMANCE REQUIREMENTS: 1. USER-FRIENDLY: The system should be user friendly so that it can be easily understood by the user without any difficulty. 2. EASY TO MAINTAIN: The system be easy to maintain and use. The system should be less time consuming whish could be achieved by good programming. 3. PORTABILITY: The system probability should be take care of without any interventions. 4. SECURITY: The system should be secure from the unauthorized access and should be password protected so that no other user can access it. 5. ERROR FREE: The system should easily handle the use error in any case.

23

GENERAL ATTRIBUTES: • AVAILABILITY • MAINTAINABILITY This software can be maintained with the help of extensive documentation to be provided to the client. • TRANSFERABILITY/CONVERSION Product can easily be transferable to new version of windows. LIMITATIONS OF EXISTING SYSTEM When the existing system of the Hospital is working, we found that some add on were required there so that problems could be solved. Some of the problems or limitations in the present system are: 1) To update each Patient the patient has to Modify each room. 2) While preparing the Reports statements the Staff members have to manually go through the Records Mannually. 3) There is no security of the database register i.e. any other person can make changes in the database. 4) Calculating billing. 5) It is a time consuming task to prepare the list of patient of different room.

24

SYSTEM ANALYSIS

OBJECTIVE OF THE STUDY Information plays a key role as the horizons of knowledge keep on expanding since the project is an effort to making a software for Hospital that holds the complete information of Hospital and Patient. System Analysis is a very vast field of study through which a system analyst puts his thought and search for the best solution of problem .Really, system analysis is not a precise science, in fact it is an art of scientific approach through which a analyst find the facts and records them in flexible manner . Since the evolution of computer, computer based information system has generally increased the quality and the performance of the computerization of entrance test, that’s why the possibility of partiality or mistakes by checker has lowered down almost to zero(0). For understanding the actual performance it provides lots of options are here which make works easy and one click event. PRELIMINARY INVESTIGATION The first step in the computerization of entrance test is to investigate the feasibility of the system. The purpose is to evaluate the project requirement .It is the collection of information that made the impartial and very easy for the user to attempt any entrance test. 25

The following objectives were achieved

during the preliminary

investigation. • Classification and the understanding of the project. • Determination of options required for the test • Determination of the technical and operational feasibility of the alternative approaches. . STRUCTURED ANALYSIS DATA FLOW MODEL (DFD) The DFD may be used to represent a system at any level of abstraction. It may be partitioned into two levels that represent increased and functional flow details .It is also called fundamental model or context model represent as a entire software element. A DFD is a graphical technique that depicts information flow and transforms that are applied as data move from input to output that is why it is also called bubble chart .It may be broken into different levels. Function depicted here are sub functions of overall system depicted in the context model. FEASIBILITY ANALYSIS It is a text of proposed system according to its work ability, ability to meet users need and effective use of resources.

26

It is developed as a selection criteria and selection procedures. There are three criteria for judgement are as follows: TECHNICAL FEASIBILITY This tells whether the appropriate h/w and s/w application tools will be available when required. The system is developed under. • Pentium4 • Window -xp platform • Visual basic ECONOMICAL FEASIBILITY The application module has since been by us but it is difficult to know the cost of this package in monetary terms after considering h/w, s/w and overall expenses in project making. OPERATIONAL FEASIBILITY: This informs us whether the user will accept it or not and considered that it does not need extra training to operate it . Online guidelines are to be there and proper error message are to be displayed if occurs during execution. Moreover the reports are generated in same format as are in existing system.

27

DESIGN OBJECTIVE Desugn is an excat blueprint of what will be built & a basis for the configuration & content of that blueprint .The primary objective of the design is to deliver the requirements as specified in the feasibility report. Following objectives should be kept in mind: 1. Practicability:The system must be stable & can be operated by people of average intelligence. 2. Efficiency:Good design should be efficient as it should properly use the scare resource of system. two of the important such resources are processor time & memory. An efficient system consume less processor time & memory. 3. Cost: It is desirable to aim for a system with a minimum cost subject to the condition that it must satisfy all the requirements. 4. Flexibility: The system should be modifiable depending on the changing needs of the user, Such modifications should not entail extensive reconstruction or recreation of software. It should also be portable to different computer systems.

28

5. Security: This is very important aspect of the design & should cover areas as hardware reliability, fall back procedures, physical security of data & provision of detection of fraud & abuse.

6. Reliability:The end user will normally specify reliability requirements for a new system.these requirements may be expressed in terms of mean time between failure or mean time to repair or system availability. 7. Correctness:Good design should correctly implement both ,all of the explicit requirements contained in the analysis model and all of the implicit requirements desired by the customer. 8. Understandability:The design should be a readable , simple, understandable guide for those who generate code and for those who test and subsequently support the system. 9. Modularity:It aims for composition of a problem into modules which results in reduction of complexity of the design solution. 10.Completeness:Good design should cover all relevant data structures , modules ,external interface and module interconnection .

29

11.Consistency:Design should follow consistency through the system. it aims that there is no inherent inconsistencies in the design. 12.Verifiability:Concerned with how easily the correctness of design canbe checked. 13.Traceabiliy:Design should be traceable. traceable design aid design verification.

30

FEASIBILITY REPORT Is it feasible to automatic the system? The three major areas to determine the feasibility of project: 1. Technical Feasibility:

The current level of technology can support the proposed system. The proposed software is enabling to meet all the objective of the system and output received is more efficient. So the project is technical feasible. 2.

Economic Feasibility: The proposed system needs to get hardware and software installed. The short-term costs are over shadowed by the long-term gains. The profits of the business is raised as this visual drafting system help in establishing the better relationship between client and also satisfy their query’s and so the cost of the development of the software and hardware is over shadowed. Thus, project is economically feasible.

3. Operational Feasibility:

The current system faces a lot of problems that are removed in the proposed system. The Clients of the system will be free from the burden and a lot of confusion. The clients are themselves interested in getting the manual system replace by the automated one. The proposal system is user friendly, so even a layman can use it. Thus it is operationally feasible.

31

COST & BENEFIT ANALYSIS In developing cost estimates for a system, we need to consider servable cost elements. Among them hardware, personnel, facility, operating, & supply costs.

Hardware Cost Hardware cost relate to the actual purchase or lease of the computer &peripherals Ex. Printers, disk, floppy drive, the best way to control for this cost is to treat it as an operating cost. Personnel Cost This include staff salaries & benefits (health insurance, vocation time, sick pay etc.) as well as pay for those involved in developing system. Costs incurred during the development of a system are one time costs & are labeled development costs. Once the system is installed the costs of operating & maintaining the system become recurring costs. Facility Cost Facility costs are expenses incurred in the preparation of the physical site where the application or the computer will be I operation. This includes wiring, flooring, acoustics, lighting & air conditioning. These costs are treated as one-time costs.

32

Operating Cost Operating costs include all costs associated with the day-to-day operating system. The amount depends on the number of sifts the nature of the application & the caliber of the operating staff. There are various ways of covering operating costs to overhead. Another approach is to change each authorized user for the amount of processing they request from the system. The amount charged is based on the computer time, staff time & the volume of output produced. Supply Cost These costs are variable costs that increase with increased use of paper, ribbon, disks & the like they should be estimated & include in the overall cost of the system. Equipment Cost Equipment costs include rental & annual deprecation of any equipment such as typewriter, copies, computer, terminals & microcomputers used in connection with the system. Other costs associated with the equipment, such as insurance & maintenance should also be included.

33

SYSTEM ANALYSIS

Introduction :

System Analysis is a set of techniques and graphical tools to develop a new kind of specification that are easily understandable to the users. The system Analysis has the following attributes: 1. It is graphical. The DFD, for example, depicts a picture of what is being specified and conceptually easy to under to understand the presentation of the application and flow the data to /from/with in the system. 2. The process is partitioned so that we have clear picture of progression from general to specific in the system flow. 1. It is logical rather then we have clear picture of progression from general to specific in the system flow. 2. It collects regroups study of the user area, a commitment that is often taken likely in the traditionally advent of the system analysis. 3.

Certain tasks that are normally carried out late in the system development cycle are moved to the analysis phase. For example , user procedure documented during the analysis rather than later in the application.

The end result of the system analysis is that produces a structured specification has uses several basics tools, such as:

34

• Context diagram • Data flow diagram • Structured chart Context Diagram :

Context digram is the starting point of the structured analysis. They are constructed to show the highest- level model of the system. It is used to represent pictorially, the scope of boundaries of the system, or what we call “AREA UNDER STUDY”. SYSTEM DESIGN Introduction: System design is a solution, “How to approach ” to the creation of a new system. This important phase is composed of several steps. It provides the understanding and procedural feasibility study. Design gose through a logical and physical stage of development. Logical design reviews the present physical system, prepares input – output specification, makes edit, security and control specification, detail implementation plans, prepares a logical design walkthrough. The physical design maps out the details of the physical system, plans the system implementation and specifies any new hardware and software.

35

System design is a highly created process that can be greatly facilitated by the following:  Strong problem definition,  Pictorial description of the existing system, and  Set of requirements of the new system. Input Design The most common cause of errors in data processing is inaccurate input data errors entered by the data entry operator. It can be controlled by the input design. Input design is the process of converting user oriented inputs to the computer based formats. The goal of the input design is to make data entry as easy, logical and free from as many errors as possible. Output Design Computers are the most important sources of information to the users are fed into the computers to acquire the necessary outputs. The computers can provide the well enough output in the form of information regarding various items to the users. The major form of output is a hard copy from the printer. Printouts are designed around the output requirements of the user(s).

36

Interface Design Forms are designed to control the redundancy, increased operator accuracy maximum readability, easy data entry and elimination of unnecessary data to provide easier checking and correction of data. Keeping in view the user’s requirements, the input/output forms have been designed and developed for easy data entry and query handling. Based on the various types of inputs to be fed into the computer in using this system, several inputs forms have been designed to make data entry easier and accurate. Database Design The collection of data is usually referred to as the database. The database contains information about the particular enterprise. Database systems are designed to manage larger bodies of information. The management of data involves both the definition of the structures for the storage of the information and the provision for the mechanism to manipulate the information. In addition the database system must provide the safety of the information stored in the database, despite system crashes or attempts at unauthorized access. SYSTEM IMPLEMANTATION

37

Implementation, literally, means to put into effects or to carry out. The system implementation phase of software engineering deals with all activities that take place to convert from the old system to the new. Proper implementation is essential to provide system to meet organization’s requirements. During the implementation phase debugging, documentation of the system was created out, module in the project for • Accuracy of Results, • Minimization of response Time, • Clarity and Simplicity of the code, • Minimization of hard – Coding i.e. (a generic approach was followed) • Minimization of amount of memory used. Various types of errors were discovered while debugging the modules. These ranged from errors to failure to account for various processing cases. Proper documentation of each module was done by embedding comments in the executable portion of the code. To enhance the readability, comments, indentation, parenthesis, block spaces, blank lines and borders were around the blocks of comments. Care was taken to use descriptive names for table, field modules, forms etc. The proper use of indentation, parenthesis and blank lines was also ensured during coding.

38

Testing of the report Generation module was carried out to find out the response time of the system for the generating reports. To make the response time negligible. SYSTEM DOCUMENTATION Documentation is the process of collecting, organizing, storing, and maintaining on paper (or some relatively permanently medium ) a complete record of why application were developed, for whom, what function they perform, and how these function are carried out. Thus it provides an explanation of how a system operates & what features characterize models & algorithms. Producing documentation is an important – but often neglected – activity of programmers. Documentation of the system always reduces maintenance costs and make maintenance much more easier. Documentation can be broadly classified as: 1.

INTERNAL DOCUMENTATION

2.

EXTERNAL DOCUMENTATION

INTERNAL DOCUMENTATION Internal documentation in the code can be extremely useful in enhancing the understandability of programs. Internal documentation of programs is done by the use of comments. All the language provide means of writing comments in the programs. Comments are textual statements that are meant for the reader and are not executed. Comment, if properly written, and if kept consistent with the code, can be invaluable during maintenance. 39

The purpose of comments is not to explain the internal logic of the program – the program itself is the best documentation for the details of logic. The comments should explain what the code is done is doing, and not how it is done it. Comments should be provided for the block of code, particularly those parts of code which are hard to follows. Providing comments for module is most useful as module form the unit testing, compiling, verification and modification. Comments for a module are often called prologue for the module. It is best to standardized the structure of the prologue of the module. It is desirable that prologue contains the following information ; a) Module functionality or what the module is doing. b) Parameters are their purpose c) Assumptions about the input, if any d) Global variable accessed and or modified in the module As explanation of parameters (whether they are input only, output only or both input and output, why they are needed by the module and how the parameters are modified) can be quite useful during Maintenance. In addition to that given above, often information can be included, depending on the local coding standards. Example include: • Name of the author, • Date of compilation • Last date of modification •

40

Note that if the module is modified, then the prologue should also be modified, if necessary. A prologue that is inconsistent with the internal logic of the module is prologue worse than having no prologue at all. While coding programs for the Station Coding System special attention has been paid to the internal documentation of the system, in addition to the external documentation. Each program/module has:  Program/module name on top.  Date of creation of the program.  Last modification date.  The S/W tool used to develop the program.  Description of input to the program/module.  Description of the output produced.

 How the module is related to other modules?  Purpose of variable/constants used. Apart from this comments lines have been inserted whenever it was felt that they were necessary. Moreover meaningful variable names/constants have been assigned to different variable/constants used in the program. EXTERNAL DOCUMENTATION The external documentation of the system contains all the relevant information about the system which is not included within the programs. The external documentation typically explains:  What is the basic purpose of the system?

41

 Why the system was developed?  The platform on which the system will run.  The various trouble shooting mechanisms.  The operation’s guide.

TESTING

During system testing, the system is used experimentally to ensure that the software does not fail, specific test data are input for processing and results examined. It is desirable to discover any surprises before the organization implements the system & depends on it. Testing Objectives: 1. Testing is a process of executing a program with the intent of finding an error. 2. A good test case is one that has a high probability of finding an undiscovered error. 3. A successful test is one that uncovers an undiscovered error. 4. Testing Principles:-

• All tests should be traceable to customer’s requirements. • Test should be planned long before the testing begins. • Testing should begin “in the small” & progress towards “in the large”. • Exhaustive Testing is not possible. 42

• To be most effective, an independent third party should conduct testing.

White Box Testing: It is also known as glass box testing and internal testing. It is a test case design method that uses a control structure of the procedural design to derive test cases. Using white box testing methods, software engineer can derive test cases that: 1. Guarantee that all independent paths within the module have been exercised at least once. 2. Exercised all logical decisions on their true & false sides. 3. Execute all loops at their boundaries & within their operational bounds. 4. Exercise internal data structures to ensure their validity. Black Box Testing: It is also called behavioral testing & external testing. It focuses in the functional requirements of the software i.e. it enables the software engineer to derive sets of input conditions that will fully exercise all functional requirements for a program. It is not an alternative to white box techniques. Rather it is a complementary approach that is likely to uncover a different class of errors than white box methods. Black Box testing attempts to find errors in the following categories: 1. Incorrect or missing functions. 43

2. Interface errors. 3. Errors in data structures. 4. Behavior or performance errors. 5. Initialization & termination errors.

Activity network for system testing:1. prepare test plan 2. specify conditions for user acceptance testing 3. prepare test data for program testing 4. Prepare test data for transaction path testing. 5. Plan user training 6. Compile/assemble programs 7. Prepare job performance helps. 8. Prepare operational documents.

44

DEBUGGING This stage is the discovery & correction of programming errors. Few programs run correctly the first time, so debugging is important & timeconsuming stage of the software development. Programming theorists & testing as verification & validation, respectively. Verification ensures that the program does what the programmer intend to do. It is the checking or testing of the items ,including software ,for conformance and consistency with an associated specification. Validation ensures that the program produces the correct results for a set of test data. It refers to the different set of activities that ensures that the software that has been built is traceable to custom requirements.

BOEHM states these terms as VERIFICATION—“Are we building the product right?” VALIDATION—“Are we building the right product?” The debugging of microprocessor programs is generally quite difficult because of the inability to observe register contents directly, the primitive debugging aids, the close interaction between hardware & software, the frequent dependence of programs on precise timing, and the difficulty of obtaining adequate data for real-time applications, The tools that can be used by programs with brief description are given below: Simulators: It is a compute program that simulates the execution of programs on another computer. 45

Logical Analyzers: It is a test instrument that is the digital bus-oriented version of the oscilloscope. It detects the states of digital signals during each clock cycle & stores them in the memory. It then displays the information on a CRT, much as an oscilloscope does. Breakpoints: It is place in a program at which execution can be halted, in order to examine the current contents of registers, memory locations & I/O ports. Trace Routines: A trace is a program that prints information concerning the status of the processor at specified intervals. Most simulator program & some microcomputer development system have trace facilities. Memory Dumps: A memory dump is a listing of the current contents of a section of the memory. Most simulator programs, microcomputer development systems & monitors can produce memory dumps. Software Interrupts: The software interrupts or trap instruction is frequently used for debugging purposes. The instruction usually saves the current value of the program counter & then branches to a specified memory location. That information location can be the starting point of a debugging program that lists or

46

displays status information – breakpoint may be inserted with trap instructions.

47

MAINTENANCE Like any system, there is an aging process that requires periodic maintenance of hardware & software. If new information is inconsistent with design specifications, then changes have to be made. Hardware also requires periodic maintenance to keep in tune with design specifications. The importance of maintenance is to continue to bring the new system to standards.

Types of Maintenance

1. Corrective maintenance:-

Repairing processing or performance failures or making changes due to uncorrected errors. 2. Adaptive Maintenance: -

Adaptive maintenance means changing the program function to make it adaptable according to its future environment. 3. Perfective Maintenance: Perfective Maintenance means enhancing the performance or modifying the programs to responds to the changing needs.

48

Fundamental objective of system maintenance:-

1

Tto complete the system tasks as quickly as possible without compromising the system reliability and quality.

2

To preserve those aspects of programs that were correct and to avoid the possibility that fixes applications and cause other aspects of those applications to behave differently.

3

To react proactively to affect changes to existing applications, to correct errors that were made during system design or implementation.

4

To avoid as much as possible degradation of system performance.

49

SECURITY OF THE SYSTEM While setting up a system aspect should be kept in mind for various reasons

like privacy of data, investment costs and levels this can be achieved by appointing system administrator, users control supervisor etc. this organization that depends heavily on information. These controls are classified into:  Physical security: This security of system is performed by the protection

from fire, flood and other physical damages. For that many measures are taken such as hardware locks, preventing access of unauthorized person from entering the system area, keep the floppy and disk in face custody, keeping any heat generating appliances away from the system. Obtaining insurance cover against the risk and natural calamities.  Database integrity: to maintain the data integrity many data validation

techniques are used so that the user cannot enter any unauthorized data. The access of database is possible only to responsible user through password.  Operating system level security: The measures is taken by giving no

permission to the direct access to the data in primary memory or to online files, which protect it’s both program and data.  Application security: The application has also given a security

measures, so that no unauthorized person can enter the application, by giving the password at the start of the program.  Administration security: By monitoring user on regular basis.

50

SYSTEM ANALYSIS QUALITY ASSURANCE I have determined the quality of our system through following factors: 1. Correctness 2. Reliability 3. Efficiency 4. Usability 5. Maintainability 6. Testability 7. Portability 8. Accuracy 9. Error tolerance INTRODUCTION TO PROPOSED SYSTEM

APPLICATION AREA: - After studying the working of present system We were able to learn about the difficulties and limitations, which it was facing. Before going into the details of proposed system I am here by drawing the boundary of application area inside which I would be working. Following are three main sub area of the main application area: i.

Proper Maintenance of Staff

ii.

Proper Maintenance of Room

iii.

Proper Generation of Patient

All the activities related with the above Three activities starts with addmiting a new Patient in Hospital. 51

52

DATABASE DESIGN All the tables, sequences, triggers are stored in database for storing the information about entrance test made by the users. Following are the tables: Login Table Loginname

Text

Password

Text

Room Table Room no Room type Rent per day

AutoNumber Text Number

Staff Table Staff id Name Age Dateofjoining Qualificateion Address Phone Dept Salary

AutoNumber Text Number Date Text Text Text Text Number

Patient Table Patientid Name

AutoNumber Text 53

Fname Address Age PhoneNo Roomno

Text Text Number Text Number

PatientAdmit Table Formno Date PatientId Roomno Staffid Adv.amount Remarks

AutoNumber Date Number Number Number Number Text

CONCLUSION After having completed this project ,We felt that it was an excellent learning experience as I deal with a real life project that give a oppurtunity to working for the students to make their test more easy, while working on this project I got a good exposure to the sharp programming skills and the various programming techniques while coding for this system I was exposed to the vast knowledge about the strength and weakness of VB language .

54

A part from this I have been able to appreciate the hardwork of programmers spent in developing such a system the most important realization was the amount of cooperation, dedication, hardwork and team spirit that goes into making of a successful project.

HARDWARE REQUIREMENT THIS SOFTWARE RUNS within any environment .This software needs at least Pentium prosessor 32MB RAM memory,2.1GB of Hard disk ,SVGA display of 1 MB video memory and color monitor but with this lot of processor power consumed and speed of the system will be very slow. Therefore a realistic hardware configuration for this software is:-

55

BIBLIOGRAPHY

The following are the books references that have been studied in the duration of making of this project. • Mastering in vb6.0 • Microsoft office • C get crystal reports 6.0 • Black book of vb6 • Complete Ref. Oracle WEB REFRENCES www.microsoft.com

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

frmsplash Option Explicit Private Sub Form_Activate() Dim i As Long, j As Long For i = 1 To 100 For j = 1 To 2500000 Next frmSplash.ProgressBar1.Value = i DoEvents Next Unload Me Password.Show End Sub

Private Sub Form_Load() Me.WindowState = 2 lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblProductName.Caption = App.Title End Sub

77

Passwordform Private Sub CMDEXIT_Click() End End Sub Private Sub Cmdok_Click() Data1.Refresh Data1.Recordset.MoveLast If Text1.Text = Data1.Recordset.Fields(0) And Text2.Text = Data1.Recordset.Fields(1) Then Unload Me Mainform.Show Else ans = MsgBox("Incorrect! Try Again ", vbYesNo) If ans = vbYes Then Text1.Text = "" Text2.Text = "" Text1.SetFocus Else End End If End If End Sub

78

Private Sub cmdok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdexit.SetFocus End If End Sub Private Sub Form_Activate() Text1.SetFocus End Sub Private Sub Form_Load() Password.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "security" End Sub

Private Sub exit_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub 79

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmdok.SetFocus End If End Sub

80

Mainform

Private Sub delpat_Click() Del_modify_patient.Show End Sub Private Sub MDIForm_Load() Me.WindowState = 2 End Sub Private Sub mnu___Delete_Click() Staff_Del.Show End Sub Private Sub mnu__Addnewstaff_Click() Staff_add.Show End Sub Private Sub mnuAdd_Click() Room_add.Show End Sub Private Sub mnuDeleteModify_Click() Room_delete.Show End Sub

81

Private Sub mnuBillingReport_Click() Calculating_bill.Show End Sub Private Sub mnuDelete_Click() Room_delete.Show End Sub Private Sub mnuModify_Click() Staff_Modify.Show End Sub Private Sub mnuPatiantReport_Click() patient_report.Show End Sub Private Sub mnuRoomReport_Click() Room_report.Show End Sub Private Sub mnuSearch_Click() Room_Search.Show End Sub Private Sub mnuSearching_Click() Staff_Search.Show End Sub 82

Private Sub mnuYes_Click() End End Sub Private Sub Modifyopt_Click() Room_modify.Show End Sub Private Sub newpat_Click() Add_patient.Show End Sub Private Sub searchpat_Click() Search_patient.Show End Sub Private Sub staffrpt_Click() Staff_report.Show End Sub

83

Room_add Private Sub cmdadd_Click() Text1.Locked = False Combo1.Locked = False Text2.Locked = False cmdsave.Enabled = True cmdadd.Enabled = False Text1.SetFocus Text1.Text = "" Text2.Text = "" Combo1.Text = "" End Sub Private Sub cmdBack_Click() Unload Me Mainform.Show End Sub Private Sub cmdsave_Click() cmdadd.Visible = False If Text1.Text = "" Then MsgBox "Invalid entry", vbExclamation Text1.SetFocus ElseIf Text2.Text = "" Then 84

MsgBox "Invalid entry", vbExclamation Text2.SetFocus Else Data1.Recordset.AddNew Data1.Recordset.Fields("room_no") = Val(Text1.Text) Data1.Recordset.Fields("room_type") = Combo1.Text Data1.Recordset.Fields("rent") = Val(Text2.Text) Data1.Recordset.Update Data1.Refresh MsgBox "Entry successfully saved!", vbExclamation cmdadd.Visible = True cmdadd.Enabled = True cmdadd.SetFocus End If

End Sub Private Sub Combo1_Click() Text2.SetFocus End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub 85

Private Sub Form_Activate() Text1.Locked = True Text2.Locked = True Combo1.Locked = True cmdsave.Enabled = False cmdadd.SetFocus

End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "room_table" Combo1.AddItem "ICU" Combo1.AddItem "EMERGENCY" Combo1.AddItem "GENERAL" Combo1.AddItem "SPECIAL" End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) 86

If KeyAscii = 13 Then Combo1.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And cmdsave.Enabled = True Then cmdsave.SetFocus End If End Sub Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 ADDLABEL.ForeColor = QBColor(r) NEWLABEL.ForeColor = QBColor(r) ROOMLABEL.ForeColor = QBColor(r) End Sub

87

Room_delete Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub Private Sub cmddelete_Click() Dim ans As Variant ans = MsgBox("Are you sure", vbYesNo) If ans = vbYes Then Data1.Recordset.Delete Data1.Refresh Text1.Text = "" Combo1.Text = "" Text3.Text = "" MsgBox "Successfully deleted", vbExclamation End If End Sub Private Sub Cmdok_Click() Data1.Refresh Data1.Recordset.FindFirst "ROOM_NO=" & txtrno.Text If Data1.Recordset.NoMatch Then MsgBox "Not found ", vbExclamation 88

Else Frame2.Visible = True Text1.Text = Data1.Recordset.Fields("room_no") Combo1.Text = Data1.Recordset.Fields("room_type") Text3.Text = Data1.Recordset.Fields("rent") Text1.Locked = True Combo1.Locked = True Text3.Locked = True End If End Sub Private Sub Combo1_Click() Text3.SetFocus End Sub

Private Sub Form_Activate() Frame2.Visible = False End Sub Private Sub Form_Load() 89

Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "room_table" Me.WindowState = 2 End Sub

Private Sub Text2_Change() End Sub Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 MODIFYLABEL.ForeColor = QBColor(r) ALABEL.ForeColor = QBColor(r) ROOMLABEL.ForeColor = QBColor(r) End Sub

90

Room_modify Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub Private Sub Combo1_Click() Text3.SetFocus End Sub Private Sub Combo2_Click() Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.FindFirst "ROOM_NO=" & Combo2.Text Frame2.Visible = True Text1.Text = Data2.Recordset.Fields(0) Combo1.Text = Data2.Recordset.Fields(1) Text3.Text = Data2.Recordset.Fields(2) Text1.Locked = True Combo1.Locked = True Text3.Locked = True modifycmd.SetFocus End If End Sub 91

Private Sub Form_Activate() Frame2.Visible = False End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "room_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "room_table" Data1.Refresh If Data1.Recordset.EOF = False Then Data1.Recordset.MoveFirst Do Combo2.AddItem Data1.Recordset.Fields(0) Data1.Recordset.MoveNext Loop While Data1.Recordset.EOF = False End If Combo1.AddItem "SINGLE" Combo1.AddItem "DOUBLE" Combo1.AddItem "FAMILY" Me.WindowState = 2 92

End Sub Private Sub modifycmd_Click() Text1.Locked = False Combo1.Locked = False Text3.Locked = False Combo1.SetFocus End Sub Private Sub SAVECMD_Click() If Text1.Text = "" Then MsgBox "Invalid entry", vbExclamation Text1.SetFocus ElseIf Text3.Text = "" Then MsgBox "Invalid entry", vbExclamation Text3.SetFocus Else Data1.Refresh Data1.Recordset.FindFirst "room_no=" & Combo2.Text Data1.Recordset.Edit Data1.Recordset.Fields(0) = Val(Text1.Text) Data1.Recordset.Fields(1) = Combo1.Text Data1.Recordset.Fields(2) = Val(Text3.Text) Data1.Recordset.Update Data1.Refresh MsgBox "Entry successfully saved!", vbExclamation Backcmd.SetFocus 93

Text1.Locked = True Combo1.Locked = True Text3.Locked = True End If End Sub Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 MODIFYLABEL.ForeColor = QBColor(r) ALABEL.ForeColor = QBColor(r) ROOMLABEL.ForeColor = QBColor(r) End Sub

94

Room_search Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub Private Sub Combo1_Click() Text3.SetFocus End Sub Private Sub Combo3_Click() DBGrid1.Visible = True If UCase(Combo2.Text) = "ROOM_NO" Then Data2.RecordSource = "Select * from Room_table where Room_no=" & Combo3.Text Data2.Refresh End If If UCase(Combo2.Text) = "ROOM_TYPE" Then Data2.RecordSource = "Select * from Room_table where Room_type= '" & Combo3.Text & " ' " Data2.Refresh End If End Sub Private Sub Combo2_Click() Label3.Visible = True 95

Combo3.Visible = True Label3.Caption = "Enter " + Combo2.Text Data1.Refresh Combo3.Clear If Data1.Recordset.EOF = False Then Data1.Recordset.MoveFirst Do If UCase(Combo2.Text) = "ROOM_NO" Then Combo3.AddItem Data1.Recordset.Fields(0) ElseIf UCase(Combo2.Text) = "ROOM_TYPE" Then Combo3.AddItem Data1.Recordset.Fields(1) End If Data1.Recordset.MoveNext Loop While Data1.Recordset.EOF = False Data1.Refresh Data1.Recordset.MoveFirst End If End Sub Private Sub cmdBack_Click() Me.Hide End Sub Private Sub Form_Activate() DBGrid1.Visible = False End Sub

96

Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "room_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "room_table" Combo2.AddItem "ROOM_NO" Combo2.AddItem "ROOM_TYPE" End Sub Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 SEARCHLABEL.ForeColor = QBColor(r) ALABEL.ForeColor = QBColor(r) ROOMLABEL.ForeColor = QBColor(r) End Sub

97

Staff_Add Private Sub Addcmd_Click() Text2.SetFocus savecmd.Enabled = True Addcmd.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Data2.Refresh If Data2.Recordset.EOF = True Then Text1.Text = 1 Else Data2.Recordset.MoveLast Text1.Text = Data2.Recordset.Fields(0) + 1 End If End Sub Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub 98

Private Sub Form_Activate() Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Addcmd.SetFocus savecmd.Enabled = False End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "staff_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "staff_table"

End Sub Private Sub SAVECMD_Click() If Text1.Text = "" Then MsgBox "Invalid entry", vbExclamation 99

Text1.SetFocus ElseIf Text2.Text = "" Then MsgBox "Invalid entry", vbExclamation Text2.SetFocus ElseIf Text3.Text = "" Then MsgBox "Invalid entry", vbExclamation Text3.SetFocus ElseIf Text4.Text = "" Then MsgBox "Invalid entry", vbExclamation Text4.SetFocus ElseIf Text5.Text = "" Then MsgBox "Invalid entry", vbExclamation Text5.SetFocus ElseIf Text6.Text = "" Then MsgBox "Invalid entry", vbExclamation Text6.SetFocus ElseIf Text7.Text = "" Then MsgBox "Invalid entry", vbExclamation Text7.SetFocus Else Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Val(Text1.Text) Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.Fields(3) = Val(Text4.Text) Data1.Recordset.Fields(4) = Val(Text5.Text) 100

Data1.Recordset.Fields(5) = Text6.Text Data1.Recordset.Fields(6) = Text7.Text Data1.Recordset.Update Data1.Refresh MsgBox "Entry successfully saved!", vbExclamation Addcmd.Enabled = True savecmd.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub 101

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text7.SetFocus End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then savecmd.SetFocus End If End Sub 102

Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 ADDLABEL.ForeColor = QBColor(r) STAFFLabel.ForeColor = QBColor(r) End Sub

103

Staff_delete Private Sub BACKCMD_Click() Me.Hide End Sub Private Sub Combo1_Click() Data1.Refresh If Data1.Recordset.EOF = False Then Data1.Recordset.FindFirst "Staff_id=" & Combo1.Text Frame2.Visible = True Text1.Text = Data1.Recordset.Fields(1) Text2.Text = Data1.Recordset.Fields(2) Text3.Text = Data1.Recordset.Fields(3) Text4.Text = Data1.Recordset.Fields(4) Text5.Text = Data1.Recordset.Fields(5) Text6.Text = Data1.Recordset.Fields(5) Text7.Text = Data1.Recordset.Fields(5) End If End Sub Private Sub Command1_Click() End Sub Private Sub Delcmd_Click() Data1.Refresh 104

If Data1.Recordset.EOF = True Then MsgBox "No record", vbExclamation Backcmd.SetFocus End If If Data1.Recordset.EOF = False Then Data1.Recordset.FindFirst "Staff_id=" & Combo1.Text ans = MsgBox("Are you sure", vbYesNo + vbQuestion) If ans = vbYes Then Data1.Recordset.Delete Data1.Refresh MsgBox "Successfully deleted", vbExclamation If Data1.Recordset.EOF = True Then Combo1.Clear End If Combo1.Clear Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.MoveFirst Do Combo1.AddItem Data2.Recordset.Fields(0) Data2.Recordset.MoveNext Loop While Data2.Recordset.EOF = False End If Text1.Text = "" Text2.Text = "" Text3.Text = "" 105

Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Frame2.Visible = False Combo1.SetFocus End If End If End Sub Private Sub Form_Activate() Frame2.Visible = False Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.MoveFirst Do Combo1.AddItem Data2.Recordset.Fields(0) Data2.Recordset.MoveNext Loop While Data2.Recordset.EOF = False End If Text1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True 106

Text7.Locked = True End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "staff_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "staff_table"

End Sub

Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 DELLABEL.ForeColor = QBColor(r) stflabel.ForeColor = QBColor(r) End Sub

107

Staff_modify Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub Private Sub Combo1_Click() Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.FindFirst "Staff_id=" & Combo1.Text Text1.Text = Data2.Recordset.Fields(0) Text2.Text = Data2.Recordset.Fields(1) Text3.Text = Data2.Recordset.Fields(2) Text4.Text = Data2.Recordset.Fields(3) Text5.Text = Data2.Recordset.Fields(4) Text6.Text = Data2.Recordset.Fields(5) Text7.Text = Data2.Recordset.Fields(6) End If End Sub Private Sub Form_Activate() Combo1.SetFocus Text3.Text = "" savecmd.Visible = False Text1.Locked = True Text2.Locked = True 108

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.MoveFirst Do Combo1.AddItem Data2.Recordset.Fields(0) Data2.Recordset.MoveNext Loop While Data2.Recordset.EOF = False End If End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "staff_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "staff_table" End Sub Private Sub modifycmd_Click() Text2.SetFocus savecmd.Visible = True 109

Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False End Sub Private Sub SAVECMD_Click() If Text1.Text = "" Then MsgBox "Invalid entry", vbExclamation Text1.SetFocus ElseIf Text2.Text = "" Then MsgBox "Invalid entry", vbExclamation Text2.SetFocus ElseIf Text3.Text = "" Then MsgBox "Invalid entry", vbExclamation Text3.SetFocus ElseIf Text4.Text = "" Then MsgBox "Invalid entry", vbExclamation Text4.SetFocus ElseIf Text5.Text = "" Then MsgBox "Invalid entry", vbExclamation Text5.SetFocus ElseIf Text6.Text = "" Then MsgBox "Invalid entry", vbExclamation 110

Text6.SetFocus ElseIf Text7.Text = "" Then MsgBox "Invalid entry", vbExclamation Text7.SetFocus Else Data2.Recordset.Edit Data2.Recordset.Fields(0) = Val(Text1.Text) Data2.Recordset.Fields(1) = Text2.Text Data2.Recordset.Fields(2) = Text3.Text Data2.Recordset.Fields(3) = Text4.Text Data2.Recordset.Fields(4) = Val(Text5.Text) Data2.Recordset.Fields(5) = Text6.Text Data2.Recordset.Fields(6) = Text7.Text Data2.Recordset.Update Data2.Refresh MsgBox "Entry successfully saved!", vbExclamation End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus 111

End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text7.SetFocus End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then savecmd.SetFocus 112

End If End Sub Private Sub Timer1_Timer() Dim r As Integer r = Rnd * 15 MODIFYLABLE.ForeColor = QBColor(r) STAFFLABLE.ForeColor = QBColor(r) End Sub

113

Staff_Serach

Private Sub BACKCMD_Click() Unload Me Mainform.Show End Sub Private Sub Combo1_Click() Combo2.Visible = True Label2.Caption = "Enter " + Combo1.Text Data1.Refresh Combo2.Clear If Data1.Recordset.EOF = False Then Data1.Recordset.MoveFirst Do If UCase(Combo1.Text) = "STAFF_ID" Then Combo2.AddItem Data1.Recordset.Fields(0) ElseIf UCase(Combo1.Text) = "NAME" Then Combo2.AddItem Data1.Recordset.Fields(1) ElseIf UCase(Combo1.Text) = "PHONE_NO" Then Combo2.AddItem Data1.Recordset.Fields(3) ElseIf UCase(Combo1.Text) = "POST" Then Combo2.AddItem Data1.Recordset.Fields(4) End If Data1.Recordset.MoveNext Loop While Data1.Recordset.EOF = False Data1.Refresh 114

Data1.Recordset.MoveFirst End If End Sub Private Sub Combo2_Click() On Error GoTo message DBGrid1.Visible = True If UCase(Combo1.Text) = "STAFF_ID" Then Data1.RecordSource = "select * from staff_table where Staff_id=" & Combo2.Text Data1.Refresh End If If UCase(Combo1.Text) = "NAME" Then Data1.RecordSource = "select * from staff_table where NAME= '" & Combo2.Text & " ' " Data1.Refresh End If Data1.RecordSource = "select * from staff_table" Exit Sub message: MsgBox "Invalid input", vbExclamation End Sub Private Sub Command1_Click() Unload Me Mainform.Show End Sub 115

Private Sub Form_Activate() DBGrid1.Visible = False Combo2.Visible = False End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "staff_table"

Combo1.AddItem "Staff_id" Combo1.AddItem "Name" Combo1.AddItem "Post" End Sub

116

Add_patient Private Sub cmdadd_Click() Data1.Refresh If Data1.Recordset.EOF = True Then txtpid.Text = 1 txtformno.Text = 1 Else Data1.Recordset.MoveLast txtformno.Text = Data1.Recordset.Fields("foRM_NO") + 1 txtpid.Text = Data1.Recordset.Fields("patientid") + 1 End If txtpname.Locked = False txtage.Locked = False txtphone.Locked = False txtadd.Locked = False txtroomno.Locked = False txtdoa.Locked = False txtremarks.Locked = False txtfname.Locked = False txtamt.Locked = False txtpname.Text = "" txtage.Text = "" txtphone.Text = "" txtadd.Text = "" txtroomno.Text = "" txtdoa.Text = "" 117

txtremarks.Text = "" txtfname.Text = "" txtamt.Text = "" cmdsave.Enabled = True cmdadd.Enabled = False txtpname.SetFocus End Sub Private Sub cmdBack_Click() Me.Hide End Sub Private Sub cmdsave_Click() Data2.Refresh If Data2.Recordset.EOF Then MsgBox "Room not available", vbExclamation Exit Sub Else Data2.Refresh Data2.Recordset.FindFirst "ROOM_NO=" & txtroomno.Text If Data2.Recordset.NoMatch Then MsgBox "Room not available", vbExclamation Exit Sub End If End If

118

Data1.Refresh Dim flag As Boolean flag = True Data1.Recordset.FindFirst "roomno=" & txtroomno.Text If Data1.Recordset.NoMatch Then flag = False End If If flag = True Then MsgBox "Already booked", vbExclamation Else Data1.Refresh On Error GoTo message Data1.Recordset.AddNew Data1.Recordset.Fields("form_no") = txtformno.Text Data1.Recordset.Fields("patientid") = txtpid.Text Data1.Recordset.Fields("name") = txtpname.Text Data1.Recordset.Fields("age") = txtage.Text Data1.Recordset.Fields("address") = txtadd.Text Data1.Recordset.Fields("phone") = txtphone.Text Data1.Recordset.Fields("fname") = txtfname.Text Data1.Recordset.Fields("dateofadmit") = txtdoa.Text Data1.Recordset.Fields("roomno") = txtroomno.Text Data1.Recordset.Fields("adv_amount") = txtamt.Text Data1.Recordset.Fields("remarks") = txtremarks.Text Data1.Recordset.Update MsgBox "Successfully saved", vbExclamation 119

cmdsave.Enabled = False txtformno.Text = "" txtpid.Text = "" txtpname.Text = "" txtage.Text = "" txtphone.Text = "" txtadd.Text = "" txtroomno.Text = "" txtdoa.Text = "" txtremarks.Text = "" txtfname.Text = "" txtamt.Text = "" txtformno.Locked = True txtpid.Locked = True txtpname.Locked = True txtage.Locked = True txtphone.Locked = True txtadd.Locked = True txtroomno.Locked = True txtdoa.Locked = True txtremarks.Locked = True txtfname.Locked = True txtamt.Locked = True cmdsave.Enabled = False cmdadd.Enabled = True

120

Exit Sub message: MsgBox "Invalid data", vbExclamation cmdsave.Enabled = False cmdadd.Enabled = True End If End Sub Private Sub Form_Activate() txtformno.Text = "" txtpid.Text = "" txtpname.Text = "" txtage.Text = "" txtphone.Text = "" txtadd.Text = "" txtroomno.Text = "" txtdoa.Text = "" txtremarks.Text = "" txtfname.Text = "" txtamt.Text = "" txtformno.Locked = True txtpid.Locked = True txtpname.Locked = True txtage.Locked = True txtphone.Locked = True txtadd.Locked = True 121

txtroomno.Locked = True txtdoa.Locked = True txtremarks.Locked = True txtfname.Locked = True txtamt.Locked = True cmdsave.Enabled = False cmdadd.SetFocus cmdadd.SetFocus End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "patient_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "room_table" End Sub

Private Sub txtdoa_LostFocus() txtdoa.Text = Format(txtdoa.Text, "DD-MMM-YYYY") End Sub

122

Private Sub txtpname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtfname.SetFocus End If End Sub Private Sub txtfname_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtphone.SetFocus End If End Sub Private Sub txtphone_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtadd.SetFocus End If End Sub Private Sub txtadd_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtage.SetFocus End If End Sub Private Sub txtage_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdoa.SetFocus 123

End If End Sub Private Sub txtdoa_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtamt.SetFocus End If End Sub Private Sub txtamt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtroomno.SetFocus End If End Sub

Private Sub txtroomno_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtremarks.SetFocus End If End Sub Private Sub txtremarks_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdsave.SetFocus End If End Sub

124

Del_modify_patient

Private Sub cmdBack_Click() Me.Hide End Sub

Private Sub CMDDEL_Click() Dim ans As Variant ans = MsgBox("Are you sure", vbYesNo + vbQuestion) If ans = vbYes Then Data1.Recordset.Delete Data1.Refresh MsgBox "Successfully deleted", vbExclamation End If txtformno.Text = "" txtpid.Text = "" txtpname.Text = "" txtage.Text = "" txtphone.Text = "" txtadd.Text = "" txtroomno.Text = "" txtdoa.Text = "" txtremarks.Text = "" txtfname.Text = "" txtamt.Text = "" 125

End Sub Private Sub CMDMODIFY_Click() Frame1(1).Enabled = True txtformno.Locked = True txtpid.Locked = True txtroomno.Locked = True CMDMODIFY.Enabled = False CMDUPDATE.Enabled = True txtpname.SetFocus End Sub Private Sub Cmdok_Click() Data1.Refresh If Data1.Recordset.EOF = False Then Data1.Recordset.FindFirst "form_no=" & txtform.Text If Data1.Recordset.NoMatch Then MsgBox "Not found", vbExclamation Else Frame1(1).Enabled = False txtformno.Text = Data1.Recordset.Fields("form_no") txtpid.Text = Data1.Recordset.Fields("patientid") txtpname.Text = Data1.Recordset.Fields("name") txtage.Text = Data1.Recordset.Fields("age") txtadd.Text = Data1.Recordset.Fields("address") txtphone.Text = Data1.Recordset.Fields("phone") txtfname.Text = Data1.Recordset.Fields("fname") 126

txtdoa.Text = Data1.Recordset.Fields("dateofadmit") txtroomno.Text = Data1.Recordset.Fields("roomno") txtamt.Text = Data1.Recordset.Fields("adv_amount") txtremarks.Text = Data1.Recordset.Fields("remarks") End If End If End Sub Private Sub CMDUPDATE_Click()

Data1.Refresh On Error GoTo message Data1.Recordset.Edit Data1.Recordset.Fields("name") = txtpname.Text Data1.Recordset.Fields("age") = txtage.Text Data1.Recordset.Fields("address") = txtadd.Text Data1.Recordset.Fields("phone") = txtphone.Text Data1.Recordset.Fields("fname") = txtfname.Text Data1.Recordset.Fields("dateofadmit") = txtdoa.Text Data1.Recordset.Fields("roomno") = txtroomno.Text Data1.Recordset.Fields("adv_amount") = txtamt.Text Data1.Recordset.Fields("remarks") = txtremarks.Text Data1.Recordset.Update MsgBox "Successfully saved", vbExclamation CMDDEL.Enabled = True 127

CMDMODIFY.Enabled = True CMDUPDATE.Enabled = False Exit Sub message: MsgBox "Invalid data", vbExclamation CMDDEL.Enabled = True CMDMODIFY.Enabled = True CMDUPDATE.Enabled = False End Sub Private Sub Form_Activate() txtform.SetFocus CMDDEL.Enabled = True CMDMODIFY.Enabled = True CMDUPDATE.Enabled = False End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "patient_table" End Sub 128

Search_patient Private Sub CMDEXIT_Click() Me.Hide End Sub Private Sub Cmdok_Click() On Error GoTo message Data1.Refresh If Option1.Value = True Then Data1.RecordSource = "SELECT * FROM patient_table WHERE patientid=" & Text1.Text ElseIf Option2.Value = True Then Data1.RecordSource = "select * from patient_table where name ='" & Text1.Text & " ' " ElseIf Option3.Value = True Then Data1.RecordSource = "select * from patient_table where roomno=" & Text1.Text Else Data1.RecordSource = "select * from patient_table" End If Data1.Refresh Exit Sub message: MsgBox "Invalid input", vbExclamation End Sub 129

Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "patient_table" End Sub

Private Sub Option1_Click() label.Caption = "Enter the patient id" Text1.SetFocus End Sub Private Sub Option2_Click() label.Caption = "Enter the patient name " Text1.SetFocus End Sub Private Sub Option3_Click() label.Caption = "Enter the room no" Text1.SetFocus End Sub

130

Room_report Private Sub Command1_Click() Me.Hide End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "room_table" Me.WindowState = 2 Data1.RecordSource = "SELECT * FROM ROOM_TABLE" Data1.Refresh End Sub

131

Staff_report Private Sub CMDEXIT_Click() Me.Hide End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "staff_table" Data1.RecordSource = "SELECT * FROM STAFF_TABLE" Data1.Refresh End Sub

132

Patient_report

Private Sub CMDEXIT_Click() Me.Hide End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "PATIENT_table" Data1.RecordSource = "SELECT * FROM PATIENT_TABLE" Data1.Refresh End Sub

133

Calculating_bill

Private Sub cmdcal_Click() 'Print DateDiff("d", Format("2/20/2002", "dd-mmm-yyyy"), Format("3/23/2002", "dd-mmm-yyyy")) Dim r As Integer Data2.Refresh If Data2.Recordset.EOF = False Then Data2.Recordset.FindFirst "room_no=" & txtroomno.Text r = Data2.Recordset.Fields("rent") End If txtdays.Text = DateDiff("d", Format(txtdoa.Text, "dd-mmm-yyyy"), Format(txtwhichdoa.Text, "dd-mmm-yyyy")) txtamt.Text = r * Val(txtdays.Text) End Sub Private Sub CMDEXIT_Click() Me.Hide End Sub Private Sub Combo1_Click() Data1.Refresh If Data1.Recordset.EOF = False Then Data1.Recordset.FindFirst "patientid=" & Combo1.Text txtpname.Text = Data1.Recordset.Fields("name") 134

txtroomno.Text = Data1.Recordset.Fields("roomno") txtdoa.Text = Data1.Recordset.Fields("dateofadmit") txtpname.Locked = True txtroomno.Locked = True txtdoa.Locked = True txtdays.Locked = True txtamt.Locked = True txtwhichdoa.SetFocus

End If End Sub Private Sub Form_Load() Me.WindowState = 2 Data1.DatabaseName = App.Path + "\hospdatabase.mdb" Data1.RecordSource = "patient_table" Data2.DatabaseName = App.Path + "\hospdatabase.mdb" Data2.RecordSource = "room_table" Combo1.Clear Data1.Refresh If Data1.Recordset.EOF = False Then Do 135

Combo1.AddItem Data1.Recordset.Fields("patientid") Data1.Recordset.MoveNext Loop While Data1.Recordset.EOF = False End If

End Sub

Private Sub txtwhichdoa_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdcal.SetFocus End If End Sub

136