Project report

PROJECT REPORT ON
Library Management System
ACKNOWLEDGEMENT
I take this precious opportunity to express my gratitude
toward “LIBRARY MANAGEMENT SYSTEM” to grant is
permission for under going the training project. Without it’s
willingness to permit this project would not have been succeed.
First of all, I would like to thanks all those people who
helped me directly or indirectly to complete my project
whenever I found my self in problems. Our all faculties
encourages me and due to their kindness and helpful nature and
help I got very much confidence to complete this project.
I am deeply inherited who devoted his precious time in
giving me the information about the various aspect and gave
support and guidance at every point of time. I am really thankful
to their kind and supportive nature. His inspiring nature has
always made my work easy.
Last but not least, I would like to express my gratitude to those
persons who directly or indirectly helped in my project.
Project by -Mansi Vinit Kulkarni

PREFACE
The field of computer education has witnessed a sea
change since the discovery of simple calculating machine by
CHARLES BABAGE. The era is confronting with the speed
and mind of computer, i.e. the speed and intelligence have
become vital. At one end they are competing with each other.
Not only these computers have immensely benefited the
mankind in the field of planning. The wheel of progress is
rolling with much faster speed then it used to be a decade ago;
thank to the revolution ushered in by computer. But all this
haven’t come as easy as it appears to be rather it requires
planning strategy and a lot of brain storming before a package is
developed or a language is born.
Since the prime task of the computer is to process a raw
data into useful information, we can ignore the basic step of
information collection ret rival and processing at our risk only.
The importance of finding the right information in the possible
least time as well know to us.

ABSTRACT
Maintaining records of application for estates, the manual
system is too complex and cumbersome. Since time and
resources available we have been proposed to develop an
inventory system.
All the outset the application requirements were studied
and analysis and design were carried out. The development
platform and software tool were identified as Visual Basic 6.0
(As Front-End) and SQL Server database. Using visual
programming, object are manipulated directly and also due to
the feature of fast and easy prototyping and GUI building visual
basic 6.0 as used.
In the system analysis and design part, data is processed
using query techniques and study of the existing system.
During the development phase various option are
developed like master menu. transaction menu, report
generation, utility etc.
The detail of the programming steps followed and
important clauses incorporated in the screen are described in
documents.

Why Visual Basic Programming
Using visual programming objects are manipulated
directly, By Highlighting; point and cliking specific properties
can relate to physical appearance (color, shading, fonts, size and
so on). Most widely used objects oriented, graphical
programming language for window development are:
Visual Basic
Power Builder
Forms 5.0 / 6.0
We have selected one of the most widely used object
oriented, graphical programming language for window
development Visual Basic. Selection of visual basic based on
following strengths:
 Fast and easy prototyping and GUI building.
 Fully functional, real window application building.
 Excellent DDE and DDL support and client OLE.
 MDI support.
 Easy Dialog Box Construction.
 Easy Menu Generation supporting Short – cut key.

INTRODUCTION OF VISUAL BASIC
Visual Basic Editions:
Visual Basic is available in three versions, each generate
to meet a specific set of development requirement.
 The visual basic learning edition.
 The professional edition.
 The enterprise edition.
VISUAL BASIC AND DATABASE
Visual Basic can be used to build very complex
application. Visual Basic effective software that can perform all
essential management function. It can be used to:
 Create data table and store data in them.
 Edit data records.
 Retrieve data selectively from stored records to
provide specific information.
 Prepare printed information retrieval reports.
 Perform calculation.
 Create screens that can interact with users.

Visual Basic provides a wide verity of data access alternatives,
for working with local and remote database, including enterprise
level three-tiered client/server application.
INTRODUCTION TO SQL SERVER :-
Database : What they are? And how they work?
A database is collection of information related to particular
or purpose such as tracking customer orders or maintaining a
music collection. If your database isn’t stored on a computer or
only parts of it are, you may be tracking information from
variety of source that you have to coordinate and organize your
self.
Using it, you can manage all our information from single
database file. Within file divide your data using into separate
storage containers called tables; view, add, and update table data
using forms; find and retrieve just the data you want using
queries and analyze or print data in specific layout using reports.
To find and retrieve just data that meet condition you specify
including data from multiple tables create a query. A query can
also update multiple records at the same time and perform built-
in or custom calculations on your data. To easily view, enter and
change directly in a table, create a form. When you open a form,
it retrieve the data from one or more tables and display it on
screen using the data from you chose in the form using a layout
that you created from scratch.
To analyze your data present it a certain way in print,
create a report. For example, you might print one report that raw
material and calculates totals.

