SANT GAHIRA GURU VISHWAVIDYALAYA, AMBIKAPUR

GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE PATHALGAON

Center code No. - 045

A Project on

“BLOOD BANK MANAGEMENT SYSTEM”

By

“………………………………………”

A Project report submitted in partial fulfillment of requirement

For the degree of

POST GRADUATION DIPLOMA IN COMPUTER APPLICATION

SANT GAHIRA GURU VISHWAVIDYALAYA, AMBIKAPUR (C.G.)

GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE PATHALGAON (C.G.)

 PROJECT WORK EVALUATION

1. Project Title:
2. Software Base: Visual Basic 6.0
3. Submitted for the Course & Year: PGDCA (2024-25)

4. Individual Evaluation: Maximum 100

INDIVIDUAL EVALUATION (M.G.)

NAME ROLL NUMBER
(MAX.100)

7. Center Name: (045) Gurukul Arts, Commerce & Science College, Pathalgaon (C.G.)

External Examiner
GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE, PATHALGAON (C.G.)
POST GRADUATION DIPLOMA IN COMPUTER APPLICATION

CERTIFICATE OF APPROVAL

This is to certify that the work embodied in this Major Project, “BLOOD BANK
MANAGEMENT SYSTEM” has been satisfactorily completed
by…………………………………………….with……………………………… . It is a
bonafide piece of work, carried out under my guidance in the PGDCA, GURUKUL ARTS,
COMMERCE & SCIENCE COLLEGE, PATHALGAON, and JASHPUR for the partial
fulfillment of the POST GRADUATION DIPLOMA IN COMPUTER APPLICATION
during the Session 2024 - 2025.

Guided By

Name of Guidance
MR. PAWAN KUMAR YADAV
MR. NEERAJ KUMAR PATEL

Approved By
DR. AJEET KUMAR YADAV
Principal of Gurukul Arts, Commerce & Science College, Pathalgaon (C.G.)
 GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE, PATHALGAON (C.G.)
POST GRADUATION DIPLOMA IN COMPUTER APPLICATION

CERTIFICATE OF APPROVAL
This foregoing Major project is hereby approved as a creditable study of a computer
application Subject carried out and presented in a manner satisfactory to warranty its
acceptances as a prerequisite to the post graduate degree for which it has been submitted. It is
understood that by this approval the undersigned do not necessarily endorse or approval any
statements made , opinion expressed on conclusion drawn therein, but approval the thesis
only for the purpose the which it has been submitted.

(Internal Examiner) (External Examiner)

MR. PAWAN KUMAR YADAV
 GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE, PATHALGAON (C.G.)
POST GRADUATION DIPLOMA IN COMPUTER APPLICATION

DECLARATION

I, …………………………………., a student of post graduation diploma in computer

application, GURUKUL ARTS, COMMERCE & SCIENCE COLLEGE,
PATHALGAON hereby declare that the work presented in this Major Project is outcome of
my own work, is bonafide, correct to the best of my knowledge and this work has been
carried out taking care of Engineering Ethics. The work presented does not infringe any
patented work and has not been submitted to any University for the award of degree or any
professional diploma.

NAME OF STUDENT - ……………………………………………

CLASS NAME - …………………………………………….

ENROLMENT NO - …………………………………………….
 ACKNOWLEDGMENT

“TASK successful makes everyone happy, but the happiness will not be gold without
glitter if we didn’t state the persons how have supported us to make it a success

Success will be crowned to people how made it a reality but the people whose
constants guidance and encouragement it possible will be crowned first on the eve of success.
This acknowledgement transcends the reality of formality when we would like to
express deep gratitude and respect to all those people behind the screen who guided, inspired
and happened me for the compilation of our project work.

I consider my self lucky in enough to get such a good project. This project would add
as an asset to my academic profile.

I would like to express my thankfulness HOD of GURUKUL ARTS, COMMERCE

& SCIENCE COLLEGE, PATHALGAON (C.G.) HOD of Computer Application Mr.
Pawan Kumar Yadav and my project Guide Mr. Pawan Kumar Yadav for his constant
motivation and valuable help through the project work.
I also extend my thanks to my team members and family members for their co-
operation during my course.

