PROJECT REPORT ON

BLOOD DONATION SYSTEM

SUBMITTED IN PARTIAL FULFILLMENT OF THE

REQUIREMENTS
FOR THE AWARD OF THE DEGREE OF

BACHELOR OF COMPUTER APPLICATION

SUBMITTED BY:
YASHVEER SINGH

ENROLMENT NO:836086
ROLL NO: 802271

SUBMITTED TO
MR. PRABHAT RANJAN SHARMA
(H.O.D.)
Department of computer science

UNDER THE SUPERVISION OF

MR. MOHIT KUMAR VARSHNEY
(Lecturer)

INSTITUTE OF INFORMATIONMANAGMENT &

TECHNOLOGY
RAMGHAT ROAD, ALIGARH 202001

(AFFILIATED TO DR. B. R. AMBEDKAR UNIVERSITY, AGRA)

1
 2008-2011

INSTITUTE OF INFORMATION MANAGEMENT

AND TECHNOLOGY ALIGARH

ACKNOWLEDGEMENT

We have great pleasure in acknowledgement the help from al those

who favored me in having shape to the present project. We take the

responsibility to express our sincere and deep sense of gratitude to our

head of department Mr. Prabhat Ranjan Sharma director of our

college Mr. D.S. Mahalwar and Dean S.K.N. Singh. Our facility

members and all our friends. We pay our thanks to Mr. Mohit

Kumar Varshney for providing a great support to us. They guided

our project team efficient and good working.

We like to pay our wish and love to our all supporting friends who

made their best efforts to help us. Words defeat us in expressing

2
thanks to our family members for providing moral support and

encouragement during the tenure of the project.

We hope and wish to be blessed with the blessing and encouragement

from all of the above in our future to accomplish all our endeavors.

YASHVEER SINGH
(B.C. A. VI Sem)

DECLARATION

th
I Yashveer Singh Roll No. 802271 student of BCA 6 semester in

institute of Information Management and technology (IIMT), Aligarh

here by declare that the project report titled “BLOOD

3
DONATION SYSTEM” is not submitted for the award of any

other diploma or degree.

Place: Name

Date: Yashveer Singh

Document information:

4
 Project code B.C.A.

Project Name BLOOD DONATION

SYSTEM
Location IIMT

Submitted to Mr. PRABHAT RANJAN

SHARMA
Under the supervision of Mr. MOHIT KUMAR
VARSHNEY
Technical Member YASHVEER SINGH

5
Table of contents:

1. INTRODUCTION

2. SYSTEM DEVELOPMENT

2.1) Initial investigation

2.2) Opportunities of the system:

3.) SYSTEM ANALYSIS

3.1) what is the problem?

3.2) Feasibility Study

3.2.1) Technical feasibility

3.2.2) Economical feasibility

3.2.3) Operational feasibility

3.3) System Interface

3.3.1) User Interface

3.3.2) Hardware Interface

6
 3.3.3) Software Interface

3.3.4) Communication Interface

3.3.5) Memory Constraints

3.4) Problem Statement

3.5) Object Modeling

3.5.1) Object Modeling

3.6) Dynamic Model

4.) DATABASE TABLE

5.) FORM DESIGNING

6.) CODING

7.) CONCLUSION

7
8.) FUTURE SCOPE

9.) BIBLIOGRAPHY

HISTORY OF VISUAL BASIC

8
 HISTORY OF VISUAL BASIC

VB 1.0 was introduced in 1991. The drag and drop design for
creating the user interface is derived from a prototype form
generator developed by Alan Cooper and his company called
Tripod. Microsoft contracted with Cooper and his associates to
develop Tripod into a programmable form system for Windows 3.0,
under the code name Ruby.

Tripod did not include a programming language at all. Microsoft

decided to combine Ruby with the Basic language to create Visual
Basic.

The Ruby interface generator provided the "visual" part of Visual

Basic and this was combined with the "EB" Embedded BASIC

9
engine designed for Microsoft's abandoned "Omega" database
system. Ruby also provided the ability to load dynamic link libraries
containing additional controls (then called "gizmos"), which later
became the VBX interface

Visual Basic (VB) is the third-generation event-driven

programming language and integrated development environment
(IDE) from Microsoft for its COM programming model. Visual
Basic is relatively easy to learn and use.

Visual Basic was derived from BASIC and enables the

rapid application development (RAD) of graphical user interface

(GUI) applications, access to databases using Data Access Objects,
Remote Data Objects, or ActiveX Data Objects, and creation of
ActiveX controls and objects.