TABLES :
A tables is a collection of data about a specific topic, such
as products or suppliers. Using as separate table for each topic
means you store that data only once which makes your database
more efficient and reduces data entry errors. Table organize data
into columns and rows.
In table data sheet view, you can add, edit or view the data
in a table. You can also check the spelling and print your tables
data filter or sort records change the data sheet’s appearance or
change the table’s structure by adding or deleting columns. You
can create an entire table from scratch, or add, delete, or
customize an existing tables fields.
QUERIES:
You use queries to view, change and analyze data in
different ways. You can also use them as the source of records
for forms and report. The most common type of query is a select
query. A select query retrieves data from one or more tables
using criteria you specify and then display it in the order you
want.
ADVANTAGES OF ACCESS :-
 More Reliable than other RDBMS.
 Easy to use and learn.
 Data security is high.
 Updating database.

Disadvantages of Manual System:-
 The manual system required more time for
processing.
 The processing is very lengthy.
 It require more clerical work.
 The manual system is more error prone.
 Manual system is costly.
 Immediate response to the quires is difficulty and
time consuming.
 It is not possible to create quick report.
 Mathematical calculation done manfully.
No authentication measures.
Need for computerized system:-
The main draw back of the existing system is that manual work
leads time consumption. It affects the all person of management
and also the departments. There is number of day-by-day
transactions and hence the large number of register have to the
kept to circulation, which have to the stored. Also large numbers
of register have to the kept to the store. This document is
required more storing space, more manpower and job become
tedious. Sometime gathering of all documents is a tedious job.
In this system process of summary report in main part,
using the computerized system this process is become simple

and small. You can immediately getting the report for the query.
You can get this all report or summary for the previous year.
Various year. Various details have to the providing to the
management at any time.
System Attributes And Quality
Characteristic:
Security:-
The system is designed keeping in view that chances of
unauthorized use are made negligible. In the design depending
upon the user, they are entitled with specific required right only.
Only the Administrator will be able to create new users. He is
the only person having full access of main database. As security
is a crucial characteristic, it is treated according in this system.
Portability:-
The designed system must operate on different version of
OS viz. Windows 98, NT, XP etc. Proper care is taken at the
time of design and coding so that it will execute and run
property. To assure portability of the system, backward
compatibility up to a certain level will also be maintained.

Reliability:-
Following tests will be performed to assure reliability of
the system.
 Simulation Test.
 Memory Test.
 Path Test.
 Loop Test.
 Random Data Test.
 OS Compatibility Test.
 Hardware Compatibility Test.
 Data Test.
The above listed test are carried out at development site,
installation site and during the development process as per the
requirement. The multiple waterfall modules during the
development of the project will assure minimum risk.

Application Requirement:
User Platform: PC
Operating System: Windows10
Development Tools: Visual Basic 2015
Database: Access

