Library Management System 2024-25

SYNOPSIS:

INTRODUCTION:
The project entitled LIBRARY MANAGEMENT
SYSTEM is developed as part of the II Semester
PROGRAMMING VISUAL [Link] project for the partial
fulfillment of the PGDCA degree.

PROJECT:
LIBRARY MANAGEMENT SYSTEM is a software
application to maintain the records related to Book
Purchase, Stock Maintenance, Book Search, Catalog,
Book Issue, Book Returns, Fine Collection, and all
necessary requirements for the Library to manage day
to day operations.

OBJECTIVE:
The main objective of the application is to
automate the existing system of manually maintain the
records of the Book Issue, Book Return from the
student, Stock Maintenance, Catalog and Book Search
to be computerized. So the Book Issue, Return,
Searching will be faster.
Library Management System 2024-25

SCOPE:
This application can be used by any Library to
automate the process of manually maintaining the
records related to the subject of maintaining the stock
and Book Issues.

PROBLEM DEFINITION:
The transactions related to Book Purchase, Book
Issue and Book Returns are maintained manually at
present along with maintaining the accounts of the
Students and the Lecturers.
All these are to be automated and an
application is required to relate all of them relatively
and logically so that the current system can be
replaced and accepted without major changes and
problems.
The application should provide quick access to
the records maintained and must reveal the important
reviews about the business so that the growth can be
easily compared and should provide with the various
reports showing the related details so that the
important decisions could be taken easily.
Library Management System 2024-25

SOFTWARE REQUIREMENT SPECIFICATION:

An SRS is basically an organization's understanding (in

writing) of a customer or potential client's system
requirements and dependencies at a particular point in
time (usually) prior to any actual design or
development work. It's a two-way insurance policy that
assures that both the client and the organization
understand the other's requirements from that
perspective at a given point in time.

The SRS document itself states in precise and explicit

language those functions and capabilities a software
system must provide, as well as states any required
constraints by which the system must abide. The SRS
also functions as a blueprint for completing a project
with as little cost growth as possible. The SRS is often
referred to as the "parent" document because all
subsequent project management documents, such as
design specifications, statements of work, software
architecture specifications, testing and validation plans,
and documentation plans, are related to it.

It's important to note that an SRS contains functional

and nonfunctional requirements only; it doesn't offer
design suggestions, possible solutions to technology or
Library Management System 2024-25

business issues, or any other information other than

what the development team understands the
customer's system requirements to be.

A well-designed, well-written SRS accomplishes four

major goals:

 It provides feedback to the customer. An SRS is the

customer's assurance that the development
organization understands the issues or problems to
be solved and the software behavior necessary to
address those problems. Therefore, the SRS should
be written in natural language, in an unambiguous
manner that may also include charts, tables, data
flow diagrams, decision tables, and so on.

 It decomposes the problem into component parts.

The simple act of writing down software
requirements in a well-designed format organizes
information, places borders around the problem,
solidifies ideas, and helps break down the problem
into its component parts in an orderly fashion.
Library Management System 2024-25

 It serves as an input to the design specification. As

mentioned previously, the SRS serves as the
parent document to subsequent documents, such
as the software design specification and statement
of work. Therefore, the SRS must contain sufficient
detail in the functional system requirements so
that a design solution can be devised.
 It serves as a product validation check. The SRS
also serves as the parent document for testing and
validation strategies that will be applied to the
requirements for verification.

SRS are typically developed during the first stages of

"Requirements Development," which is the initial
product development phase in which information is
gathered about what requirements are needed--and
not. This information-gathering stage can include onsite
visits, questionnaires, surveys, interviews, and perhaps
a return-on-investment (ROI) analysis or needs analysis
of the customer or client's current business
environment. The actual specification, then, is written
after the requirements have been gathered and
analyzed.

The National Bureau of Standards, IEEE (Standard No:

830-1984), and the U.S Department of Defense have all
Library Management System 2024-25

proposed candidate formats for software requirements

specifications. The general structure is implemented
with the related software application

INTRODUCTION:
The project entitled LIBRARY MANAGEMENT
SYSTEM is developed as part of the II Semester
PROGRAMMING VISUAL [Link] project for the
partial fulfillment of the PGDCA degree. It is a software
application maintain the records related to all the
transactions occurring at the counter of a shop.

OBJECTIVE:
The main objective is to maintain the inventory
records of a generic shop which deals in musical tapes.
 To keep accounts of Book Purchase and Stock
 To know the current position of the Books
 Book Catalog
 Book Issue
 Book Return
 Fee Collection

SCOPE:
Library Management System 2024-25

As this is generic software it can be used by a wide

variety of outlets (Retailers and Wholesalers) to
automate the process of manually maintaining the
records related to the subject of maintaining the stock
and cash flows.

GOAL:
The main goal of the application is to maintain the
records of stock, Issue, details of Books and Students
and their current Issue status, Defaulters, Etc.,

INFORMATION DESCRIPTION:

DETAIL DESCRIPTION OF THE PROBLEM:

In the present situation the records of the
Issue transactions are maintained manually (i.e. the
record of the Book Issue, Book Return, Fee Collection,
Defaulter List, Book Transaction, Supplier List, Supplier
account, etc), therefore the tasks like reviewing
previous records or editing them are very difficult and
Library Management System 2024-25

time consuming and even the chances of making

mistakes are higher.

INFORMATION CONTENT
The complete details about each of the
module described above are stored and related
logically together to provide related and organized
information.

INFORMATION FLOW
The flow of the information can be better
examined through the Flow diagram model described
below with the following entities:

Course Conducting
Sub Course
Student Details
Institution Details
Supplier Details
Book Category
Book Unit
Book Details
Book Issued
Book Return
Reports
Library Management System 2024-25

HARDWARE INTERFACE
Minimum Hardware Requirement
Pentium Celeron 400MHz or Above
128MB RAM
1 GB HARD DISK Space
VGA Color Monitor
Keyboard and Mouse

SOFTWARE INTERFACE

Microsoft Windows 98 or Above

Microsoft Visual [Link] 2008
MS-Access 2003

HUMAN INTERFACE
Input/Output forms
Data Reports
Options for adding, editing and removing the
information from the database
Library Management System 2024-25

FUNCTIONAL DESCRIPTION:
The problem under study is being divided into
several modules/functions discussed below to
understand the approach to the solution in the broader
way:

Student Details : In this module the details of the

Student can entered and also the provision is provided
to modify or delete the student details. This module
take some information from the master entries like
Subject, Course, etc.

Institution Details: In this module the details of the

Institute will be recorded i.e. the details of the school or
college information.

Book Details : This module the details of the book is

maintained. It have all the necessary information about
the book like, publisher, Author, Stock Qty etc.,
Library Management System 2024-25

Book Issue : In this module the Book Issued details

are maintained. It records the Issue date, Return date
etc.

Book Return: In this module the Book Returned

details are maintained. It records the Return date, any
Fine amount to collected etc.,

Issued Report : In this module we will get the details

of the book issued from the given from date and to
date. It give all the details related to whom the book is
issued when it is issued when is the returning date
whether book is returned or not etc., Also in this
module we can see how many are not returned the
books till now.

Suppliers: In this module the details of the suppliers

providing the supply of the goods along with the firm
name, sale tax no and other personal details and the
list of the different item supplied by him are
maintained.
Library Management System 2024-25

Purchase: In this module the details of the purchases

made by the shop along with the bill no and the list of
items purchased with the cost price, marked price for
the relative items are maintained.

Book Report: From this report we can list all the books
available in the library. It gives the complete detail of
the books with publisher Name, Author Name, Qty
available etc., Also the report is provided with filtering
tool using we can display only selected category books.

BEHAVIORAL DESCRIPTION:

This section examines the operation of the software

as a consequence of external events and internally
generated control characteristics. This in short is the
interface of the software with the internal features i.e.
the interlinks of the components of the software and
the interface of the software with the external events
as for e.g. we may have the addition as an external
interface and the operations related to the addition
interface as the internal interface of the software
application. The details of these can be ascertained by
the modules and their description provided above.
Library Management System 2024-25

SYSTEM ANALYSIS
System Analysis is an activity that feeds information to
the specification activity. It is essential that during
analysis a complete and consistent set of specifications
emerge for the system. For achieving this, the first
major problem is to obtain the necessary information.
The second problem of analysis is to organize the
information obtained so the information can be
effectively evaluated for completeness and consistent.
The third problem is resolving the contradictions that
may exist in the information from different parties.
Lastly the fourth problem is avoiding internal design.

The proposed system is developed keeping in mind all

these steps and is designed in such a manner that it
satisfies all the requirements to be called a good
system design. The database designed follows 3 rd level
normalization and the input output forms show a better
Library Management System 2024-25

match with the backend. Thus solving the problem of

collecting information and storing it. The collected
information is logically related and stored in the
database following the database rules that form the
data dictionary for the various database operations.
Which removes all the possible contradictions that may
arrive and results in proper functioning of the data
repository. Thus having proper functioning of the
modules which integrate together to work to their best.

SOFTWARE ENVIRONMENT
The proposed system is developed using
Visual [Link] as the front end and MS-Access 2003
as the back end.

Visual [Link]
Library Management System 2024-25

A very user friendly very robust application

to build the customized applications. It can support
various other platforms also.

 It encompasses object oriented programming that

creates and use the object as a fundamental part
of development process.
 Object is a basic element, which helps to build the
application.
 Standard database formats for many applications
are in built.
 Database creation is very simple and is done in a
GUI environment.
 Modifications can be easily done to the created
database.

A design description of an object in Visual Basic has a

protocol description that establishes the interface of an
object by defining each event that the object can
receive and the related operation that the object can
perform when the particular event is fired.
It has an implementation description
that shows implementation details for each operation
implied by an event that is processed to an object. That
implementation details about the objects private part
Library Management System 2024-25

i.e., the internal details about the data structure and

procedural, functional details that describe the
operations.

FEATURES
The following are the various features of Visual
Basic that made to select this software for the project.

IMPROVED RELIABILITY:
The Visual Basic takes the core
achievements originally made in Windows 2000 and
brings them to new levels. With advanced ways of
monitoring the health of running applications, as well
as isolating applications from each other, applications
built using the Visual Basic stay up-and-running longer
than ever before.

Increased Performance:
Thanks in part to advanced compilation and
caching techniques, server applications have never
been faster than with the Visual [Link] and its net
technology. Customers who have moved from other
platform to the windows platform are seeing significant
Library Management System 2024-25

increases in speed on the order of 50 to 60 percent

improvements.

Developer Productivity:
Developers of all backgrounds are finding
that they can rapidly get up to speed on the Visual
Basic. The intuitiveness of the programming model, the
amount of code already provided in the class libraries,
and the amount of work that the Visual Basic handles
behind the scenes in areas such as memory
management have enabled Visual Basic developers to
reap huge productivity gains.

Powerful, Granular Security:

The code access security technology in the
Visual Basic was designed for today's Internet
environments. The Visual Basic can collect evidence
about the origin and author of an application. The
Visual Basic run-time environment can then combine
that evidence with administrator-set or default security
policies to make fine-grained decisions about whether
to run that application or enable it to access a
particular resource. It can even "negotiate" with the
application, for example, denying it the permission to
write to a protected directory and enabling the
Library Management System 2024-25

application to choose whether it will run, given that it

has been denied that permission.

Support for Other Programming Languages:

The Visual Basic supports the integration of
over other programming languages in a way
unimagined previously, enabling developers to choose
the right programming language for the task at hand.
All programming languages target a single, extensive,
and extensible set of class libraries. Components
written in different languages supported by the Visual
Basic can interact seamlessly, with no COM plumbing
required.

FLEXIBLE DATA ACCESS:

The Visual Basic technology for interacting with
data, ADO (ActiveX Data Object), is designed for
today's Web-based style of data access. Using ADO,
developers have the option of working with a platform-
neutral, XML-based cache of the requested data,
instead of directly manipulating the database. This
approach to data access frees up database connections
and results in significantly greater scalability.
Library Management System 2024-25

FEASIBILITY STUDY

Feasibility study is a test of a system proposal

according to its workability, impact on the organization,
ability to meet user needs, and effective use of
resources. The feasibility study is to serve as a decision
document; it must answer the following questions.

1)What are the user’s demonstrable needs?

2)Is the problem worth solving?
3)How can the problem be solved?
Library Management System 2024-25

All the successful projects are not necessarily the

biggest but rather those that truly meet the user
expectations. Three key considerations involved in the
feasibility analysis are economic, operational and
technical.

 Economic Feasibility:
Economic feasibility is the most frequently
used method for evaluating the effectiveness of a
candidate system. The procedure is to determine the
savings and the benefits from the candidate system
and compare with costs. If the benefits outweigh the
costs then it is decided to go ahead with the
projects. Otherwise, further justification or alterations in
the proposed system will have to be made if it is to
have a chance of being approved. This is an on-going
effort that improves in accuracy at each phase of the
system life cycle.

 Operational Feasibility:
People are resistant to change and
computers have been known to facilitate change. An
estimate should be made of how strong a reaction of
the user staff is likely to have an impact towards the
development of a computer system. It is common
Library Management System 2024-25

knowledge that computer installations have a lot to do

with turnovers, transfers, retaining and changes to
employee job status.

Therefore it’s understandable that the

production of the candidate system requires special
effort to educate and train the staff on the new way of
doing the job. But since ultimately the introduction of a
new system will only reduce the staff’s workload, they
may have no objection to install a computerized
system, and of course will be eager to extend their
cooperation.

 Behavioral Feasibility:
It relates human behavior in the organization
and political aspects. Here we focus on:
1)What changes will be brought with the system
2)What organizational structures are disturbed
3)What new skills will be required

Do the existing members have these skills? If

not can they be trained in due course of time. It also
includes social and managerial aspects that is whether
the proposed project will be acceptable to the customer
Library Management System 2024-25

and the management, along with the determination of

whether the proposed project considers Act, Status as
well as pending Legislations as a part of the legal
feasibility

 Technical Feasibility:
Technical feasibility centers on the
existing system and to what extent it can support the
proposed system. This involves financial considerations
to accommodate technical enhancements. If the budget
is a serious constraint, then the project is judged not
feasible. Now considering the proposed system, our
client has been maintaining the records manually at the
present. So he has to purchase new computer systems
for the automation of the concern. The owner having
realized the advantages, benefits and economic
feasibility of the new system is ready to afford the
expenses for the satisfaction of all the hardware and
software requirements. Therefore the project, in
question, is technically feasible as well.

 Conclusion:
Library Management System 2024-25

This system developed for Jain Group of

Institutions aims at maintaining the records of the
camps that have been held, dates of the camp, number
of patients treated, number of people operated upon,
number of patients given free spectacles, money spent,
transport details, number of doctors who attended the
camp, details of the camp and follow up dates.
It increases the efficiency of the voluntary camp and
also reduces the workload, as there is no need to
maintain the records manually.
This project is designed using very carefully and a lot of
thought has been put into the making of the system. It
has been developed using VB 6.0 an approved front-
end tool that is a very efficient graphical user interface.
This system automates the entire process and will
surely serve its purpose for many years to come.
Library Management System 2024-25

SYSTEM DESIGN

A computer procedure is a series of

operations designed to manipulate data to produce
outputs from a computer system. The procedure may
be a single program or a series of programs. The detail
design of the computer procedure follows acceptance
by management of an outline design proposal. The aim
now is to design procedures at lower levels of detail,
which will define the detailed steps to be taken to
produce the specified computer output. When
complete, these procedure definitions together with
data specifications are organized for programmers from
which the required programs can be written.

Design Tools:
Various tools are being used by system
analysis to specify computer procedures. Not all of
them are used here to design this project. Some of the
important tools that have been made use of are:

1. Entity relationship Diagram.

2. Input design.
Library Management System 2024-25

3. Output Design.
4. Database Design.

Input design:
Input design is a part of overall system design,
which requires very careful attention. Often the
collection of input data is the most expensive process
of the system. In terms of both the equipment used and
the number of people involved, it is the point of most
contact for the users with the computer system; and it
is prone to error. If data going into the system is
incorrect, then the processing and output will magnify
their errors.
One of the early activities of input design is to
determine the nature of the input data. This is done
partially in logical system design but it now needs to be
made more explicit.

Error avoidance and Detection:

Every effort must be made to ensure that input
data remains accurate from the stage at which it is
recorded and documented to the stage at which the
customer accepts it. While every effort is made to avoid
Library Management System 2024-25

errors during the preparation of input data, a proportion

of errors are likely to be present.
The user is free from the anxiety of
keeping the uniqueness of the primary key since the
system itself generates the primary key for the user.
As soon as the user keys erroneous data
in, the system just will not accept the data and provides
appropriate messages.

Data validation:
Computer input procedures must also be
designed to detect errors in the data at a lower level of
detail which is beyond the capability of the control
procedures. These are combined with the design of the
input process itself.
The validation procedure must be designed to
check each record, data item, field against certain
criteria specified by the system analyst or the
programmer.

Output design:
The specification of user requirements is the
starting point for the appraisal and the detailed
physical design must be done in the light of this and
with continuing user involvement. The normal
procedure is to design the outputs in detail first and
Library Management System 2024-25

then to work back to the inputs. The outputs can be in

the form of operational documents, lengthy reports,
and replies to queries or summarizing graphs.
Outputs from computer systems are required
primarily to provide a permanent copy of the results for
later consultation. Any data item not yet defined must
be identified and recorded before output design can
proceed. There is often a need at output to provide
totals at various levels. It is not always desirable to
print or display data as it is held on a computer. The
system analyst must ensure whether the form in which
it is stored in the system is suitable for the output.

In proposed system the users have been provided with

many outputs in the form of messages and alerts so as
to help the user enter the correct data.

Reports:
Reports enhance the application programmer’s
effort to output the formatted data in a manner
practical for the user. This also helps to create hard
copy of the valid information.

ARCHITECTURAL DESIGN
Library Management System 2024-25

Architectural design represents the structure

of data and program components that are required to
build a computer based system. It considers the
architectural style that a system will take, the structure
and properties of the component that constitute the
system, and the inter relationships that occur among all
architectural components of a system.
Although a software engineer can design
both data and architecture, the job is often allocated to
specialists when large, complex systems are to be built.
A database or a data warehouse designer creates the
data architecture of a system. The system architect
selects an appropriate architectural style for the
requirements derived during system engineering and
software requirements analysis.
Architectural design begins with data
design and then proceeds to the derivation of one or
more representations of the architectural structural of
the system. Alternative architectural style or patterns
are analyzed to derive the structure that is best suited
to customer requirements and quality attributes. Once
an alternative has been selected, the architecture is
elaborated using an architectural design method.
An architectural model encompassing
data architecture and program structure is created
Library Management System 2024-25

during architectural design. In addition, component

properties and relationships are described.

DATA FLOW DIAGRAM

Library Management System 2024-25

A Dataflow Diagram also known as “Bubble Chart” is

used to clarify System requirements and identifying
major transformations that all become programs in
System Design

SYMBOLS

Error: Reference source not found

Data Source/Destination

Process

Data Storage

Flow of data
Library Management System 2024-25

LEVEL 0: DFD

Library Management System

Library Management System 2024-25

Level 1

Book Purchase Data Flow Diagram

Book Transaction Data Flow Diagram

Library Management System 2024-25

ENTITY RELATIONSHIP DIAGRAM

ENTITY

RELATIONSHIP
Library Management System 2024-25

KEY ATTRIBUTE

ATTRIBUTE

Entity Relationship Diagram for Library Management

Library Management System 2024-25

DATA DICTIONARY
Course Table

NAME DATA KEY DESCRIPTION

TYPES
cName Varchar2 Name of the Course
Des Varchar2 Course Description
cDuration Numeric Duration of the Course
in Years

CouseSub Table
Library Management System 2024-25

NAME DATA KEY DESCRIPTION

TYPES
CName Varchar2 Sub Course Name
Des Varchar2 Sub course Description
mName Varchar2 Foreign Course Name
Key
cDuration Numeric Duration of the course

Subject Table

NAME DATA KEY DESCRIPTION

TYPES
sName Varchar2 Subject Name
Des Varchar Description of the
Subject
Reorder Numeric Reorder level of the
item
Library Management System 2024-25

StdDetails Table (Student Details Table)

NAME DATA KEY DESCRIPTION

TYPES
RegNo Numeric Student Register
Number.
Name Varchar2 Student Name
Add1 Varchar2 Address of the
student
Add2 Varchar2
Add3 Varchar2
PinCode Varchar2 Pincode of the
address
PhoneNo Varchar2 PhoneNo of the
student
Email Varchar2 Email of the student
Dob Date Date of birth
Course Varchar2 Foreign Course taken
Key
SubCourse Varchar2 Sub Course Name

InstDet Table (Institute Details Table)

Library Management System 2024-25

NAME DATA KEY DESCRIPTION

TYPES
iName Varchar2 Institute Name
Add1 Varchar2 Address of the
Institute
Add2 Varchar2
Add3 Varchar2
PinCode Varchar2 Pincode of the
address
PhoneNo Varchar2 PhoneNo of the
Institute
Email Varchar2 Email of the Institute

UnitMain Table

NAME DATA KEY DESCRIPTION

TYPES
UName Varchar2 Unit Name
Des Varchar2 Unit Description
Library Management System 2024-25

BookMaster Table

NAME DATA TYPES KEY DESCRIPTION

ItemCode Numeric primary Item Code of the Book
Key
ItemName Varchar2 Book Name
AuthName Varchar2 Author Name
PubName Varchar2 Publisher Name
Category Varchar2 Book Category
Unit Varchar2 Unit of measurement
Price Numeric(9,2) Price of the book
Remark Varchar2 Remark about the
book
Library Management System 2024-25

BookIssue Table

NAME DATA KEY DESCRIPTION

TYPES
RNo Numeric Primary Unique No in the table
Key
IDate Date Issued date
RegNo Numeric Foreign RegNo of the student
Key
SName Varchar2 Student Name
BName Varchar2 Book Name
RDate Date Returning date
BStatus Varchar2 Book return status
Library Management System 2024-25

UserLog table
NAME DATA KEY DESCRIPTION
TYPES
LogId Number PrimaryKey Unique no in the table
UserDate Date Date loged in
StartTime Date/Time Login Time
Username Varchar2 Username
EndTime Date/Time Log out time
Library Management System 2024-25

NORMALIZATION

DEFINITION

In relational database design, the process of organizing

data to minimize redundancy is called normalization.
Normalization usually involves dividing a database into
two or more tables and defining relationships between
the tables. The objective is to isolate data so that
additions, deletions, and modifications of a field can be
made in just one table and then propagated through
the rest of the database via the defined relationships.
There are three main normal forms, each with
increasing levels of normalization:

[Link] Normal Form

First Normal Form (1NF): Every cell I the table
must have only one value i.e. it should not have
multiple values.

[Link] Normal Form

Library Management System 2024-25

Second Normal Form (2NF): All non-key

attributes must be fully functionally dependent on the
primary key and not just the part of the key.

[Link] Normal Form

Third Normal Form (3NF): The database must
be in the second normal form and no non-prime
attribute should be transitively dependent on the
primary key.

4. Fourth Normal Form

It deals with multiple valued dependencies

[Link] Normal Form

It deals with joined dependencies

[Link] Codd Normal Form

It states that no inverse partial dependencies
should exist in the database
The Inventory Management System of a
Music Store is developed using the second normal form
Library Management System 2024-25

where the primary key of one table acts as a foreign of

another table and all the attributes of the table are
dependent on the primary key and not the part of the
key.

Form Designing
Library Management System 2024-25

Login Form
Library Management System 2024-25

Main Form
Library Management System 2024-25

Add New Book

Library Management System 2024-25

Find Book Form

Library Management System 2024-25

Edit Book
Library Management System 2024-25

Register New Reader Form

Library Management System 2024-25

Edit Reader Detail

Library Management System 2024-25

Issue/Return Book Form

Library Management System 2024-25

Return Book Form

Library Management System 2024-25

Find Book Form

Library Management System 2024-25

Change Password Form

Library Management System 2024-25

Book Code Report Form

Library Management System 2024-25

User Report Form

Library Management System 2024-25

Book Type Report Form

Library Management System 2024-25
Library Management System 2024-25

Source Code

Login Code
Imports [Link]
Imports [Link]
Library Management System 2024-25

Imports [Link]
Public Class frm_login
Inherits [Link]
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date
Dim UserStatus As String
Dim LibStatus As String
Dim AdminStatus As String
Dim ReaderStatus As String
Dim passTry As Integer = 0

#Region " Windows Form Designer generated

code "

Public Sub New()

[Link]()

'This call is required by the

Windows Form Designer.
InitializeComponent()

'Add any initialization after the

InitializeComponent() call

End Sub
Library Management System 2024-25

'Form overrides dispose to clean up

the component list.
Protected Overloads Overrides Sub
Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is
Nothing) Then
[Link]()
End If
End If
[Link](disposing)
End Sub

'Required by the Windows Form

Designer
Private components As
[Link]

'NOTE: The following procedure is

required by the Windows Form Designer
'It can be modified using the Windows
Form Designer.
'Do not modify it using the code
editor.
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Label1 As
[Link]
Friend WithEvents Label2 As
[Link]
Friend WithEvents TextBox1 As
[Link]
Library Management System 2024-25

Friend WithEvents TextBox2 As

[Link]
Friend WithEvents Button1 As
[Link]
Friend WithEvents Button2 As
[Link]
Friend WithEvents TextBox3 As
[Link]
<[Link]()
> Private Sub InitializeComponent()

Dim resources As
[Link] = New
[Link](GetType(
frm_login))
Me.GroupBox1 = New
[Link]
Me.TextBox2 = New
[Link]
Me.TextBox1 = New
[Link]
Me.Label2 = New
[Link]
Me.Label1 = New
[Link]
Me.Button1 = New
[Link]
Me.Button2 = New
[Link]
Me.TextBox3 = New
[Link]
Library Management System 2024-25

[Link]()
[Link]()
'
'GroupBox1
'
[Link](Me.TextBox2)
[Link](Me.TextBox1)
[Link](Me.Label2)
[Link](Me.Label1)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
[Link] = New
[Link](336, 88)
[Link] = 0
[Link] = False
[Link] = "Login
Information"
'
'TextBox2
'
[Link] = New
[Link](168, 56)
[Link] = "TextBox2"
[Link] =
[Link](42)
[Link] = New
[Link](144, 20)
[Link] = 3
[Link] = ""
'
Library Management System 2024-25

'TextBox1
'
[Link] = New
[Link](168, 24)
[Link] = "TextBox1"
[Link] = New
[Link](144, 20)
[Link] = 2
[Link] = ""
'
'Label2
'
[Link] = New
[Link](16, 56)
[Link] = "Label2"
[Link] = 1
[Link] = "Password"
'
'Label1
'
[Link] = New
[Link](16, 24)
[Link] = "Label1"
[Link] = 0
[Link] = "User ID"
'
'Button1
'
[Link] =
[Link]
[Link] = New
[Link](24, 112)
[Link] = "Button1"
Library Management System 2024-25

[Link] = New
[Link](128, 23)

[Link] = 1
[Link] = "Login"
'
'Button2
'
[Link] =
[Link]
[Link] = New
[Link](184, 112)
[Link] = "Button2"
[Link] = New
[Link](136, 23)
[Link] = 2
[Link] = "Exit"
'
'TextBox3
'
[Link] = New
[Link](464, 56)
[Link] = "TextBox3"
[Link] = 3
[Link] = ""
[Link] = False
'
'frm_login
'
[Link] = New
[Link](5, 13)
[Link] = New
[Link](354, 144)
Library Management System 2024-25