Scripting languages such as VBA and VBScript are syntactically

similar to Visual Basic, but perform differently.

A programmer can put together an application using the components

provided with Visual Basic itself. Programs written in Visual Basic
can also use the Windows API, but doing so requires external
function declarations.

10
Visual Basic is a "visual programming" environment for developing

Windows (also Web now) applications. Visual Basic makes it

possible to develop complicated applications very quickly. The

programmer designs windows graphically, drags program elements

from the Visual Basic Toolbox and writes basic code for each element.

Visual Basic is "event-driven" which means that procedures are called

automatically when the end user chooses menu items, clicks the

mouse, moves objects on the screen, etc.

11
CHARACTERSTICS OF VISUAL BASIC

CHARACTERSTICS OF VISUAL BASIC

VISUAL BASIC is a high level programming language which

evolved from the earlier DOS version called BASIC. BASIC means

Beginners' All-purpose Symbolic Instruction Code. It is a very easy

programming language to learn. The code look a lot like English

12
Language. Different software companies produced different versions

of BASIC, such as Microsoft QBASIC, QUICKBASIC, GWBASIC

,IBM BASICA and so on. However, people prefer to use Microsoft

Visual Basic today, as it is a well developed programming language

and supporting resources are available everywhere. Now, there are

many versions of VB exist in the market, the most popular one and

still widely used by many VB programmers is none other than Visual

Basic 6. We also have VB.net, VB2005, VB2008 and the latest

VB2010. Both Vb2008 and VB2010 are fully object oriented

programming (OOP) language.

VISUAL BASIC is a VISUAL and events 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 VB, 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 VB , you
just need to drag and drop any graphical object anywhere on the
form, and you can change its color any time using the properties
windows.

13
On the other hand, because the user may click on a certain object
randomly, so each object has to be programmed independently to be
able to response to those actions (events). Therefore, a VB 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.

Like the BASIC programming language, Visual Basic was designed to

be easily learned and used by beginner programmers. The language

not only allows programmers to create simple GUI applications, but

can also develop complex applications. Programming in VB is a

combination of visually arranging components or controls on a form,

specifying attributes and actions of those components, and writing

additional lines of code for more functionality. Since default attributes

and actions are defined for the components, a simple program can be

created without the programmer having to write many lines of code.

Performance problems were experienced by earlier versions, but with

faster computers and native code compilation this has become less of

an issue.

14
Forms are created using drag-and-drop techniques. A tool is used to
place controls (e.g., text boxes, buttons, etc.) on the form (window).
Controls have attributes and event handlers associated with them.
Default values are provided when the control is created, but may be
changed by the programmer. Many attribute values can be modified
during run time based on user actions or changes in the
environment, providing a dynamic application. For example, code
can be inserted into the form resize event handler to reposition a
control so that it remains centered on the form, expands to fill up the
form, etc. By inserting code into the event handler for a keypress in
a text box, the program can automatically translate the case of the
text being entered, or even prevent certain characters from being
inserted.

Visual Basic can create executables (EXE files), ActiveX controls,

or DLL files, but is primarily used to develop Windows applications
and to interface database systems. Dialog boxes with less
functionality can be used to provide pop-up capabilities. Controls
provide the basic functionality of the application, while
programmers can insert additional logic within the appropriate event
handlers. For example, a drop-down combination box will
automatically display its list and allow the user to select any
element. An event handler is called when an item is selected, which
can then execute additional code created by the programmer to

15
perform some action based on which element was selected, such as
populating a related list.

1.) INTRODUCTION

16
1.2) PURPOSE:

1.3) SCOPE:

1.4) INTENDED AUDIENCE:

1.5) USER CHARACTERISTICS:

1.6) CONSTRAINT:

1.7) ASSUMPTIONS AND DEPENDENCIES:

1.8) SPECIFIC REQUIREMENTS:

1.8.1) External Interface Requirements:

1.8.2) Functional Requirement / System features:

1.8.3) Performance / Acceptance Requirements:

1.8.4) Acceptance Criteria:

1.8.5) Design Constraints:

1.9) Software System Attributes:

17
1.9.1) Usability:

1.9.2) Efficiency:

1.9.3) Maintainability:

1.9.4) Security:

1.9.5) Reliability:

1.9.6) Performance:

18
 1. INTRODUCTION

1.5) PURPOSE:

The basic purpose of the system is to manage the transaction that

occurs during the operation as well as performing calculation

and updating database as and when necessary. The system is can

also provide the reports about current state of the student

