ABOUT VISUAL BASIC

The “Visual” part refers to the method used to create the graphical user
interface (GUI). Rather than writing number of lines of code to describe the
appearance and location of interface elements, you simply add as per built up
objects and place on the screen. The drawing programs such as paint already have
most of the skills necessary to create an effective user interface.

The “Basic” part refers to the BASIC (Beginners All-Purpose Symbolic

Instruction Code) language, a language used by more programmers than any other
language in history of computing. Visual Basic has evolved from the original
BASIC language and now contains several hundred statements, function, and
keywords, many of which relate directly to the Windows GUI.

Visual Basic version 6 is the newest addition to the family of Visual Basic
products. It allows developing Windows application quickly and easily for your
PC without being an expert in c++ or other programming languages.

Visual Basic provided a graphical environment in which you visually design

the forms and controls that become the building block of your applications. Visual
Basic supports many useful tools that help to be more productive. These include,
but are not limited to, projects, forms, class objects, templates, custom controls,
add-ins, and database managers.

There are three different editions of Visual Basic:

1. The Learning Edition, which is the most basic edition. This edition allows
you to write many different types of programs, but lacks a number of tools that the
other editions have.
2. The Professional Edition, designed for professionals. This edition contains
all that the Learning Edition contains and more, such as the capability to write
ActiveX controls and documents.

3. The Enterprise Edition, which is the most complete Visual Basic edition.
This edition is targeted towards professional programmers who may work in a
team and includes additional tools such as visual Source Safe, a version-control
system that coordinates team programming.
 CONTENTS

1. ABSTRACT
2. INTRODUCTION
3. OBJECTIVE
4. PROJECT ANALYSIS
a. Hardware/Software Specifications
b. Purpose of the Project.
5. SYSTEM DESIGN
a. Data Dictionary.
b. E-R Diagram.
c. DFD.
6. INPUT/OUTPUT SCREENS
7. LIMITATION OF PROJECT
8. CONCLUSION
9. FUTURE SCOPE OF THE PROJECT

ABSTRACT
The “Library Management” is a software application for an educational
institute, which is able to store & manage data related to the Books &
Member of the institute. This software enables to store data & generate
various reports of that data.

INTRODUCTION
The project “Library Management” is developed for providing a simple way
for storing database of the Books & the Member of a college, so that all the
information about all the Books & Members could be available at a single
place. It also provides facility to generate reports from that database.

OBJECTIVE
The objective of the project “Library Management” is to develop software
that can be help helpful while one wants to store all the data related to Books
& Member of an educational institute. This can be used to not only for
 storing data & but it can also generate reports so that results are shown easily
for further operations.

PROJECT ANALYSIS
A. Hardware & Software Requirements.
a. Hardware Requirements:
i. Pentium 3 or Higher Processor or Compatible.
ii. 64 MB Minimum RAM.
iii. 20 MB Hard Disk Space.
b. Software Requirements:
i. Microsoft Windows 98 or Higher.
ii. Microsoft Access 2000 or Higher.
B. Purpose of the Project.

Book code Book Author Book Publisher Publisher Edition Version

Name Name Price Name Address Year

Auto Text Text Number Text Text Date/Time Text

Number
The purpose of the project “Library Management” is to develop software
that can be help helpful while one wants to store all the data related to
Books & Members of an educational institute. This can be used to not
only for storing data & but it can also generate reports so that results are
shown easily for further operations.
SELECTED SOFTWARE
1. Microsoft Visual Basic 6.0.
2. Microsoft Access 2000.
SYSTEM DESIGN

1. Data Dictionary:-

a. Book Entry:

b. Member Detail:
 2. E-R Diagram:-

Book Book Author Book

Code Name Name Price

Book Entry Publisher

ID Name

Publisher Publisher
Edition Address
Address Year

ID Member Member Member Issue Date of Date of Date of

Name Address Phone Book Issue Return Membership
Code
Auto
Number Text Text Number Number Date/Time Date/Time Date/Time
 Member
Member Address Member
Name Phone

Member Detail Issue

ID
Book
Code

Date Of
Members Date Of Date of
hip Return Issue

3. DFD:

0-LEVEL DFD:-