[Link](Me.TextBox3)
[Link](Me.Button2)
[Link](Me.Button1)
[Link](Me.GroupBox1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False
[Link] = False
[Link] = "frm_login"
[Link] =
[Link]
nterScreen
[Link] = "Login Menu"
[Link](False)
[Link](False)

End Sub

#End Region

Private Sub Button2_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private components As
[Link]

'NOTE: The following procedure is

required by the Windows Form Designer
Library Management System 2024-25

'It can be modified using the Windows

Form Designer.
'Do not modify it using the code
editor.
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Label1 As
[Link]
Friend WithEvents Label2 As
[Link]
Friend WithEvents Label3 As
[Link]
Friend WithEvents Label4 As
[Link]
Friend WithEvents Button1 As
[Link]
Friend WithEvents Button2 As
[Link]
Friend WithEvents Button3 As
[Link]
Friend WithEvents TextBox1 As
[Link]
Friend WithEvents TextBox2 As
[Link]
Friend WithEvents TextBox3 As
[Link]
Friend WithEvents TextBox4 As
[Link]
Friend WithEvents Label5 As
[Link]
Friend WithEvents Label6 As
[Link]
Friend WithEvents TextBox5 As
[Link]
Library Management System 2024-25

Friend WithEvents TextBox6 As

[Link]

Friend WithEvents Label7 As

[Link]
Friend WithEvents TextBox7 As
[Link]
Friend WithEvents Label8 As
[Link]
Friend WithEvents TextBox8 As
[Link]
Friend WithEvents Label9 As
[Link]
Friend WithEvents TextBox9 As
[Link]
Friend WithEvents TextBox10 As
[Link]
<[Link]()
> Private Sub InitializeComponent()
Dim resources As
[Link] = New
[Link](GetType(
frm_ReturnBook))
Me.GroupBox1 = New
[Link]
Me.TextBox9 = New
[Link]
Me.Label9 = New
[Link]
Me.TextBox8 = New
[Link]
Library Management System 2024-25

Me.Label8 = New
[Link]
Me.TextBox7 = New
[Link]
Me.Label7 = New
[Link]
Me.TextBox6 = New
[Link]
Me.TextBox5 = New
[Link]
Me.Label6 = New
[Link]
Me.Label5 = New
[Link]
Me.TextBox4 = New
[Link]
Me.TextBox3 = New
[Link]
Me.TextBox2 = New
[Link]
Me.TextBox1 = New
[Link]
Me.Label4 = New
[Link]
Me.Label3 = New
[Link]
Me.Label2 = New
[Link]
Me.Label1 = New
[Link]
Me.Button1 = New
[Link]
Me.Button2 = New
[Link]
Library Management System 2024-25

Me.Button3 = New
[Link]
Me.TextBox10 = New
[Link]
[Link]()
[Link]()
'
'GroupBox1
'
[Link](Me.TextBox9)
[Link](Me.Label9)
[Link](Me.TextBox8)
[Link](Me.Label8)
[Link](Me.TextBox7)
[Link](Me.Label7)
[Link](Me.TextBox6)
[Link](Me.TextBox5)
[Link](Me.Label6)
[Link](Me.Label5)
[Link](Me.TextBox4)
[Link](Me.TextBox3)
[Link](Me.TextBox2)
[Link](Me.TextBox1)
[Link](Me.Label4)
Library Management System 2024-25

[Link](Me.Label3)
[Link](Me.Label2)
[Link](Me.Label1)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
[Link] = New
[Link](672, 192)
[Link] = 0
[Link] = False
[Link] = "Issue
Details"
'

'TextBox9
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](248, 160)
[Link] = "TextBox9"
[Link] = New
[Link](232, 20)
[Link] = 17
[Link] = ""
'
'Label9
'
[Link] = New
[Link](136, 160)
Library Management System 2024-25

[Link] = "Label9"
[Link] = 16
[Link] = "Issue Type"
'
'TextBox8
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 120)
[Link] = "TextBox8"
[Link] = New
[Link](72, 20)
[Link] = 15
[Link] = ""
'
'Label8
'
[Link] = New
[Link](344, 120)
[Link] = "Label8"
[Link] = 14
[Link] = "Due Date"
'
'TextBox7
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 88)
[Link] = "TextBox7"
Library Management System 2024-25

[Link] = New
[Link](72, 20)
[Link] = 13
[Link] = ""
'
'Label7
'
[Link] = New
[Link](344, 88)
[Link] = "Label7"
[Link] = 12
[Link] = "Issue Date"
'
'TextBox6
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 56)
[Link] = "TextBox6"
[Link] = New
[Link](208, 20)
[Link] = 11
[Link] = ""
'
'TextBox5
'

[Link] =
[Link]
[Link] = False
Library Management System 2024-25

[Link] = New
[Link](456, 24)
[Link] = "TextBox5"
[Link] = New
[Link](104, 20)
[Link] = 10
[Link] = ""
'
'Label6
'
[Link] = New
[Link](344, 56)
[Link] = "Label6"
[Link] = 9
[Link] = "Reader Name"
'
'Label5
'
[Link] = New
[Link](344, 24)
[Link] = "Label5"
[Link] = 8
[Link] = "Reader No"
'
'TextBox4
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 120)
[Link] = "TextBox4"
[Link] = New
[Link](208, 20)
Library Management System 2024-25

[Link] = 7
[Link] = ""
'
'TextBox3
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 88)
[Link] = "TextBox3"
[Link] = New
[Link](208, 20)
[Link] = 6
[Link] = ""
'
'TextBox2
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 56)
[Link] = "TextBox2"
[Link] = New
[Link](136, 20)
[Link] = 5
[Link] = ""
'
'TextBox1
'
[Link] = New
[Link](120, 24)
[Link] = "TextBox1"
Library Management System 2024-25

[Link] = New
[Link](72, 20)
[Link] = 4
[Link] = ""
'
'Label4
'
[Link] = New
[Link](8, 120)

[Link] = "Label4"
[Link] = 3
[Link] = "Author Name"
'
'Label3
'
[Link] = New
[Link](8, 88)
[Link] = "Label3"
[Link] = 2
[Link] = "BookName"
'
'Label2
'
[Link] = New
[Link](8, 56)
[Link] = "Label2"
[Link] = 1
[Link] = "Book SN"
'
'Label1
'
Library Management System 2024-25

[Link] = New
[Link](8, 24)
[Link] = "Label1"
[Link] = 0
[Link] = "Issue #"
'
'Button1
'
[Link] = New
[Link](120, 208)
[Link] = "Button1"
[Link] = New
[Link](168, 23)
[Link] = 1
[Link] = "Return"
'
'Button2
'
[Link] = New
[Link](288, 208)
[Link] = "Button2"
[Link] = New
[Link](144, 23)
[Link] = 2
[Link] = "Ignore"
'
'Button3
'
[Link] = New
[Link](432, 208)
[Link] = "Button3"
[Link] = New
[Link](144, 23)
[Link] = 3
Library Management System 2024-25

[Link] = "Close"
'
'TextBox10
'
[Link] = New
[Link](712, 104)
[Link] = "TextBox10"
[Link] = 4
[Link] = ""
[Link] = False
'
'frm_ReturnBook
'
[Link] = New
[Link](5, 13)
[Link] = New
[Link](690, 240)
[Link](Me.TextBox10)
[Link](Me.Button3)

[Link](Me.Button2)
[Link](Me.Button1)
[Link](Me.GroupBox1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False
[Link] = False
[Link] = "frm_ReturnBook"
Library Management System 2024-25

[Link] =
[Link]
nterScreen
[Link] = "Return Book "
[Link](False)
[Link](False)

End Sub

#End Region

Private Sub frm_ReturnBook_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub

Function clearFields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function

Function loadIssuedBook()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
Library Management System 2024-25

WHERE IssueNo ='" & [Link] & "'",

MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("SN")
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("ReaderNo")
[Link] =
MyReader("ReaderName")
[Link] =
MyReader("idate")
[Link] =
MyReader("ddate")
[Link] =
MyReader("itype")
End While
[Link]()
[Link]()
[Link]()
End Function

Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
WHERE IssueNo ='" & [Link] & "'",
MyConnection)
Library Management System 2024-25

Try

Private Sub frm_login_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If [Link] = ""
Then
MsgBox("Please Enter
a User Name!", [Link],
"LIS VERSION 1.00")
Else
If [Link] <>
"" Then

[Link]()
End If
End If
Case Else
End Select
End Sub
Library Management System 2024-25

Private Sub TextBox2_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If [Link] = ""
Then
MsgBox("Please Enter
Your Password!", [Link],
"LIS VERSION 1.00")
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Case Else
End Select
End Sub
Function verifyUser() As Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Login WHERE
UserID = '" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("pass")
End While
[Link]()
[Link]()
[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
Function getStatus() As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Login WHERE
UserID = '" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
UserStatus =
MyReader("Status")
End While
[Link]()
[Link]()
[Link]()
Return UserStatus
End Function
Library Management System 2024-25

Function display_MsgBox(ByVal myMsg

As String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function checkIfSuperAdmin() As
Boolean

If [Link] = "SuperAdmin"
And [Link] = "admin" Then
Return True

Else
If [Link] <>
"SuperAdmin" Or [Link] <> "admin"
Then
Return False
End If
End If
End Function
Function getUserRights()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM SystemUsers
WHERE UserID = '" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
AdminStatus =
MyReader("AdminRights")
Library Management System 2024-25

LibStatus =
MyReader("LibRights")
ReaderStatus =
MyReader("ReaderRights")
End While
[Link]()
[Link]()
[Link]()
End Function
Function updatestatus()
Dim okstatus As String
okstatus = "locked"
[Link]()
MyCommand = New
OleDbCommand("UPDATE Login SET Status ='"
& okstatus & "' WHERE UserID = '" &
[Link] & "'", MyConnection)
Try
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim main_frm = New
frm_MainInterface
getUserRights()
Library Management System 2024-25

If verifyUser() = True And

getStatus() = "ok" And passTry < 3 Then
If AdminStatus <> "Yes" Then
main_frm.disadminlogin()
End If
If LibStatus <> "Yes" Then
main_frm.disliblogin()
End If
If ReaderStatus <> "Yes" Then
main_frm.disreaderlogin()
End If
clearfields()
main_frm.show()
Else
If verifyUser() = False And
passTry < 3 And getStatus() = "ok" Then
passTry = passTry + 1
display_MsgBox("Please
Enter the correct password!")
Else
If passTry = 3 Then
updatestatus()
passTry = 0
display_MsgBox("Your
User Has Been Locked After Three Un-
Authorised Attempts! Please Contact Your
System Administrator")
Else

If getStatus() <> "ok" Then

display_MsgBox("Your User Is Locked
Please Contact the administrator")
Library Management System 2024-25

End If
End If
End If
End If
End Sub
Function clearfields()
[Link] = ""
[Link] = ""
End Function

End Class
Library Management System 2024-25

Main Form Code

Public Class frm_MainInterface

Inherits [Link]
Dim myFrm

Private Sub MenuItem11_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_AddBookType
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem12_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_AddNewBookCode
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem13_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_AddNewCharges
[Link] = Me
Library Management System 2024-25

[Link]()
End Sub

Private Sub MenuItem15_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_UnlockUser
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem16_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_ChangePassword
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem27_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_ChangePassword
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem18_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
Library Management System 2024-25

myFrm = New frm_BackUp

[Link] = Me
[Link]()
End Sub
Private Sub MenuItem17_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_UserMaintenance
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem21_Click(ByVal sender

As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_AddNewBook
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem22_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_FindBook
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem26_Click(ByVal

sender As [Link], ByVal e As
Library Management System 2024-25

[Link]) Handles
[Link]
myFrm = New frm_EditBookDetails
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem24_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_ReaderDetails
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem25_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_EditReaderDetails
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem29_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New
frm_MakeNewReaderNumber
[Link] = Me
[Link]()
End Sub
Library Management System 2024-25

Private Sub MenuItem23_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_TodayIssueView
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem30_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_IssueReturnBook
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem31_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_ReturnBook
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem6_Click(ByVal sender

As [Link], ByVal e As
[Link]) Handles [Link]
myFrm = New frm_FindBook
Library Management System 2024-25

[Link] = Me
[Link]()
End Sub

Private Sub MenuItem5_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
myFrm = New view_Userlisting
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem32_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New view_BookCodes
[Link] = Me
[Link]()
End Sub

Private Sub MenuItem33_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New view_BookType
[Link] = Me
[Link]()
End Sub

Private Sub
frm_MainInterface_Load(ByVal sender As
[Link], ByVal e As
[Link]) Handles [Link]
Library Management System 2024-25

End Sub

Private Sub MenuItem19_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
End Sub
Public Function disAdminLogin()
[Link] = False
End Function
Public Function EnableAdminLogin()
[Link] = True
End Function

Public Function disLibLogin()

[Link] = False
End Function

Public Function enableLibLogin()

[Link] = True
End Function

Public Function disReaderLogin()

[Link] = False
End Function

Public Function enableReaderLogin()

[Link] = True
End Function
Private Sub MenuItem36_Click(ByVal
sender As [Link], ByVal e As
Library Management System 2024-25

[Link]) Handles
[Link]
myFrm = New frm_help
[Link] = Me

[Link]()
End Sub

Private Sub MenuItem37_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles
[Link]
myFrm = New frm_about
[Link] = Me
[Link]()
End Sub
End Class
Private components As
[Link]

'NOTE: The following procedure is

required by the Windows Form Designer
'It can be modified using the Windows
Form Designer.
'Do not modify it using the code
editor.
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Label1 As
[Link]
Friend WithEvents Label2 As
[Link]
Library Management System 2024-25

Friend WithEvents Label3 As

[Link]
Friend WithEvents Label4 As
[Link]
Friend WithEvents Button1 As
[Link]
Friend WithEvents Button2 As
[Link]
Friend WithEvents Button3 As
[Link]
Friend WithEvents TextBox1 As
[Link]
Friend WithEvents TextBox2 As
[Link]
Friend WithEvents TextBox3 As
[Link]
Friend WithEvents TextBox4 As
[Link]
Friend WithEvents Label5 As
[Link]
Friend WithEvents Label6 As
[Link]
Friend WithEvents TextBox5 As
[Link]
Friend WithEvents TextBox6 As
[Link]

Friend WithEvents Label7 As

[Link]
Friend WithEvents TextBox7 As
[Link]
Friend WithEvents Label8 As
[Link]
Library Management System 2024-25

Friend WithEvents TextBox8 As

[Link]
Friend WithEvents Label9 As
[Link]
Friend WithEvents TextBox9 As
[Link]
Friend WithEvents TextBox10 As
[Link]
<[Link]()
> Private Sub InitializeComponent()
Dim resources As
[Link] = New
[Link](GetType(
frm_ReturnBook))
Me.GroupBox1 = New
[Link]
Me.TextBox9 = New
[Link]
Me.Label9 = New
[Link]
Me.TextBox8 = New
[Link]
Me.Label8 = New
[Link]
Me.TextBox7 = New
[Link]
Me.Label7 = New
[Link]
Me.TextBox6 = New
[Link]
Me.TextBox5 = New
[Link]
Library Management System 2024-25

Me.Label6 = New
[Link]
Me.Label5 = New
[Link]
Me.TextBox4 = New
[Link]
Me.TextBox3 = New
[Link]
Me.TextBox2 = New
[Link]
Me.TextBox1 = New
[Link]
Me.Label4 = New
[Link]
Me.Label3 = New
[Link]
Me.Label2 = New
[Link]
Me.Label1 = New
[Link]
Me.Button1 = New
[Link]
Me.Button2 = New
[Link]
Me.Button3 = New
[Link]
Me.TextBox10 = New
[Link]
[Link]()
[Link]()
'
'GroupBox1
'
Library Management System 2024-25

[Link](Me.TextBox9)
[Link](Me.Label9)
[Link](Me.TextBox8)
[Link](Me.Label8)
[Link](Me.TextBox7)
[Link](Me.Label7)
[Link](Me.TextBox6)
[Link](Me.TextBox5)
[Link](Me.Label6)
[Link](Me.Label5)
[Link](Me.TextBox4)
[Link](Me.TextBox3)
[Link](Me.TextBox2)
[Link](Me.TextBox1)
[Link](Me.Label4)
[Link](Me.Label3)
[Link](Me.Label2)
[Link](Me.Label1)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
Library Management System 2024-25

[Link] = New
[Link](672, 192)
[Link] = 0
[Link] = False
[Link] = "Issue
Details"
'

'TextBox9
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](248, 160)
[Link] = "TextBox9"
[Link] = New
[Link](232, 20)
[Link] = 17
[Link] = ""
'
'Label9
'
[Link] = New
[Link](136, 160)
[Link] = "Label9"
[Link] = 16
[Link] = "Issue Type"
'
'TextBox8
'
[Link] =
[Link]
Library Management System 2024-25

[Link] = False
[Link] = New
[Link](456, 120)
[Link] = "TextBox8"
[Link] = New
[Link](72, 20)
[Link] = 15
[Link] = ""
'
'Label8
'
[Link] = New
[Link](344, 120)
[Link] = "Label8"
[Link] = 14
[Link] = "Due Date"
'
'TextBox7
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 88)
[Link] = "TextBox7"
[Link] = New
[Link](72, 20)
[Link] = 13
[Link] = ""
'
'Label7
'
[Link] = New
[Link](344, 88)
Library Management System 2024-25

[Link] = "Label7"
[Link] = 12
[Link] = "Issue Date"
'
'TextBox6
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 56)
[Link] = "TextBox6"
[Link] = New
[Link](208, 20)
[Link] = 11
[Link] = ""
'
'TextBox5
'

[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 24)
[Link] = "TextBox5"
[Link] = New
[Link](104, 20)
[Link] = 10
[Link] = ""
'
'Label6
'
Library Management System 2024-25

[Link] = New
[Link](344, 56)
[Link] = "Label6"
[Link] = 9
[Link] = "Reader Name"
'
'Label5
'
[Link] = New
[Link](344, 24)
[Link] = "Label5"
[Link] = 8
[Link] = "Reader No"
'
'TextBox4
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 120)
[Link] = "TextBox4"
[Link] = New
[Link](208, 20)
[Link] = 7
[Link] = ""
'
'TextBox3
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 88)
Library Management System 2024-25

[Link] = "TextBox3"
[Link] = New
[Link](208, 20)
[Link] = 6
[Link] = ""
'
'TextBox2
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 56)
[Link] = "TextBox2"
[Link] = New
[Link](136, 20)
[Link] = 5
[Link] = ""
'
'TextBox1
'
[Link] = New
[Link](120, 24)
[Link] = "TextBox1"
[Link] = New
[Link](72, 20)
[Link] = 4
[Link] = ""
'
'Label4
'
[Link] = New
[Link](8, 120)
Library Management System 2024-25