Information.

19
1.6) SCOPE:

• The scope of this project is in the various Library that need to

manage their data about their transaction and services efficiently

and effectively.

• This project with the slight variations can be enhanced to be

used in the other systems which need to manage the quick data

processing.(more)

1.7) INTENDED AUDIENCE:

1. Management of the college .

2. Faculty members

3. Administrative staff

4. Student of the college

1.5) USER CHARACTERISTICS:

20
 The system requires he user to be familiar with the basic

operations of computer.

1.6) CONSTRAINT:

This subsection of the Library Information system should

describe any other books that will limit the developer’s options.

These include:

1) Developers should have Knowledge of Visual Basic to

Develop a system

Like this.

2) Developers should have known about all the main devices and

there

Specification.

1.8) ASSUMPTIONS AND DEPENDENCIES:

1) Project will work for a long time and user will adopt it.

2) Project will work with very less maintenance requirement.

21
 3) The database update made by the system will always leave

the system in consistent state.

4) There may be some small problems, which will not affect the

system performance, and these will be removed easily.

1.8) SPECIFIC REQUIREMENTS:

1.8.4) External Interface Requirements:

No External Interface Requirement

1.8.5) Functional Requirement / System features:

Preferences

This project is based upon Visual Basic user interfaces. The user

of this project is any computer literate person handling the Information

of the Library. The developer should be needed only when some

problem occurs in the operation of the system.

22
Login Process

This system interface is used to give access to the user for the

system, and mean while maintaining the security of th system.

1.8.6) Performance / Acceptance Requirements:

The project will be accepted if

1. The project works in its proper and specified way

2. No Major problem. This means that there is a problem in

performing a predefined, expecting task.

Any problem reported due to requirements not clear,

suggestions, “good to have”

Features and any enhancements/modification is not part of

the system acceptance.

1.8.4) Acceptance Criteria:

23
 The user will use the system if it is giving the functionality it

promises (that is of automatically managing the data about the

daily records)

1.8.5) Design Constraints:

1) Work only in Standard conditions.

1.10) Software System Attributes:

1.9.1) Usability:

The system is fully usable and does not require any pre-specified

constraint to work properly.

1.9.2) Efficiency:

Hardware should me min. Pentium with 196 MB RAM.

(Fully efficient in the environments having less memory available and

a reasonable speed of execution)

1.9.3) Maintainability:

24
 In case of any change in policies and rule of the institution using

the system, required changes will be made to the module written by

developer.

1.9.4) Security:

Only the super user can enter the system to use it.

1.9.5) Reliability:

System gives accurate result without any errors.

1.9.6) Performance:

The system itself is quiet fast.

25
2.) SYSTEM DEVELOPMENT

26
 2.1) Initial investigation

2.2) Opportunities of the system:

2.) SYSTEM DEVELOPMENT

2.1) Initial investigation:

There is a system, which is concerned with the student and their

Information that is service and maintaining the record of the students.

27
 In this system the data, which is about the student , maintaining

on the paper that is this system is based on paperwork.

We will define a transaction as the occurrence due to which the

current state of the system changes. It means that some updating of

data or the information changes.

The problems in paper –based system were:

1) slow and error prone data entry

2) Difficulties in data retrieval

3) Difficulties to manage a long record

4) Calculations are made by human; therefore there

is less accuracy in data transaction calculations.

2.2) Opportunities of the system:

28
 The existing system can be replaced by computer-

based system, which can perform all the related tasks of

business in a better and efficient way. The alternative

computer based system can provide many facilities over

present paper based system in the following manner.

1) The data entry in a new computer based system will be fast

2) Easy and fast data retrieval

3) Long records can be managed easily

4) Computer does calculations, which improve accuracy.

3.) SYSTEM ANALYSIS

29
 3.1) what is the problem?

3.2) Feasibility Study

3.2.4) Technical feasibility

3.2.5) Economical feasibility

3.2.6) Operational feasibility

3.3) System Interface

3.3.1) User Interface

3.3.2) Hardware Interface

3.3.3) Software Interface

3.3.4) Communication Interface

3.3.5) Memory Constraints

3.4) Problem Statement

3.5) Object Modeling

3.5.1) Object Modeling

3.6) Dynamic Model

30
3.) SYSTEM ANALYSIS

3.1) What is the problem?

In this way we realize that the new system is required

and will certainly improve the performance of the exiting

system over the exiting paper based system.

1. Design the system to develop the alternative

computer based system

2. To understand the user characteristics

3. Design a system for a particular types of user