Thank you!
 INDEX

S.N. DESCRIPTION PAGE NO

1 INTRODUCTION

2 PROBLEM DESCRIPTION

3 FEATURES OF PROJECT

4 OBJECTIVE OF PROJECT

5 SYSTEM SPECIFICATION

6 SYSTEM STUDY

7 DFD

8 E-R DIAGRAM

9 SOFTWARE DESCRIPTION

10 DATABASE DESIGN

11 SAMPLE CODING

12 OUTPUT

13 CONCLUSION

14 BIBLIOGRAPHY
1 .INTRODUCTION:-

Data is the code word of the computer industry. Data refers to a collection of facts usually
collected as a result of observation and experiment or processes within a computer system.
This may consist of numbers, words or images or observations of a set of variables. Data are
often viewed as a lowest level of abstraction from which information and knowledge are
derived.

In this project we have given an insight to the development of a computer based database
titled "BLOOD BANK MANAGEMENT" using Microsoft Visual Basic 6.0 as a front-end
and Microsoft Access as a back-end.

Blood Bank automation or computerization of the blood bank is the application of computers
to perform either in part or as a whole the activities that are carried out in the blood bank
setting.

Blood bank automation requires the use of computers and associated programs that are suited
for the purpose. These associated or group of programs that are use on the computer system
can be describe as Pharmacy Management System.

Blood Bank management system is used to perform tasks such as registration of customers,
blood and staffs. It helps the customer to purchase the required blood bases on their needs.
Customer can make transaction through cash. Information related to blood, employees,
customers, etc can be easily retrieved.

This software is required to eliminate tedious manual searching, cataloguing, and loaning out
of medicines, Including registration and clearance of customers.

2 .PROBLEM DESCRIPTION:-

As we know manual system are quite tedious, time consuming and less efficient and
accurate in comparison to the computerized system. So following are some advantages of the
old system:

1. Time consuming
 2. Less accurate
3. Less efficient
4. Lots of paper work
5. Slow data processing
6. Not user friendly environment
7. Difficult to keep old records

3. FEATURES OF PROJECT:-

BLOOD BANK MANAGEMENT is a software application to maintain day to day

transactions in a blood bank. This software help to register all the donors, Blood collection
details, blood issued details etc.

4. OBJECTIVE OF PROJECT:-

There are so many disadvantages in the existing system because they want to a log of paper
work in the system and many people engage to maintain of the system. But the technology is
growing fatly and researches a new technology.

So the cost of the control is very less and we also find previous information in a few
seconds on the computerization by this Software. It improves efficiency of their bill
according to the customer satisfaction.

The major objective for implementing computerized Software in an organization is:-

 To manage the resources of the Stock efficiently.

 To reduce the losses incurred due to wrong entries.
 To manage the Customer/member data in a proper manner.
 Also, manage the asset.
 To maintain the daily expense in efficient manner.
 Preparation of various analysis reports.
 Generation of report that help management for making effective and
 Timely decisions.
Tracking: Tracking the progress of your projects and programs is important for the long
term success of your business. A project management software system will give you the
visibility to see if a project is running to its predetermined time frame, what has been done
and what still needs to be complete. The software reduces the need for paper or electronic
updates from the project team members to their project manager.

Resourcing: The project management system ensures that the optimal resources are working
on the right projects by examining the level of skills and abilities needed to successfully
complete the project. Assigning resources to tasks or projects through the project
management system will ensure that each resource knows all the information needed for
them to complete the project.

Communication: A project management system makes communication channels regarding

tasks, projects and programs easier through the uploading and sharing of files, collaborating
on an online space and emailing updates through the system. Communication channels with
your customers/ clients can be made simpler also as business documents e.g. invoices can be
sent directly from the project management system to its required destination and information
on those customers/ clients can be kept on a virtual database to help with the follow up
process that takes place.

Financial Control: A critical item in the management of projects is the budget and the way
in which the budget is managed could ultimately decide the future of the business. The
project management software gives the project manager a visual on the project costs, project
budget (actual Vs planned), project cost data etc to ensure that projects and programs run to
their assigned budgets, money is ultimately saved and not lost and generating a clear Return
on Investment (ROI) on all projects.