[Link] = "Label4"
[Link] = 3
[Link] = "Author Name"
'
'Label3
'
[Link] = New
[Link](8, 88)
[Link] = "Label3"
[Link] = 2
[Link] = "BookName"
'
'Label2
'
[Link] = New
[Link](8, 56)
[Link] = "Label2"
[Link] = 1
[Link] = "Book SN"
'
'Label1
'
[Link] = New
[Link](8, 24)
[Link] = "Label1"
[Link] = 0
[Link] = "Issue #"
'
'Button1
'
[Link] = New
[Link](120, 208)
[Link] = "Button1"
Library Management System 2024-25

[Link] = New
[Link](168, 23)
[Link] = 1
[Link] = "Return"
'
'Button2
'
[Link] = New
[Link](288, 208)
[Link] = "Button2"
[Link] = New
[Link](144, 23)
[Link] = 2
[Link] = "Ignore"
'
'Button3
'
[Link] = New
[Link](432, 208)
[Link] = "Button3"
[Link] = New
[Link](144, 23)
[Link] = 3
[Link] = "Close"
'
'TextBox10
'
[Link] = New
[Link](712, 104)
[Link] = "TextBox10"
[Link] = 4
[Link] = ""
[Link] = False
'
Library Management System 2024-25

'frm_ReturnBook
'
[Link] = New
[Link](5, 13)
[Link] = New
[Link](690, 240)
[Link](Me.TextBox10)
[Link](Me.Button3)

[Link](Me.Button2)
[Link](Me.Button1)
[Link](Me.GroupBox1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False
[Link] = False
[Link] = "frm_ReturnBook"
[Link] =
[Link]
nterScreen
[Link] = "Return Book "
[Link](False)
[Link](False)

End Sub

#End Region
Library Management System 2024-25

Private Sub frm_ReturnBook_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub

Function clearFields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function

Function loadIssuedBook()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
WHERE IssueNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("SN")
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
Library Management System 2024-25

[Link] =
MyReader("ReaderNo")
[Link] =
MyReader("ReaderName")
[Link] =
MyReader("idate")
[Link] =
MyReader("ddate")
[Link] =
MyReader("itype")
End While
[Link]()
[Link]()
[Link]()
End Function

Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
WHERE IssueNo ='" & [Link] & "'",
MyConnection)
Try

Add New Book Code

Library Management System 2024-25

Imports [Link]
Imports [Link]
Imports [Link]

Public Class frm_AddNewBook

Inherits [Link]
Dim picPath As String = "C:\pictures\
[Link]"
Dim bookPicture As
[Link]
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date

Private Sub frm_AddNewBook_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
add_IntoCombobox1()
add_IntoCombobox2()
End Sub
Private Sub Button1_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
MsgBox("The Image should not be
greater than " +
[Link] + " X" +
Library Management System 2024-25

[Link],
[Link], "LIS Version
1.00")
[Link] = "Picture
Files|*.jpg|*.bmp|*.gif"
[Link]()
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As
[Link], ByVal e As
[Link])
Handles [Link]
Dim width As Integer = 100
Dim height As Integer = 100
bookPicture =
[Link](OpenFileDi
[Link])
picPath =
[Link]
[Link] = bookPicture
'[Link] =
[Link]
End Sub
Private Sub Button4_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox1)
= False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkIfAlreadyExists() = True Then
display_MsgBox("The SN Already Exists in
the Database!")
Else

If checkTextbox(TextBox1) = True And

checkIfAlreadyExists() = False Then
[Link]()
End If
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox2)
= False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkTextbox(TextBox2) = True Then
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox3)
= False Then
display_MsgBox("Please Fill in the
field")
Library Management System 2024-25

Else
If
checkTextbox(TextBox3) = True Then
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub
ComboboxBox1_KeyPress(ByVal sender As
Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If
checkCombobox(ComboBox1) = False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkCombobox(ComboBox1) = True Then
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode
WHERE Code ='" & [Link] & "'",
MyConnection)
Library Management System 2024-25

MyReader =
[Link]()
While
[Link]
[Link]
= MyReader("Desc1")
End While
[Link]()

[Link]()
[Link]()
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub
ComboboxBox2_KeyPress(ByVal sender As
Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If
checkCombobox(ComboBox2) = False Then
Library Management System 2024-25

display_MsgBox("Please Fill in the

field")
Else
If
checkCombobox(ComboBox2) = True Then
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType
WHERE Type ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While
[Link]
[Link]
= MyReader("Desc")
End While
[Link]()
[Link]()
[Link]()
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox6_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Library Management System 2024-25

Dim strChar As String

strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox6)
= False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkTextbox(TextBox6) = True Then
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox7_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox7)
= False Then
Library Management System 2024-25

display_MsgBox("Please Fill in the

field")

Else
If
checkTextbox(TextBox7) = True Then
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox8_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox8)
= False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkTextbox(TextBox8) = True Then
[Link]()
End If
Library Management System 2024-25

End If
Case Else
'dotnothing
End Select
End Sub
Private Sub TextBox9_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox9)
= False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkTextbox(TextBox9) = True Then
Dim myText As
String = [Link]
[Link] =
processDate(myText)
[Link]()
End If
End If
Case Else
End Select
End Sub
Library Management System 2024-25

Private Sub
ComboboxBox3_KeyPress(ByVal sender As
Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If
checkCombobox(ComboBox3) = False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkCombobox(ComboBox3) = True Then
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub

Private Sub TextBox10_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If
checkTextbox(TextBox10) = False Then
display_MsgBox("Please Fill in the
field")
Else
If
checkTextbox(TextBox10) = True Then
Dim myText2 =
[Link]
[Link] =
processDate(myText2)
[Link]()
End If
End If
Case Else
'dotnothing
End Select
End Sub
Function checkCombobox(ByVal t As
ComboBox) As Boolean
If [Link] = "" Then
Return False
Else
Return True
End If
End Function
Function clearFields()
[Link] = ""
[Link] = ""
[Link] = ""
Library Management System 2024-25

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function
Function checkTextbox(ByVal t As
TextBox) As Boolean
If [Link] = "" Then
Return False
Else
Return True
End If
End Function
Function display_MsgBox(ByVal myMsg
As String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function add_IntoCombobox1()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode",
MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link](MyReader("Code"))
End While
[Link]()
[Link]()
[Link]()

End Function
Function add_IntoCombobox2()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link](MyReader("Type"))
End While

[Link]()
[Link]()
[Link]()
End Function
Private Sub
ComboBox2_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType
WHERE Type ='" & [Link] & "'",
MyConnection)
Library Management System 2024-25