3.1.2) Information about student:

31
 There is the following information required to store for

student

3.2) Feasibility Study:

Feasibility study is the most important work of an analyst in

which the opportunities of problem solving are considered and it

is mainly considered that the problem is solved for the

organization or not. Following feasibility analysis of our system

are given below

3.2.1) Technical Feasibility:

The key question of the technical feasibility is “can the

work for the project be done with current equipment, exiting

32
software technology, and available personnel? If new technology

is required, what is the likelihood that it can be developed?

Our system requirement in the direction of technical

feasibility is feasible as per following:

1) Our system in run for a single user and it require no

more knowledge about computer system and it can be run by the

user with having small knowledge of computer.

2) Our front end of the computer system is visual Basic

which is free of cost and sufficient to provide the user friendly

environment.

3) For the back end of computer system as database

Microsoft access is chosen that is not free of cost but it is fit in the

expenditure of the origination and it can sufficiently manage the

database in very efficiently and fast way.

3.2.2) Economical Feasibility:

33
 The key question of the economical feasibility is ”Are there

sufficient benefits In creating the system to make the costs

acceptable? Are the cost of not creating the system so that the

project must be undertaken?”

Our system requirements in the direction of economical

feasibility are feasible as per following:

2) Our system is developed in the Visual Basic

which is a free source and available for everyone.

3) The back end used in our system is Microsoft

Access that is not free of cost but it is fit in the expenditure of the

organization.

3.2.3) Operational Feasibility:

The key question of the operational feasibility is

“Will the system be used if it is developed and

34
 implemented? Will there be resistance from users that

will undermine the possible application benefits?”

Our system requirements in the direction of

operational feasibility are feasible as per following:

1) The present system is paper based which have a

lot of problems which can be overcome by replacing it by our new

system and work with it

2) There may be some problems in the system faced

by the user can communicate with the origination to inform the

difficulties which will be solved immediately.

3.3) System Interfaces:

3.3.1) User Interface:

35
 The Library is the system developed for the students

to Providing the information’s. It is a multi user system these are

the owner and other workers. The user interface to the system is

very easy, as it will be implemented by easy software, which can

be used effectively, and efficiently.

3.3.2 Hardware Interface:

Min. (64) MB RAM

Key Board

Mouse

3.3.3 Software Interface:

• Visual Basic 6.0

• Microsoft Access used as back –end to store the

database.

3.3.4 Communication Interface:

36
 Verbal communication takes place between the

system user (student) and student of the Library. The

communication of user to the computer system will be very

easy and user will get correct information. Student will not

directly communicate with the computer system but he/she

will feel the effect of the computer

System over existing paper-based system, as it will

provide fast processing and accurate calculations.

3.3.5 Memory Constraints:

• Min. (64) MB RAM

• Min. 70 KB free hard disk

3.4 Problem Statement:

This the very first phase of project development in this

phase the user provides his requirements in the form of a problem

statement specifying the features of required system.

37
Problem statement of our project is as follows:

Design a system that will automate the transaction

processing. This system will be used by single user of the Library

information and this should provide for the entries of new student

as well as keeping track of what service has been given to student

and which of them are available. This system should provide

measures for maintaining the security and should be easy to use.

The sole user of the system will also enter records for the students

and their information.

3.5) Object Modeling:

Object modeling is done by to handle the real life

problems in which object and classes are mainly

emphasized. We insist upon what is being affected rather

than what is being done.

There are three phases of object modeling:

38
1) Object Modeling

2) Dynamic modeling

3) Functional Modeling

3.5.1) Object Modeling:

Object modeling is done to find all the objects and

relation among them like (association, generalization

etc.)

A) OBJECTS OF THE SYSTEM

There are several objects of our system, which are

given below after refining them and removing all other

unnecessary objects. Library, Owner, Students,

Service, traction etc are our main objects of the

system.

B) FINDING THE ASSOCIATIONS:

39
 • Following associations are found in this system.

• Student goes to Library

• Library floor has an owner ( they may be only one)

• Student requests for the service to the owner

• Owner asks information from the Student.

• Owner issues the service.

• Library contains the record of the services provided to the

Student.

• Transaction updates the record.

• Owner initiates the transaction.

• Student returns the issues the books.

• Owner clears the record.

3.6) Dynamic Model:

40
 Dynamic model show the time dependent behavior of

the system and the objects in it. We begin dynamic analysis

by looking for events external stimuli and responses. The

dynamic model is important for interactive systems.