Where are we now?: A PM software solution can easily tell an organization if they are in line
with their initial requirements by taking a snapshot of the project at that point in time and
examining some of the following:

Who is working on each task or project?

Is there any time delays

Is the project keeping to its budget etc?

Decision Making: When making a decision in project management all aspects of the project
need to be taken into consideration. By using a project management system the decision
making process is improved, as the information is all in clearly presented in one place.

The Edge: By having a project management system in place it could ultimately give you a
competitive edge over your competitors. If you can complete a project more efficiently than
the rest you it can give you that extra push ahead of your competitors.
Risk management: Out of nowhere a risk can throw a spanner in the works and cause severe
problems resulting in the project failing. Project management software system can give you a
platform by which risks can be flagged, tracked and correctly resolved to ensure that the risk
has the lowest possible negative effect on the project.

Quality of information: The quality of the information is increased as only the information
that’s needed is gathered and shown.

Keeping the boss happy: Ok this won’t provide the company with benefits however it will
give you some peace and reassurance at your next meeting with the boss. The project
management system provides you with all the tools to help your project come in on time and
too budget keeping all involved happy.

USER INFORMATION:

o The project is designed in such a manner that it can provide all the detail
information of USERS

 DATABASE INFORMATION
o This project is designed in such a manner that it can provide all the detail
information of record of database.

 REPORT GENERATION:
o This project is designed to provide us various Summaries and detailed report
of stored data we can also filter our report using various filter.
5. SYSTEM SPECIFICATION:-

HARDWARE REQUIREMENT

Processor : Intel Pentium IV 2.4 GHz

Clock speed : 500 MHz
Ram : 1 Mb
Hard Disk : 160 Gb
Monitor : 15 VGA Color
Keyboard : 108 keys
Mouse : Fingers

SOFTWARE REQUIREMENT

Operating System : MS Windows XP Home

Back-End : Ms- Access 2007
Front-End : Visual Basic 6.0

6. SYSTEM STUDY:-

INTRODUCTION

This project has been developed to automate data handling in Blood Bank Management. The
different forms have been used to input data, make changes to the existing data, delete some
records according to the requirements. The different reports give the user a Firth and
knowledge about various details.
This project opens with a splash screen clicking on which takes the user to the screen having
login form by clicking on it, the respective password entry form opens. On entering the
correct password the main MDI form is invoked, where the user can select the desired form
or report from the menu.
 The Cancel button associated with every form cancels the currently performed
operation and not the form.
 To exit from the form click the “x” button available on the top corner of every Form.
 It has not been possible to cater to all the possible quires and the project can be
upgraded according to the requirements.

There are some important modules in the purpose system, which are:
 Login for admin: This module will allow the administrator to enter their respective
forms.
 Donor details: This module will enable admin to add new donor and to change their
details.
 Hospital details: This module will enable the Administrator to add new Hospital
details, modify their details. The Hospital ID is generated automatically. He can also
generate Hospital transaction and allows printing.
 Employee details: This is maintained by the administrator. He can modify the details
of the employee, salary of the employees.
 Outsider details: This module enables the administrator to add new outsider details,
modify their details. The Outsider ID is generated automatically. He can also generate
Outsider transaction and allows printing.

FEASIBILITY STUDY

Feasibility is the determination of whether or not a project is worth doing. The process
followed in making this determination is called a feasibility study. Once it has been
determined that the project is feasible keeping the benefit of the organization in mind, the
analyst can go ahead and prepare the project specification, which finalizes the project
requirements. Different tests of feasibility are studied during the investigation.
The main of them are-
 Technical feasibility
 Economic feasibility
 Operational feasibility

TECHNICAL FEASIBILITY

This is considered with specifying equipment and software that will successfully satisfy the
user requirement. It involves determining whether or not a system can actually be constructed
or upgraded to solve the problem at hand. The technical needs of a system may vary
considerably, but might include and following:

 The necessary technology of both hardware and software existed and also could be
acquired for the new system.
 As the improvement in storage technology has developed over the recent years, data
storage is becoming easier and safer.
 The new system with powerful database technology has the capability to hold the