0.0
User Library Management Report

1-LEVEL DFD:-
 Database

1.0 Book Entry

Book Report
User

2.0 Member Member Report

Detail

END

1.1
User
Book Entry Library mange

Show Report
 2.1
User Member Detail

Library mange-
2.2 Member detail
Issue Book Issue detail
Return detail

2.3
Return Book
 INPUT/OUTPUT SCREENS
Welcome Form:-
Welcome Form Coding:-

Private Sub Form Load()

Me.WindowState = 2
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub

Private Sub Timer2_Timer()

Timer1.Enabled = True
pb1.Value = pb1.Value + 1
Label2.Caption = pb1.Value & "%"
If pb1.Value = 100 Then
Form5.Show
Unload Me
End If
End Sub
The Login Screen :-

The Login Screen Coding :-

Private Sub Command1_Click()

If Text1.Text = "student" And Text1.Text = "student" Then
MDIForm1.Show
Me.Hide
Else
MsgBox "Identity Is Wrong"
End If
End Sub

Private Sub Command2_Click()

Dim i As Byte
Beep
i = MsgBox("You want to exit this Application", vbYesNo, "Exit Application")

If i = vbYes Then
End
End If
End Sub

The Main MDI Form:-

The Main MDI Form Coding:-

Private Sub aboutmenu_Click()

Form8.Show
End Sub

Private Sub authermenu_Click()

Form11.Show
End Sub

Private Sub booknomenu_Click()

Form13.Show
End Sub

Private Sub bookrepomenu_Click()

Form9.Visible = True
End Sub

Private Sub customerrepmenu_Click()

Form10.Visible = True
End Sub

Private Sub detailmenu_Click()

Form5.Show
End Sub

Private Sub entrymenu_Click()

Form3.Show
End Sub

Private Sub exitmenu_Click()

Dim i As Byte
Beep
i = MsgBox("You want to exit this Application", vbYesNo, "Exit Application")
If i = vbYes Then
End
End If
End Sub

Private Sub issuemenu_Click()

Form6.Show
End Sub
Private Sub MDIForm_Load()
Me.WindowState = 2
End Sub

Private Sub memberdetailmenu_Click()

Form4.Show
End Sub

Private Sub returndetailmenu_Click()

Form7.Show
End Sub

Private Sub subjectmenu_Click()

Form12.Show
End Sub

The Book Entry Form:-

The Book Entry Coding:-

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command10_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Save
MsgBox ("Record Saved")
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Command5_Click()

Me.Hide
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.Cancel
End Sub

Private Sub Command7_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command8_Click()

Adodc1.Recordset.MoveLast
End Sub

Private Sub Command9_Click()

Adodc1.Recordset.MoveNext
End Sub

Private Sub Form_Load()

Me.WindowState = 2
End Sub

Private Sub Timer1_Timer()

Label7.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub

The Member Detail Form:-

The Member Detail Coding:-

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
End Sub

Private Sub Command10_Click()

Me.Hide
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Save
MsgBox ("Record Saved")
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveLast

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MoveNext
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command7_Click()

Adodc1.Recordset.Update
MsgBox ("Record Updated")
End Sub

Private Sub Command8_Click()

Adodc1.Recordset.Cancel
MsgBox ("Record Canceled")
End Sub
Private Sub Command9_Click()
Adodc1.Recordset.Delete
MsgBox ("Record Deleted")
End Sub

Private Sub Form_Load()

Me.WindowState = 2
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub

The Issue Detail Form:-

The Issue Detail Form Coding:-

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim con1 As New ADODB.Connection

Private Sub Form_Load()

Me.WindowState = 2
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\thakur\LIBRARY\libarymang.mdb;Persist Security Info=False")
rs.Open ("select * from bookentry"), con, 3, 2
rs.MoveFirst
While (Not rs.EOF)
List1.AddItem (rs.Fields(1))
rs.MoveNext
Wend
rs1.Open ("select * from memberdetail"), con, 3, 2
rs1.MoveFirst
While (Not rs1.EOF)
List2.AddItem (rs1.Fields(0))
rs1.MoveNext
Wend
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command10_Click()

Me.Hide
End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Save
MsgBox ("record save")
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveLast
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MoveNext
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command7_Click()