Steps taken in dynamic modeling are:

 Prepare scenarios of typical interaction sequences

 Identify events between objects

 Prepare an events trace for each scenario

 Build a state diagram match events between objects to verify

consistency

A state is an abstraction of the attribute value and links of an

object. A state specifies the response of the object to input events. A

state corresponds to the interval between two events received by an

object. Events represents interval of time. A state has duration; it

41
occupies an interval of time. A state is often associated with a

continuous activity.

A state diagram is graph whose nodes are states and whose

directed arcs are transitions leveled by event names. A state is draw as

a round box containing an optional name. a transaction is draw as an

arrow from the receiving state to the target state.

42
5.) FORM DESIGNING

43
44
45
46
47
48
49
50
51
6.) Coding:

52
Coding:

FOR FORM-1

FOR PASSWORD:-
Private Sub command1_Click()
If txtpassword = "" Then
Form2.Show
Form1.Hide
Else
MsgBox "Sorry!!Invalid Password,Try Again"
txtpassword = ""
txtpassword.SetFocus
End If
End Sub

53
FOR FORM-2C:\Documents and Settings\GARIMA\My
Documents\Session 3 Ex-2_files

TO SHOW FORM’S:-
Private Sub mnubgwise_Click()
Form2.Hide
Form6.Show
End Sub
Private Sub mnudd_Click()
Form2.Hide
Form5.Show
End Sub
Private Sub mnudeleted_Click()
Form2.Hide
frmDeleteDeptt.Show
End Sub
Private Sub mnudu_Click()
Form2.Hide
Form4.Show
End Sub
Private Sub mnuexit_Click()
End
End Sub
Private Sub mnunr_Click()
Form2.Hide
Form3.Show
End Sub

54
FOR FORM-3

FOR SAVE RECORD:-

Private Sub command1_Click()
On Error GoTo myerror:
If text1 = "" Or text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = ""
Or Text6 = "" Or Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or
Combo4 = "" Or Combo5 = "" Then
MsgBox "Fill up all fields"
Exit Sub
End If
Dim strsql As String
strsql = "Select * from registration"
Set rs = New ADODB.Recordset
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
If MsgBox(" Are you sure(Y/N)???", 4) = 7 Then Exit Sub
rs.AddNew
If Not rs.EOF Then
rs.Fields("Donor ID") = text1.Text
rs.Fields("Name") = UCase$(text2.Text)
rs.Fields("Phone no") = (Text3.Text)
rs.Fields("E-mail ID") = (Text4.Text)
rs.Fields("Address") = UCase$(Text6.Text)
rs.Fields("Occupation") = UCase$(Combo1.Text)
rs.Fields("Blood Group") = UCase$(Combo2.Text)
rs.Fields("Department") = UCase$(Combo3.Text)
rs.Fields("Faculty") = UCase$(Combo4.Text)
rs.Fields("Hall") = UCase$(Combo5.Text)

55
 rs.Fields("Enrollment no/Employee ID") = Text5.Text
rs.Update
End If
rs.Close
myerror:
Call error
End Sub

FOR CANCEL:-
Private Sub command2_Click()
text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Combo1.Text = Clear
Combo2.Text = Clear
Combo3.Text = Clear
Combo4.Text = Clear
Combo5.Text = Clear
text2.SetFocus
End Sub

FOR BACK:-
Private Sub Command3_Click()
text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear

56
Text5.Text = Clear
Text6.Text = Clear
Combo1.Text = Clear
Combo2.Text = Clear
Combo3.Text = Clear
Combo4.Text = Clear
Combo5.Text = Clear
text2.SetFocus
Form3.Hide
Form2.Show
End Sub

FOR DATA LINK:-

Private Sub Form_Load()
On Error GoTo myerror:
Set con = CreateObject("Adodb.connection")
con.Provider = "Microsoft.jet.oledb.4.0"
con.Open App.Path & "\db1.mdb"
Dim strsql As String
strsql = "Select distinct Faculty from registration"
Set rs = New ADODB.Recordset
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
Combo1.AddItem "Student"
Combo1.AddItem "Employee"
Combo1.AddItem "Others"
While Not rs.EOF
Combo3.AddItem rs.Fields("Faculty")
rs.MoveNext