MyReader =
[Link]()
While [Link]
[Link] =
MyReader("Desc")
End While
[Link]()
[Link]()
[Link]()
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode
WHERE Code ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("Desc1")
End While
[Link]()
[Link]()
[Link]()
End Sub
Function add_BookIntoDatabase()
[Link]()
MyCommand = New
OleDbCommand("INSERT INTO BookDetails
Library Management System 2024-25

VALUES('" & [Link] & "','" &

[Link] & "', '" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"','" & [Link] & "','" & picPath
& "','" & [Link] & "')",
MyConnection)
[Link]()
[Link]()
[Link]()
End Function
Function processDate(ByVal dateString
As String) As String
Dim strLength As Integer =
[Link]
Dim tempString1 As String
Dim tempString2 As String
Dim tempString22 As String
Dim tempString3 As String

If strLength > 8 Or strLength < 8

Then
display_MsgBox("Cannot
Process Format Of String")
Else
'part one day
tempString1 =
[Link](0).ToString +
[Link](1).ToString
'part two month
Library Management System 2024-25

tempString22 =
[Link](2).ToString +
[Link](3).ToString
tempString2 =
get_Month(tempString22)
tempString3 =
[Link](4).ToString +
[Link](5).ToString +
[Link](6).ToString +
[Link](7).ToString
'returning string
Return tempString1 + "-" +
tempString2 + "-" + tempString3
End If

End Function
Function get_Month(ByVal oMonth As
String) As String
Dim monthString As String = "NIL"

Select Case oMonth

Case "01"
monthString = "JAN"
Case "02"
monthString = "FEB"
Case "03"
monthString = "MAR"
Case "04"
monthString = "APR"
Case "05"
monthString = "MAY"

Case "06"
monthString = "JUN"
Library Management System 2024-25

Case "07"
monthString = "JUL"
Case "08"
monthString = "AUG"
Case "09"
monthString = "SEP"
Case "10"
monthString = "OCT"
Case "11"
monthString = "NOV"
Case "12"
monthString = "DEC"
Case Else
'do nothing
End Select
Return monthString
End Function
Function display_MsgBox(ByVal myMsg As
String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function add_IntoCombobox1()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link](MyReader("Code"))
End While
Library Management System 2024-25

[Link]()
[Link]()
[Link]()

End Function
Function add_IntoCombobox2()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link](MyReader("Type"))
End While

[Link]()
[Link]()
[Link]()
End Function
Private Sub
ComboBox2_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType
WHERE Type ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
Library Management System 2024-25

While [Link]
[Link] =
MyReader("Desc")
End While
[Link]()
[Link]()
[Link]()
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode
WHERE Code ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("Desc1")
End While
[Link]()
[Link]()
[Link]()
End Sub
Function add_BookIntoDatabase()
[Link]()
MyCommand = New
OleDbCommand("INSERT INTO BookDetails
VALUES('" & [Link] & "','" &
[Link] & "', '" & [Link] &
Library Management System 2024-25

"','" & [Link] & "','" &

[Link] & "','" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"','" & [Link] & "','" & picPath
& "','" & [Link] & "')",
MyConnection)
[Link]()
[Link]()
[Link]()
End Function
Function processDate(ByVal dateString
As String) As String
Dim strLength As Integer =
[Link]
Dim tempString1 As String

Private Sub Button3_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
clearFields()
[Link]()
Beep()
End Sub
Function checkSpecificFields() As
Boolean
If [Link] = "" Or
[Link] = "" Or [Link] = ""
Or [Link] = "" Or [Link] =
"" Or [Link] = "" Or [Link]
= "" Or [Link] = "" Then
Return False
Library Management System 2024-25

Else
Return True
End If
End Function
Private Sub Button2_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]

If checkSpecificFields() = False Then

display_MsgBox("Please fill
in the specific field to add the book")
Else
If checkSpecificFields() =
True Then
add_BookIntoDatabase()
Beep()
clearFields()
[Link]()
display_MsgBox("The book
has been added into the database")
End If
End If
End Sub
Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
WHERE SN ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("SN")
End While
[Link]()
[Link]()
[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
End Class

Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
WHERE SN ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("SN")
End While
[Link]()
[Link]()
Library Management System 2024-25

[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
End Class

Edit Book Detail Code

Imports [Link]
Imports [Link]
Imports [Link]
Public Class frm_EditBookDetails
Inherits [Link]
Dim picPath As String = "C:\pictures\
[Link]"
Dim bookPicture As
[Link]
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Library Management System 2024-25

Dim dbset As New DataSet

Dim dataA
Dim currentDate As Date
Dim myDirPath As String =
[Link]
Dim bookcode1 As String
Dim booktype1 As String

Private Sub Button3_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub Button4_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
MsgBox("The Image should not be
greater than " +
[Link] + " X" +
[Link],
[Link], "LIS Version
1.00")
[Link] = "Picture
Files|*.jpg|*.bmp|*.gif"
[Link]()
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As
[Link], ByVal e As
[Link])
Handles [Link]
Dim width As Integer = 100
Dim height As Integer = 100
Library Management System 2024-25

bookPicture =
[Link](OpenFileDi
[Link])
picPath =
[Link]
[Link] = bookPicture
'[Link] =
[Link]
End Sub
Function display_MsgBox(ByVal myMsg
As String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function processDate(ByVal dateString
As String) As String
Dim strLength As Integer =
[Link]
Dim tempString1 As String
Dim tempString2 As String
Dim tempString22 As String
Dim tempString3 As String

If strLength > 8 Or strLength < 8

Then
display_MsgBox("Cannot
Process Format Of String")
Else
'part one day
tempString1 =
[Link](0).ToString +
[Link](1).ToString
'part two month
Library Management System 2024-25

tempString22 =
[Link](2).ToString +
[Link](3).ToString
tempString2 =
get_Month(tempString22)
tempString3 =
[Link](4).ToString +
[Link](5).ToString +
[Link](6).ToString +
[Link](7).ToString
'returning string
Return tempString1 + "-" +
tempString2 + "-" + tempString3
End If

End Function
Function get_Month(ByVal oMonth As
String) As String
Dim monthString As String = "NIL"

Select Case oMonth

Case "01"
monthString = "JAN"
Case "02"
monthString = "FEB"
Case "03"
monthString = "MAR"
Case "04"
monthString = "APR"
Case "05"
monthString = "MAY"
Library Management System 2024-25

Case "06"
monthString = "JUN"
Case "07"
monthString = "JUL"
Case "08"
monthString = "AUG"
Case "09"
monthString = "SEP"
Case "10"
monthString = "OCT"
Case "11"
monthString = "NOV"
Case "12"
monthString = "DEC"
Case Else
'do nothing
End Select
Return monthString
End Function
Function updateBook()
[Link]()
Try
MyCommand = New
OleDbCommand("UPDATE BookDetails SET
BookName ='" & [Link] &
"',AuthorName = '" & [Link] &
"',BookType = '" & [Link] &
"',BookCode = '" & [Link] & "',
BookDes = '" & [Link] & "',
PublishDate = '" & [Link] & "',
LibDate = '" & [Link] & "',Picture
='" & picPath & "' WHERE SN = '" &
[Link] & "'", MyConnection)
[Link]()
Library Management System 2024-25

Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Function loadBookDetails()
[Link]()

MyCommand = New OleDbCommand("SELECT *

FROM BookDetails WHERE SN ='" &
[Link] & "'", MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("BookDes")
[Link] =
MyReader("Publishdate")
[Link] =
MyReader("Libdate")
bookcode1 =
MyReader("BookCode")
booktype1 =
MyReader("BookType")
End While
[Link]()
[Link]()
[Link]()
Library Management System 2024-25

loadCodeDes()
loadTypeDes()

End Function
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
setPicture()
loadBookDetails()
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Library Management System 2024-25

Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If

End If
Case Else
Library Management System 2024-25

'nothing
End Select
End Sub
Private Sub combobox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()

End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub combobox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
Library Management System 2024-25

If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox6_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Library Management System 2024-25

Private Sub TextBox7_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
Dim temp As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else

If [Link] <> "" Then

temp =
processDate([Link])
[Link] =
temp
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox8_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
Dim temp As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
temp =
processDate([Link])
[Link] =
temp
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Function loadBookType()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link](MyReader("Type"))
End While
[Link]()
[Link]()
[Link]()
End Function
Library Management System 2024-25

Function loadBookCode()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link](MyReader("Code"))
End While
[Link]()
[Link]()
[Link]()
End Function
Private Sub
frm_EditBookDetails_Load(ByVal sender As
[Link], ByVal e As
[Link]) Handles [Link]
loadBookCode()
loadBookType()
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType
WHERE Type ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
Library Management System 2024-25

While [Link]

[Link] = MyReader("Desc")
End While
[Link]()
[Link]()
[Link]()
End Sub
Private Sub
ComboBox2_SelectedIndexChanged(ByVal
sender As [Link], ByVal e As
[Link]) Handles
[Link]
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode
WHERE Code ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("Desc1")
End While
[Link]()
[Link]()
[Link]()
End Sub
Function getPicPath() As String
Dim myTempString As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
Library Management System 2024-25

WHERE SN ='" & [Link] & "'",

MyConnection)
MyReader =
[Link]()
While [Link]
myTempString =
MyReader("Picture")
End While
[Link]()
[Link]()
[Link]()
Return myTempString
End Function
Function setPicture()
Try
bookPicture =
[Link](getPicPath
())
Catch c As Exception
MsgBox("Error:" + [Link],
[Link], "LIS VERSION
1.00")
End Try
[Link] = bookPicture
End Function
Function loadCodeDes()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookType
WHERE Type ='" & booktype1 & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("Desc")
End While
[Link]()
[Link]()
[Link]()
End Function
Function loadTypeDes()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookCode
WHERE Code ='" & bookcode1 & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("Desc1")
End While
[Link]()

[Link]()
[Link]()
End Function
Function clearfields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Library Management System 2024-25

[Link] = ""
[Link] = ""
End Function
Private Sub Button2_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
clearfields()
[Link]()
End Sub
Private Sub Button1_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
updateBook()
display_MsgBox("Book Details
Updated!")
clearfields()
End Sub
End Class

Register New Reader Code

Imports [Link]
Imports [Link]
Imports [Link]

Public Class frm_ReaderDetails

Inherits [Link]
Library Management System 2024-25

Dim MyConnection As New

OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date
Dim IssueTag As String
Dim IssueTagUsed As String

Private Sub Button3_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub

Function clearFields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function

Function display_MSG(ByVal myMsg As

String)
Library Management System 2024-25

MsgBox(myMsg,
[Link], "LIS VERSION
1.00")
End Function

Private Sub TextBox1_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox1)
= False Then
display_MSG("Please
fill in the field!")
Else
If
checkIfValidNumber() = False Then
display_MSG("Invalid Reader Number Please
Enter Again!")
Else
If
checkTextbox(TextBox1) = True Then
[Link]()
End If
End If
End If
Case Else
'do nothing
Library Management System 2024-25

End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox2)
= False Then
display_MSG("Please
fill in the field!")
Else
If
checkTextbox(TextBox2) = True Then
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox3)
= False Then
display_MSG("Please
fill in the field!")
Else
If
checkTextbox(TextBox3) = True Then
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub

Private Sub TextBox4_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox4)
= False Then
display_MSG("Please
fill in the field!")
Else
Library Management System 2024-25

If
checkTextbox(TextBox4) = True Then
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub

Private Sub TextBox5_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
If checkTextbox(TextBox5)
= False Then
display_MSG("Please
fill in the field!")
Else
If
checkTextbox(TextBox5) = True Then
[Link]()
End If
End If
Case Else
'do nothing
Library Management System 2024-25

End Select
End Sub

Private Sub TextBox6_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox7_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Library Management System 2024-25

Function checkTextbox(ByVal t As
TextBox)
If [Link] = "" Then
Return False
Else
Return True
End If
End Function
Private Sub Button2_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
clearFields()
[Link]()
End Sub
Function RegisterReader()
IssueTag = "3"
IssueTagUsed = "0"
[Link]()
Try
MyCommand = New
OleDbCommand("INSERT INTO ReaderDetails
VALUES('" & [Link] & "','" &
[Link] & "', '" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"','" & [Link] & "','" & IssueTag
& "','" & IssueTagUsed & "')",
MyConnection)
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
Library Management System 2024-25

[Link]()
[Link]()
End Function

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
If checkIfAlreadyExists() = True
Then
display_MSG("Reader No.
Already Used please use another reader
number")
ElseIf checkIfAlreadyExists() =
False Then
RegisterReader()
clearFields()
MsgBox("New Reader
Registered", [Link],
"LIS VERSION 1.00")
End If
End Sub

Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("ReaderNo")
Library Management System 2024-25

End While
[Link]()
[Link]()
[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function

Function checkIfValidNumber() As
Boolean
Dim myBool As Boolean = False
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderNo ",
MyConnection)
MyReader =
[Link]()
While [Link]
If [Link] =
MyReader("RNo") Then
myBool = True
End If
End While
[Link]()
[Link]()
[Link]()
Return myBool
Library Management System 2024-25

End Function
End Class

Edit Reader Detail Code

Imports [Link]
Imports [Link]
Imports [Link]
Public Class frm_EditReaderDetails
Inherits [Link]
Library Management System 2024-25

Dim MyConnection As New

OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date

Private Sub
frm_EditReaderDetails_Load(ByVal sender
As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Function loadReader()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("ReaderName")
[Link] =
MyReader("ReaderAdd1")
[Link] =
MyReader("ReaderAdd2")
Library Management System 2024-25

[Link] =
MyReader("ReaderPhone")
[Link] =
MyReader("ReaderCell")
[Link] =
MyReader("ReaderEmail")
End While
[Link]()
[Link]()
[Link]()
End Function
Function UpdateReaderDetails()
[Link]()
MyCommand = New
OleDbCommand("UPDATE ReaderDetails SET
ReaderName ='" & [Link] &
"',ReaderAdd1 = '" & [Link] &
"',ReaderAdd2 = '" & [Link] &
"',ReaderPhone = '" & [Link] & "',
ReaderCell = '" & [Link] & "',
ReaderEmail = '" & [Link] & "'
WHERE ReaderNo = '" & [Link] &
"'", MyConnection)
Try
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
Library Management System 2024-25

[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If checkIfAlreadyExists()
= False Or [Link] = "" Then
display_MsgBox("Please Enter A Valid
Reader Number")

Else
If
checkIfAlreadyExists() = True Then
loadReader()
enablefields()
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub

Private Sub TextBox2_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Library Management System 2024-25

Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox4_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
Library Management System 2024-25

End Sub
Private Sub TextBox5_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox6_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link]()

Case Else
'do nothing
End Select
End Sub
Private Sub TextBox7_KeyPress(ByVal
sender As Object, ByVal e As
Library Management System 2024-25

[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub

Function enablefields()
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
End Function
Function disablefields()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Function
Function display_MsgBox(ByVal myMsg
As String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
Library Management System 2024-25

End Function
Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("ReaderNo")
End While
[Link]()
[Link]()
[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
Private Sub Button3_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Library Management System 2024-25

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
UpdateReaderDetails()
clearfields()
disablefields()

[Link]()
display_MsgBox("Reader Details
Updated")
End Sub
Function clearfields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function

Private Sub Button2_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
clearfields()
[Link]()
End Sub
End Class
Library Management System 2024-25

Issue Book Code

Imports [Link]
Imports [Link]
Imports [Link]
Public Class frm_IssueReturnBook
Inherits [Link]
Dim myFrm
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim myduedate As String

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim myR As String = [Link]
Try
myFrm = New frm_ReaderHistory
[Link] = [Link]
Library Management System 2024-25

[Link]()
Catch c As Exception
MsgBox("Error Message: " +
[Link], [Link], "LIS
VERSION 1.00")
End Try
End Sub
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If
checkIfBookAlreadyExists() = False Then
MsgBox("Book Number
Does Not Exist in the Database",
[Link], "LIS VERSION
1.00")
Else
If
checkIfBookAlreadyExists() = True Then
loadBookDetails()
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub
Library Management System 2024-25

Private Sub TextBox6_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If
checkIfReaderAlreadyExists() = False Then
MsgBox("Please Enter
a Valid Reader Number!",
[Link], "LIS VERSION
1.00")
Else
If
checkIfReaderAlreadyExists() = True Then

loadReaderDetails()
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub
Function loadBookDetails()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
WHERE SN = '" & [Link] & "'",
MyConnection)
Library Management System 2024-25

Try
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("ISDN")
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("BookStatus")
End While
Catch c As Exception
MsgBox("Error Message:" +
[Link], [Link], "LIS
VERSION 1.00")
End Try

[Link]()
[Link]()
[Link]()
End Function
Function loadReaderDetails()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo = '" & [Link] &
"'", MyConnection)
Try
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("ReaderName")
[Link] =
MyReader("ReaderAdd1")
[Link] =
MyReader("IssueTag")
[Link] =
MyReader("IssueTagUsed")
End While
Catch c As Exception
MsgBox("Error Message:
Exception Thrown Please Enter a Valid
Reader Number" + [Link],
[Link], "LIS VERSION 1.00")
End Try
[Link]()
[Link]()
[Link]()
End Function
Function checkIfBookAlreadyExists()
As Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
WHERE SN ='" & [Link] & "'",
MyConnection)
Try
MyReader =
[Link]()

While [Link]
[Link] =
MyReader("SN")
End While
Library Management System 2024-25

[Link]()
[Link]()
[Link]()

Catch c As Exception
MsgBox("Error Message:" +
[Link], [Link], "LIS
VERSION 1.00")
End Try
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
Function checkIfReaderAlreadyExists()
As Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo ='" & [Link] & "'",
MyConnection)
Try
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("ReaderNo")
End While
Library Management System 2024-25

[Link]()
[Link]()
[Link]()
Catch c As Exception
MsgBox("Error Message:" +
[Link], [Link], "LIS
VERSION 1.00")
End Try
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function
Function loadCharges()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Charges",
MyConnection)
Try
MyReader =
[Link]()
While [Link]
[Link](MyReader("ChargeNo")
+ "." + MyReader("Desc") + ":$ " +
MyReader("Amount"))
End While
Catch c As Exception
Library Management System 2024-25

MsgBox("Error Message:" +
[Link], [Link], "LIS
VERSION 1.00")
End Try
[Link]()
[Link]()
[Link]()
End Function
Private Sub
frm_IssueReturnBook_Load(ByVal sender As
[Link], ByVal e As
[Link]) Handles [Link]
loadCharges()
End Sub
Private Sub Button4_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Function clearFields()
[Link] = ""

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Library Management System 2024-25

[Link] = ""
[Link] = ""
End Function
Private Sub Button3_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
clearFields()
[Link]()
End Sub
Private Sub TextBox11_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strchar As String
strchar = [Link]
Select Case strchar
Case
ChrW([Link])
getDate()
[Link]()
Case Else
End Select
End Sub
Function getDate()
[Link] =
[Link]
End Function
Function getDueDate(ByVal myOption As
String) As String
Dim dueDate As Date
Select Case myOption
Case "[Link] Night:$ 3"
Return
[Link](1).ToShortDateString
Library Management System 2024-25

Case "[Link] Night:$ 18"

Return
[Link](7).ToShortDateString
Case "[Link] Night:$ 50"
Return
[Link](14).ToShortDateString
End Select
End Function
Private Sub ComboBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
[Link] =
getDueDate([Link])
[Link]()
Case Else
End Select
End Sub
Function issueBook()
[Link]()
MyCommand = New
OleDbCommand("INSERT INTO IssueBook
VALUES('" & [Link] & "','" &
[Link] & "', '" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"','" & [Link] & "','" &
[Link] & "','" & [Link] &
"')", MyConnection)
Library Management System 2024-25

[Link]()

Private Sub Button4_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
MsgBox("The Image should not be
greater than " +
[Link] + " X" +
[Link],
[Link], "LIS Version
1.00")
[Link] = "Picture
Files|*.jpg|*.bmp|*.gif"
[Link]()
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As
[Link], ByVal e As
[Link])
Handles [Link]
Dim width As Integer = 100
Dim height As Integer = 100
bookPicture =
[Link](OpenFileDi
[Link])
picPath =
[Link]
[Link] = bookPicture
'[Link] =
[Link]
End Sub
Function display_MsgBox(ByVal myMsg
As String)
Library Management System 2024-25

MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function processDate(ByVal dateString
As String) As String
Dim strLength As Integer =
[Link]
Dim tempString1 As String
Dim tempString2 As String
Dim tempString22 As String
Dim tempString3 As String

If strLength > 8 Or strLength < 8

Then
display_MsgBox("Cannot
Process Format Of String")
Else
'part one day
tempString1 =
[Link](0).ToString +
[Link](1).ToString
'part two month

tempString22 =
[Link](2).ToString +
[Link](3).ToString
tempString2 =
get_Month(tempString22)
tempString3 =
[Link](4).ToString +
[Link](5).ToString +
Library Management System 2024-25

[Link](6).ToString +
[Link](7).ToString
'returning string
Return tempString1 + "-" +
tempString2 + "-" + tempString3
End If

End Function
Function get_Month(ByVal oMonth As
String) As String
Dim monthString As String = "NIL"

Select Case oMonth

Case "01"
monthString = "JAN"
Case "02"
monthString = "FEB"
Case "03"
monthString = "MAR"
Case "04"
monthString = "APR"
Case "05"
monthString = "MAY"

Case "06"
monthString = "JUN"
Case "07"
monthString = "JUL"
Case "08"
monthString = "AUG"
Case "09"
monthString = "SEP"
Case "10"
monthString = "OCT"
Library Management System 2024-25

Case "11"
monthString = "NOV"
Case "12"
monthString = "DEC"
Case Else
'do nothing
End Select
Return monthString
End Function
Function updateBook()
[Link]()
Try
MyCommand = New
OleDbCommand("UPDATE BookDetails SET
BookName ='" & [Link] &
"',AuthorName = '" & [Link] &
"',BookType = '" & [Link] &
"',BookCode = '" & [Link] & "',
BookDes = '" & [Link] & "',
PublishDate = '" & [Link] & "',
LibDate = '" & [Link] & "',Picture
='" & picPath & "' WHERE SN = '" &
[Link] & "'", MyConnection)
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Function loadBookDetails()
[Link]()
Library Management System 2024-25

MyCommand = New OleDbCommand("SELECT *

FROM BookDetails WHERE SN ='" &
[Link] & "'", MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("BookDes")
[Link] =
MyReader("Publishdate")
[Link] =
MyReader("Libdate")
bookcode1 =
MyReader("BookCode")
booktype1 =
MyReader("BookType")
End While
[Link]()
[Link]()
[Link]()
loadCodeDes()
loadTypeDes()

End Function
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
setPicture()
loadBookDetails()
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Library Management System 2024-25

Case Else
'nothing
End Select

[Link]()
[Link]()
End Function
Function addIntoReaderHistory()
[Link]()
MyCommand = New
OleDbCommand("INSERT INTO ReaderHistory
VALUES('" & [Link] & "','" &
[Link] & "', '" & [Link] &
"','" & [Link] & "','" &
[Link] & "')", MyConnection)
[Link]()
[Link]()
[Link]()
End Function
Function updateReaderIssueTag()
Dim CurrentIssueTag As String
Dim CurrentIssueTagUsed As String
Dim itag As Integer
Dim itagused As Integer
CurrentIssueTag =
getCurrentReaderIssueTag()
CurrentIssueTagUsed =
getCurrentReaderTagUsed()
itag = CInt(CurrentIssueTag)
itagused =
CInt(CurrentIssueTagUsed)

itag = itag - 1
itagused = itagused + 1
Library Management System 2024-25

CurrentIssueTag = [Link]
CurrentIssueTagUsed =
[Link]

[Link]()
MyCommand = New
OleDbCommand("UPDATE ReaderDetails SET
IssueTag ='" & CurrentIssueTag &
"',IssueTagUsed = '" &
CurrentIssueTagUsed & "' WHERE ReaderNo =
'" & [Link] & "'", MyConnection)
Try
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Function updateBookStatus()
Dim myStatus As String
myStatus = "ISSUED"
[Link]()
MyCommand = New
OleDbCommand("UPDATE BookDetails SET
BookStatus ='" & myStatus & "' WHERE SN =
'" & [Link] & "'", MyConnection)
Try
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
Library Management System 2024-25

[Link]()
End Function
Function getCurrentReaderIssueTag()
As String
Dim myTag As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo = '" & [Link] &
"'", MyConnection)
MyReader =
[Link]()
While [Link]
myTag = MyReader("IssueTag")
End While

[Link]()
[Link]()
[Link]()
Return myTag
End Function
Function getCurrentReaderTagUsed() As
String
Dim myTag As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo = '" & [Link] &
"'", MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

myTag =
MyReader("IssueTagUsed")
End While
[Link]()
[Link]()
[Link]()
Return myTag
End Function
Private Sub Button2_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
If checkStatus() = False Then
MsgBox("Book Already Issued,
Please Choose Another Book!",
[Link], "LIS VERSION
1.00")
Else
If checkIssueTag() = False
Then
MsgBox("Reader Issue Tag
Used!", [Link], "LIS
VERSION 1.00")
Else
If checkStatus() = True
And checkIssueTag() = True Then
Try
issueBook()
updateReaderIssueTag()
updateBookStatus()
addIntoReaderHistory()
Library Management System 2024-25

MsgBox("Book Has
Been Issued", [Link],
"LIS VERSION 1.00")
Catch c As Exception
MsgBox([Link])
End Try
End If
End If
End If
End Sub
Function checkStatus() As Boolean
If getBookStatus() = "OK" Then
Return True
Else
If getBookStatus() = "ISSUED"
Then
Return False
End If
End If
End Function
Function getBookStatus() As String
Dim oStatus As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM BookDetails
WHERE SN ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
oStatus =
MyReader("BookStatus")
End While
Library Management System 2024-25

[Link]()

[Link]()
[Link]()
Return oStatus
End Function
Function checkIssueTag() As Boolean
Dim oTag As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
WHERE ReaderNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
oTag =
MyReader("IssueTagUsed")
End While
[Link]()
[Link]()
[Link]()

If oTag = "3" Then

Return False
Else
If oTag <> "3" Then
Return True
End If
End If
End Function
Library Management System 2024-25

Private Sub Button5_Click(ByVal sender

As [Link], ByVal e As
[Link]) Handles [Link]
Dim frm
frm = New frm_ReceiptViewer
[Link]()
End Sub
End Class

Return Book Code

Private Sub Button4_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
MsgBox("The Image should not be
greater than " +
[Link] + " X" +
[Link],
[Link], "LIS Version
1.00")
[Link] = "Picture
Files|*.jpg|*.bmp|*.gif"
[Link]()
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As
[Link], ByVal e As
[Link])
Handles [Link]
Dim width As Integer = 100
Dim height As Integer = 100
Library Management System 2024-25

bookPicture =
[Link](OpenFileDi
[Link])
picPath =
[Link]
[Link] = bookPicture
'[Link] =
[Link]
End Sub
Function display_MsgBox(ByVal myMsg
As String)
MsgBox(myMsg,
[Link], "LIS Version
1.00")
End Function
Function processDate(ByVal dateString
As String) As String
Dim strLength As Integer =
[Link]
Dim tempString1 As String
Dim tempString2 As String
Dim tempString22 As String
Dim tempString3 As String

If strLength > 8 Or strLength < 8

Then
display_MsgBox("Cannot
Process Format Of String")
Else
'part one day
tempString1 =
[Link](0).ToString +
[Link](1).ToString
'part two month
Library Management System 2024-25

tempString22 =
[Link](2).ToString +
[Link](3).ToString
tempString2 =
get_Month(tempString22)
tempString3 =
[Link](4).ToString +
[Link](5).ToString +
[Link](6).ToString +
[Link](7).ToString
'returning string
Return tempString1 + "-" +
tempString2 + "-" + tempString3
End If

End Function
Function get_Month(ByVal oMonth As
String) As String
Dim monthString As String = "NIL"

Select Case oMonth

Case "01"
monthString = "JAN"
Case "02"
monthString = "FEB"
Case "03"
monthString = "MAR"
Case "04"
monthString = "APR"
Case "05"
monthString = "MAY"
Library Management System 2024-25

Case "06"
monthString = "JUN"
Case "07"
monthString = "JUL"
Case "08"
monthString = "AUG"
Case "09"
monthString = "SEP"
Case "10"
monthString = "OCT"
Case "11"
monthString = "NOV"
Case "12"
monthString = "DEC"
Case Else
'do nothing
End Select
Return monthString
End Function
Function updateBook()
[Link]()
Try
MyCommand = New
OleDbCommand("UPDATE BookDetails SET
BookName ='" & [Link] &
"',AuthorName = '" & [Link] &
"',BookType = '" & [Link] &
"',BookCode = '" & [Link] & "',
BookDes = '" & [Link] & "',
PublishDate = '" & [Link] & "',
LibDate = '" & [Link] & "',Picture
='" & picPath & "' WHERE SN = '" &
[Link] & "'", MyConnection)
[Link]()
Library Management System 2024-25

Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Function loadBookDetails()
[Link]()

MyCommand = New OleDbCommand("SELECT *

FROM BookDetails WHERE SN ='" &
[Link] & "'", MyConnection)
MyReader =
[Link]()
While [Link]
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("BookDes")
[Link] =
MyReader("Publishdate")
[Link] =
MyReader("Libdate")
bookcode1 =
MyReader("BookCode")
booktype1 =
MyReader("BookType")
End While
[Link]()
[Link]()
[Link]()
Library Management System 2024-25

loadCodeDes()
loadTypeDes()

End Function
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
setPicture()
loadBookDetails()
[Link]()
End If
End If
Case Else
'nothing
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Library Management System 2024-25

Case
ChrW([Link])
If [Link] = ""
Then
Else
If [Link] <>
"" Then
[Link]()
End If
End If
Case Else
'nothing
End Select

Imports [Link]
Imports [Link]
Imports [Link]
Public Class frm_ReturnBook
Inherits [Link]
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date
#Region " Windows Form Designer generated
code "
Library Management System 2024-25

Public Sub New()

[Link]()

'This call is required by the

Windows Form Designer.
InitializeComponent()

'Add any initialization after the

InitializeComponent() call

End Sub

'Form overrides dispose to clean up

the component list.
Protected Overloads Overrides Sub
Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is
Nothing) Then
[Link]()
End If
End If
[Link](disposing)
End Sub

'Required by the Windows Form

Designer
Private components As
[Link]

'NOTE: The following procedure is

required by the Windows Form Designer
'It can be modified using the Windows
Form Designer.
Library Management System 2024-25

'Do not modify it using the code

editor.
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Label1 As
[Link]
Friend WithEvents Label2 As
[Link]
Friend WithEvents Label3 As
[Link]
Friend WithEvents Label4 As
[Link]
Friend WithEvents Button1 As
[Link]
Friend WithEvents Button2 As
[Link]
Friend WithEvents Button3 As
[Link]
Friend WithEvents TextBox1 As
[Link]
Friend WithEvents TextBox2 As
[Link]
Friend WithEvents TextBox3 As
[Link]
Friend WithEvents TextBox4 As
[Link]
Friend WithEvents Label5 As
[Link]
Friend WithEvents Label6 As
[Link]
Friend WithEvents TextBox5 As
[Link]
Friend WithEvents TextBox6 As
[Link]
Library Management System 2024-25

Friend WithEvents Label7 As

[Link]
Friend WithEvents TextBox7 As
[Link]
Friend WithEvents Label8 As
[Link]
Friend WithEvents TextBox8 As
[Link]
Friend WithEvents Label9 As
[Link]
Friend WithEvents TextBox9 As
[Link]
Friend WithEvents TextBox10 As
[Link]
<[Link]()
> Private Sub InitializeComponent()
Dim resources As
[Link] = New
[Link](GetType(
frm_ReturnBook))
Me.GroupBox1 = New
[Link]
Me.TextBox9 = New
[Link]
Me.Label9 = New
[Link]
Me.TextBox8 = New
[Link]
Me.Label8 = New
[Link]
Library Management System 2024-25

Me.TextBox7 = New
[Link]
Me.Label7 = New
[Link]
Me.TextBox6 = New
[Link]
Me.TextBox5 = New
[Link]
Me.Label6 = New
[Link]
Me.Label5 = New
[Link]
Me.TextBox4 = New
[Link]
Me.TextBox3 = New
[Link]
Me.TextBox2 = New
[Link]
Me.TextBox1 = New
[Link]
Me.Label4 = New
[Link]
Me.Label3 = New
[Link]
Me.Label2 = New
[Link]
Me.Label1 = New
[Link]
Me.Button1 = New
[Link]
Me.Button2 = New
[Link]
Me.Button3 = New
[Link]
Library Management System 2024-25

Me.TextBox10 = New
[Link]
[Link]()
[Link]()
'
'GroupBox1
'
[Link](Me.TextBox9)
[Link](Me.Label9)
[Link](Me.TextBox8)
[Link](Me.Label8)
[Link](Me.TextBox7)
[Link](Me.Label7)
[Link](Me.TextBox6)
[Link](Me.TextBox5)
[Link](Me.Label6)
[Link](Me.Label5)
[Link](Me.TextBox4)
[Link](Me.TextBox3)
[Link](Me.TextBox2)
[Link](Me.TextBox1)
[Link](Me.Label4)
[Link](Me.Label3)
Library Management System 2024-25

[Link](Me.Label2)
[Link](Me.Label1)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
[Link] = New
[Link](672, 192)
[Link] = 0
[Link] = False
[Link] = "Issue
Details"
'

'TextBox9
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](248, 160)
[Link] = "TextBox9"
[Link] = New
[Link](232, 20)
[Link] = 17
[Link] = ""
'
'Label9
'
[Link] = New
[Link](136, 160)
[Link] = "Label9"
[Link] = 16
Library Management System 2024-25

[Link] = "Issue Type"

'
'TextBox8
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 120)
[Link] = "TextBox8"
[Link] = New
[Link](72, 20)
[Link] = 15
[Link] = ""
'
'Label8
'
[Link] = New
[Link](344, 120)
[Link] = "Label8"
[Link] = 14
[Link] = "Due Date"
'
'TextBox7
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 88)
[Link] = "TextBox7"
[Link] = New
[Link](72, 20)
[Link] = 13
Library Management System 2024-25

[Link] = ""
'
'Label7
'
[Link] = New
[Link](344, 88)
[Link] = "Label7"
[Link] = 12
[Link] = "Issue Date"
'
'TextBox6
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 56)
[Link] = "TextBox6"
[Link] = New
[Link](208, 20)
[Link] = 11
[Link] = ""
'
'TextBox5
'

[Link] =
[Link]
[Link] = False
[Link] = New
[Link](456, 24)
[Link] = "TextBox5"
Library Management System 2024-25

[Link] = New
[Link](104, 20)
[Link] = 10
[Link] = ""
'
'Label6
'
[Link] = New
[Link](344, 56)
[Link] = "Label6"
[Link] = 9
[Link] = "Reader Name"
'
'Label5
'
[Link] = New
[Link](344, 24)
[Link] = "Label5"
[Link] = 8
[Link] = "Reader No"
'
'TextBox4
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 120)
[Link] = "TextBox4"
[Link] = New
[Link](208, 20)
[Link] = 7
[Link] = ""
'
Library Management System 2024-25

'TextBox3
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 88)
[Link] = "TextBox3"
[Link] = New
[Link](208, 20)
[Link] = 6
[Link] = ""
'
'TextBox2
'
[Link] =
[Link]
[Link] = False
[Link] = New
[Link](120, 56)
[Link] = "TextBox2"
[Link] = New
[Link](136, 20)
[Link] = 5
[Link] = ""
'
'TextBox1
'
[Link] = New
[Link](120, 24)
[Link] = "TextBox1"
[Link] = New
[Link](72, 20)
[Link] = 4
Library Management System 2024-25

[Link] = ""
'
'Label4
'
[Link] = New
[Link](8, 120)

[Link] = "Label4"
[Link] = 3
[Link] = "Author Name"
'
'Label3
'
[Link] = New
[Link](8, 88)
[Link] = "Label3"
[Link] = 2
[Link] = "BookName"
'
'Label2
'
[Link] = New
[Link](8, 56)
[Link] = "Label2"
[Link] = 1
[Link] = "Book SN"
'
'Label1
'
[Link] = New
[Link](8, 24)
[Link] = "Label1"
[Link] = 0
Library Management System 2024-25

[Link] = "Issue #"

'
'Button1
'
[Link] = New
[Link](120, 208)
[Link] = "Button1"
[Link] = New
[Link](168, 23)
[Link] = 1
[Link] = "Return"
'
'Button2
'
[Link] = New
[Link](288, 208)
[Link] = "Button2"
[Link] = New
[Link](144, 23)
[Link] = 2
[Link] = "Ignore"
'
'Button3
'
[Link] = New
[Link](432, 208)
[Link] = "Button3"
[Link] = New
[Link](144, 23)
[Link] = 3
[Link] = "Close"
'
'TextBox10
'
Library Management System 2024-25

[Link] = New
[Link](712, 104)
[Link] = "TextBox10"
[Link] = 4
[Link] = ""
[Link] = False
'
'frm_ReturnBook
'
[Link] = New
[Link](5, 13)
[Link] = New
[Link](690, 240)
[Link](Me.TextBox10)
[Link](Me.Button3)

[Link](Me.Button2)
[Link](Me.Button1)
[Link](Me.GroupBox1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False
[Link] = False
[Link] = "frm_ReturnBook"
[Link] =
[Link]
nterScreen
[Link] = "Return Book "
[Link](False)
Library Management System 2024-25

[Link](False)

End Sub

#End Region

Private Sub frm_ReturnBook_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]

End Sub

Function clearFields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function

Function loadIssuedBook()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
WHERE IssueNo ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("SN")
[Link] =
MyReader("BookName")
[Link] =
MyReader("AuthorName")
[Link] =
MyReader("ReaderNo")
[Link] =
MyReader("ReaderName")
[Link] =
MyReader("idate")
[Link] =
MyReader("ddate")
[Link] =
MyReader("itype")
End While
[Link]()
[Link]()
[Link]()
End Function

Function checkIfAlreadyExists() As
Boolean
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM IssueBook
WHERE IssueNo ='" & [Link] & "'",
MyConnection)
Try
MyReader =
[Link]()
While [Link]
Library Management System 2024-25

[Link] =
MyReader("IssueNo")

End While
Catch c As Exception
MsgBox([Link])
End Try

[Link]()
[Link]()
[Link]()
If [Link] = [Link]
Then
Return True
Else
If [Link] <>
[Link] Then
Return False
End If
End If
End Function

Function updateReaderIssueTag()
Dim CurrentIssueTag As String
Dim CurrentIssueTagUsed As String
Dim itag As Integer
Dim itagused As Integer
CurrentIssueTag =
getCurrentReaderIssueTag()
CurrentIssueTagUsed =
getCurrentReaderTagUsed()
itag = CInt(CurrentIssueTag)
Library Management System 2024-25

itagused =
CInt(CurrentIssueTagUsed)

itag = itag + 1
itagused = itagused - 1

CurrentIssueTag = [Link]
CurrentIssueTagUsed =
[Link]

[Link]()
MyCommand = New
OleDbCommand("UPDATE ReaderDetails SET
IssueTag ='" & CurrentIssueTag &
"',IssueTagUsed = '" &
CurrentIssueTagUsed & "' WHERE ReaderNo =
'" & [Link] & "'", MyConnection)
Try
[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function
Function updateBookStatus()
Dim myStatus As String
myStatus = "OK"
[Link]()
MyCommand = New
OleDbCommand("UPDATE BookDetails SET
BookStatus ='" & myStatus & "' WHERE SN =
'" & [Link] & "'", MyConnection)
Try
Library Management System 2024-25

[Link]()
Catch c As Exception
MsgBox([Link])
End Try
[Link]()
[Link]()
End Function

Function getCurrentReaderIssueTag()
As String
Dim myTag As String
[Link]()

MyCommand = New OleDbCommand("SELECT *

FROM ReaderDetails WHERE ReaderNo = '" &
[Link] & "'", MyConnection)
MyReader =
[Link]()
While [Link]
myTag = MyReader("IssueTag")
End While
[Link]()
[Link]()
[Link]()
Return myTag
End Function
Function getCurrentReaderTagUsed() As
String
Dim myTag As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM ReaderDetails
Library Management System 2024-25

WHERE ReaderNo = '" & [Link] &

"'", MyConnection)
MyReader =
[Link]()
While [Link]
myTag =
MyReader("IssueTagUsed")
End While
[Link]()
[Link]()
[Link]()
Return myTag
End Function

Private Sub Button3_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub

Private Sub Button2_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
clearFields()
End Sub

Private Sub TextBox1_KeyPress(ByVal

sender As Object, ByVal e As
[Link])
Handles [Link]
Library Management System 2024-25

Dim strChar As String

strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If [Link] = "" Or
checkIfAlreadyExists() = False Then
MsgBox("Please Enter
A Valid Issue Number",
[Link], "LIS VERSION
1.00")
Else
If [Link] <>
"" And checkIfAlreadyExists() = True Then
loadIssuedBook()
[Link]()
End If
End If
Case Else
End Select
End Sub

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
updateReaderIssueTag()

updateBookStatus()
MsgBox("Book Returned
Successfully", [Link],
"LIS VERSION 1.00")
clearFields()
End Sub
Library Management System 2024-25

End Class

Change Password Code

Imports [Link]
Imports [Link]
Imports [Link]
Public Class frm_ChangePassword
Inherits [Link]
Dim status As String
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Library Management System 2024-25

Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date
Dim tempID As String
Dim tempStatus As String

#Region " Windows Form Designer generated

code "

Public Sub New()

[Link]()

'This call is required by the

Windows Form Designer.
InitializeComponent()

'Add any initialization after the

InitializeComponent() call

End Sub

'Form overrides dispose to clean up

the component list.
Protected Overloads Overrides Sub
Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is
Nothing) Then
[Link]()
Library Management System 2024-25

End If
End If
[Link](disposing)
End Sub

'Required by the Windows Form

Designer
Private components As
[Link]

'Do not modify it using the code

editor.
Friend WithEvents Label1 As
[Link]
Friend WithEvents Label2 As
[Link]
Friend WithEvents Label3 As
[Link]
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Button3 As
[Link]
Friend WithEvents TextBox1 As
[Link]
Friend WithEvents TextBox2 As
[Link]
Friend WithEvents TextBox3 As
[Link]
Friend WithEvents Label4 As
[Link]
Friend WithEvents TextBox4 As
[Link]
Library Management System 2024-25

<[Link]()
> Private Sub InitializeComponent()
Dim resources As
[Link] = New
[Link](GetType(
frm_ChangePassword))
Me.Label1 = New
[Link]

Me.Label2 = New
[Link]
Me.Label3 = New
[Link]
Me.GroupBox1 = New
[Link]
Me.TextBox4 = New
[Link]
Me.Label4 = New
[Link]
Me.TextBox3 = New
[Link]
Me.TextBox2 = New
[Link]
Me.TextBox1 = New
[Link]
Me.Button1 = New
[Link]
Me.Button2 = New
[Link]
Me.Button3 = New
[Link]
[Link]()
Library Management System 2024-25

[Link]()
'
'Label1
'
[Link] = New
[Link](24, 24)
[Link] = "Label1"
[Link] = 0
[Link] = "User ID"
'
'Label2
'
[Link] = New
[Link](24, 56)
[Link] = "Label2"
[Link] = 1
[Link] = "Old Password"
'
'Label3
'
[Link] = New
[Link](24, 120)
[Link] = "Label3"
[Link] = 2
[Link] = "Confirm
Password"
'
'GroupBox1
'
[Link](Me.TextBox4)
[Link](Me.Label4)
[Link](Me.TextBox3)
Library Management System 2024-25

[Link](Me.TextBox2)
[Link](Me.TextBox1)
[Link](Me.Label1)
[Link](Me.Label2)
[Link](Me.Label3)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
[Link] = New
[Link](288, 152)
[Link] = 3
[Link] = False
[Link] = "User
Details"
'
'TextBox4
'
[Link] = New
[Link](136, 120)
[Link] = "TextBox4"
[Link] = New
[Link](136, 20)
[Link] = 7
[Link] = ""
'
'Label4
'
[Link] = New
[Link](24, 88)
Library Management System 2024-25

[Link] = "Label4"
[Link] = 6
[Link] = "New Password"
'
'TextBox3
'
[Link] = New
[Link](136, 88)
[Link] = "TextBox3"
[Link] = New
[Link](136, 20)
[Link] = 5
[Link] = ""
'
'TextBox2
'
[Link] = New
[Link](136, 56)
[Link] = "TextBox2"
[Link] = New
[Link](136, 20)
[Link] = 4
[Link] = ""
'
'TextBox1
'
[Link] = New
[Link](136, 24)
[Link] = "TextBox1"
[Link] = New
[Link](136, 20)
[Link] = 3
[Link] = ""
'
Library Management System 2024-25

'Button1
'
[Link] = New
[Link](24, 168)
[Link] = "Button1"
[Link] = New
[Link](88, 32)
[Link] = 4
[Link] = "Change
Password"
'
'Button2
'
[Link] = New
[Link](112, 168)
[Link] = "Button2"
[Link] = New
[Link](88, 32)
[Link] = 5
[Link] = "Ignore"
'
'Button3
'
[Link] = New
[Link](200, 168)
[Link] = "Button3"
[Link] = New
[Link](80, 32)
[Link] = 6
[Link] = "Exit"
'
'frm_ChangePassword
'
Library Management System 2024-25

[Link] = New
[Link](5, 13)
[Link] = New
[Link](298, 208)
[Link](Me.Button3)
[Link](Me.Button2)
[Link](Me.Button1)
[Link](Me.GroupBox1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False

[Link] = False
[Link] = "frm_ChangePassword"
[Link] =
[Link]
nterScreen
[Link] = "Change Password"
[Link](False)
[Link](False)

End Sub

#End Region
Private Sub Button3_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Library Management System 2024-25

Function clearfields()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Function
Function checkTextbox(ByVal t As
TextBox) As Boolean
If [Link] = "" Then
Return (False)
Else
Return True
End If
End Function
Function displayMsg(ByVal myMsgText
As String)
MsgBox(myMsgText,
[Link], "LIS Version
1.00")
End Function
Function updatePassword()
Dim temp1 As String =
[Link]
Dim temp2 As String =
[Link]
[Link]()
Try
MyCommand = New
OleDbCommand("UPDATE Login SET pass = '"
& temp1 & "' WHERE UserID = '" & temp2 &
"'", MyConnection)
[Link]()
Catch c As Exception
MsgBox([Link])
Library Management System 2024-25

End Try
[Link]()
[Link]()
End Function
Function checkUserID() As Boolean
Dim tempID As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Login WHERE
UserID ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
tempID = MyReader("UserID")
End While
[Link]()
[Link]()
[Link]()

If tempID = [Link] Then

Return True
Else
Return False
End If
End Function

Function checkConfirmPassword() As
Boolean
If [Link] = [Link]
Then
Return True
Else
Library Management System 2024-25

If [Link] <>
[Link] Then
Return False
End If
End If
End Function
Function checkpassword() As Boolean
Dim tempPass As String
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Login WHERE
UserID ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
tempPass = MyReader("pass")
End While
[Link]()
[Link]()
[Link]()

If tempPass = [Link] Then

Return True
Else
Return False
End If
End Function
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Library Management System 2024-25

Select Case strChar

Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox2_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
[Link]()
Case Else
'do nothing
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]

Select Case strChar

Case
ChrW([Link])
Library Management System 2024-25

[Link]()
Case Else
'do nothing
End Select

End Sub
Private Sub TextBox4_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar As String
strChar = [Link]
Select Case strChar
Case
ChrW([Link])
If checkConfirmPassword()
= False Then
displayMsg("The
Confirm Password does not match the New
Password, Please Enter Again")
ElseIf
checkConfirmPassword() = True Then
[Link]()
End If
Case Else
'do nothing
End Select
End Sub
Private Sub Button2_Click(ByVal
sender As [Link], ByVal e As
[Link]) Handles [Link]
clearfields()
End Sub
Library Management System 2024-25

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
If checkpassword() = False Or
checkUserID() = False Then
displayMsg("The Password does
not match the User ID or the User ID Does
nto exist")
[Link]()
Else
If checkpassword() = True And
checkUserID() = True Then
updatePassword()
clearfields()
displayMsg("Your Password
Has Been Updated")
End If
End If
End Sub
Function loadUser()
[Link]()
MyCommand = New
OleDbCommand("SELECT * FROM Login WHERE
UserID ='" & [Link] & "'",
MyConnection)
MyReader =
[Link]()
While [Link]
tempID = MyReader("UserID")
tempStatus =
MyReader("Status")
End While
[Link]()
[Link]()
Library Management System 2024-25

[Link]()
End Function
End Class

Find Book Code

Imports [Link]
Imports [Link]
Imports [Link]

Public Class frm_FindBook

Inherits [Link]
Dim MyConnection As New
OleDbConnection("Provider=[Link].O
LEDB.4.0;Data Source=C:\[Link]")
Dim MyCommand
Dim e As Exception
Dim MyCommand2
Dim MyReader As OleDbDataReader
Dim MyReader2 As OleDbDataReader
Dim dbset As New DataSet
Dim dataA
Dim currentDate As Date
#Region " Windows Form Designer generated
code "
Library Management System 2024-25

Public Sub New()

[Link]()

'This call is required by the

Windows Form Designer.
InitializeComponent()

'Add any initialization after the

InitializeComponent() call

End Sub

Protected Overloads Overrides Sub

Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is
Nothing) Then
[Link]()
End If
End If
[Link](disposing)
End Sub

Private components As
[Link]

Friend WithEvents TextBox1 As

[Link]
Friend WithEvents CheckBox1 As
[Link]
Friend WithEvents CheckBox2 As
[Link]
Library Management System 2024-25

Friend WithEvents CheckBox3 As

[Link]
Friend WithEvents DataGrid1 As
[Link]
Friend WithEvents GroupBox1 As
[Link]
Friend WithEvents Button1 As
[Link]
Friend WithEvents Button2 As
[Link]
Friend WithEvents Button3 As
[Link]
<[Link]()
> Private Sub InitializeComponent()
Dim resources As
[Link] = New
[Link](GetType(
frm_FindBook))
Me.TextBox1 = New
[Link]
Me.CheckBox1 = New
[Link]
Me.CheckBox2 = New
[Link]
Me.CheckBox3 = New
[Link]
Me.DataGrid1 = New
[Link]
Me.GroupBox1 = New
[Link]
Me.Button1 = New
[Link]
Library Management System 2024-25

Me.Button2 = New
[Link]

Me.Button3 = New
[Link]
CType(Me.DataGrid1,
[Link])
.BeginInit()
[Link]()
[Link]()
'
'TextBox1
'
[Link] = New
[Link](120, 56)
[Link] = "TextBox1"
[Link] = New
[Link](360, 20)
[Link] = 0
[Link] = ""
'
'CheckBox1
'
[Link] = New
[Link](104, 24)
[Link] = "CheckBox1"
[Link] = 1
[Link] = "Find By
Name"
'
'CheckBox2
'
Library Management System 2024-25

[Link] = New
[Link](248, 24)
[Link] = "CheckBox2"
[Link] = 2
[Link] = "Find By
ISDN"
'
'CheckBox3
'
[Link] = New
[Link](392, 24)
[Link] = "CheckBox3"
[Link] = 3
[Link] = "Find By
Author"
'
'DataGrid1
'
[Link] = ""
[Link] =
[Link]
[Link] = New
[Link](8, 104)
[Link] = "DataGrid1"
[Link] = New
[Link](592, 152)
[Link] = 4
'
'GroupBox1
'
[Link](Me.TextBox1)
[Link](Me.CheckBox2)
Library Management System 2024-25

[Link](Me.CheckBox3)
[Link](Me.CheckBox1)
[Link] = New
[Link](8, 8)
[Link] = "GroupBox1"
[Link] = New
[Link](592, 88)
[Link] = 5
[Link] = False
[Link] = "Search
Criteria"
'
'Button1
'
[Link] = New
[Link](88, 272)
[Link] = "Button1"
[Link] = New
[Link](128, 23)
[Link] = 4

[Link] = "Search"
'
'Button2
'
[Link] = New
[Link](224, 272)
[Link] = "Button2"
[Link] = New
[Link](144, 23)
[Link] = 6
[Link] = "Ignore"
Library Management System 2024-25

'
'Button3
'
[Link] = New
[Link](376, 272)
[Link] = "Button3"
[Link] = New
[Link](136, 23)
[Link] = 7
[Link] = "Exit"
'
'frm_FindBook
'
[Link] = New
[Link](5, 13)
[Link] = New
[Link](610, 304)
[Link](Me.Button3)
[Link](Me.Button2)
[Link](Me.GroupBox1)
[Link](Me.DataGrid1)
[Link](Me.Button1)
[Link] =
[Link]
dSingle
[Link] =
CType([Link]("$[Link]"),
[Link])
[Link] = False
[Link] = False
[Link] = "frm_FindBook"
[Link] =
[Link]
nterScreen
Library Management System 2024-25

[Link] = "Find Book From

Library"
CType(Me.DataGrid1,
[Link])
.EndInit()
[Link](False)
[Link](False)

End Sub

#End Region

Private Sub frm_FindBook_Load(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] =
[Link]
[Link] =
[Link]
[Link]()
End Sub

Private Sub Button3_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Function findByName()
[Link]()
[Link]()
MyCommand = New
OleDbCommand("Select * from BookDetails
WHERE BookName LIKE '" & [Link] &
"%'", MyConnection)
Library Management System 2024-25

dataA = New
OleDbDataAdapter(MyCommand)
[Link](dbset, "BookDetails")
[Link] = True
[Link] =
[Link]("BookDetails")
MyReader =
[Link]()

While [Link]

End While
[Link]()
[Link]()
[Link]()

End Function

Function findByAuthorName()
[Link]()
[Link]()
MyCommand = New
OleDbCommand("Select * from BookDetails
WHERE AuthorName LIKE '" & [Link]
& "%'", MyConnection)
dataA = New
OleDbDataAdapter(MyCommand)
[Link](dbset, "BookDetails")
[Link] = True
[Link] =
[Link]("BookDetails")
Library Management System 2024-25

MyReader =
[Link]()
While [Link]

End While
[Link]()
[Link]()
[Link]()
End Function

Function findByISDN()
[Link]()
[Link]()
MyCommand = New
OleDbCommand("Select * from BookDetails
WHERE ISDN = '" & [Link] & "'",
MyConnection)
dataA = New
OleDbDataAdapter(MyCommand)
[Link](dbset, "BookDetails")
[Link] = True
[Link] =
[Link]("BookDetails")
MyReader =
[Link]()
While [Link]

End While
[Link]()
[Link]()
[Link]()
End Function
Function clearFields()
[Link] = ""
Library Management System 2024-25

[Link]()
[Link]()
[Link]()
End Function

Private Sub Button1_Click(ByVal

sender As [Link], ByVal e As
[Link]) Handles [Link]

If [Link] = True Then

findByName()
Else
If [Link] = True
Then
findByAuthorName()
Else
If [Link] =
True Then
findByISDN()

Else
End If
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal
sender As Object, ByVal e As
[Link])
Handles [Link]
Dim strChar
strChar = [Link]
Select Case strChar
Library Management System 2024-25

Case
ChrW([Link])
If checkTextbox(TextBox1)
= False Then
MsgBox("Please Enter
the Value to search",
[Link], "LIS Version
1.00")
Else
If
checkTextbox(TextBox1) = True Then
[Link]()
End If
End If
Case Else
'do nothing
End Select
End Sub
Function checkTextbox(ByVal t As
TextBox) As Boolean
If [Link] = "" Then
Return False
Else
If [Link] <> "" Then
Return True
End If
End If
End Function

Private Sub
CheckBox1_CheckedChanged(ByVal sender As
[Link], ByVal e As
[Link]) Handles
[Link]
Library Management System 2024-25

[Link] = False
[Link] = False
End Sub

Private Sub
CheckBox2_CheckedChanged(ByVal sender As
[Link], ByVal e As
[Link]) Handles
[Link]
[Link] = False
[Link] = False
End Sub

Private Sub
CheckBox3_CheckedChanged(ByVal sender As
[Link], ByVal e As
[Link]) Handles
[Link]
[Link] = False
[Link] = False
End Sub
End Class
Library Management System 2024-25

TESTING

This section deals with the details of the classes of tests which must
be conducted to validate the functions, performance, and the constraints.
This is achieved basically by the means of testing which plays a vital role
in the development of the software. The various low level testing which
can be grouped on a broader sense are discussed as below:

 Unit Testing: Testing of each and every module individually is

called unit testing. Each module is designed and executed so that it
works independently and generates some relative output. Unit
testing of a module results in a set of individually executing
modules that generates its independent output. The modules in
this project i.e. purchases, sales, returns, cash and bank
transactions, stock status and others are individually tested.

 Integration Testing: Integration testing is one in which the

modules are combined with one another to synchronize the outputs
and co-ordinate the flow of control. Each module is coalesced with
other module to establish proper connectivity between the two
modules. All the individual modules have been integrated and
tested.

 Validation Testing: Validation testing deals with testing that

whether the validations are justified and all the requirements are
fulfilled logically as per the requirements as the validations are
designed according to the requirements of the application – an
approach to the problem in a logical and relational manner. All the
validation testing have been done (like only the numbers should be
accepted in the phone number , amount , bill no fields ,quantity
and other related fields, similarly for the text to accepted only in
related fields like the names and other related fields). The stock
Library Management System 2024-25

validation is the major validation that keeps track of the products

dealt and the reorder levels.

 System Testing: Testing the whole system i.e. verifying and

validating the whole source code to check if the system as a whole
is executing is called system testing. The proposed system
undergoes it under all conditions to be called a successful system.

USER MANUAL
Library Management System 2024-25

 This is a user manual of our “LIBRARY MANAGEMENT

SYSTEM”. After run this set-up a wel-come form is display.

 In this form,when a user clicks on OK button,a login form

is display. Where user give the correct ID and
PASSWORD.


 As soon as user give the correct ID and PASSWORD and

clicks on login button, the first form is display in-front
our.
Library Management System 2024-25

 By this form, a user can perform their other works or

choose the other forms, according to their requirements.

 In this form, Student detail command contains from all

students related information’s and controls, Book detail
command contains to books related information and Issue
detail command contains the issues related information.
 To perform their work a user can choose the different
commands. To complete their work, if a user want to come
out of software he/she clicks on EXIT button.
Library Management System 2024-25

CONCLUSION

Computer is the magic word of today’s world. The object of “LIBRARY

MANAGEMENT SYSTEM” project is to harness the power of the computer
for our practical and potential need. This report expected to extensively
cover this concept and plant a seed of inquisitiveness in the minds of the
users.

We are thankful to all the people who have given us their hearty support
in this endeavor, we again thank out college for providing us all the
facilities and thanks to our beloved HOD Mrs. Jaya Sharma.

REFERENCE

1. Master in Visual Basic from BPB Publication

2. Visual Basic Black Book from DreamTech Publication
Library Management System 2024-25

3. Microsoft Visual Basic Complete Reference from Microsoft

Publication.
4. “Visual Basic Programming” , Den Clark
5. Oralce Made Easy by DreamTech publication
6. PL/SQL Programming