Form - 2 : Add Book
Coding:
Sub GroupID_Combo()
Try
If objcon.State = ConnectionState.Closed Then objcon.Open()
com = New OleDb.OleDbCommand("Select GroupID from GroupD", objcon)
dr = com.ExecuteReader
While dr.Read
ComboBox1.Items.Add(dr.Item(0))
End While
dr.Close()
objcon.Close()
Catch ex As Exception
End Try
End Sub
Sub generateyear()
Dim YearNow As Integer
YearNow = Int(My.Computer.Clock.LocalTime.Year.ToString)
Dim a, b, c As Integer
a = YearNow - 5
b = YearNow
For c = a To b
ComboBox2.Items.Add(c)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ComboBox3.Text = "Available"
Call enablethem()
End Sub

Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox2.LostFocus
NameFrm = TextBox2.Text
Call Sentence()
TextBox2.Text = NameTo
End Sub
Sub Sentence()
Dim a, b As Integer
a = NameFrm.Length
NameTo = ""
For b = 0 To a - 1
If b = 0 Then
If Char.IsLower(NameFrm(0)) Then
NameTo = Char.ToUpper(NameFrm(0))
Else
NameTo = NameFrm(0)
End If
Else
If NameFrm(b - 1) = " " Then
NameTo = NameTo + Char.ToUpper(NameFrm(b))
Else
NameTo = NameTo + NameFrm(b)
End If
End If
Next
End Sub
If TextBox1.Text = "" Then
MsgBox("Please enter the Book ID!", 0, "")
Else
Try
com = New OleDb.OleDbCommand("INSERT INTO Books VALUES('" &
TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "','" &
TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" &
TextBox5.Text & "','" & TextBox6.Text & "','" & ComboBox3.Text & "')", objcon)
com.ExecuteNonQuery()
Call readData()
MsgBox("Saved successfully", 0, "SUCCESS")
objcon.Close()
MsgBox(ex.Message, 0, "")
End Try
End If
End Sub
Sub readData()
ListView1.Clear()
ListView1.Columns.Add("BOOK ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("GROUP ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("BOOK NAME", 310, HorizontalAlignment.Center)
ListView1.Columns.Add("PUBLISHER", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("AUTHOR", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("PUBLISHING YEAR", 130,
HorizontalAlignment.Center)
ListView1.Columns.Add("EDITION", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("PRICE", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("STATUS", 90, HorizontalAlignment.Center)
ListView1.View = View.Details
Try

If (objcon.State = ConnectionState.Closed) Then objcon.Open()
com = New OleDb.OleDbCommand("SELECT * FROM Books ", objcon)
While dr.Read()
Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3),
dr(4), dr(5), dr(6), dr(7), dr(8))
End While
dr.Close()
objcon.Close()
Catch
'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
End Try
End Sub
Try
If MessageBox.Show("Do you really want to delete?", "ARE YOU SURE",
MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
com = New OleDb.OleDbCommand("DELETE FROM Books WHERE BookID='"
& TextBox1.Text & "'", objcon)
objcon.Close()
MsgBox("Deleted successfully", 0, "SUCCESS")
End If
End Try
End Sub
Dim i As Integer
ListView1.SelectedItems.Clear()
TextBox1.Focus()
Try
If Me.TextBox1.Text = "" Then
TextBox2.Text = ""
Else
For i = 0 To ListView1.Items.Count - 1
If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
ComboBox1.Text = ListView1.Items(i).SubItems(1).Text
TextBox2.Text = ListView1.Items(i).SubItems(2).Text
ListView1.Items(i).Selected = True
Exit For
End If
Next
End If
Catch

Form -3 : Issue Book
Coding:
Try
com = New OleDb.OleDbCommand("UPDATE Books SET status='Rented'
WHERE BookID='" & ComboBox1.Text & "'", objcon)
objcon.Close()
Call readData()
com = New OleDb.OleDbCommand("INSERT INTO Issue VALUES('" &
ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox2.Text & "','" &
ComboBox5.Text & "','" & TextBox1.Text & "','" & DateTimePicker1.Text & "','" &
DateTimePicker2.Text & "')", objcon)
MsgBox("Book has been Issued!", 0, "")
Call readData()
objcon.Close()
End Try
End Sub
Dim i As Integer
TextBox1.Focus()

Try
If Me.ComboBox1.Text = "" Then
TextBox2.Text = ""
Else
If ComboBox1.Text = ListView1.Items(i).SubItems(0).Text
Then
Exit For
End If
Next
End If
Catch
End Try
End Sub
Try
If ComboBox1.Text = "" Then
MsgBox("Please mention the BookID", 0, "")
Else
If objcon.State = ConnectionState.Closed Then
com = New OleDb.OleDbCommand("delete from Issue where
BookID='" & ComboBox1.Text & "'", objcon)
If MsgBox("Do you really want to delete?",
MsgBoxStyle.YesNo, "Are you sure?") = Windows.Forms.DialogResult.Yes Then
End If
objcon.Close()
End If
End If
End Try
End Sub

Form - 4 : Return Book
Coding:
MsgBox("Please mention the Book ID", 0, "")
Else
Try
com = New OleDb.OleDbCommand("UPDATE Books SET
status='Available' WHERE BookID='" & ComboBox1.Text & "'", objcon)
objcon.Close()
Call readData()
com = New OleDb.OleDbCommand("INSERT INTO Returns VALUES('" &
ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox2.Text & "','" &
ComboBox5.Text & "','" & TextBox1.Text & "','" & TextBox3.Text & "','" &
TextBox7.Text & "','" & DateTimePicker2.Text & "','" & TextBox6.Text & "')",
objcon)
MsgBox("Book has been returned!", 0, "")
objcon.Close()
End Try
End If
End Sub

MsgBox("Please mention a Book ID", 0, "")
Else
Try
com = New OleDb.OleDbCommand("DELETE FROM Returns WHERE
BookID='" & ComboBox1.Text & "'", objcon)
MsgBox("Deleted Success!", 0, "")
Call ClearThem()
objcon.Close()
End Try
End If
End Sub
Sub IssueDetail() '
Try
com = New OleDb.OleDbCommand("Select IssueDate, IssueName, IssueTo,
DueDate from Issue WHERE BookID='" & ComboBox1.Text & "'", objcon)
While dr.Read
ComboBox5.Text = dr.Item(2)
TextBox1.Text = dr.Item(1)
End While
dr.Close()
objcon.Close()
End Try
End Sub
Try
Dim i As Integer
If ListView1.Items(i).Selected = True Then
TextBox1.Text = ListView1.Items(i + 1).SubItems(0).Text
Exit For
End If
Next
ListView1.Focus()
ListView1.FullRowSelect = True
End Try
End Sub
Try
Dim i As Integer

Exit For
End If
Next
ListView1.Focus()
End Try
End Sub
Form - 7: Add Customer
Coding:
MsgBox("Please enter a Customer ID", 0, "")
Else
Try
com = New OleDb.OleDbCommand("INSERT INTO Customer values('" &
TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" &
TextBox4.Text & "','" & TextBox5.Text & "','" & DateTimePicker1.Text & "','" &
DateTimePicker2.Text & "')", objcon)
If com.ExecuteNonQuery() Then MsgBox("Saved Success!", 0, "")
ListView1.Clear()
Call readData()
objcon.Close()
Call DisableThem()

End Try
End If
End Sub
MsgBox("Please enter the ID to be deleted!", 0, "")
Else
Try
objcon.Open()
com = New OleDb.OleDbCommand("delete from Customer where CID='"
& TextBox1.Text & "'", objcon)
If com.ExecuteNonQuery() Then
ListView1.Clear()
Call readData()
MsgBox("Deleted Success!", 0, "")
Else
MsgBox("ID Not Found!", 0, "")
End If
objcon.Close()
End Try
End If
End Sub
Call EnableThem()
Call ClearField()
End Sub
Sub EnableThem()
TextBox1.Enabled = True
DateTimePicker1.Enabled = True
DateTimePicker2.Enabled = True
End Sub
Sub DisableThem()
'TextBox1.Enabled = False
TextBox2.Enabled = False
DateTimePicker1.Enabled = False
DateTimePicker2.Enabled = False
End Sub
Private Sub AddCustomer_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call DisableThem()
Call readData()
End Sub
Sub readData()
ListView1.Columns.Add("CUSTOMER ID", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("CUSTOMER NAME", 210, HorizontalAlignment.Center)

ListView1.Columns.Add("CUSTOMER ADDRESS", 130,
ListView1.Columns.Add("CONTACT #", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("SECURITY", 90, HorizontalAlignment.Center)
ListView1.Columns.Add("ACTIVATION DATE", 130,
ListView1.Columns.Add("VALID TILL", 90, HorizontalAlignment.Center)
Try
If (objcon.State = ConnectionState.Closed) Then objcon.Open()
com = New OleDb.OleDbCommand("SELECT * FROM Customer", objcon)
While dr.Read()
Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3),
dr(4), dr(5), dr(6))
End While
dr.Close()
objcon.Close()
Catch
'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
End Try
End Sub
Public Sub adddatatolistview(ByVal lvw As ListView, ByVal CID As String,
ByVal CName As String, ByVal CAddress As String, ByVal CCont As String, ByVal
Sec As String, ByVal CAct As String, ByVal CVal As String)
Dim lv As New ListViewItem
lvw.Items.Add(lv)
lv.Text = CID
lv.SubItems.Add(CName)
lv.SubItems.Add(CAddress)
lv.SubItems.Add(CCont)
lv.SubItems.Add(curr + " " + Sec)
lv.SubItems.Add(CAct)
lv.SubItems.Add(CVal)
End Sub
Sub ClearField()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
DateTimePicker1.Refresh()
DateTimePicker2.Refresh()
End Sub
Sub LoadInto()
End Sub
Try
Dim i As Integer
TextBox1.Text = ListView1.Items(i - 1).SubItems(0).Text
Exit For
End If
Next
ListView1.Focus()

End Try
End Sub
Try
Dim i As Integer
Exit For
End If
Next
ListView1.Focus()
End Try
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim i As Integer
DateTimePicker1.Text = ListView1.Items(i).SubItems(5).Text
DateTimePicker2.Text = ListView1.Items(i).SubItems(6).Text
Exit For
End If
Next
ListView1.Focus()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
TextBox1.Focus()
Try
If Me.TextBox1.Text = "" Then
TextBox2.Text = ""
Else
If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
Exit For
End If
Next
End If
Catch
End Try
End Sub

Project report

Recommended

Recommended

More Related Content

What's hot

What's hot (20)

Similar to Project report

Similar to Project report (20)

Recently uploaded

Recently uploaded (20)

Project report