57
Wend
rs.Close
Dim strsql1 As String
strsql1 = "Select distinct Department from registration"
Set rs1 = New ADODB.Recordset
rs1.Open strsql1, con, adOpenForwardOnly, adLockOptimistic
While Not rs1.EOF
Combo4.AddItem rs1.Fields("Department")
rs1.MoveNext
Wend
rs1.Close
Dim strsql2 As String
strsql2 = "Select distinct Hall from registration"
Set rs2 = New ADODB.Recordset
rs2.Open strsql2, con, adOpenForwardOnly, adLockOptimistic
While Not rs2.EOF
Combo5.AddItem rs2.Fields("Hall")
rs2.MoveNext
Wend
rs2.Close
text1.Enabled = False
'Blood Group setting
Combo2.AddItem "A+"
Combo2.AddItem "A-"
Combo2.AddItem "B+"
Combo2.AddItem "B-"
Combo2.AddItem "O+"
Combo2.AddItem "O-"

58
 Combo2.AddItem "AB+"
Combo2.AddItem "AB-"
myerror:
Call error
End Sub
Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub
Private Sub Text2_GotFocus()
On Error GoTo myerror:
Set rs3 = New ADODB.Recordset
rs3.Open "registration", con, adOpenForwardOnly, adLockOptimistic
If rs3.EOF = True Then
text1.Text = "D" & 1
GoTo ext:
End If
rs3.MoveLast
Dim strcode As String
strcode = rs3.Fields("Donor ID")
text1.Text = "D" & Val(Mid$(strcode, 2, Len(strcode) - 1)) + 1
ext:
rs3.Close
myerror:
Call error
End Sub
Private Sub error()
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Description)

59
 Exit Sub
End If
End Sub

FOR FORM-4

GENERAL DECLARATION:-
Dim con As ADODB.Connection
FOR UPDATION:-
Private Sub command1_Click()
On Error GoTo myerror:
If text1 = "" Or text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = ""
Or Text6 = "" Or Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or
Combo4 = "" Or Combo5 = "" Then
MsgBox "Fill up all fields"
Exit Sub
End If
Dim strsql As String
strsql = "Select * from registration where [Donor ID]='" & text1.Text
& "'"
Set rs = New ADODB.Recordset
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
If MsgBox(" Are you sure(Y/N)???", 4) = 7 Then Exit Sub
rs.Update("Name") = text2.Text
rs.Update("Phone no") = Text3.Text
rs.Update("E-mail ID") = Text4.Text
rs.Update("Address") = Text5.Text
rs.Update("Occupation") = Combo1.Text

60
rs.Update("Blood Group") = Combo2.Text
rs.Close
MsgBox "Your change has been saved!!"
myerror:
Call error
End Sub

FOR CANCEL:-
Private Sub command2_Click()
text1.Text = Clear
text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Combo1.Text = Clear
Combo2.Text = Clear
text1.SetFocus
Form4.Hide
Form2.Show
End Sub

FOR BACK:-
Private Sub Command3_Click()
text1.Text = Clear
text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear

61
Combo1.Text = Clear
Combo2.Text = Clear
End Sub

FOR FORM:-
Private Sub Form_Load()
On Error GoTo myerror:
Set con = CreateObject("Adodb.connection")
con.Provider = "Microsoft.jet.oledb.4.0"
con.Open App.Path & "\db1.mdb"
Dim strsql As String
strsql = "Select distinct Faculty from registration"
Set rs = New ADODB.Recordset
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
Combo1.AddItem "Student"
Combo1.AddItem "Employee"
Combo1.AddItem "Others"
While Not rs.EOF
Combo3.AddItem rs.Fields("Faculty")
rs.MoveNext
Wend
rs.Close
Dim strsql1 As String
strsql1 = "Select distinct Department from registration"
Set rs1 = New ADODB.Recordset
rs1.Open strsql1, con, adOpenForwardOnly, adLockOptimistic
While Not rs1.EOF
Combo4.AddItem rs1.Fields("Department")

62
rs1.MoveNext
Wend
rs1.Close
Dim strsql2 As String
strsql2 = "Select distinct Hall from registration"
Set rs2 = New ADODB.Recordset
rs2.Open strsql2, con, adOpenForwardOnly, adLockOptimistic
While Not rs2.EOF
Combo5.AddItem rs2.Fields("Hall")
rs2.MoveNext
Wend
rs2.Close
'Blood Group setting
Combo2.AddItem "A+"
Combo2.AddItem "A-"
Combo2.AddItem "B+"
Combo2.AddItem "B-"
Combo2.AddItem "O+"
Combo2.AddItem "O-"
Combo2.AddItem "AB+"
Combo2.AddItem "AB-"
myerror:
Call error
End Sub
Private Sub error()
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Description)
Exit Sub

