Doctor Management Vb Project Report 3d2vp
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report 3b7i
Overview 3e4r5l
& View Doctor Management Vb Project Report as PDF for free.
More details w3441
- Words: 7,693
- Pages: 91
CONTENTS
1
Abstract
2
2
Problem Description
3
3
System Specification
4
4
System Study
5
5
DFD
9
6
E-R Diagram
12
7
Software Description
13
8
Database Design
28
9
Sample Coding
32
10
Output
83
11
Conclusion
91
12
Bibliography
93
ABSTRACT
Our project Hospital Management system includes registration of patients, storing their details into the system, and also computerized billing in the pharmacy, and labs. Our software has the facility to give a unique id for every patient and stores the details of every patient and the staff automatically. It includes a search facility to know the current status of each room. can search availability of a doctor and the details of a patient using the id.
The Hospital Management System can be entered using a name and . It is accessible either by an or receptionist. Only they can add data into the database. The data can be retrieved easily. The interface is very -friendly. The data are well protected for personal use and makes the data processing very fast.
2
PROBLEM DESCRIPTION
The purpose of the project entitled as “HOSPITAL MANAGEMENT SYSTEM” is to computerize the Front Office Management of Hospital to develop software which is friendly, simple, fast, and cost – effective. It deals with the collection of patient’s information, diagnosis details, etc. Traditionally, it was done manually.
The main function of the system is to and store patient details and doctor details and retrieve these details as and when required, and also to manipulate these details meaningfully System input contains patient details, diagnosis details; while system output is to get these details on to the CRT screen.
NEED
1. Efficiently maintains the details about the patient 2. Simultaneously updates changes made to any data, item in the entire data base. 3. It is faster than manual system
3
SYSTEM SPECIFICATION
1. Hardware Requirements Processor
: Intel Pentium IV 2.4 GHZ or above
Clock speed
: 500 MHZ
System bus
: 32 bits
RAM
: 256MB of RAM
HDD
: 40 GB or higher
Monitor
: SVGA COLOR
Keyboard
: 108 keys
Mouse
: 2 button mouse
2. Software Requirements OS
:
MS WINDOWS XP SP2
Front End
:
Visual Basic 6.0
Back End
:
Microsoft Access 2003
4
SYSTEM STUDY
INTRODUCTION
The goal of any system development is to develop and implement the system cost effectively; -friendly and most suited to the ’s analysis is the heart of the process. Analysis is the study of the various operations performed by the system and their relationship within and outside of the system. During analysis, data collected on the files, decision points and transactions handled by the present system. Different kinds of tools are used in analysis of which interview is a common one.
INITIAL INVESTIGATION
The first step in system development life cycle is the identification of need of change to improve or enhance an existing system. An initial investigation on existing system was carried out. The present system of hospital is completely manual. Many problems were identified during the initial study of the existing system.
5
EXISTING SYSTEM
System analysis is a detailed study of the various operations performed by a system and their relationships within and outside of the system. Here the key question is – What all problems exist in the present system? What must be done to solve the problem? Analysis begins when a or manager begins a study of the program using existing system.
During analysis, data collected on the various files, decision points and transactions handled by the present system. The commonly used tools in the system are Data Flow Diagram, interviews, etc. training, experience and common sense are required for collection of relevant information needed to develop the system. The success of the system depends largely on how clearly the problem is defined, thoroughly investigated and properly carried out through the choice of solution. A good analysis model should provide not only the mechanisms of problem understanding but also the framework of the solution. Then the proposed system should be analyzed thoroughly in accordance with the needs.
System analysis can be categorized into four parts. •
System planning and initial investigation
•
Information gathering
6
•
Applying analysis tools for structured analysis
•
Feasibility study
•
Cost/benefit analysis
PROPOSED SYSTEM
The drawback of the existing system is that it is very difficult to retrieve data from case files. It is difficult to handle the whole system manually and it is less accurate and to keep the data in case files for future reference because it may get destroyed. Moreover it is very difficult to retrieve data. Redundancy of data may occur and this may lead to the inconsistency. The manual system is so time-consuming.
The proposed system is very easy to operate. Speed and accuracy are the main advantages of proposed system. There is no redundancy of data. The data are stored in the computer’s secondary memories like hard disk, etc. it can be easily receive and used at any time. The proposed system will easily handle all the data and the work done by the existing systems. The proposed systems eliminate the drawbacks of the existing system to a great extent and it provides tight security to data.
ABOUT OPERATING SYSTEM
Windows XP is a line of operating systems developed by Microsoft for use on general purpose computer systems, including home and business desktops, notebook computers and
7
media centers. The letters ‘XP’ stand for experience. Windows XP is the successor to both Windows 2000 and Windows Me and is first consumer oriented operating system produced by Microsoft to be built on the Windows NT kernel and architecture.
The most common editions of operating systems are Windows XP home edition, which is targeted at home s, and Windows XP professional, which has additional features such as, for Windows server domain and two physical processors and is targeted at power s and business clients. Windows XP Tablet PC edition is designed to run the ink-aware Tablet PC platform. Two separate 64 bit versions of Windows XP were also released, Windows XP 64 bit edition for IA-64(Itanium) processors and Windows XP Professional x64 edition for x86-64 processors.
8
DATA FLOW DIAGRAMS DFD for Module Ok
Enter /
ing Name and
Rejected
File
DFD for Billing process File
Item Code
Item Details Sales process
Item Details
Updating process
Quotation Details Stock File
Billing process
Bill Customer
9
Purchase Details DFD. Medicine File Item code, Qty
Medicine Details
Purchase Process
Updating process
Quotation Details
Stock File
10
ENTITY RELATIONSHIP DIAGRAMS
DateStarted
Controls
HOD Name Wor ks On
Employee
Emp- Number
Department
Address
Dept number
Dept Name Works On Name
Name
Name Trea ted by
Patient
Patient ID
Doctor
Dr-ID
Address 11
Address
SOFTWARE DESCRIPTION
Microsoft Visual Basic 6.0
Visual Basic 6.0 is Microsoft’s latest version of the Visual Basic Programming language. Although writing programs can be a tedious chore at time. Visual Basic reduces the effort required on your part, and makes programming enjoyable. Visual Basic makes many aspects of programming as simple as dragging graphics objects on to screen with your mouse.
Visual Basic 6.0 is more than just a programming language; the secret to Visual Basic is in its name” Visual”. With to days Windows Operating System, a program must be able to interact with the screen. Keyboard, mouse and printer graphically.
The environment provided by Visual Basic is suitable for any type of application. Using this environment, the can visually design the objects that your application uses. Visual Basic is not just a languages, it’s an integrated development environment in which you can develop, run, test and debug your applications. The impressive array of programming resources provided by Visual Basic enables to create the objects extemporaneously which can range from pop-up menu to a message box.
12
A form is a major part of Visual Basic application, which allows the to enter the data as well as view the result. A control is an object that we draw on a form to enable or enhance interaction with an application.
Hence a Visual Basic application is a
combination of object like forms and controls, procedures that can respond to Events and other general-purpose procedures.
Starting Visual Basic
To start Visual Basic:
•
Click on the Start button on the Windows task bar.
•
Select Programs, then Microsoft Visual Basic # (where # is your version of
Visual Basic). •
Click on Visual Basic # (where again # is your version).
13
Title Bar
Main Menu
14
Toolbar
At the top of the screen is the Visual Basic Main Window. At the top of the main window is the Title Bar. The title bar gives us information about what program we’re using and what Visual Basic program we are working with. Under the main menu is the Toolbar. Here little buttons with pictures also allow us to control Visual Basic, much like the main menu. If you put the mouse cursor over one of these buttons for a second or so, a little ‘tool tip’ will pop up and tell you what that particular button does.
Parts of a Visual Basic Project
There are three major components in a Visual Basic project: the project itself, the form, and the controls. Project is the word used to encom everything in a Visual Basic project. Other words used to describe a project are application or program. The Form is the window where you create the interface between the and the computer. Controls are graphical features or tools that are placed on forms to allow interaction (text boxes, labels, scroll bars, command buttons). Recall the form itself is a control. Controls are also referred to as objects. Pictorially, a project is:
Control Project
Control Control
Form Control
15
Project consists of a form containing several controls. In looking around your computer’s file directory, you may find some files associated with a Visual Basic project. Two primary files are used to save a Visual Basic project. The project file will have an extension of vbp (in addition, there is sometimes a file with a vbw extension). The form file has an extension of frm (in addition, there is sometimes a form file with an frx extension). An important concept concerning a Visual Basic project is that of a property. Every characteristic of a control (including the form itself) is specified by a property. Example properties include names, captions, sizes, colors, position on the form, and contents. Visual Basic is an event-driven language. Visual Basic is governed by an event processor. That means that nothing happens in a Visual Basic project until some event occurs. Once an event is detected, the project finds a series of instructions related to that event, called an event procedure. That procedure is executed, and then program control is returned to the event:
EVENT
Event processor
16 Event Procedure
Event Procedure
Event Procedure
Event procedures are where we do the actual computer programming and are saved with the form in the file with the frm extension. These procedures are where we write BASIC language statements. You will learn a lot of programming and BASIC language in this course. The BASIC you will learn is very similar to the original BASIC used by Bill Gates and Paul Allen when starting Microsoft.
Parts of the Visual Basic Program
Visual Basic is more than just a computer language.
It is a project building
environment. Within this one environment, we can begin and build our project, run and test our project, eliminate errors (if any) in our project, and save our project for future use. With other computer languages, many times you need a separate text editor to write your program, something called a compiler to create the program, and then a different area to test your program.
Visual Basic integrates each step of the project building process into one
environment. Let’s look at the parts of the Visual Basic environment.
Main Window
17
Start Visual Basic using the procedure learned in Class 1. Notice that several windows appear. The Main Window is used to control most aspects of the Visual Basic project building and running process.
The main window consists of the title bar, menu bar, and toolbar. The title bar indicates the project name and the current Visual Basic operating mode (design, break, run). The menu bar has drop-down menus from which you control the operation of the Visual Basic environment.
Form Window
The Form Window is central to developing Visual Basic applications. It is where you develop your application.
18
If the form window is not present on the screen:
Properties
Like all controls, the form has many (over 40) properties. Fortunately, we only have to know about some of them. The properties we will be concerned with are:
Property
Description
Name
Name used to identify form. Three letter prefix for form names is frm.
Caption
Text that appears in the title bar of form.
Icon
Reference to icon that appears in title bar of form.
Left
Distance from left side of computer screen to left side of form.
Top
Distance from top side of computer screen to top side of form.
Width
Width of the form in twips.
Height
Height of form in twips.
Back Color
Background color of form.
Border Style
Form can either be sizable (can resize using the mouse) or fixed size.
19
Form Events
The form primarily acts as a ‘container’ for other controls, but it does events. That is, it can respond to some interactions. We will only be concerned with two form events in this course:
Event
Description
Click
Event executed when clicks on the form with the mouse.
Load
Event executed when the form first loads into the computer’s memory. This is a good place to set initial values for various properties and other project values.
Toolbox Window 20
The Toolbox Window is the selection menu for controls used in your application.
VB6:
Pointer
Picture Box
Label
Text Box
Frame
Command Button
Check Box
Option Button
Combo Box
List Box
Horizontal Scroll Bar
Vertical Scroll Bar
Timer
Drive
Directory
Files
Shape
Line
Image
Data Control
OLE
If the toolbox window is not present on the screen, click View on the main menu, then Toolbox.
Features of Visual Basic:
1. Good Interface.
21
2. OLE Features. 3. Windows API Features. 4. 32 bit Programming Languages. 5. Data Management 6. Online Help 7. Data Access.
Areas of Application The term "Personal Programming" refers to the idea that, wherever you work, whatever you do, you can expand your computer's usefulness by writing applications to use in your own job. Personal Programming is what Visual Basic is all about. Using Visual Basic's tools, you quickly translate an abstract idea into a program design you can actually see on the screen. VB encourages you to experiment, revise, correct, and network your design until the new project meets your requirements. However, most of all, it inspires your imagination and creativity. Visual Basic is ideal for developing applications that run in the new Windows 95 operating system. VB presents a 3-step approach for creating programs: 1. Design the appearance of your application. 2. Assign property settings to the objects of your program. 3. Write the code to direct specific tasks at runtime.
22
Visual Basic can and is used in a number of different areas, for example: •
Education
•
Research
•
Medicine
•
Business
•
Commerce
•
Marketing and Sales
•
ing
•
Consulting
•
Law
•
Science
Microsoft Access 2003.
Microsoft Access is the default database of Microsoft Visual Basic. Microsoft Access 2003 provides many new features that make working with data and deg a database even easier. Microsoft Access Database is a collection of data and objects related to particular topic or purpose. Microsoft Access Database may contain tables; queries, forms, reports, macros modules and shortcuts top data access pages. Microsoft Access is a Relational Database Management System. Using Access we can organize our data according to subject and can store information about how different subject are related. In general MS-Access database can have several small tables.
23
Microsoft Office Access, previously known as Microsoft Access, is a relational database management system from Microsoft that combines the relational Microsoft Jet Database Engine with a graphical interface and software development tools. It is a member of the 2007 Microsoft Office system. Access can use data stored in Access/Jet, Microsoft SQL Server, Oracle, or any ODBCcompliant data container (including MySQL and PostgreSQL). Skilled software developers and data architects use it to develop application software. Relatively unskilled programmers and non-programmer "power s" can use it to build simple applications. It s some objectoriented techniques but falls short of being a fully object-oriented development tool. Access was also the name of a communications program from Microsoft, meant to compete with ProComm and other programs. This proved a failure and was dropped. Years later Microsoft reused the name for its database software.
Access is used by small businesses, within departments of large corporations, and by hobby programmers to create ad hoc customized desktop systems for handling the creation and manipulation of data. Access can be used as a database for basic web based applications hosted on Microsoft's Internet Information Services and utilizing Microsoft Active Server Pages ASP. Most typical web applications should use tools like ASP/Microsoft SQL Server or the LAMP stack. Some professional application developers use Access for rapid application development, especially for the creation of prototypes and standalone applications that serve as tools for onthe-road salesmen. Access does not scale well if data access is via a network, so applications that are used by more than a handful of people tend to rely on Client-Server based solutions.
24
However, an Access "front end" (the forms, reports, queries and VB code) can be used against a host of database back ends, including JET (file-based database engine, used in Access by default), Microsoft SQL Server, Oracle, and any other ODBC-compliant product. Features One of the benefits of Access from a programmer's perspective is its relative compatibility with SQL (structured query language) —queries may be viewed and edited as SQL statements, and SQL statements can be used directly in Macros and VBA Modules to manipulate Access tables. s may mix and use both VBA and "Macros" for programming forms and logic and offers object-oriented possibilities. MSDE (Microsoft SQL Server Desktop Engine) 2000, a mini-version of MS SQL Server 2000, is included with the developer edition of Office XP and may be used with Access as an alternative to the Jet Database Engine. Unlike a modern RDBMS, the Access and the Jet Engine implements database triggers and stored procedures in a non-standard way. Stored Procedures are implemented in VBA, and Triggers are only available from embedded Forms. Both Triggers and Stored procedures are only available to applications built completely within the Access database management system. Client applications built with VB or C++ are not able to access these features. Starting in MS Access 2003 (Jet 4.0), there is a new syntax for creating queries with parameters, in a way that looks like creating stored procedures, but these procedures are still limited to one statement per procedure. Microsoft Access does allow forms to contain code that is triggered as changes are made to the underlying table (as long as the modifications are done only with that form), and it is common to use -through queries and other techniques in Access to run stored procedures in RDBMSs that these.
25
In ADP files (ed in MS Access 2003 and later), the database-related features are entirely different, because this type of file connects to a MSDE or Microsoft SQL Server, instead of using the Jet Engine. Thus, it s the creation of nearly all objects in the underlying server (tables with constraints and triggers, views, stored procedures and UDF-s). However, only forms, reports, macros and modules are stored in the ADP file (the other objects are stored in the back-end database).
DATABASE DESIGN
The general theme behind a database is to handle information as an integrated whole. A database is a collection of interrelated data stored with minimum redundancy to serve many s quickly and effectively. After deg the input and output, the analyst must concentrate on database design or how data should be organized around requirements. The general objective is to make information access, easy, quick, inexpensive and flexible for other s. During database design, the following objectives are concerned:•
Controlled redundancy
•
Easy to learn and use
•
More information and low cost
•
Accuracy
•
Integrity
26
File Name :-
Field Name
Description
Data Type
Width
Name
Name Name
Text Text
50 50
File Name :- Doctor Registration
Field Name
Description
Data Type
Width
Dr name Sex Dept Consultation time Address no Emergency no Consult fee Date Consultation day Tot pat
Doctor Name Sex Department Consultation Time Address Number Emergency Number Consultation fees Date Consultation Day Total Patient
Text Text Text Text Text Long Long Long Date/Time Text Double
50 50 50 50 50 50 50 50 50 50 50
File Name:-Patient Details
Field Name
Description
Data Type
Width
Name Age Sex
Name Age Sex
Text Integer Text
50 50 50
27
Address Doctor Patient id Reg fee Date Room no
Address Doctor Patient id Registration fees itted Date Room Number
Text Text Text Double Date/Time Integer
50 50 50 50 50 50
Width
File Name:-Medicine
Field Name
Description
Data Type
Medname Medtype Amt Expdate Stock
Medicine Name Medicine Type Amount Expiry Date Stock
Text Text Double Date/Time Double
File Name:-Discharge Sheet
Field Name
Description
Data Type
Width
Patient id Name Doctor Remark Totbill Date
Patient id Name Doctor Remark Total Bill Date
Double Text Text Text Double Date/Time
50 50 50 50 50 50
28
SAMPLE CODING
Private Sub Command2_Click () Unload Me End Sub Private Sub Command3_Click () Db. Open Set rs = db. Execute ("SELECT * FROM where name='" & txt_name.Text & "'") If (txt_ = "" And txt_ name = "") Then MsgBox " not possible" Else
29
If No t rs. EOF () Then If (rs(1) = txt_ . Text) Then MsgBox " Successful" frmMDI.mn Reg.Enabled = True frmMDI.mnuRegDr.Enabled = True frmMDI.mnuAddDept.Enabled = True frmMDI.mnuReg.Enabled = True frmMDI.mnuAddrooms.Enabled = True frmMDI.mnuEditdr.Enabled = True frmMDI.mnulogoff.Enabled = True frmMDI.mnu.Enabled = False frmMDI.mnuPatient.Enabled = True frmMDI.mnuSearch.Enabled = True frmMDI.mnuBilling.Enabled = True frmMDI.mnu.Enabled = True Unload Me Else MsgBox " not success" End If Else MsgBox "EOF Reached" End If End If
30
db.Close End Sub Private Sub Command4_Click() db.Open Set rs = db.Execute("SELECT * FROM STAFF where name='" & txt_name.Text & "'") If Not rs.EOF() Then If (rs(1) = txt_.Text) Then MsgBox " Successful" frmMDI.mnulogoff.Enabled = True frmMDI.mnu.Enabled = False frmMDI.mnuPatient.Enabled = True frmMDI.mnuSearch.Enabled = True frmMDI.mnuBilling.Enabled = True frmMDI.mnu.Enabled = True Unload Me Else MsgBox " not success" End If Else MsgBox "Invalid name or " End If db.Close
31
End Sub Private Sub Form_Load() connectdb End Sub
REGISTRATION Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_save_Click() db.Open db.Execute ("INSERT INTO VALUES ('" & txt_name.Text & "','" & txt_.Text & "')") MsgBox "Record added successfully" db.Close End Sub Private Sub Form_Load () connectdb End Sub 32
DOCTOR’S REGISTRATION Dim m_time As String Dim m_MissingFields As String Private Sub Command1_Click () If ValidateForm = True Then db.Open m_time = txt_timefrom.Text & “to” & txt_timeto.Text rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!drname = txt_name.Text If Opt_male.Value = True Then rs!sex = "Male" Else rs!sex = "Female" End If rs!dept = cmb_dept.Text rs!consultationtime = m_time rs!address = txt_address.Text rs!no = txt_no.Text rs!emergencyno = txt_emergency.Text
33
rs!Date = DTP.Value rs!consultationday = comb_day.Text rs!totpat = txt_totpat.Text rs!consultfee = txt_fee.Text rs.Update MsgBox "One Doctor ed", vbInformation, "Doctor ADDED" rs.Close rs.Open "PATCOUNT", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!drname = txt_name.Text rs!patcount = txt_totpat.Text rs!Date = DTP.Value rs.Update db.Close Else m_MissingFields = Left (m_MissingFields, Len (m_MissingFields) - 1) MsgBox "Some fields (" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Command2_Click () Unload Me
34
End Sub Private Sub Form_Load() connectdb comb_day.AddItem "Monday" comb_day.AddItem "Tuesday" comb_day.AddItem "Wednesday" comb_day.AddItem "Thursday" comb_day.AddItem "Friday" comb_day.AddItem "Saturday" comb_day.AddItem "Sunday" End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If cmb_dept.Text = "" Then m_MissingFields = m_MissingFields & "Dept Name," m_valid = False End If If txt_timefrom.Text = "" Then
35
m_MissingFields = m_MissingFields & "Time From," m_valid = False End If If txt_timeto.Text = "" Then m_MissingFields = m_MissingFields & "Time To," m_valid = False End If If txt_address.Text = "" Then m_MissingFields = m_MissingFields & "Address," m_valid = False End If If txt_no.Text = "" Then m_MissingFields = m_MissingFields & " no," m_valid = False End If If txt_emergency.Text = "" Then m_MissingFields = m_MissingFields & "Emergency no," m_valid = False End If If txt_fee.Text = "" Then m_MissingFields = m_MissingFields & "Fees," m_valid = False End If
36
ValidateForm = m_valid End Function
PATIENT REGISTRATION
Dim m_sx As String Dim m_patid As Integer Dim m_patcount As Integer Dim m_totpat As Integer Dim m_MissingFields As String
Private Sub cmd_del_Click() 'MsgBox
("DELETE
FROM
PATIENTDETAILS
WHERE
timestampdiff(SQL_TSI_MONTH," & Date & ",ts date))") End Sub Private Sub Combo_drpref_Click() db.Open rs.Open
"SELECT
totpat
FROM
DrREGISTRATION
Combo_drpref.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then m_totpat = rs!totpat Else MsgBox "Not found"
37
WHERE
drname='"
&
End If rs.Close rs.Open "SELECT * FROM DrREGISTRATION WHERE drname='" & Combo_drpref.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_regfee.Text = rs!consultfee Else MsgBox "Record not found" End If rs.Close rs.Open "SELECT * FROM PATCOUNT WHERE drname='" & Combo_drpref.Text & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then m_patcount = rs!patcount If (m_patcount > m_totpat) Then MsgBox "Patient Count Exceeds please assign to another Doctor" End If Else MsgBox "Record not Found" End If rs.Close db.Close End Sub
38
Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" & Combo_patid.Text & "'", db, adOpenDynamic, adLockOptimistic lst_names.AddItem rs!Name lst_age.AddItem rs!age lst_add.AddItem rs!address db.Close Command3.Enabled = False End Sub Private Sub Command1_Click () Dim pattype As String Dim rno As Integer If Opt_male = True Then m_sx = "male" Else m_sx = "female" End If db.Open rs.Open "SELECT * FROM PATIENTDETAILS where patientid='" & txt_patientid.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then MsgBox "Patient ID allready exist"
39
Else If ValidateForm = True Then If rdoIP.Value = True Then pattype = rdoIP.Caption rno = Val(cmbRoomNo.Text) Else pattype = rdoOP.Caption rno = -1 End If db.Execute ("INSERT INTO PATIENTDETAILS VALUES ('" & txt_name.Text & "'," & _ txt_age.Text & ",'" & m_sx & "','" & txt_address.Text & "','" & _ Combo_drpref.Text & "','" & txt_patientid & "'," & txt_regfee & ",' “& _ DTP.Value & "','" & pattype & "'," & rno & ")") db.Execute ("UPDATE ADDROOM SET Allocated='Y' WHERE roomno=" & Val (cmbRoomNo.Text)) MsgBox "Record added successfully" m_patid = m_patid + 1 Else m_MissingFields = Left (m_MissingFields, Len (m_MissingFields) - 1) MsgBox "Some fields (" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If
40
End If db.Close 'm_patid = m_patid + 1 txt_address.Text = "" txt_age.Text = "" txt_name.Text = "" txt_regfee.Text = "" txt_patientid.Text = m_patid db.Open m_patcount = m_patcount + 1 rs.Open "SELECT * FROM PATCOUNT WHERE drname='" & Combo_drpref.Text & "'", db, adOpenDynamic, adLockOptimistic WHERE drname=' " & Combo_drpref.Text & "' ") If Not rs.EOF () Then rs!patcount = m_patcount rs.Update Else MsgBox "Please fill all the fields" End If db.Close End Sub Private Sub DTPicker1_Change () End Sub
41
Private Sub Command2_Click () Unload Me End Sub Private Sub Command3_Click () If (txt_dt.Text = "") Then MsgBox "Please enter the date", vbCritical, "Warning" Else db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE date= #" & txt_dt.Text & "# ", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() lst_names.AddItem rs!Name lst_age.AddItem rs!age lst_add.AddItem rs!address rs.MoveNext Wend db.Close End If End Sub Private Sub Command4_Click () Unload Me End Sub Private Sub Command5_Click ()
42
Combo_patid.Text = "" txt_dt.Text = "" lst_age.Clear lst_names.Clear lst_add.Clear End Sub Private Sub Command6_Click() End Sub Private Sub Form_Load () connectdb db.Open rs.Open "SELECT * FROM DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While not rs.EOF () Combo_drpref.AddItem rs!drname rs.MoveNext Wend rs.Close rs.Open "SELECT COUNT (*) FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic If (rs(0) = 0) Then m_patid = 1 txt_patientid.Text = m_patid Else
43
m_patid = rs(0) + 1 txt_patientid.Text = rs (0) + 1 End If db.Close rdoOP.Value = True loadRooms cmbRoomNo.Enabled = False
End Sub
Private Sub rdoIP_Click () If rdoIP.Value = True Then cmbRoomNo.Enabled = True End If End Sub Private Sub rdoOP_Click () If rdoOP.Value = True Then cmbRoomNo.Enabled = False End If End Sub Private Sub SSTab1_Click (PreviousTab as Integer) db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic
44
While not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub Private Sub txt_dt_GotFocus () Command3.Enabled = True End Sub Private Function ValidateForm () As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_age.Text = "" Then m_MissingFields = m_MissingFields & "Age," m_valid = False End If If txt_address.Text = "" Then m_MissingFields = m_MissingFields & "Address," m_valid = False
45
End If If txt_regfee.Text = "" Then m_MissingFields = m_MissingFields & "Registration Fee," m_valid = False End If ValidateForm = m_valid End Function Public Sub loadRooms() db.Open rs.Open "SELECT roomno FROM ADDROOM WHERE Allocated='N'", db, adOpenDynamic, adLockOptimistic cmbRoomNo.Clear While Not rs.EOF cmbRoomNo.AddItem rs.Fields(0) rs.MoveNext Wend If (cmbRoomNo.ListCount > 0) Then cmbRoomNo.ListIndex = 0 End If db.Close End Sub
EDIT DOCTOR
46
Private Sub cmd_update_Click() db.Open rs.Open "SELECT * FROM DrREGISTRATION WHERE Drname= '" + Combo_drname.Text + "'", db, 3, 3 If Not rs.EOF() Then rs!consultationtime = txt_time.Text rs!address = txt_address.Text rs!no = txt_no.Text rs!emergencyno = txt_emergencyno.Text rs.Update MsgBox "Record updated Successfully" db.Close Else MsgBox "Record not found" End If End Sub
Private Sub Combo_drname_Click() db.Open rs.Open "SELECT * FROM DrREGISTRATION where drname='" + Combo_drname.Text + "' ", db, adOpenDynamic, adLockOptimistic txt_time.Text = rs!consultationtime txt_address.Text = rs!address
47
txt_no.Text = rs!no txt_emergencyno.Text = rs!emergencyno db.Close End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_drname.AddItem rs!drname rs.MoveNext Wend db.Close End Sub
EDIT PATIENT
Private Sub cmdupdate_Click() db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic
48
rs!address = txt_address.Text rs.Update MsgBox "Record Updated" db.Close End Sub Private Sub Combo1_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo1_patid.Text + "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_address.Text = rs!address db.Close Else MsgBox "Record not found" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "PATIENTDETAILS", db, 3, 3
49
While Not rs.EOF() Combo1_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub
INPATIENT BILL
Dim billno As Integer Dim w As Integer Dim addt As Date Dim diff As Integer Private Sub cm_close_Click() 'End If Unload Me End Sub Private Sub cmd_dis_Click() w=0 db.Open 'rs.Open "select * from PATIENTDETAILS where patientid='" + txtPatID.Text + "' ", db, adOpenDynamic, adLockOptimistic
50
rs.Open "select * from LABBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("total") Else 'MsgBox "Record not found" w=w End If rs.Close rs.Open "select * from PHARBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("tot") Else 'MsgBox "Record not found" w=w End If rs.Close rs.Open "select * from IPBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("tot") Else
51
'MsgBox "Record not found" w=w End If rs.Close db.Close 'txt_totbill.Text = w Load DISCHARGEsheet DISCHARGEsheet.txt_totbill.Text = w DISCHARGEsheet.txtPatID.Text = Combo_patid.Text DISCHARGEsheet.txt_dr.Text = Combo_dr.Text DISCHARGEsheet.txt_name.Text = txt_name.Text DISCHARGEsheet.Show End Sub
Private Sub cmd_save_Click() If ValidateForm = True Then db.Open rs.Open "IPBILL", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!Name = txt_name.Text rs!regdate = txt_regdate.Text rs!patientid = Combo_patid.Text rs!doctor = Combo_dr.Text
52
rs!regdate = txt_regdate.Text rs!billno = txt_billno.Text rs!room = txt_room.Text rs!amt = txt_amt.Text rs!tot = diff rs.Update rs.Close MsgBox "Recorded added sucessfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If db.Close cmd_dis.Enabled = True cmd_save.Enabled = False End Sub
Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic
53
If Not rs.EOF() Then txt_regdate.Text = rs!date txt_name.Text = rs!Name txt_regdate.Text = rs!date addt = rs!date Combo_dr.Text = rs!doctor Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic txt_room.Text = rs!roomno 'txt_amt.Text = rs!amt rs.Close rs.Open "SELECT amt from ADDROOM WHERE roomno=" & Val(txt_room.Text) If Not rs.EOF Then txt_amt.Text = rs!amt End If Else MsgBox "No Rooms allotted" End If 'rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic db.Close diff = DateDiff("d", addt, Now) diff = diff * Val(txt_amt.Text) 'MsgBox diff txt_tot.Text = diff
54
End Sub Private Sub Form_Load() connectdb db.Open rs.Open "SELECT
patientid FROM PATIENTDETAILS WHERE Type='IP'", db,
adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_dr.AddItem rs!drname rs.MoveNext Wend db.Close 'db.Open db.Open rs.Open "SELECT COUNT(*) FROM IPBILL", db, adOpenDynamic, adLockOptimistic If (rs(0) = 0) Then txt_billno.Text = 1
55
Else billno = billno + 1 txt_billno.Text = billno End If db.Close End Sub Private Sub Label11_Click() End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False End If ValidateForm = m_valid End Function
OUTPATIENT BILL
56
Dim m_count As Integer Dim total As Integer Dim m_MissingFields As String Private Sub Command1_Click() db.Open rs.Open "OPPHARMACY", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!Name = txt_name.Text rs!Amount = txt_amt.Text rs!billno = txt_billno.Text rs!Date = DTP.Value rs!pamt = txt_pamt.Text rs!labamt = txt_lamt.Text rs!tot = txt_tot.Text rs!patientid = Combo_patid.Text rs!doctor = Combo_dr.Text rs.Update 'MsgBox "You are ed", vbInformation, "Added" rs.Close db.Close End Sub Private Sub cmd_save_Click() If ValidateForm = True Then
57
db.Open db.Execute
"INSERT
INTO
OPBILL
VALUES("
&
txt_billno.Text
&
","
&
Combo_patid.Text & ",'" & txt_name.Text & _ "','" & Combo_dr.Text & "','" & DTP.Value & "'," & txt_amt.Text & _ "," & txt_pamt.Text & "," & txt_lamt.Text & "," & txt_tot.Text & " )" MsgBox "Record added successfully" db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_name.Text = rs!Name Else MsgBox "Record not found"
58
End If rs.Close rs.Open "SELECT * FROM PHARBILL WHERE patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_pamt.Text = rs!tot rs.Close Else MsgBox "Not Found" End If rs.Close rs.Open "SELECT * FROM LABBILL WHERE patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_lamt.Text = rs!total rs.Close Else MsgBox "Amount field is empty" End If db.Close End Sub Private Sub Command2_Click() Unload Me
59
End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_dr.AddItem rs!drname rs.MoveNext Wend db.Close db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close db.Open rs.Open "SELECT COUNT(*) FROM OPBILL", db, adOpenDynamic, adLockOptimistic m_count = rs(0) If (m_count = 0) Then m_count = 1 txt_billno.Text = m_count
60
Else m_count = m_count + 1 txt_billno.Text = m_count End If db.Close End Sub Private Sub txt_amt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then total = Val(txt_amt.Text) + Val(txt_lamt.Text) + Val(txt_pamt.Text) txt_tot.Text = total cmd_save.SetFocus End If End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False
61
End If If txt_lamt.Text = "" Then m_MissingFields = m_MissingFields & "Lab Amount," m_valid = False End If If txt_pamt.Text = "" Then m_MissingFields = m_MissingFields & "Pharmacy Amount," m_valid = False End If If txt_tot.Text = "" Then m_MissingFields = m_MissingFields & "Total," m_valid = False End If ValidateForm = m_valid End Function
PHARMACY BILL
Dim i As Integer Dim j As Integer Dim amt As Double
62
Dim billno As Integer Dim m_MissingFields As String Private Sub cmd_save_Click() If ValidateForm = True Then For k = 1 To MSF.Rows - 2 db.Execute ("INSERT INTO PHARBILL VALUES( " & txt_billno.Text & ",'" & DTP.Value &_ "','" & Combo_patid.Text & "','" & MSF.TextMatrix(k, 1) & "','" & MSF.TextMatrix(k, 2) & _ "'," & MSF.TextMatrix(k, 3) & "," & lblTotal.Caption & ")") Next MsgBox "Recorded added successfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If db.Close End Sub
Private Sub Combo_med_Click() rs.Open "SELECT * FROM MEDICINE WHERE medname='" + Combo_med.Text + "'", db, adOpenDynamic, adLockOptimistic
63
If Not rs.EOF() Then lblprice.Caption = rs!amt End If rs.Close txt_qty.SetFocus End Sub
Private Sub Command3_Click() Unload Me db.Close End Sub
Private Sub Form_Load() i=1 connectdb db.Open rs.Open "SELECT * FROM MEDICINE", db, adOpenDynamic, adLockOptimistic Combo_med.AddItem "" While Not rs.EOF() Combo_med.AddItem rs!medname rs.MoveNext Wend
64
rs.Close rs.Open "SELECT COUNT(*) FROM PHARBILL", db, adOpenDynamic, adLockOptimistic billno = rs(0) If (billno = 0) Then txt_billno.Text = 1 Else billno = billno + 1 txt_billno.Text = billno End If rs.Close rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend rs.Close End Sub
Private Sub txt_qty_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MSF.TextMatrix(i, 0) = i MSF.TextMatrix(i, 1) = Combo_med.Text
65
MSF.TextMatrix(i, 2) = txt_qty.Text MSF.TextMatrix(i, 3) = CDbl(Val(txt_qty.Text) * Val(lblprice.Caption)) lblTotal.Caption = Val(lblTotal.Caption) + MSF.TextMatrix(i, 3) MSF.Rows = MSF.Rows + 1 i=i+1 txt_qty.Text = "" lblprice.Caption = "" Combo_med.ListIndex = 0 End If
End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_qty.Text = "" Then m_MissingFields = m_MissingFields & "Qty," m_valid = False End If
ValidateForm = m_valid End Function
LAB BILL
66
Dim billno As Integer Dim i As Integer Dim k As Integer Dim m_MissingFields As String Private Sub combo_labtests_Click() If (combo_labtests.ListIndex = 0) Then Command4.Enabled = False Else Command4.Enabled = True End If rs.Open "SELECT * FROM LABUPDATE WHERE testname='" & combo_labtests.Text & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then lblamt.Caption = rs!amt End If rs.Close End Sub Private Sub Command2_Click() If ValidateForm = True Then For k = 1 To MSF.Rows - 2 db.Execute ("INSERT INTO LABBILL VALUES( " & txt_billno.Text & ",'" & Combo_patid.Text & _
67
"','" & MSF.TextMatrix(k, 1) & "'," & MSF.TextMatrix(k, 2) & _ "," & lbl_tot.Caption & ")") Next MsgBox "Recorded added successfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If For k = 1 To MSF.Rows - 2 MSF.TextMatrix(k, 0) = "" MSF.TextMatrix(k, 1) = "" MSF.TextMatrix(k, 2) = "" Next MSF.Rows = 2 i=1 txt_billno.Text = billno + 1 db.Close End Sub
Private Sub Command3_Click() billno = billno - 1
68
db.Close Unload Me End Sub
Private Sub Command4_Click() MSF.TextMatrix(i, 0) = i MSF.TextMatrix(i, 1) = combo_labtests.Text MSF.TextMatrix(i, 2) = lblamt.Caption lbl_tot.Caption = Val(lbl_tot.Caption) + MSF.TextMatrix(i, 2) MSF.Rows = MSF.Rows + 1 i=i+1 combo_labtests.ListIndex = 0 lblamt.Caption = "" End Sub
Private Sub Form_Load()
If (combo_labtests.Text = "") Then Command4.Enabled = False Else Command4.Enabled = True End If i=1
69
connectdb db.Open combo_labtests.AddItem "" rs.Open "SELECT * FROM LABUPDATE", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() combo_labtests.AddItem rs!testname rs.MoveNext Wend rs.Close rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend rs.Close lbl_tot.Caption = 0 rs.Open "SELECT COUNT(*) FROM LABBILL", db, adOpenDynamic, adLockOptimistic billno = rs(0) If (billno = 0) Then txt_billno.Text = 1 Else billno = billno txt_billno.Text = billno
70
End If rs.Close End Sub
Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If MSF.TextMatrix(2, 1) = "" Then m_MissingFields = m_MissingFields & "Test Name," m_valid = False End If ValidateForm = m_valid End Function
DISCHARGE SHEET
Dim m_MissingFields As String Dim w As Double Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_save_Click() Dim roomno As Integer
71
If ValidateForm = True Then db.Open db.Execute ("INSERT INTO DISCHARGESHEET VALUES('" & txtPatID.Text & " ','" & txt_name.Text & "','" & txt_dr.Text & "', '" & txt_remarks.Text & "'," & txt_totbill.Text & ",'" & DTP.Value & "')") rs.Open "SELECT RoomNo FROM PATIENTDETAILS WHERE patientid='" & Val(txtPatID.Text) & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF Then roomno = rs!roomno End If rs.Close db.Execute ("UPDATE ADDROOM SET Allocated='N' WHERE roomno=" & roomno) MsgBox "Recorded added successfully" db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub
Private Sub Form_Load()
72
connectdb End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_remarks.Text = "" Then m_MissingFields = m_MissingFields & "Remarks ," m_valid = False End If If txt_totbill.Text = "" Then m_MissingFields = m_MissingFields & "Bill Amount," m_valid = False End If ValidateForm = m_valid End Function
INPATIENT SEARCH
Private Sub cmd_close_Click() Unload Me End Sub
Private Sub Combo_patid_Click()
73
db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid= '" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_name.Text = rs!Name txt_address.Text = rs!address Else MsgBox "Record not found" End If rs.Close 'rs.Open
"SELECT
*
FROM
ROOMALLOCATION
WHERE
patientid=
'"
&
Combo_patid.Text & "' " rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid= '" & Combo_patid.Text & "' and type='IP'" If Not rs.EOF() Then txt_roomno.Text = rs!roomno Else MsgBox "Record not found" End If db.Close End Sub Private Sub Form_Load() connectdb
74
db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE type='IP'", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub
DOCTOR SEARCH
Private Sub Combo1_Click() db.Open rs.Open "select * from DrREGISTRATION where drname='" + Combo1.Text + "' ", db, adOpenDynamic, adLockOptimistic Label6.Caption = rs!dept Label8.Caption = rs!consultationtime Label11.Caption = rs!address Label12.Caption = rs!no Label13.Caption = rs!emergencyno db.Close End Sub
75
Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo1.AddItem rs!drname rs.MoveNext Wend db.Close End Sub
MEDICINE UPDATES
Private Sub Command1_Click() db.Open db.Execute ("INSERT INTO MEDICINE VALUES('" & txt_mname.Text & "','" & Combo_medtype.Text & "'," & txt_amt.Text & ",'" & DTP.Value & "'," & txt_stock.Text & ")") MsgBox "Record Successfully added" db.Close
76
End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb Combo_medtype.Text = "Capsule" Combo_medtype.AddItem "Capsule" Combo_medtype.AddItem "Syrup" End Sub Private Sub Label1_Click() End Sub
ROOM ALLOCATION Dim m_MissingFields As String Private Sub Command1_Click() 'On Error GoTo er If ValidateForm = True Then db.Open db.Execute "INSERT INTO ROOMALLOCATION VALUES('" & txt_patid.Text & "'," & txt_roomno.Text & ",'" & combo_rtype.Text & "'," & txt_amt.Text & ")" MsgBox "Record added successfully"
77
db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb combo_rtype.Text = "Single room" combo_rtype.AddItem "Single room" combo_rtype.AddItem "Double room" End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_patid.Text = "" Then m_MissingFields = m_MissingFields & "Patient ID," m_valid = False
78
End If If txt_roomno.Text = "" Then m_MissingFields = m_MissingFields & "Room No," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False End If ValidateForm = m_valid End Function
79
OUTPUTS
80
Registration
Change
81
Doctor Registration
82
Patient Registration
83
In Patient Search
84
Medicine Update 85
IP Bill
Discharge Sheet
86
Doctor Search 87
88
CONCLUSION
The HOSPITAL MANAGEMENT SYSTEM is a great improvement over the manual system using case fields and paper. The computerization of the system has sped up the process. In the current system, the front office managing is very slow. The hospital managing system was thoroughly checked and tested with dummy data and thus is found to be very reliable.
ADVANTAGES
•
It is fast, efficient and reliable
•
Avoids data redundancy and inconsistency
•
Very -friendly
•
Easy accessibility of data
•
Number of personnel required is considerably less
•
Provides more security and integrity to data
89
FUTURE ENHANCEMENTS
The proposed system is Hospital Management System. We can enhance this system by including more facilities like billing system, inpatient room allotment for the itted patients and the stock details of medicines in the pharmacy.
Providing such features enable the s to include more comments into the system.
90
BIBLIOGRAPHY
Books •
A Complete Guide to Programming in Visual Basic .Net -Michael McMillian
•
A Complete Visual Basic 6 Training Course: How to Programme: Package -Harvey M deitel,Paul j deitel,Tem R Neito
•
Advanced Programming Using Visual Basic: Version 6.0 -Julia Case Bradley
•
Access 2003 Power Programming with VBA -Allen G Taylor
•
Advanced MS Visual Basic -Peter Morris
Site Address •
www.associatedcontent.com
•
www..tripod.com
•
www.vbcodesource.com
91
1
Abstract
2
2
Problem Description
3
3
System Specification
4
4
System Study
5
5
DFD
9
6
E-R Diagram
12
7
Software Description
13
8
Database Design
28
9
Sample Coding
32
10
Output
83
11
Conclusion
91
12
Bibliography
93
ABSTRACT
Our project Hospital Management system includes registration of patients, storing their details into the system, and also computerized billing in the pharmacy, and labs. Our software has the facility to give a unique id for every patient and stores the details of every patient and the staff automatically. It includes a search facility to know the current status of each room. can search availability of a doctor and the details of a patient using the id.
The Hospital Management System can be entered using a name and . It is accessible either by an or receptionist. Only they can add data into the database. The data can be retrieved easily. The interface is very -friendly. The data are well protected for personal use and makes the data processing very fast.
2
PROBLEM DESCRIPTION
The purpose of the project entitled as “HOSPITAL MANAGEMENT SYSTEM” is to computerize the Front Office Management of Hospital to develop software which is friendly, simple, fast, and cost – effective. It deals with the collection of patient’s information, diagnosis details, etc. Traditionally, it was done manually.
The main function of the system is to and store patient details and doctor details and retrieve these details as and when required, and also to manipulate these details meaningfully System input contains patient details, diagnosis details; while system output is to get these details on to the CRT screen.
NEED
1. Efficiently maintains the details about the patient 2. Simultaneously updates changes made to any data, item in the entire data base. 3. It is faster than manual system
3
SYSTEM SPECIFICATION
1. Hardware Requirements Processor
: Intel Pentium IV 2.4 GHZ or above
Clock speed
: 500 MHZ
System bus
: 32 bits
RAM
: 256MB of RAM
HDD
: 40 GB or higher
Monitor
: SVGA COLOR
Keyboard
: 108 keys
Mouse
: 2 button mouse
2. Software Requirements OS
:
MS WINDOWS XP SP2
Front End
:
Visual Basic 6.0
Back End
:
Microsoft Access 2003
4
SYSTEM STUDY
INTRODUCTION
The goal of any system development is to develop and implement the system cost effectively; -friendly and most suited to the ’s analysis is the heart of the process. Analysis is the study of the various operations performed by the system and their relationship within and outside of the system. During analysis, data collected on the files, decision points and transactions handled by the present system. Different kinds of tools are used in analysis of which interview is a common one.
INITIAL INVESTIGATION
The first step in system development life cycle is the identification of need of change to improve or enhance an existing system. An initial investigation on existing system was carried out. The present system of hospital is completely manual. Many problems were identified during the initial study of the existing system.
5
EXISTING SYSTEM
System analysis is a detailed study of the various operations performed by a system and their relationships within and outside of the system. Here the key question is – What all problems exist in the present system? What must be done to solve the problem? Analysis begins when a or manager begins a study of the program using existing system.
During analysis, data collected on the various files, decision points and transactions handled by the present system. The commonly used tools in the system are Data Flow Diagram, interviews, etc. training, experience and common sense are required for collection of relevant information needed to develop the system. The success of the system depends largely on how clearly the problem is defined, thoroughly investigated and properly carried out through the choice of solution. A good analysis model should provide not only the mechanisms of problem understanding but also the framework of the solution. Then the proposed system should be analyzed thoroughly in accordance with the needs.
System analysis can be categorized into four parts. •
System planning and initial investigation
•
Information gathering
6
•
Applying analysis tools for structured analysis
•
Feasibility study
•
Cost/benefit analysis
PROPOSED SYSTEM
The drawback of the existing system is that it is very difficult to retrieve data from case files. It is difficult to handle the whole system manually and it is less accurate and to keep the data in case files for future reference because it may get destroyed. Moreover it is very difficult to retrieve data. Redundancy of data may occur and this may lead to the inconsistency. The manual system is so time-consuming.
The proposed system is very easy to operate. Speed and accuracy are the main advantages of proposed system. There is no redundancy of data. The data are stored in the computer’s secondary memories like hard disk, etc. it can be easily receive and used at any time. The proposed system will easily handle all the data and the work done by the existing systems. The proposed systems eliminate the drawbacks of the existing system to a great extent and it provides tight security to data.
ABOUT OPERATING SYSTEM
Windows XP is a line of operating systems developed by Microsoft for use on general purpose computer systems, including home and business desktops, notebook computers and
7
media centers. The letters ‘XP’ stand for experience. Windows XP is the successor to both Windows 2000 and Windows Me and is first consumer oriented operating system produced by Microsoft to be built on the Windows NT kernel and architecture.
The most common editions of operating systems are Windows XP home edition, which is targeted at home s, and Windows XP professional, which has additional features such as, for Windows server domain and two physical processors and is targeted at power s and business clients. Windows XP Tablet PC edition is designed to run the ink-aware Tablet PC platform. Two separate 64 bit versions of Windows XP were also released, Windows XP 64 bit edition for IA-64(Itanium) processors and Windows XP Professional x64 edition for x86-64 processors.
8
DATA FLOW DIAGRAMS DFD for Module Ok
Enter /
ing Name and
Rejected
File
DFD for Billing process File
Item Code
Item Details Sales process
Item Details
Updating process
Quotation Details Stock File
Billing process
Bill Customer
9
Purchase Details DFD. Medicine File Item code, Qty
Medicine Details
Purchase Process
Updating process
Quotation Details
Stock File
10
ENTITY RELATIONSHIP DIAGRAMS
DateStarted
Controls
HOD Name Wor ks On
Employee
Emp- Number
Department
Address
Dept number
Dept Name Works On Name
Name
Name Trea ted by
Patient
Patient ID
Doctor
Dr-ID
Address 11
Address
SOFTWARE DESCRIPTION
Microsoft Visual Basic 6.0
Visual Basic 6.0 is Microsoft’s latest version of the Visual Basic Programming language. Although writing programs can be a tedious chore at time. Visual Basic reduces the effort required on your part, and makes programming enjoyable. Visual Basic makes many aspects of programming as simple as dragging graphics objects on to screen with your mouse.
Visual Basic 6.0 is more than just a programming language; the secret to Visual Basic is in its name” Visual”. With to days Windows Operating System, a program must be able to interact with the screen. Keyboard, mouse and printer graphically.
The environment provided by Visual Basic is suitable for any type of application. Using this environment, the can visually design the objects that your application uses. Visual Basic is not just a languages, it’s an integrated development environment in which you can develop, run, test and debug your applications. The impressive array of programming resources provided by Visual Basic enables to create the objects extemporaneously which can range from pop-up menu to a message box.
12
A form is a major part of Visual Basic application, which allows the to enter the data as well as view the result. A control is an object that we draw on a form to enable or enhance interaction with an application.
Hence a Visual Basic application is a
combination of object like forms and controls, procedures that can respond to Events and other general-purpose procedures.
Starting Visual Basic
To start Visual Basic:
•
Click on the Start button on the Windows task bar.
•
Select Programs, then Microsoft Visual Basic # (where # is your version of
Visual Basic). •
Click on Visual Basic # (where again # is your version).
13
Title Bar
Main Menu
14
Toolbar
At the top of the screen is the Visual Basic Main Window. At the top of the main window is the Title Bar. The title bar gives us information about what program we’re using and what Visual Basic program we are working with. Under the main menu is the Toolbar. Here little buttons with pictures also allow us to control Visual Basic, much like the main menu. If you put the mouse cursor over one of these buttons for a second or so, a little ‘tool tip’ will pop up and tell you what that particular button does.
Parts of a Visual Basic Project
There are three major components in a Visual Basic project: the project itself, the form, and the controls. Project is the word used to encom everything in a Visual Basic project. Other words used to describe a project are application or program. The Form is the window where you create the interface between the and the computer. Controls are graphical features or tools that are placed on forms to allow interaction (text boxes, labels, scroll bars, command buttons). Recall the form itself is a control. Controls are also referred to as objects. Pictorially, a project is:
Control Project
Control Control
Form Control
15
Project consists of a form containing several controls. In looking around your computer’s file directory, you may find some files associated with a Visual Basic project. Two primary files are used to save a Visual Basic project. The project file will have an extension of vbp (in addition, there is sometimes a file with a vbw extension). The form file has an extension of frm (in addition, there is sometimes a form file with an frx extension). An important concept concerning a Visual Basic project is that of a property. Every characteristic of a control (including the form itself) is specified by a property. Example properties include names, captions, sizes, colors, position on the form, and contents. Visual Basic is an event-driven language. Visual Basic is governed by an event processor. That means that nothing happens in a Visual Basic project until some event occurs. Once an event is detected, the project finds a series of instructions related to that event, called an event procedure. That procedure is executed, and then program control is returned to the event:
EVENT
Event processor
16 Event Procedure
Event Procedure
Event Procedure
Event procedures are where we do the actual computer programming and are saved with the form in the file with the frm extension. These procedures are where we write BASIC language statements. You will learn a lot of programming and BASIC language in this course. The BASIC you will learn is very similar to the original BASIC used by Bill Gates and Paul Allen when starting Microsoft.
Parts of the Visual Basic Program
Visual Basic is more than just a computer language.
It is a project building
environment. Within this one environment, we can begin and build our project, run and test our project, eliminate errors (if any) in our project, and save our project for future use. With other computer languages, many times you need a separate text editor to write your program, something called a compiler to create the program, and then a different area to test your program.
Visual Basic integrates each step of the project building process into one
environment. Let’s look at the parts of the Visual Basic environment.
Main Window
17
Start Visual Basic using the procedure learned in Class 1. Notice that several windows appear. The Main Window is used to control most aspects of the Visual Basic project building and running process.
The main window consists of the title bar, menu bar, and toolbar. The title bar indicates the project name and the current Visual Basic operating mode (design, break, run). The menu bar has drop-down menus from which you control the operation of the Visual Basic environment.
Form Window
The Form Window is central to developing Visual Basic applications. It is where you develop your application.
18
If the form window is not present on the screen:
Properties
Like all controls, the form has many (over 40) properties. Fortunately, we only have to know about some of them. The properties we will be concerned with are:
Property
Description
Name
Name used to identify form. Three letter prefix for form names is frm.
Caption
Text that appears in the title bar of form.
Icon
Reference to icon that appears in title bar of form.
Left
Distance from left side of computer screen to left side of form.
Top
Distance from top side of computer screen to top side of form.
Width
Width of the form in twips.
Height
Height of form in twips.
Back Color
Background color of form.
Border Style
Form can either be sizable (can resize using the mouse) or fixed size.
19
Form Events
The form primarily acts as a ‘container’ for other controls, but it does events. That is, it can respond to some interactions. We will only be concerned with two form events in this course:
Event
Description
Click
Event executed when clicks on the form with the mouse.
Load
Event executed when the form first loads into the computer’s memory. This is a good place to set initial values for various properties and other project values.
Toolbox Window 20
The Toolbox Window is the selection menu for controls used in your application.
VB6:
Pointer
Picture Box
Label
Text Box
Frame
Command Button
Check Box
Option Button
Combo Box
List Box
Horizontal Scroll Bar
Vertical Scroll Bar
Timer
Drive
Directory
Files
Shape
Line
Image
Data Control
OLE
If the toolbox window is not present on the screen, click View on the main menu, then Toolbox.
Features of Visual Basic:
1. Good Interface.
21
2. OLE Features. 3. Windows API Features. 4. 32 bit Programming Languages. 5. Data Management 6. Online Help 7. Data Access.
Areas of Application The term "Personal Programming" refers to the idea that, wherever you work, whatever you do, you can expand your computer's usefulness by writing applications to use in your own job. Personal Programming is what Visual Basic is all about. Using Visual Basic's tools, you quickly translate an abstract idea into a program design you can actually see on the screen. VB encourages you to experiment, revise, correct, and network your design until the new project meets your requirements. However, most of all, it inspires your imagination and creativity. Visual Basic is ideal for developing applications that run in the new Windows 95 operating system. VB presents a 3-step approach for creating programs: 1. Design the appearance of your application. 2. Assign property settings to the objects of your program. 3. Write the code to direct specific tasks at runtime.
22
Visual Basic can and is used in a number of different areas, for example: •
Education
•
Research
•
Medicine
•
Business
•
Commerce
•
Marketing and Sales
•
ing
•
Consulting
•
Law
•
Science
Microsoft Access 2003.
Microsoft Access is the default database of Microsoft Visual Basic. Microsoft Access 2003 provides many new features that make working with data and deg a database even easier. Microsoft Access Database is a collection of data and objects related to particular topic or purpose. Microsoft Access Database may contain tables; queries, forms, reports, macros modules and shortcuts top data access pages. Microsoft Access is a Relational Database Management System. Using Access we can organize our data according to subject and can store information about how different subject are related. In general MS-Access database can have several small tables.
23
Microsoft Office Access, previously known as Microsoft Access, is a relational database management system from Microsoft that combines the relational Microsoft Jet Database Engine with a graphical interface and software development tools. It is a member of the 2007 Microsoft Office system. Access can use data stored in Access/Jet, Microsoft SQL Server, Oracle, or any ODBCcompliant data container (including MySQL and PostgreSQL). Skilled software developers and data architects use it to develop application software. Relatively unskilled programmers and non-programmer "power s" can use it to build simple applications. It s some objectoriented techniques but falls short of being a fully object-oriented development tool. Access was also the name of a communications program from Microsoft, meant to compete with ProComm and other programs. This proved a failure and was dropped. Years later Microsoft reused the name for its database software.
Access is used by small businesses, within departments of large corporations, and by hobby programmers to create ad hoc customized desktop systems for handling the creation and manipulation of data. Access can be used as a database for basic web based applications hosted on Microsoft's Internet Information Services and utilizing Microsoft Active Server Pages ASP. Most typical web applications should use tools like ASP/Microsoft SQL Server or the LAMP stack. Some professional application developers use Access for rapid application development, especially for the creation of prototypes and standalone applications that serve as tools for onthe-road salesmen. Access does not scale well if data access is via a network, so applications that are used by more than a handful of people tend to rely on Client-Server based solutions.
24
However, an Access "front end" (the forms, reports, queries and VB code) can be used against a host of database back ends, including JET (file-based database engine, used in Access by default), Microsoft SQL Server, Oracle, and any other ODBC-compliant product. Features One of the benefits of Access from a programmer's perspective is its relative compatibility with SQL (structured query language) —queries may be viewed and edited as SQL statements, and SQL statements can be used directly in Macros and VBA Modules to manipulate Access tables. s may mix and use both VBA and "Macros" for programming forms and logic and offers object-oriented possibilities. MSDE (Microsoft SQL Server Desktop Engine) 2000, a mini-version of MS SQL Server 2000, is included with the developer edition of Office XP and may be used with Access as an alternative to the Jet Database Engine. Unlike a modern RDBMS, the Access and the Jet Engine implements database triggers and stored procedures in a non-standard way. Stored Procedures are implemented in VBA, and Triggers are only available from embedded Forms. Both Triggers and Stored procedures are only available to applications built completely within the Access database management system. Client applications built with VB or C++ are not able to access these features. Starting in MS Access 2003 (Jet 4.0), there is a new syntax for creating queries with parameters, in a way that looks like creating stored procedures, but these procedures are still limited to one statement per procedure. Microsoft Access does allow forms to contain code that is triggered as changes are made to the underlying table (as long as the modifications are done only with that form), and it is common to use -through queries and other techniques in Access to run stored procedures in RDBMSs that these.
25
In ADP files (ed in MS Access 2003 and later), the database-related features are entirely different, because this type of file connects to a MSDE or Microsoft SQL Server, instead of using the Jet Engine. Thus, it s the creation of nearly all objects in the underlying server (tables with constraints and triggers, views, stored procedures and UDF-s). However, only forms, reports, macros and modules are stored in the ADP file (the other objects are stored in the back-end database).
DATABASE DESIGN
The general theme behind a database is to handle information as an integrated whole. A database is a collection of interrelated data stored with minimum redundancy to serve many s quickly and effectively. After deg the input and output, the analyst must concentrate on database design or how data should be organized around requirements. The general objective is to make information access, easy, quick, inexpensive and flexible for other s. During database design, the following objectives are concerned:•
Controlled redundancy
•
Easy to learn and use
•
More information and low cost
•
Accuracy
•
Integrity
26
File Name :-
Field Name
Description
Data Type
Width
Name
Name Name
Text Text
50 50
File Name :- Doctor Registration
Field Name
Description
Data Type
Width
Dr name Sex Dept Consultation time Address no Emergency no Consult fee Date Consultation day Tot pat
Doctor Name Sex Department Consultation Time Address Number Emergency Number Consultation fees Date Consultation Day Total Patient
Text Text Text Text Text Long Long Long Date/Time Text Double
50 50 50 50 50 50 50 50 50 50 50
File Name:-Patient Details
Field Name
Description
Data Type
Width
Name Age Sex
Name Age Sex
Text Integer Text
50 50 50
27
Address Doctor Patient id Reg fee Date Room no
Address Doctor Patient id Registration fees itted Date Room Number
Text Text Text Double Date/Time Integer
50 50 50 50 50 50
Width
File Name:-Medicine
Field Name
Description
Data Type
Medname Medtype Amt Expdate Stock
Medicine Name Medicine Type Amount Expiry Date Stock
Text Text Double Date/Time Double
File Name:-Discharge Sheet
Field Name
Description
Data Type
Width
Patient id Name Doctor Remark Totbill Date
Patient id Name Doctor Remark Total Bill Date
Double Text Text Text Double Date/Time
50 50 50 50 50 50
28
SAMPLE CODING
Private Sub Command2_Click () Unload Me End Sub Private Sub Command3_Click () Db. Open Set rs = db. Execute ("SELECT * FROM where name='" & txt_name.Text & "'") If (txt_ = "" And txt_ name = "") Then MsgBox " not possible" Else
29
If No t rs. EOF () Then If (rs(1) = txt_ . Text) Then MsgBox " Successful" frmMDI.mn Reg.Enabled = True frmMDI.mnuRegDr.Enabled = True frmMDI.mnuAddDept.Enabled = True frmMDI.mnuReg.Enabled = True frmMDI.mnuAddrooms.Enabled = True frmMDI.mnuEditdr.Enabled = True frmMDI.mnulogoff.Enabled = True frmMDI.mnu.Enabled = False frmMDI.mnuPatient.Enabled = True frmMDI.mnuSearch.Enabled = True frmMDI.mnuBilling.Enabled = True frmMDI.mnu.Enabled = True Unload Me Else MsgBox " not success" End If Else MsgBox "EOF Reached" End If End If
30
db.Close End Sub Private Sub Command4_Click() db.Open Set rs = db.Execute("SELECT * FROM STAFF where name='" & txt_name.Text & "'") If Not rs.EOF() Then If (rs(1) = txt_.Text) Then MsgBox " Successful" frmMDI.mnulogoff.Enabled = True frmMDI.mnu.Enabled = False frmMDI.mnuPatient.Enabled = True frmMDI.mnuSearch.Enabled = True frmMDI.mnuBilling.Enabled = True frmMDI.mnu.Enabled = True Unload Me Else MsgBox " not success" End If Else MsgBox "Invalid name or " End If db.Close
31
End Sub Private Sub Form_Load() connectdb End Sub
REGISTRATION Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_save_Click() db.Open db.Execute ("INSERT INTO VALUES ('" & txt_name.Text & "','" & txt_.Text & "')") MsgBox "Record added successfully" db.Close End Sub Private Sub Form_Load () connectdb End Sub 32
DOCTOR’S REGISTRATION Dim m_time As String Dim m_MissingFields As String Private Sub Command1_Click () If ValidateForm = True Then db.Open m_time = txt_timefrom.Text & “to” & txt_timeto.Text rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!drname = txt_name.Text If Opt_male.Value = True Then rs!sex = "Male" Else rs!sex = "Female" End If rs!dept = cmb_dept.Text rs!consultationtime = m_time rs!address = txt_address.Text rs!no = txt_no.Text rs!emergencyno = txt_emergency.Text
33
rs!Date = DTP.Value rs!consultationday = comb_day.Text rs!totpat = txt_totpat.Text rs!consultfee = txt_fee.Text rs.Update MsgBox "One Doctor ed", vbInformation, "Doctor ADDED" rs.Close rs.Open "PATCOUNT", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!drname = txt_name.Text rs!patcount = txt_totpat.Text rs!Date = DTP.Value rs.Update db.Close Else m_MissingFields = Left (m_MissingFields, Len (m_MissingFields) - 1) MsgBox "Some fields (" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Command2_Click () Unload Me
34
End Sub Private Sub Form_Load() connectdb comb_day.AddItem "Monday" comb_day.AddItem "Tuesday" comb_day.AddItem "Wednesday" comb_day.AddItem "Thursday" comb_day.AddItem "Friday" comb_day.AddItem "Saturday" comb_day.AddItem "Sunday" End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If cmb_dept.Text = "" Then m_MissingFields = m_MissingFields & "Dept Name," m_valid = False End If If txt_timefrom.Text = "" Then
35
m_MissingFields = m_MissingFields & "Time From," m_valid = False End If If txt_timeto.Text = "" Then m_MissingFields = m_MissingFields & "Time To," m_valid = False End If If txt_address.Text = "" Then m_MissingFields = m_MissingFields & "Address," m_valid = False End If If txt_no.Text = "" Then m_MissingFields = m_MissingFields & " no," m_valid = False End If If txt_emergency.Text = "" Then m_MissingFields = m_MissingFields & "Emergency no," m_valid = False End If If txt_fee.Text = "" Then m_MissingFields = m_MissingFields & "Fees," m_valid = False End If
36
ValidateForm = m_valid End Function
PATIENT REGISTRATION
Dim m_sx As String Dim m_patid As Integer Dim m_patcount As Integer Dim m_totpat As Integer Dim m_MissingFields As String
Private Sub cmd_del_Click() 'MsgBox
("DELETE
FROM
PATIENTDETAILS
WHERE
timestampdiff(SQL_TSI_MONTH," & Date & ",ts date))") End Sub Private Sub Combo_drpref_Click() db.Open rs.Open
"SELECT
totpat
FROM
DrREGISTRATION
Combo_drpref.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then m_totpat = rs!totpat Else MsgBox "Not found"
37
WHERE
drname='"
&
End If rs.Close rs.Open "SELECT * FROM DrREGISTRATION WHERE drname='" & Combo_drpref.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_regfee.Text = rs!consultfee Else MsgBox "Record not found" End If rs.Close rs.Open "SELECT * FROM PATCOUNT WHERE drname='" & Combo_drpref.Text & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then m_patcount = rs!patcount If (m_patcount > m_totpat) Then MsgBox "Patient Count Exceeds please assign to another Doctor" End If Else MsgBox "Record not Found" End If rs.Close db.Close End Sub
38
Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" & Combo_patid.Text & "'", db, adOpenDynamic, adLockOptimistic lst_names.AddItem rs!Name lst_age.AddItem rs!age lst_add.AddItem rs!address db.Close Command3.Enabled = False End Sub Private Sub Command1_Click () Dim pattype As String Dim rno As Integer If Opt_male = True Then m_sx = "male" Else m_sx = "female" End If db.Open rs.Open "SELECT * FROM PATIENTDETAILS where patientid='" & txt_patientid.Text & "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then MsgBox "Patient ID allready exist"
39
Else If ValidateForm = True Then If rdoIP.Value = True Then pattype = rdoIP.Caption rno = Val(cmbRoomNo.Text) Else pattype = rdoOP.Caption rno = -1 End If db.Execute ("INSERT INTO PATIENTDETAILS VALUES ('" & txt_name.Text & "'," & _ txt_age.Text & ",'" & m_sx & "','" & txt_address.Text & "','" & _ Combo_drpref.Text & "','" & txt_patientid & "'," & txt_regfee & ",' “& _ DTP.Value & "','" & pattype & "'," & rno & ")") db.Execute ("UPDATE ADDROOM SET Allocated='Y' WHERE roomno=" & Val (cmbRoomNo.Text)) MsgBox "Record added successfully" m_patid = m_patid + 1 Else m_MissingFields = Left (m_MissingFields, Len (m_MissingFields) - 1) MsgBox "Some fields (" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If
40
End If db.Close 'm_patid = m_patid + 1 txt_address.Text = "" txt_age.Text = "" txt_name.Text = "" txt_regfee.Text = "" txt_patientid.Text = m_patid db.Open m_patcount = m_patcount + 1 rs.Open "SELECT * FROM PATCOUNT WHERE drname='" & Combo_drpref.Text & "'", db, adOpenDynamic, adLockOptimistic WHERE drname=' " & Combo_drpref.Text & "' ") If Not rs.EOF () Then rs!patcount = m_patcount rs.Update Else MsgBox "Please fill all the fields" End If db.Close End Sub Private Sub DTPicker1_Change () End Sub
41
Private Sub Command2_Click () Unload Me End Sub Private Sub Command3_Click () If (txt_dt.Text = "") Then MsgBox "Please enter the date", vbCritical, "Warning" Else db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE date= #" & txt_dt.Text & "# ", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() lst_names.AddItem rs!Name lst_age.AddItem rs!age lst_add.AddItem rs!address rs.MoveNext Wend db.Close End If End Sub Private Sub Command4_Click () Unload Me End Sub Private Sub Command5_Click ()
42
Combo_patid.Text = "" txt_dt.Text = "" lst_age.Clear lst_names.Clear lst_add.Clear End Sub Private Sub Command6_Click() End Sub Private Sub Form_Load () connectdb db.Open rs.Open "SELECT * FROM DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While not rs.EOF () Combo_drpref.AddItem rs!drname rs.MoveNext Wend rs.Close rs.Open "SELECT COUNT (*) FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic If (rs(0) = 0) Then m_patid = 1 txt_patientid.Text = m_patid Else
43
m_patid = rs(0) + 1 txt_patientid.Text = rs (0) + 1 End If db.Close rdoOP.Value = True loadRooms cmbRoomNo.Enabled = False
End Sub
Private Sub rdoIP_Click () If rdoIP.Value = True Then cmbRoomNo.Enabled = True End If End Sub Private Sub rdoOP_Click () If rdoOP.Value = True Then cmbRoomNo.Enabled = False End If End Sub Private Sub SSTab1_Click (PreviousTab as Integer) db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic
44
While not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub Private Sub txt_dt_GotFocus () Command3.Enabled = True End Sub Private Function ValidateForm () As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_age.Text = "" Then m_MissingFields = m_MissingFields & "Age," m_valid = False End If If txt_address.Text = "" Then m_MissingFields = m_MissingFields & "Address," m_valid = False
45
End If If txt_regfee.Text = "" Then m_MissingFields = m_MissingFields & "Registration Fee," m_valid = False End If ValidateForm = m_valid End Function Public Sub loadRooms() db.Open rs.Open "SELECT roomno FROM ADDROOM WHERE Allocated='N'", db, adOpenDynamic, adLockOptimistic cmbRoomNo.Clear While Not rs.EOF cmbRoomNo.AddItem rs.Fields(0) rs.MoveNext Wend If (cmbRoomNo.ListCount > 0) Then cmbRoomNo.ListIndex = 0 End If db.Close End Sub
EDIT DOCTOR
46
Private Sub cmd_update_Click() db.Open rs.Open "SELECT * FROM DrREGISTRATION WHERE Drname= '" + Combo_drname.Text + "'", db, 3, 3 If Not rs.EOF() Then rs!consultationtime = txt_time.Text rs!address = txt_address.Text rs!no = txt_no.Text rs!emergencyno = txt_emergencyno.Text rs.Update MsgBox "Record updated Successfully" db.Close Else MsgBox "Record not found" End If End Sub
Private Sub Combo_drname_Click() db.Open rs.Open "SELECT * FROM DrREGISTRATION where drname='" + Combo_drname.Text + "' ", db, adOpenDynamic, adLockOptimistic txt_time.Text = rs!consultationtime txt_address.Text = rs!address
47
txt_no.Text = rs!no txt_emergencyno.Text = rs!emergencyno db.Close End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_drname.AddItem rs!drname rs.MoveNext Wend db.Close End Sub
EDIT PATIENT
Private Sub cmdupdate_Click() db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic
48
rs!address = txt_address.Text rs.Update MsgBox "Record Updated" db.Close End Sub Private Sub Combo1_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo1_patid.Text + "' ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_address.Text = rs!address db.Close Else MsgBox "Record not found" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "PATIENTDETAILS", db, 3, 3
49
While Not rs.EOF() Combo1_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub
INPATIENT BILL
Dim billno As Integer Dim w As Integer Dim addt As Date Dim diff As Integer Private Sub cm_close_Click() 'End If Unload Me End Sub Private Sub cmd_dis_Click() w=0 db.Open 'rs.Open "select * from PATIENTDETAILS where patientid='" + txtPatID.Text + "' ", db, adOpenDynamic, adLockOptimistic
50
rs.Open "select * from LABBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("total") Else 'MsgBox "Record not found" w=w End If rs.Close rs.Open "select * from PHARBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("tot") Else 'MsgBox "Record not found" w=w End If rs.Close rs.Open "select * from IPBILL where patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then w = w + rs("tot") Else
51
'MsgBox "Record not found" w=w End If rs.Close db.Close 'txt_totbill.Text = w Load DISCHARGEsheet DISCHARGEsheet.txt_totbill.Text = w DISCHARGEsheet.txtPatID.Text = Combo_patid.Text DISCHARGEsheet.txt_dr.Text = Combo_dr.Text DISCHARGEsheet.txt_name.Text = txt_name.Text DISCHARGEsheet.Show End Sub
Private Sub cmd_save_Click() If ValidateForm = True Then db.Open rs.Open "IPBILL", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!Name = txt_name.Text rs!regdate = txt_regdate.Text rs!patientid = Combo_patid.Text rs!doctor = Combo_dr.Text
52
rs!regdate = txt_regdate.Text rs!billno = txt_billno.Text rs!room = txt_room.Text rs!amt = txt_amt.Text rs!tot = diff rs.Update rs.Close MsgBox "Recorded added sucessfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If db.Close cmd_dis.Enabled = True cmd_save.Enabled = False End Sub
Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic
53
If Not rs.EOF() Then txt_regdate.Text = rs!date txt_name.Text = rs!Name txt_regdate.Text = rs!date addt = rs!date Combo_dr.Text = rs!doctor Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic txt_room.Text = rs!roomno 'txt_amt.Text = rs!amt rs.Close rs.Open "SELECT amt from ADDROOM WHERE roomno=" & Val(txt_room.Text) If Not rs.EOF Then txt_amt.Text = rs!amt End If Else MsgBox "No Rooms allotted" End If 'rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic db.Close diff = DateDiff("d", addt, Now) diff = diff * Val(txt_amt.Text) 'MsgBox diff txt_tot.Text = diff
54
End Sub Private Sub Form_Load() connectdb db.Open rs.Open "SELECT
patientid FROM PATIENTDETAILS WHERE Type='IP'", db,
adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_dr.AddItem rs!drname rs.MoveNext Wend db.Close 'db.Open db.Open rs.Open "SELECT COUNT(*) FROM IPBILL", db, adOpenDynamic, adLockOptimistic If (rs(0) = 0) Then txt_billno.Text = 1
55
Else billno = billno + 1 txt_billno.Text = billno End If db.Close End Sub Private Sub Label11_Click() End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False End If ValidateForm = m_valid End Function
OUTPATIENT BILL
56
Dim m_count As Integer Dim total As Integer Dim m_MissingFields As String Private Sub Command1_Click() db.Open rs.Open "OPPHARMACY", db, adOpenDynamic, adLockOptimistic rs.AddNew rs!Name = txt_name.Text rs!Amount = txt_amt.Text rs!billno = txt_billno.Text rs!Date = DTP.Value rs!pamt = txt_pamt.Text rs!labamt = txt_lamt.Text rs!tot = txt_tot.Text rs!patientid = Combo_patid.Text rs!doctor = Combo_dr.Text rs.Update 'MsgBox "You are ed", vbInformation, "Added" rs.Close db.Close End Sub Private Sub cmd_save_Click() If ValidateForm = True Then
57
db.Open db.Execute
"INSERT
INTO
OPBILL
VALUES("
&
txt_billno.Text
&
","
&
Combo_patid.Text & ",'" & txt_name.Text & _ "','" & Combo_dr.Text & "','" & DTP.Value & "'," & txt_amt.Text & _ "," & txt_pamt.Text & "," & txt_lamt.Text & "," & txt_tot.Text & " )" MsgBox "Record added successfully" db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Combo_patid_Click() db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid='" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_name.Text = rs!Name Else MsgBox "Record not found"
58
End If rs.Close rs.Open "SELECT * FROM PHARBILL WHERE patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_pamt.Text = rs!tot rs.Close Else MsgBox "Not Found" End If rs.Close rs.Open "SELECT * FROM LABBILL WHERE patientid=" + Combo_patid.Text + " ", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_lamt.Text = rs!total rs.Close Else MsgBox "Amount field is empty" End If db.Close End Sub Private Sub Command2_Click() Unload Me
59
End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_dr.AddItem rs!drname rs.MoveNext Wend db.Close db.Open rs.Open "PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close db.Open rs.Open "SELECT COUNT(*) FROM OPBILL", db, adOpenDynamic, adLockOptimistic m_count = rs(0) If (m_count = 0) Then m_count = 1 txt_billno.Text = m_count
60
Else m_count = m_count + 1 txt_billno.Text = m_count End If db.Close End Sub Private Sub txt_amt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then total = Val(txt_amt.Text) + Val(txt_lamt.Text) + Val(txt_pamt.Text) txt_tot.Text = total cmd_save.SetFocus End If End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_name.Text = "" Then m_MissingFields = m_MissingFields & "Name," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False
61
End If If txt_lamt.Text = "" Then m_MissingFields = m_MissingFields & "Lab Amount," m_valid = False End If If txt_pamt.Text = "" Then m_MissingFields = m_MissingFields & "Pharmacy Amount," m_valid = False End If If txt_tot.Text = "" Then m_MissingFields = m_MissingFields & "Total," m_valid = False End If ValidateForm = m_valid End Function
PHARMACY BILL
Dim i As Integer Dim j As Integer Dim amt As Double
62
Dim billno As Integer Dim m_MissingFields As String Private Sub cmd_save_Click() If ValidateForm = True Then For k = 1 To MSF.Rows - 2 db.Execute ("INSERT INTO PHARBILL VALUES( " & txt_billno.Text & ",'" & DTP.Value &_ "','" & Combo_patid.Text & "','" & MSF.TextMatrix(k, 1) & "','" & MSF.TextMatrix(k, 2) & _ "'," & MSF.TextMatrix(k, 3) & "," & lblTotal.Caption & ")") Next MsgBox "Recorded added successfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If db.Close End Sub
Private Sub Combo_med_Click() rs.Open "SELECT * FROM MEDICINE WHERE medname='" + Combo_med.Text + "'", db, adOpenDynamic, adLockOptimistic
63
If Not rs.EOF() Then lblprice.Caption = rs!amt End If rs.Close txt_qty.SetFocus End Sub
Private Sub Command3_Click() Unload Me db.Close End Sub
Private Sub Form_Load() i=1 connectdb db.Open rs.Open "SELECT * FROM MEDICINE", db, adOpenDynamic, adLockOptimistic Combo_med.AddItem "" While Not rs.EOF() Combo_med.AddItem rs!medname rs.MoveNext Wend
64
rs.Close rs.Open "SELECT COUNT(*) FROM PHARBILL", db, adOpenDynamic, adLockOptimistic billno = rs(0) If (billno = 0) Then txt_billno.Text = 1 Else billno = billno + 1 txt_billno.Text = billno End If rs.Close rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend rs.Close End Sub
Private Sub txt_qty_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MSF.TextMatrix(i, 0) = i MSF.TextMatrix(i, 1) = Combo_med.Text
65
MSF.TextMatrix(i, 2) = txt_qty.Text MSF.TextMatrix(i, 3) = CDbl(Val(txt_qty.Text) * Val(lblprice.Caption)) lblTotal.Caption = Val(lblTotal.Caption) + MSF.TextMatrix(i, 3) MSF.Rows = MSF.Rows + 1 i=i+1 txt_qty.Text = "" lblprice.Caption = "" Combo_med.ListIndex = 0 End If
End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_qty.Text = "" Then m_MissingFields = m_MissingFields & "Qty," m_valid = False End If
ValidateForm = m_valid End Function
LAB BILL
66
Dim billno As Integer Dim i As Integer Dim k As Integer Dim m_MissingFields As String Private Sub combo_labtests_Click() If (combo_labtests.ListIndex = 0) Then Command4.Enabled = False Else Command4.Enabled = True End If rs.Open "SELECT * FROM LABUPDATE WHERE testname='" & combo_labtests.Text & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then lblamt.Caption = rs!amt End If rs.Close End Sub Private Sub Command2_Click() If ValidateForm = True Then For k = 1 To MSF.Rows - 2 db.Execute ("INSERT INTO LABBILL VALUES( " & txt_billno.Text & ",'" & Combo_patid.Text & _
67
"','" & MSF.TextMatrix(k, 1) & "'," & MSF.TextMatrix(k, 2) & _ "," & lbl_tot.Caption & ")") Next MsgBox "Recorded added successfully" Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If For k = 1 To MSF.Rows - 2 MSF.TextMatrix(k, 0) = "" MSF.TextMatrix(k, 1) = "" MSF.TextMatrix(k, 2) = "" Next MSF.Rows = 2 i=1 txt_billno.Text = billno + 1 db.Close End Sub
Private Sub Command3_Click() billno = billno - 1
68
db.Close Unload Me End Sub
Private Sub Command4_Click() MSF.TextMatrix(i, 0) = i MSF.TextMatrix(i, 1) = combo_labtests.Text MSF.TextMatrix(i, 2) = lblamt.Caption lbl_tot.Caption = Val(lbl_tot.Caption) + MSF.TextMatrix(i, 2) MSF.Rows = MSF.Rows + 1 i=i+1 combo_labtests.ListIndex = 0 lblamt.Caption = "" End Sub
Private Sub Form_Load()
If (combo_labtests.Text = "") Then Command4.Enabled = False Else Command4.Enabled = True End If i=1
69
connectdb db.Open combo_labtests.AddItem "" rs.Open "SELECT * FROM LABUPDATE", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() combo_labtests.AddItem rs!testname rs.MoveNext Wend rs.Close rs.Open "SELECT * FROM PATIENTDETAILS", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend rs.Close lbl_tot.Caption = 0 rs.Open "SELECT COUNT(*) FROM LABBILL", db, adOpenDynamic, adLockOptimistic billno = rs(0) If (billno = 0) Then txt_billno.Text = 1 Else billno = billno txt_billno.Text = billno
70
End If rs.Close End Sub
Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If MSF.TextMatrix(2, 1) = "" Then m_MissingFields = m_MissingFields & "Test Name," m_valid = False End If ValidateForm = m_valid End Function
DISCHARGE SHEET
Dim m_MissingFields As String Dim w As Double Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_save_Click() Dim roomno As Integer
71
If ValidateForm = True Then db.Open db.Execute ("INSERT INTO DISCHARGESHEET VALUES('" & txtPatID.Text & " ','" & txt_name.Text & "','" & txt_dr.Text & "', '" & txt_remarks.Text & "'," & txt_totbill.Text & ",'" & DTP.Value & "')") rs.Open "SELECT RoomNo FROM PATIENTDETAILS WHERE patientid='" & Val(txtPatID.Text) & "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF Then roomno = rs!roomno End If rs.Close db.Execute ("UPDATE ADDROOM SET Allocated='N' WHERE roomno=" & roomno) MsgBox "Recorded added successfully" db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub
Private Sub Form_Load()
72
connectdb End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_remarks.Text = "" Then m_MissingFields = m_MissingFields & "Remarks ," m_valid = False End If If txt_totbill.Text = "" Then m_MissingFields = m_MissingFields & "Bill Amount," m_valid = False End If ValidateForm = m_valid End Function
INPATIENT SEARCH
Private Sub cmd_close_Click() Unload Me End Sub
Private Sub Combo_patid_Click()
73
db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid= '" + Combo_patid.Text + "'", db, adOpenDynamic, adLockOptimistic If Not rs.EOF() Then txt_name.Text = rs!Name txt_address.Text = rs!address Else MsgBox "Record not found" End If rs.Close 'rs.Open
"SELECT
*
FROM
ROOMALLOCATION
WHERE
patientid=
'"
&
Combo_patid.Text & "' " rs.Open "SELECT * FROM PATIENTDETAILS WHERE patientid= '" & Combo_patid.Text & "' and type='IP'" If Not rs.EOF() Then txt_roomno.Text = rs!roomno Else MsgBox "Record not found" End If db.Close End Sub Private Sub Form_Load() connectdb
74
db.Open rs.Open "SELECT * FROM PATIENTDETAILS WHERE type='IP'", db, adOpenDynamic, adLockOptimistic While Not rs.EOF() Combo_patid.AddItem rs!patientid rs.MoveNext Wend db.Close End Sub
DOCTOR SEARCH
Private Sub Combo1_Click() db.Open rs.Open "select * from DrREGISTRATION where drname='" + Combo1.Text + "' ", db, adOpenDynamic, adLockOptimistic Label6.Caption = rs!dept Label8.Caption = rs!consultationtime Label11.Caption = rs!address Label12.Caption = rs!no Label13.Caption = rs!emergencyno db.Close End Sub
75
Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() connectdb db.Open rs.Open "DrREGISTRATION", db, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo1.AddItem rs!drname rs.MoveNext Wend db.Close End Sub
MEDICINE UPDATES
Private Sub Command1_Click() db.Open db.Execute ("INSERT INTO MEDICINE VALUES('" & txt_mname.Text & "','" & Combo_medtype.Text & "'," & txt_amt.Text & ",'" & DTP.Value & "'," & txt_stock.Text & ")") MsgBox "Record Successfully added" db.Close
76
End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb Combo_medtype.Text = "Capsule" Combo_medtype.AddItem "Capsule" Combo_medtype.AddItem "Syrup" End Sub Private Sub Label1_Click() End Sub
ROOM ALLOCATION Dim m_MissingFields As String Private Sub Command1_Click() 'On Error GoTo er If ValidateForm = True Then db.Open db.Execute "INSERT INTO ROOMALLOCATION VALUES('" & txt_patid.Text & "'," & txt_roomno.Text & ",'" & combo_rtype.Text & "'," & txt_amt.Text & ")" MsgBox "Record added successfully"
77
db.Close Else m_MissingFields = Left(m_MissingFields, Len(m_MissingFields) - 1) MsgBox "Some fields(" & m_MissingFields & ")" & vbCrLf & " are missing, please fill the fields and try again", vbCritical + vbOKOnly, "Missing fields" m_MissingFields = "" End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() connectdb combo_rtype.Text = "Single room" combo_rtype.AddItem "Single room" combo_rtype.AddItem "Double room" End Sub Private Function ValidateForm() As Boolean Dim m_valid As Boolean m_valid = True If txt_patid.Text = "" Then m_MissingFields = m_MissingFields & "Patient ID," m_valid = False
78
End If If txt_roomno.Text = "" Then m_MissingFields = m_MissingFields & "Room No," m_valid = False End If If txt_amt.Text = "" Then m_MissingFields = m_MissingFields & "Amount," m_valid = False End If ValidateForm = m_valid End Function
79
OUTPUTS
80
Registration
Change
81
Doctor Registration
82
Patient Registration
83
In Patient Search
84
Medicine Update 85
IP Bill
Discharge Sheet
86
Doctor Search 87
88
CONCLUSION
The HOSPITAL MANAGEMENT SYSTEM is a great improvement over the manual system using case fields and paper. The computerization of the system has sped up the process. In the current system, the front office managing is very slow. The hospital managing system was thoroughly checked and tested with dummy data and thus is found to be very reliable.
ADVANTAGES
•
It is fast, efficient and reliable
•
Avoids data redundancy and inconsistency
•
Very -friendly
•
Easy accessibility of data
•
Number of personnel required is considerably less
•
Provides more security and integrity to data
89
FUTURE ENHANCEMENTS
The proposed system is Hospital Management System. We can enhance this system by including more facilities like billing system, inpatient room allotment for the itted patients and the stock details of medicines in the pharmacy.
Providing such features enable the s to include more comments into the system.
90
BIBLIOGRAPHY
Books •
A Complete Guide to Programming in Visual Basic .Net -Michael McMillian
•
A Complete Visual Basic 6 Training Course: How to Programme: Package -Harvey M deitel,Paul j deitel,Tem R Neito
•
Advanced Programming Using Visual Basic: Version 6.0 -Julia Case Bradley
•
Access 2003 Power Programming with VBA -Allen G Taylor
•
Advanced MS Visual Basic -Peter Morris
Site Address •
www.associatedcontent.com
•
www..tripod.com
•
www.vbcodesource.com
91
Related Documents 3m3m1z
Doctor Management Vb Project Report 3d2vp
January 2022 0
Medical Shop Management System Vb Project Report 1l2a3n
October 2019 50
Inventory Management Vb Project Free 451172
November 2019 84
Hospital Management Project Report 4a5n4g
November 2019 92
Financial Management Project Report 396li
December 2019 63
Event Management Project Report y1n6r
December 2019 102More Documents from "Bhushan Chendekar" pd28
Doctor Management Vb Project Report 3d2vp
January 2022 0
Fiori Apps 1809 81o1d
November 2022 0
The Ayurveda Encyclopedia - Natural Secrets To Healing, Prevention 6c5h6k
November 2020 0
Edumanage Newppt 2e1j70
August 2021 0
Kun Faya Kun Lyrics Meaning 5xe2a
November 2019 220