proposed data.
 Technically, the system is designed in such a way that is provides accuracy, reliability,
easy access, data security and integrity.

ECONOMICAL FEASIBILITY

Economic feasibility involves estimating benefits and costs. These benefits and costs may be
tangible or intangible. It is seen whether the expenditure incurred for developing the new
system will be cost effective or not. Because of the confusion between the types of costs, it is
sometimes very difficult to decide if the benefits outweigh the costs. The basically involves
top-level management of the company who are the decision makers. Some key fin dings from
the study are listed below.

 There was no extra cost burden to conduct full systems investigations.

  Basic hardware and software would ensure the smooth run of the application, as the
necessary tools were easily available.
 The benefits are in the form of reduced costs with merely any errors, thus reducing the
manual work.
 If the system were used without any major changes to it, no extra costs would be
incurred.

OPERATIONAL FEASIBILITY

Operational feasibility deals with the human aspect of the organization, proposed projects are
beneficial only if they can be turned into information systems that will meet the
organization’s operating requirements. This feasibility test asks whether the system will work
when developed and installed, the users need to be convinced about the advantages of the
new system.
Unless this done effectively, the system would not be implemented even after its
development and the old system would continue to be used.

EXISTING SYSTEM

In the manual system, firstly the Blood bank and its staff have to manage information
regarding the donor details of all the donors manually. Doing this manual transaction was
really tedious job. Secondly information regarding Hospital transactions, employee details
was to be maintained. This process is time consuming and it requires a great manual effort.
Disadvantages:
 More time is consumed.
 More hard work to maintain all records.
 Bulk of paper is to be searched for a single search.
 PROPOSED SYSTEM

Today one cannot afford to rely on the fallible human beings to stand against the
Merciless competition where it is not wise to say “to err is human” no longer valid.
It is outdated to rationalize your mistake. So, to keep pace with time, to bring about
The best result without malfunctioning and greater efficiency we have to replace the
unending heaps of files with a much sophisticated hard disk of the computer. One has to use
the data management software. Software has been an ascent in automation of various
organizations. Many software products working are now in markets, which have helped in
making the organizations work easier and efficient. Data management initially had to
maintain a lot of ledgers and a lot of paperwork has to be done but now software production,
this organization has made their work faster and easier. Now only this software has to be
loaded on the computer and work can be done. This prevents a time and money. The work
becomes fully automated and any information regarding the organization can be obtained by
clicking the button. Moreover, now it’s age of computers and automating such an
organization gives the better look.

The advantages of the proposed system as follows:

 To reduce the workload.
 To reduce the processing time.
 To view the details of student and staff and to maintain reliable and update
information.
 Easy accessibility to computerized online report.

7. DATA FLOW DIAGRAM:-

DFD is a graphical representation of data process and files used in a support system.
Data Flow Diagrams are useful tools for analyzing existing systems. Data Flow Diagram is a
network that describes flows of data and the processes that changes or transforms the data
throughout a system.

Data flow diagrams can be expanded to show successive levels of details sufficient.
Expansion should be performed during the initial investigation to be certain that both the
analyst and user personnel share a common understanding of the existing system and its data
flow.

The different symbols used in the data flow diagram are:-

1. Circle It is used form transfer the input to output

Indicate process that transfer data flow.

2. Rectangle with When data is in file this symbol is used flow.

Representation
Open End

3. Square Squares indicates the source of destination .

4. Arrows Arrows are sued to show flow of path from where it is coming
& going.
8. E-R DIAGRAM:-

CONCEPTUAL ERD SYMBOLS

These symbols are generally used for conceptual data models, although some aspects may
spill over into logical data models. They can be found in the UML Entity Relationship and
Entity Relationship shape library of Lucid chart. If you don't see the shape you need, use an
image file (Lucid chart supports .PNG, .JPG, or .SVG import) or create your own with our
existing shapes and styling options.
 ENTITIES
Entities are objects or concepts that represent important data. They are typically nouns,
e.g. customer, supervisor, location, or promotion.

Strong entities exist independently from other entity types. They always possess one or more
attributes that uniquely distinguish each occurrence of the entity.