Adodc1.Recordset.Update
End Sub

Private Sub Command8_Click()

Adodc1.Recordset.Cancel
End Sub

Private Sub Command9_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub List1_Click()

rs.MoveFirst
While (Not rs.EOF)
If (List1.Text = rs!book_name) Then
Text1.Text = rs!ID
End If
rs.MoveNext
Wend
End Sub

Private Sub Text3_Click()

Text3.Text = Date
Text6.Text = Date + 6
End Sub
The Return Detail Report :-

The Return Detail Coding:-

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Adodc1.Recordset.Save
MsgBox ("record saved")
End Sub

Private Sub Command10_Click()

Me.Hide
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveLast
End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MoveNext
End Sub

Private Sub Command6_Click()

Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command9_Click()

Adodc1.Recordset.Delete
End Sub

Private Sub Form_Load()

Me.WindowState = 2
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\thakur\LIBRARY\libarymang.mdb;Persist Security Info=False")
rs.Open ("select * from memberdetail"), con, 3, 2
rs.MoveFirst
While (Not rs.EOF)
List1.AddItem (rs.Fields(4))
rs.MoveNext
Wend
End Sub

Private Sub List1_Click()

rs.MoveFirst
While (Not rs.EOF)
If (List1.Text = rs.Fields(0)) Then
Text3.Text = rs.Fields(5)
Text6.Text = rs.Fields(6)
Text5.Text = rs.Fields(1)
Text4.Text = rs.Fields(0)
End If
rs.MoveNext
Wend
End Sub

SEARCH:-
The Search By Author Name Report:-
The Search By Author Name Coding:-

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Me.Hide
End Sub

Private Sub Form_Load()

Me.WindowState = 2
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\thakur\LIBRARY\libarymang.mdb;Persist Security Info=False")
rs.Open ("select * from bookentry"), con, 3, 2
rs.MoveFirst
While (Not rs.EOF)
List1.AddItem (rs.Fields(2))
rs.MoveNext
Wend
End Sub

Private Sub List1_Click()

rs.MoveFirst
While (Not rs.EOF)
If (List1.Text = rs!Auther_name) Then
Text3.Text = rs!publisher_address
Text4.Text = rs!Publisher_name
Text5.Text = rs!Book_Price
Text6.Text = rs!book_name
Text7.Text = rs!ID
Text8.Text = rs!Edition_year
Text9.Text = rs!Version
End If
rs.MoveNext
Wend
End Sub
The Search By Book Number Report :-
The Search By Book Number Coding:-

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Me.Hide
End Sub

Private Sub Form_Load()

con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\thakur\LIBRARY\libarymang.mdb;Persist Security Info=False")
rs.Open ("select * from bookentry"), con, 3, 2
rs.MoveFirst
While (Not rs.EOF)
List1.AddItem (rs.Fields(0))
rs.MoveNext
Wend
End Sub
Private Sub List1_Click()
rs.MoveFirst
While (Not rs.EOF)
If (List1.Text = rs!ID) Then
Text3.Text = rs!publisher_address
Text4.Text = rs!Publisher_name
Text5.Text = rs!Book_Price
Text6.Text = rs!book_name
Text7.Text = rs!ID
Text8.Text = rs!Edition_year
Text9.Text = rs!Version
End If
rs.MoveNext
Wend
End Sub
REPORT:_

Book Report:-
Member Report Form:-
ABOUT FORM:-
LIMITATION OF THE PROJECT
Limitation of this project is the following:
a. Details of all the members of an institute can not be maintained through
this software.
b. This software can not be used over network/internet.
c. Online registration is not possible using this software.

CONCLUSION
This software is basically designed for storing database of the Books & Members of
an educational institute. It has a simple interface & can store data in relational format using
Microsoft Access. It can generate various reports for analysis.

FUTURE SCOPE OF THE PROJECT

There are many more features which can be added to this project. In futures this
software can be expanded easily. Those features will make this software to perform many
more function & this will make more useful. Some of the features which can be added to this
software are following:

a. Details of all the members of an institute can not be maintained through

this software.
b. This software can be used over network/internet.
c. Online registration is possible using this software.