63
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub
Private Sub Text1_Change()
text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
command1.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
Label8.Enabled = True
Label9.Enabled = True
Label10.Enabled = True
Label11.Enabled = True
Label12.Enabled = True

Dim strsql10 As String

strsql10 = "Select * from registration where [Donor ID]='" &
text1.Text & "'"
Set rs10 = New ADODB.Recordset
rs10.Open strsql10, con, adOpenForwardOnly, adLockOptimistic

64
If Not rs10.EOF Then
text2.Text = rs10.Fields("Name")
Text3.Text = rs10.Fields("Phone no")
Text4.Text = rs10.Fields("E-mail ID")
Text5.Text = rs10.Fields("Address")
Combo1.Text = rs10.Fields("Occupation")
Combo2.Text = rs10.Fields("Blood Group")
End†f
rs10.Close
End Sub
Private Sub Text6_Change()
text1.Enabled = True
text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
command1.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
label3.Enabled = True
Label10.Enabled = True
Label11.Enabled = True
Label12.Enabled = True
Dim strsql11 As String

65
strsql11 = "Select * from registration where [Enrollment no/Employee
ID]='" & Text6.Text & "'"
Set rs11 = New ADODB.Recordset
rs11.Open strsql11, con, adOpenForwardOnly, adLockOptimistic
If Not rs11.EOF Then
text1.Text = rs11.Fields("Donor ID")
text2.Text = rs11.Fields("Name")
Text3.Text = rs11.Fields("Phone no")
Text4.Text = rs11.Fields("E-mail ID")
Combo1.Text = rs11.Fields("Occupation")
Combo2.Text = rs11.Fields("Blood Group")
End If
rs11.Close
End Sub

FOR FORM-5

GENERAL DECLARATION:-
Dim con As ADODB.Connection

FOR DELETION:-
Private Sub command1_Click()
On Error GoTo myerror:
Dim strsql As String
strsql = "Select * from registration where [Donor ID]='" & text1.Text
& "'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient

66
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
If MsgBox(" Are you sure(Y/N)???", 4) = 7 Then Exit Sub
rs.Delete
rs.Close
MsgBox "Record Deleted!!"
Form2.Show
Form5.Hide
myerror:
End Sub
FOR BACK:-
Private Sub Command3_Click()
text1.Text = Clear
text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text6.Text = Clear
Combo1.Text = Clear
Combo2.Text = Clear
text1.SetFocus
Form4.Hide
Form2.Show
End Sub

FOR CANCEL:-
Private Sub command2_Click()
text1.Text = Clear
text2.Text = Clear
Text3.Text = Clear

67
Text4.Text = Clear
Text5.Text = Clear
Combo1.Text = Clear
Combo2.Text = Clear
End Sub
Private Sub Form_Load()
On Error GoTo myerror:
Set con = CreateObject("Adodb.connection")
con.Provider = "Microsoft.jet.oledb.4.0"
con.Open App.Path & "\db1.mdb"
myerror:
Call error
End Sub
Private Sub error()
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Description)
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub
Private Sub Image2_Click()
End Sub
Private Sub Text1_Change()
text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True

68
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
command1.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
Label8.Enabled = True
Label9.Enabled = True
Label10.Enabled = True
Label11.Enabled = True
Label12.Enabled = True

Dim strsql10 As String

strsql10 = "Select * from registration where [Donor ID]='" &
text1.Text & "'"
Set rs10 = New ADODB.Recordset
rs10.Open strsql10, con, adOpenForwardOnly, adLockOptimistic
If Not rs10.EOF Then
text2.Text = rs10.Fields("Name")
Text3.Text = rs10.Fields("Phone no")
Text4.Text = rs10.Fields("E-mail ID")
Text5.Text = rs10.Fields("Address")
Combo1.Text = rs10.Fields("Occupation")
Combo2.Text = rs10.Fields("Blood Group")
End If

69
rs10.Close
End Sub
Private Sub Text6_Change()
text1.Enabled = True
text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
command1.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
Label8.Enabled = True
label3.Enabled = True
Label10.Enabled = True
Label11.Enabled = True
Label12.Enabled = True
Dim strsql11 As String
strsql11 = "Select * from registration where [Enrollment no/Employee
ID]='" & Text6.Text & "'"
Set rs11 = New ADODB.Recordset
rs11.Open strsql11, con, adOpenForwardOnly, adLockOptimistic
If Not rs11.EOF Then
text1.Text = rs11.Fields("Donor ID")
text2.Text = rs11.Fields("Name")

70
 Text3.Text = rs11.Fields("Phone no")