Weak entities depend on some other entity type. They don't possess unique attributes (also
known as a primary key) and have no meaning in the diagram without depending on another
entity. This other entity is known as the owner.

Associative entities are entities that associate the instances of one or more entity types. They
also contain attributes that are unique to the relationship between those entity instances.

RELATIONSHIPS
Relationships are meaningful associations between or among entities. They are usually
verbs, e.g. assign, associate, or track. A relationship provides useful information that could
not be discerned with just the entity types.

Weak relationships, or identifying relationships, are connections that exist between a weak
entity type and its owner.
 ATTRIBUTES

Attributes are characteristics of either an entity, a many-to-many relationship, or a one-to-

one relationship.

Multivalued attributes are those that are capable of taking on more than one value.

Derived attributes are attributes whose value can be calculated from related attribute values.
 d_NAME
group COLOR
d_ID d_ADD
ID ph
GROOP
unit
BLOOD DONER
DONATE

ID QUANTITY

DATE

PRICE

REIIVE
DATE

QUANTITY

PATIENT

PHONE

ID ADDRESS
NAME
9. SOFTWARE DESCRIPTION:-

FRONT END (VB 6.0)

Visual basic 6.0 is the popular version of the programming language. This environment is
to develop robust. Attend alone application and utilities is less time then it usually takes in
other language. Project development has been all easier what with the language supporting
the oops concept.

VISUAL BASIC is a VISUAL and Event-driven Programming Language. These are

the main divergence from the old BASIC. In BASIC, programming is done in a text-only
environment and the program is executed sequentially. In VB6, programming is done in a
graphical environment. In the old BASIC, you have to write program code for each graphical
object you wish to display it on screen, including its position and its color. However, In VB6
, you just need to drag and drop any graphical object anywhere on the form, and you can
change its properties using the properties window.

In addition, Visual Basic 6 is Event-driven because we need to write code in order to

perform some tasks in response to certain events. The events usually comprises but not
limited to the user's inputs. Some of the events are load, click, double click, drag and drop,
pressing the keys and more. We will learn more about events in later lessons. Therefore, a
VB6 Program is made up of many subprograms, each has its own program code, and each
can be executed independently and at the same time each can be linked together in one way
or another.

BACK END (MS ACCESS-2007)

Ms access is a dbms .a database system is basically a computer based record keeping

system. The collection of data, usually referred to as the database, contains information about
one particular enterprise. It maintains any information be necessary to the decision making
process involved the management of that organization.

Very simply, Microsoft Access is an information management tool that helps you store
information for reference, reporting, and analysis. Microsoft Access helps you analyze large
amounts of information, and manage related data more efficiently than Microsoft Excel or
other spreadsheet applications. This article shows you when to use Access, and how it can
help make you more effective.
 Microsoft Access works in the same manner any database does, by storing related
information together, and letting you create connections (commonly called relationships)
between different things. The relationships between two different things in MSAccess can be
very simple (such as a contact at a customer and the customer itself) or complex. In the
example below, the blue boxes represent the major things we're tracking in our MS Access
database tables, and the reports at right show how you can join the related information for
analysis and reporting.

10. DATABASE DESIGN:-

A database is certainly control, integrated collection of logically organized data. Before we

use a DBMS to actually build the tables, forms and other objects that will make up our
Database, it is important to take time to design our database. A good database design is
keystone to creating a database that dose what you want it to do effectively, accurately and
efficient.

Patient Table

Doner Table
 Donate Table

Receive Table

11. SAMPLE CODING:-

Developing this project here are design the various form for coding. These forms are as
following:

Login Form

Private Sub Command1_Click()

If Text1.Text = "123" And Text2.Text = "123" Then
mdi.Show
Unload Me
Else
MsgBox "Invalid password", vbInformation
End If

End Sub

Private Sub Command2_Click()

End
End Sub

Private Sub Form_Load()

dosomething Me
End Sub

MDI Form

Private Sub addnew_Click()

Item.Show
End Sub

Private Sub C_Click()

Patient.Show
End Sub

Private Sub d_Click()

doner.Show
End Sub

Private Sub e_Click()

End
End Sub

Private Sub Form_Load()

'dosomething Me
End Sub

Private Sub MNUDONE_Click()

dreport.Show
End Sub

Private Sub MNUREV_Click()

rreport.Show
End Sub

Private Sub p_Click()

Donate.Show
End Sub
Private Sub pr_Click()
purreport.Show
End Sub

Private Sub S_Click()

bloodrec.Show
End Sub

Private Sub SR_Click()

salereport.Show
End Sub

DONER FORM

Private Sub Command1_Click()

Call TXTCLEAR

If rs.State = 1 Then rs.Close

sql = "select * from AREADB"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

txtid.Text = rs.RecordCount + 1

End Sub

Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then

MsgBox "Plz Enter Id", vbInformation

txtid.SetFocus

Exit Sub

End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation

txtname.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "insert into AREADB values(" & txtid.Text & ",'" & txtname.Text & "')"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Inserted"

Call TXTCLEAR

Call list_fill

End Sub Exit Sub

End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation

txtsalary.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "insert into CUSTOMER values(" & txtid.Text & ",'" & txtname.Text & "','" &
txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text & "',#" & DTPicker1.Value
& "#)"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Inserted"

Call TXTCLEAR

Call list_fill

End Sub
Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "update CUSTOMER set CUST_NAME='" & txtname.Text & "',ADDRESS='" &
txtaddress.Text & "',PHNO='" & txtph_no.Text & "',AREA_CODE='" & txtsalary.Text &
"',DOJ=#" & DTPicker1.Value & "# where ID=" & txtid.Text

End Sub

Private Sub Command3_Click()

If Trim(txtid.Text) = "" Then

MsgBox "Plz Enter Id", vbInformation

txtid.SetFocus

Exit Sub

End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation

txtname.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "update AREADB set AREA_NAME='" & txtname.Text & "' where ID=" & txtid.Text
& ""

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Updated"

Call TXTCLEAR

End Sub

Private Sub list_fill()

List1.Clear

If rs.State = 1 Then rs.Close

sql = "select * from AREADB"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

For I = 0 To rs.RecordCount - 1

List1.AddItem (rs(0))

rs.MoveNext

Next

PATIENT FORM

Private Sub Command1_Click()

Call TXTCLEAR

If rs.State = 1 Then rs.Close

sql = "select * from CUSTOMER"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

txtid.Text = rs.RecordCount + 1

End Sub

Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then

MsgBox "Plz Enter Id", vbInformation

txtid.SetFocus

Exit Sub

End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation

txtname.SetFocus

Exit Sub

End If

If Trim(txtaddress.Text) = "" Then

MsgBox "Plz Enter dealerAddress", vbInformation

txtaddress.SetFocus

Exit Sub

End If

If Trim(txtph_no.Text) = "" Then

MsgBox "Plz Enter phone no.", vbInformation

txtph_no.SetFocus

Exit Sub

End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation

txtsalary.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "insert into CUSTOMER values(" & txtid.Text & ",'" & txtname.Text & "','" &
txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text & "',#" & DTPicker1.Value
& "#)"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Inserted"

Call TXTCLEAR

Call list_fill

End Sub

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "update CUSTOMER set CUST_NAME='" & txtname.Text & "',ADDRESS='" &
txtaddress.Text & "',PHNO='" & txtph_no.Text & "',AREA_CODE='" & txtsalary.Text &
"',DOJ=#" & DTPicker1.Value & "# where ID=" & txtid.Text

End Sub

STOCK FORM

Private Sub Command1_Click()

Call TXTCLEAR

If rs.State = 1 Then rs.Close

sql = "select * from REGISTRATION"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

Text1.Text = rs.RecordCount + 1

End Sub
Private Sub Command2_Click()

If Trim(txtid.Text) = "" Then

MsgBox "Plz Enter Id", vbInformation

txtid.SetFocus

Exit Sub

End If

If Trim(txtname.Text) = "" Then

MsgBox "Plz Enter Name", vbInformation

txtname.SetFocus

Exit Sub

End If

If Trim(txtaddress.Text) = "" Then

MsgBox "Plz Enter dealerAddress", vbInformation

txtaddress.SetFocus

Exit Sub

End If

If Trim(txtph_no.Text) = "" Then