Text4.Text = rs11.Fields("E-mail ID")
Text5.Text = rs11.Fields("Address")
Combo1.Text = rs11.Fields("Occupation")
Combo2.Text = rs11.Fields("Blood Group")
End If
rs11.Close
End Sub

FOR FORM-6
Dim con As ADODB.Connection
Dim selec As Integer
FOR SEARCH:-
Private Sub command1_Click()
On Error GoTo myerror:
Dim strsql As String
If Not Combo1.Text = "" Then
strsql = "SELECT registration.[Donor ID], registration.Name,
registration.[Phone no],registration.[E-mail
ID],registration.Address,registration.Occupation,registration.[Blood
Group] FROM registration WHERE [Blood Group]='" &
Combo1.Text & "'"
End If
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
Set DataGrid1.DataSource = rs

71
DataGrid1.Columns(0).Caption = "D.ID"
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 700
DataGrid1.Columns(2).Width = 1500
DataGrid1.Columns(3).Width = 2500
DataGrid1.Columns(4).Width = 2500
DataGrid1.Columns(5).Width = 500
DataGrid1.Columns(6).Width = 900
DataGrid1.Columns(7).Width = 2200
DataGrid1.Columns(8).Width = 2200
DataGrid1.Columns(9).Width = 1500
DataGrid1.Columns(10).Width = 900
DataGrid1.Refresh
'rs.Close
myerror:
Call error
End Sub

FOR DONOR DETAILS:-

Private Sub command2_Click()
Form6.Hide
Form2.Show
End Sub

FOR BACK:-
Private Sub Command3_Click()
Form8.Show
End Sub

72
Private Sub DataGrid1_DblClick()
Form4.Show
Call datashow
End Sub
Private Sub Form_Load()
Call datashow
End Sub
Private Sub error()
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Description)
Exit Sub
End If
End Sub
Sub datashow()
On Error GoTo myerror:
Set con = CreateObject("Adodb.connection")
con.Provider = "Microsoft.jet.oledb.4.0"
con.Open App.Path & "\db1.mdb"
'Blood Group setting
Combo1.AddItem "A+"
Combo1.AddItem "A-"
Combo1.AddItem "B+"
Combo1.AddItem "B-"
Combo1.AddItem "O+"
Combo1.AddItem "O-"
Combo1.AddItem "AB+"
Combo1.AddItem "AB-"
Dim strsql As String

73
strsql = "SELECT registration.[Donor ID], registration.Name,
registration.[Phone no],registration.[E-mail
ID],registration.Address,registration.Occupation,registration.[Blood
Group],registration.[Enrollment no/Employee
ID],registration.Department,registration.Faculty,registration.Hall
FROM registration "
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, con, adOpenForwardOnly, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Columns(0).Caption = "D.ID"
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 700
DataGrid1.Columns(2).Width = 1500
DataGrid1.Columns(3).Width = 2500
DataGrid1.Columns(4).Width = 2500
DataGrid1.Columns(5).Width = 500
DataGrid1.Columns(6).Width = 900
DataGrid1.Columns(7).Width = 2200
DataGrid1.Columns(8).Width = 2200
DataGrid1.Columns(9).Width = 1500
DataGrid1.Columns(10).Width = 900
DataGrid1.Refresh
'rs.Close
selec = 0
myerror:
Call error
End Sub

74
Private Sub Form_Unload(Cancel As Integer)
con.Close
End Sub

75
7.) CONCLUSION

76
Conclusion:
Overall conclusion is that the efficiency and quality are bet served by

the project. by going proper software development phase step by step

through the each phases. Proper testing of the project, its modularity &

simplicity increases its productivity of the project in many ways. And

its visual environment plays the major role in this.

This project has been developed to enable users to manage their daily

work efficiency.

77
78
 8.) FUTURE SCOPE

FUTURE SCOPE:

Suppose in the future activities or the method associated with the

Blood Donation System. System is changed or they want some more

activities to be automated, then is such cases this project can be easily

to handle and anyone can operate it. It will not only reduce the cost of

79
maintenance of records but it will be also. Improve the efficiency of

work.

80
9.) BIBLIOGRAPHY:

81
BIBLIOGRAPHY:

• Mastering Visual Basic 6.0 BY Evangelos Petroutsos

• Visual Basic 6.0 programming BY Steven Holzner

• Microsoft Access BY Harkins, ETAL

• Software Engineering BY Pankaj Jalote

• Analysis and Design of Information BY E.M Awad

• www.bloodbank.com

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154