MsgBox "Plz Enter phone no.", vbInformation

txtph_no.SetFocus

Exit Sub

End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation

txtsalary.SetFocus

Exit Sub
End If

Exit Sub

End If

If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation

txtsalary.SetFocus

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "insert into CUSTOMER values(" & txtid.Text & ",'" & txtname.Text & "','" &
txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text & "',#" & DTPicker1.Value
& "#)"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Inserted"

Call TXTCLEAR

Call list_fill

End Sub

Exit Sub

End If

If rs.State = 1 Then rs.Close

sql = "update CUSTOMER set CUST_NAME='" & txtname.Text & "',ADDRESS='" &
txtaddress.Text & "',PHNO='" & txtph_no.Text & "',AREA_CODE='" & txtsalary.Text &
"',DOJ=#" & DTPicker1.Value & "# where ID=" & txtid.Text

End Sub
If rs.State = 1 Then rs.Close

sql = "insert into REGISTRATION values(" & Text1.Text & "," & txtid.Text & ",'" &
txtname.Text & "','" & txtaddress.Text & "','" & txtph_no.Text & "','" & txtsalary.Text & "',#"
& DTPicker1.Value & "#)"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

MsgBox "Record Inserted"

Call TXTCLEAR

Call list_fill

End Sub

BLOOD GROUPS REPORT

Private Sub Command2_Click()

DR_AREA.Show

End Sub

Private Sub Command3_Click()

DR_EMP.Show

End Sub

Private Sub Command5_Click()

DR_CUSTOMER.Show

End Sub

Private Sub Command7_Click()

DR_REGISTRATION.Show

End Sub
Private Sub Form_Load()

If rs.State = 1 Then rs.Close

sql = "select * from AREADB"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

For I = 0 To rs.RecordCount - 1

Combo1.AddItem (rs(0))

rs.MoveNext

Next

If rs.State = 1 Then rs.Close

sql = "select * from EMPDB"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

For I = 0 To rs.RecordCount - 1

Combo2.AddItem (rs(0))

rs.MoveNext

Next

If rs.State = 1 Then rs.Close

sql = "select * from CUSTOMER"

rs.Open sql, con, adOpenKeyset, adLockPessimistic

For I = 0 To rs.RecordCount - 1

Combo3.AddItem (rs(0))

rs.MoveNext

Next

Exit Sub

End If
If Trim(txtsalary.Text) = "" Then

MsgBox "Plz Enter salary.", vbInformation

txtsalary.SetFocus

Registration Form

Private Sub Command1_Click()

Adodc1.Recordset.Update
MsgBox "Record saved.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.addnew
Text4.Text = Adodc1.Recordset.RecordCount + 1
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Update
MsgBox "Record Updated.", vbInformation
Adodc1.Refresh
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.Delete
MsgBox "Record Deleed.", vbInformation
Adodc1.Refresh
End Sub
12.OUTPUTS:-

Login Form

MDI Form
Doner Entry Form

Patient Entry Form

 Blood Donation Entry Form

Give Blood To Patient Entry Form

13.CONCLUSION:-

In this project, “BLOOD BANK MANAGEMENT SYSTEM” we have tried to

computerize various processes of Blood Bank.
Blood Bank Management System is very flexible software and can be used in any branch of
BLOOD BANK for keeping record. In this software we have tried to provide all the Blood
bank management system related record keeping facilities which helps to keep record and
employees who belongs to it.

The main focus of this project is to less in human efforts. The maintenance of the record is
made efficient, as all the records are stored in the SQL database.
It is user interactive and effective than the existing system. The flexibility of visual basic
helps to maintain the “BLOOD BANK MANAGEMENT SYSTEM” more efficiently.

Finally, we are thankful to all the people who have given us their hearty support in this
Endeavour.

14. BIBLIOGRAPHY:-

How to Visual Basic 6.0 (Eric Brierley, Anthony Prince & David Rinaldi)

Using VB 6.0 (Bob Reselman, Richard Peasley, Wayne Prvchniak)

Database Programming (Curtis smith & Michael Amundsen)

with VB 6.0 in 21 days

Programming with visual basic (P.K.Mcbride)