Yash Agarwal - BCA Final Year

1 | P a g e
Visual Basic Project Report
A WORK REPORT SUBMITTED
IN PARTIAL FULLFILLMENT OF THE REQUIREMENT FOR THE DEGREE
Bachelor of Computer Application
Dezyne E’cole College
106/10, CIVIL LINES
AJMER
RAJASTHAN - 305001 (INDIA)
(FEBRUARY, 2017)
www.dezyneecole.com
SUBMITTED BY
YASH AGARWAL
BCA 3rd year

2 | P a g e
GRADE SHEET
This project report has been made under the guidance of Mr. Tarun Sharma faculty of Bachelor
of Computer Application. This project focus on various parameter of Library Management
System.
The overall project report is _______________________________________________________
______________________________________________________________________________
______________________________________________________________________________
_______________________________________________________.
Principal Signature __________________
Date __________________

3 | P a g e
CONTENT
Acknowledgement........................................................................................................................... 3
Synopsis........................................................................................................................................... 2
Introduction Page of Student........................................................................................................... 3
Chapter – 1 Introduction of Information Technology (IT)................................................................. 4
Chapter – 2 Introduction to Project ................................................................................................. 8
Chapter – 3 Project & Their Facilities............................................................................................. 10
Chapter – 4 Project Design............................................................................................................. 11
Chapter – 5 Database Development .............................................................................................. 15
Chapter – 6 System Requirements of PC...................................................................................... 215
Chapter – 7 Conclusion................................................................................................................ 216
Bibliography................................................................................................................................. 217

1 | P a g e
Acknowledgement
The satisfaction that accompanies that the successful completion of any task would be
incomplete without the mention of people whose ceaseless co-operation made it possible, whose
constant guidance and encouragement crown all efforts with success.
The project on Library Management System was developed in Visual Basic Language at
Dezyne E’cole College.
During the making of this project we have learnt a lot and we are extremely grateful and remain
indebted to our guide MR. Tarun Sharma for being a source of inspiration and for his constant
support in the design, implementation and evaluation of the project.
We are thankful to them for their constant constructive criticism and invaluable suggestions,
which benefited us a lot while developing the project on “Library Management System”.
He has been a constant source of inspiration and motivation for hard work. He has been very co-
operative throughout this project work.
Through this column, we express our warm thanks to him for their encouragement, co-operation
and consent without which we mightn’t be able to accomplish this project.
I cannot move on beloved without thank beloved Principal Mrs. Vinita Mathur for creating the
required academic environment which made my task appreciable.
We would like to thank the other faculty member also, at this occasion. Last but not the least, we
would like to thank our friends & family for support and encouragement they have given us
during the course of our work.
We also thanks our colleague Ms. Heena Tejwani who have helped in successful completion of
the project.
With due regards
Mr. Yash Agarwal
BCA 3rd Year

2 | P a g e
Synopsis
The project Library Management System gives us the complete information about the Library.
We give a Title for project that is “Your Helpmate” it means this application is helpful for users
and any time user can access it through staff or admin. This application is access by only staff
and admin. Members can’t access it directly.
The project is very useful for those who want to know about Library Management System.
This application maintains the records related to New Books, Issue Books, and Return Books
etc.
We can enter the records of new books and retrieve the details of books available in the Library.
We can issue the books available in the Library. We can issue the books to the members and
maintain their records and can also check how many books are issued and stock available in the
Library. In this project we can maintain the late fine of members who returns the issued books
after due date. All necessary requirements for the Library to manage added.

3 | P a g e
Qualification School/College Board/University Year Percentage
BCA-3rd
Year Dezyne E’cole
College
M.D.S. University 2016-17 Pursuing
BCA-2nd
College
M.D.S. University 2015-16 82.66%
BCA-1st
College
M.D.S. University 2014-15 78.88%
12th
Gujrati Sr. Sec.
School
RBSE 2014 62%
10th
Gujrati Sr. Sec.
School
RBSE 2012 56%
Introduction Page of Student
Yash Agarwal
Professional Qualification:
Pursuing Bachelor Degree in Computer Application from Dezyne E’cole College,
Ajmer Affiliated from Maharshi Dayanand Saraswati University, I have mastered the
basic languages and created lot of projects during my study period to hone my skills.
Academic Record -
Technical Skill Set:
 Good knowledge of Languages like
o C, C++, JAVA, Visual Basic 6.0, Java Script, HTML, CSS, SQL.
 Excellent knowledge of Microsoft Office.
 Knowledge of Web Design & Development.
 Other Skills Like:
o Presentation Skill
Co-Curricular and Achievements:-
 Participated and presented project on “Delhi Metro Fare System” on Java
Language in the yearly Identity Exhibition, 2016 at Dezyne E’cole College.
 Participated and presented project on “Money Transaction System” on C++
Language in the yearly Identity Exhibition, 2016 at Dezyne E’cole College.
 Participated and presented project on “Student Management System” on
C++ Language in the yearly Identity Exhibition, 2015 at Dezyne E’cole
College.
 Participated and presented project on “Smart Learning Web” Website in
the yearly Identity Exhibition, 2014 at Dezyne E’cole College.
 Awarded for Best Performance in Batch (B.C.A. 1st
year) Annual Event, 2015.

4 | P a g e
Main Project Undertaken (During College Study):
 C++ Language Assignment :
This Project includes many C++ programs for e.g. Currency Calculator, Text to Machine Code Convertor,
String Diamond, Array Operations, Number System Calculator, Birth days Calculator, Power Calculator,
Armstrong Calculator, Prime Number Calculator, Perfect Number Calculator, Student Mark sheet Printer,
Palindrome Calculator, Text Printer, Password Checker etc.
 Java Language Assignment :
This Project includes many Java GUI programs for e.g. Swaping, Word Statics, Arithmetic Calculator,
Change Case, Square and Double, ASCII Character Convertor, Number System etc.
This Project includes management of Student data like Id, Name, Class, Date of Birth, City, Phone no. etc.
and containing many other data manipulation operations like Adding, Viewing, Deleting, Modifying and
Searching of Records. This project is useful to manage College/School Students data.
 Java Language Assignment :
This Project includes many Java CUI programs for e.g. Friend Number Calculator, Currency Calculator,
Mobile Bill Calculator, Employee Salary System, Student Mark sheet etc.
This Project includes manage transaction of Money and Users Account like Deposit, Withdrawal, Transfer,
Mini Statement, User Account Information etc. and it has two parts that 1 for Exist User and 2 for Create
New User. This project is useful to manage Multiple Users Bank Account and their transactions.
Declaration:
I hereby declare that particulars given here are true and complete to the best of my knowledge and belief.
 Awarded for 1st position in who is the best competition (C++ Language) in
Annual Event, 2015.
 Awarded for 2nd position in who is the best competition (pc software) in
Annual Event, 2015.
 Awarded for 3rd position in who is the best competition (C Language) in
Annual Event, 2015 by Dezyne E′cole College.
 Attended Government Skill Development Program at college NDLM
(National Digital Literacy Mission).
 Attended Government Skill Development Program at college PMKVY
(Pradhan Mantri Kaushal Vikas Yojana).
 Attended Government Skill Development Program at college NSDC
(National Skill Development Corporation).

5 | P a g e
Chapter – 1 Introduction of Information Technology (IT)
Information Technology –
Set of tools, processes, and methodologies (such as coding, programming, data
communication, data conversion, storage & retrieval, system analysis & design, system control)
and associated equipment employee to collect process and present information. In broad terms, it
also includes office automation, multimedia and Tele – communication.
Information Technology, a source we call the “computer”, that can show you what
information via Tele-portal, scoping, working calibration for transmitting throughout the world.
More commonly known as I.T. is the most popular career and the fastest growing
industry in the world. There are several success stories about people who choose this field for a
career and are now on top of their game.
Few reasons for why people choose IT -
 Low cost of education
The biggest advantage of choosing information technology for a career is that it
has very low cost of education as compared to many other career choices. You
don’t need degree to become an I.T. professional. Instead, you can get quick
training to be certified in specific areas of information technology. This way you
save huge amounts of money that you may have otherwise spent on years of
college tuition.
 Fastest changing industry
The information technology industry operates at a speed much faster than any
other industry and for this reason, there’s always a significant demand for highly
skilled workers with the innovations in cloud computing, big data and cyber
security an aspiring I.T. professional has many avenues to pursue and grow from
and I.T. professional never stops learning, and must always stay on top of the
latest technology trend in order to be successful in the field. The more training
and knowledge the I.T. professional has the more employable he or she will be.
 Better income
It is well known fact that information technology professionals are paid well,
compared to other professionals. An I.T. professional with the right mix of
certifications & experience can find a permanent position in either the public or
private sector. Recently many companies have been extensively hiring experts in
cloud computing, cyber security and network security to help enhance their
current systems.

6 | P a g e
BCA is a part of information technology. In this age of computers and everything being
digitalized, knowledge about machines is very important. It helps the person have a distinct
advantage over the others who do not have a degree in computer applications. The domain is
growing a rapid pace. In the 1990’s with the advent of globalization computers grew in
prominence and slowly started to replace the paper and files in offices. It brought down the cost
to quite an exist.
BCA is a three year undergraduate degree course. Students will be taught subjects which
are related to the technological applications that are requires in today’s practical work field.
1. Skills to be learnt –
Students who study for a bachelor of computer application (BCA) will get skills
and information not only about computer and information technology but also in
communication, organization and management.
One also get to learn programming languages such as C, C++, JAVA,
JavaScript, HTML&CSS, SQL, Foxpro etc.
2. Career opportunities –
BCA given a number of opportunities to individuals to go ahead and shine in their
lives. The opportunities available for people doing BCA are galore. A few of
them like software programmer, system and network administrator, web designer,
faculty for computer science / communication technology etc. the range of
chances in information technology are immense.
According to our MDS University we have learnt many theory & practical subjects –
 First Year
o Management and accounting
o Computer fundamental
o PC software
o Fundamentals of C Programming
o Data structure and algorithm
o Multimedia Basic
 Second year
o Communication skills
o Database management system
o Client server technology
o Java Programming
o C++ Programming
o Computer Graphics
 Third year
o Visual Basic Programming
o Relational database management system (ORACLE / SQL)
o E - Commerce

7 | P a g e
o Computer Network and Mobile Computing
o Internet tools & website development (JavaScript, ASP)
o Management Information System

8 | P a g e
Chapter – 2 Introduction to Project
The project titled “Your Helpmate” is Library Management System software for monitoring
and controlling the transactions in a library.
The project Library Management System is developed on visual basic language which
mainly focuses on basic operation in a library like – adding new member, staff, new books &
updating new information, searching books and members and facility to issue and return books
and calculate penalty amount.
Library Management System is a windows application designed to help users maintain
& organize library. Our application is easy to use for both beginners & advanced users. It
features a familiar and well thought – out, an attractive user interface, combined with strong
searching, insertion & deletion capabilities. It can generate a library card for member of library.
The application library management system has four main module –
 Insertion, Deletion, Updation to database module – User friendly input screen.
 Extracting from the database module –Attractive output screen.
 Generate library card module – Issued books though card.
 Search facility system Module – Search for books and members.
The Library Management System is designed and develop for a receipt and issuance of books in
the library along with the member’s details. The books received in the library are entered in
books entry form and the new member is entered in the member entry form through staff.
Why it is made –
The main objective of this project is to provide a friendly environment to maintain the
details of books and library members. The main purpose of this project is replace the manually
work.
What Language –
Visual Basic 6.0 Language
Visual basic (VB) is a 3rd
generation event-driven programming language developed by
Microsoft for their operating system windows. Visual basic is a widely understood high level
programming language, written using simple English. Like – words & syntax.
It is an interpreted language. Code can be run immediately after being written. Having an
interpreter makes its simpler to use, as there is no need for the computer to compile the code,
possibly finding errors to fix, before the compiled version can be run. Once the code is working,
it can be compiled into an .exe file so that it will run on all modern windows computers, whether
VB is installed or not. The language allows a beginning programmer to produce professional –
looking windows applications, as its include drawing tools to create normal windows and

9 | P a g e
structures which allow programs to be adapted for use with the internet. VB will not run on
operating systems other than windows.
Visual Basic has its origin in basic which was developed round about the year 1960,
when high level languages were just being introduced to the computer community. Microsoft has
made it extremely powerful by gearing all its good features to the windows environment.
Evaluation of Visual Basic –
VB 1.0 was introduced in 1991. The drag and drop design for creating the user interface
is derived from prototype from generator developed by Allan cooper and his company called
Tripod. Microsoft contracted with cooper and his associates to develop Tripod into a
programmable form system for windows 3.0, under the code name Ruby (no relation to the Ruby
programming language). Tripod did not include a programming language at all. Microsoft
decided to combine Ruby with the basic language to create Visual Basic.
Need of Visual Basic –
Visual Basic is easy to learn programming language. With Visual Basic you can develop
windows based applications and Games. Visual Basic is much easier to learn than others
language (like Visual C++), and yet it’s powerful programming language. Visual Basic suite
more for desktop application developing than for Games developing. You can create
sophisticated games using Visual Basic, Visual Basic will be probably powerful enough to suite
all your application and games programming needs.
Integrated Development Environment –
The working environment in VB is often referred to as the Integrated Development
Environment or IDE, because it integrates many different functions such as design, editing,
compiling and debugging within a common environment. Since all our projects are developed
only in the IDE.

10 | P a g e
Chapter – 3 Project & Their Facilities
Library Management System is a project which aims in developing a computerized system to
maintain all the daily work of library. This project has many features which are generally not
available in normal Library Management System like – Staff login. It has also a facility where
member issue a book so all details of books issue date and return date show. It has a facility
where we add a new member so member card will be create for member.
Overall this project is ours is being developed to help the schools, organizations, college
to maintain the library in the best way possible and also reduce the human efforts.
Here is a list of some features which are in provided in this application –
 Keep records of different categories like – IT Books, other Books, Journals, and
Magazines etc.
 Classify the books subject wise.
 Easy way to enter new books.
 Easy way to Log-In and Log-Out.
 Automatic Fine calculation for late returns.
 Different criteria for searching a book.
 No need to invest heavily on hardware.
Objective of Library Management System –
1. Automation –The application automates each and every activity of the manual system and
increases its throughput. Thus the response time of the system is very less and it works very
fast.
2. Accuracy – The application provides the user a quick response with very accurate
information regarding the user etc. any details or system in an accurate manner, as when
required.
3. User Friendly – The application Library Management System has a very user friendly
interface. Thus the users will full very easy to work on it. The application provides accuracy
along with a pleasant interface. Make the present manual system more interactive, speedy
and user friendly.
4. Availability – The all transaction of books stored permanently in the database admin can see
the data in the availability of any information, whatever needed.
5. Maintain Cost – Reduce the cost of maintenance. It is standalone application so no required
of cost for maintain it.

11 | P a g e
Chapter – 4 Project Design
The project design process is not a step by step. But still much of design work depends on
knowledge and experience of the designs, when we start working on project design, we will face
different types of problems. However, following considerations should be kept in mind during
the project design phase:
Design Objectives –
The primary objective of the design of course, is to deliver the requirements as specified
already. In general the following design objectives kept in mind.
Practically –
The system must be stable and can be operated by people with average.
Efficiency –
This involves accuracy, timeliness, and comprehensiveness to the system output.
Cost –
It is desirable to aim for a system with a minimum cost subject to the condition that it
must satisfy all requirements & maintain maintenance.
Flexibility –
The system should be modifiable depending on the changing needs if the user. It should
also be portable to different computer system but not other than Windows OS.
Security –
This is very important aspect of the design and should cover areas of hardware reliability,
fall back procedures, physical security if the data. System design involves first logical design and
then physical construction of the system.
Major Project Design Activities –
Several development activities are carried out during structured design. They are database
design, implementation planning, and system interface.
Design Process –
The system design process is an exercise of specifying how, the system will work. It is an
interactive process which is based on what the system will be do as shown in the report. Mainly
following two parts have been included in the system design process.

12 | P a g e
1. Output Design –
The starting point of the design process is the proper knowledge of system
requirements which will normally be converted on terms of output.
2. Input Design –
Once the output requirements have been finalized the next step in to find out what
data need to be made available to the system to procedure the desired outputs.
Data Flow Diagrams of Library Management System:
 DFD Level 0
 DFD Level 1
 DFD Level 2
Admin / Staff Library Management
System
Request
Response
System Database
Request Request
Response Response
System
Database
Interaction Store in MS Access

13 | P a g e
 DFD Level 3
System
Database
Interaction Store in MS
Access
Display Message
Configuration
Author Book Publisher Book Issue
Member Staff
Subject
Categories
Book Return
Fine (If any)
Insert, Save, Update, Save Update, Delete, Search

14 | P a g e
 DFD Level 4
System
Database
Interaction Store in MS
Access
Display Message
Configuration
Library Cards Update
Security
Daily News Application
Form
Forgot
Password

15 | P a g e
Chapter – 5 Database Development
This activity deals with the design of the physical database. A key is to determine how the access
path art to be implemented.
As a programmer, we are expected to design and develop any program that works
correctly efficiently and the time is easy to be used by every person, who may or may not be well
versed with computer and its capabilities.
The project is based on the Library Management System, Being the Information System it
requires extensive use of some Database Management System to store, manipulate & handle the
huge and complex record. In DBMS we can act various attributes with the database like editing
the records, modifications, deletions of the records, view the records in various formats, listing
the database etc.
MS Access –
Microsoft Access is an office product that allows the user to create relational databases
that have tables of data. MS Access stores data in its own format based on the Access Jet
Database Engine. It can also import or link directly to data stored in other applications &
databases. It’s an easy to use tool for quickly creating browser based database applications.
In very simple term, MS Access is an Information Management tool that helps you store
information for reference, reporting & analysis.
Microsoft Access helps you analyze large amount of information, and manage related
data more efficient than MS Excel or other spreadsheet applications.
In our project we create 10 tables in MS Access-
 Book Info
Field Name Data Type
ISBN Number
Staff Name Text
Publisher Memo
Author Memo
Book Name Memo
Subject Text
Price Number
Rack No.
No. of Books
Books Edition
Publish Date
Book Categories
Image
Id
Number
Number
Text
Date/Time
Text
Text
Number
 Staff

16 | P a g e
ID Number
User Name Text
Staff Type Text
First Name Text
Last Name Text
Address Text
Contact No. Text
Adhaar
Password
Sec Ques1
Ans1
Sec Ques2
Ans2
Image
Education
DOB
Text
Text
Text
Text
Text
Text
Text
Text
Date/Time
 Author
ID Number
Name Memo
Address Memo
Contact No. Text
Image Text
 Publisher
ID Number
Name Memo
Address Memo
Contact No. Text
Image Text
 Members
ID Number
First Name
Last Name
Member Type
Text
Text
Text
Address
Ref. Name
Ref. Department
Ref. Contact
Text
Text
Text
Text

17 | P a g e
Father Name
Email
Education
Text
Text
Text
Contact No. Text
DOB
Member Image
Ref. Image
Date/Time
Text
Text
 Book Issue
ID Number
Book Text
Issue Date Date/Time
Return Date Date/Time
Book Issued
Copies Left
Book Categories
Fine
Number
Number
Text
Number
 Book Return
ID Number
Book Text
Issued Date Date/Time
Return Date Date/Time
Fine
Time
Number
Date/Time
 Book Categories
ID Number
Book Type Text
 Login
Type Text
User Name Text
Password Text
First Name Text
Last Name Text
 Daily News

18 | P a g e
Date Date/Time
Add Author Number
Delete Author Number
Update Author Number
Add Publisher
Delete Publisher
Update Publisher
Add Staff
Delete Staff
Update Staff
Add Member
Delete Member
Update Member
Add Book
Delete Book
Update Book
Add Book Issue
Delete Book Issue
Update Book Issue
Add Book Return
Delete Book Return
Update Book Return
Add Book Category
Delete Category
Update Category
Cards
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
Number
All Forms and Coding of our project:
 Splash Screen

19 | P a g e
Dim path As String
Dim i, j As Integer
Private Sub Form_Activate()
adrs = CurDir
End Sub
Private Sub Form_Load()
i = 1
Dim c%
Call connect
With dailyrs
Do Until .EOF
If .Fields(0) <> Date Then
c = 0
Else
c = 1
Exit Do
End If
.MoveNext
Loop
If c = 0 Then
.AddNew
.Fields(0) = Date
.Update
End If
End With
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i < 10 Then

20 | P a g e
path = "d:lms project 2imagegif" & i & ".jpg"
Image2.Picture = LoadPicture(path)
Else
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Me.Height = Me.Height - 300
Me.Width = Me.Width - 463
If Me.Height < 300 Or Me.Width < 300 Then
Unload Me
login.Show
End If
End Sub
 Login Page

21 | P a g e
Dim tm, ci As Integer
login.Left = Screen.Width / 2 - login.Width / 2
login.Top = Screen.Height / 2 - login.Height / 2
Label2.Left = login.Width - Label2.Width
Label2.BackColor = RGB(110, 110, 110)
Label9.ForeColor = RGB(30, 30, 30)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Label2_Click()
Me.WindowState = 1
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub

22 | P a g e
ChDrive (Left(adrs, 1))
ChDir (Right(adrs, Len(adrs) - 2))
Call connect
If Combo1.Text <> "" Then
If Len(Text1.Text) > 0 Then
Do Until rs.EOF
If rs.Fields(0) = Combo1.Text And rs.Fields(1) = Text1.Text And rs.Fields(2) =
Text2.Text Then
fn = rs.Fields(3) + " " + rs.Fields(4)
Do Until staffrs.EOF
If staffrs.Fields(3) = rs.Fields(3) Then
id = Val(staffrs.Fields(0))
img = staffrs.Fields(13)
End If
staffrs.MoveNext
Loop
If Combo1.Text = "Admin" Then
Else
menu.Label6(1).Enabled = False
End If
welcome.Show
ci = 1
Exit Do
Else
ci = 0

23 | P a g e
End If
rs.MoveNext
Loop
If ci = 0 Then
MsgBox ("Your are not authorized")
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
Else
MsgBox "Please insert password"
End If
Else
MsgBox "Please insert user name"
End If
Else
MsgBox "Please select user type"
End If
End Sub
End Sub
End Sub
Call connect

24 | P a g e
If Text1.Text <> "" Then
Do Until rs.EOF
If Text1.Text = rs.Fields(1) Then
tr = Text1.Text
Unload Me
forgot.Show
c = 1
Exit Do
Else
End If
rs.MoveNext
Loop
If c = 0 Then
MsgBox "please enter correct user name"
End If
Else
MsgBox "please enter user name"
End If
Else
MsgBox "Please select user type"
End If
End Sub
End Sub
Unload Me

25 | P a g e
a = MsgBox("Good To See You", vbExclamation = vbOKOnly, "Bye") = vbCancel
End Sub
 Forgot Password Form
Private Sub label3_Click()
Call connect
With staffrs
Do Until .EOF
If tr = .Fields(1) Then
If Text4.Text = .Fields(10) And Text5.Text = .Fields(12) Then
MsgBox "Your Password is " & .Fields(8)
Unload Me
login.Show
Else
MsgBox "Please contact with Your Main Administrater"
Unload Me
End If
End If

26 | P a g e
.MoveNext
Loop
End With
Else
MsgBox "please give second question answer"
End If
Else
MsgBox "please give first question answer"
End If
End Sub
MsgBox "Please contact with Your Main Administrater"
Unload Me
End Sub
forgot.Left = Screen.Width / 2 - forgot.Width / 2
forgot.Top = Screen.Height / 2 - forgot.Height / 2
Call connect
With staffrs
Do Until .EOF
If tr = .Fields(1) Then
Text1.Text = .Fields(9)
End If
.MoveNext
Loop
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)

27 | P a g e
Unload Me
login.Show
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122) And
Not KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
 Home Page or Menu Pages

28 | P a g e
Dim menucheck As Boolean
Dim a, b, c, quote_no As Integer
Dim qoute As String
Dim r As Integer
r = Rnd(r) * 50
Call connect
With qs
Do Until .EOF
If r = .Bookmark Then
quote = .Fields(0)

29 | P a g e
quote_no = .Fields(1)
Label27.Caption = quote
.Delete
.Update
End If
.MoveNext
Loop
.MoveLast
.AddNew
.Fields(0) = quote
.Fields(1) = quote_no
.Update
End With
End Sub
Private Sub Form_Click()
For i = 0 To 7
Label6(i).Visible = False
Next
For i = 0 To 1
Next
For i = 0 To 4
Next
menucheck = False
End Sub
Label25.Caption = Time
menu.Left = Screen.Width / 2 - menu.Width / 2
menu.Top = Screen.Height / 2 - menu.Height / 2
Label1.Left = menu.Width - Label1.Width
Shape2.FillColor = RGB(200, 200, 200)
Label26.ForeColor = RGB(30, 30, 30) ' title bar
Call connect
Label15.Caption = members.RecordCount
Label16.Caption = birs.RecordCount
ad = 0
st = 0

30 | P a g e
If staffrs.Fields(2) = "Admin" Then
ad = ad + 1
ElseIf staffrs.Fields(2) = "Staff" Then
st = st + 1
End If
staffrs.MoveNext
Loop
Label17.Caption = ad
Label18.Caption = st
Label19.Caption = bcatrs.RecordCount
Label20.Caption = bookrs.RecordCount
Label21.Caption = publishers.RecordCount
Label23.Caption = authorrs.RecordCount
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If menucheck = False Then
End If
Label6(0).BackColor = RGB(240, 240, 240)
Label6(0).ForeColor = RGB(0, 0, 0)

31 | P a g e
End Sub
Me.WindowState = 1
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
End Sub
Single)
End Sub
Single)

32 | P a g e
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If menucheck = True Then
For i = 0 To 1
Next
For i = 0 To 4
Next
For j = 0 To 7
Label6(j).Visible = False
Next
End If
If Button = 1 Then
For i = 0 To 7
Label6(i).Visible = True
Next
End If
menucheck = True
a = 1: b = 0: c = 0
End Sub
Single)
For i = 0 To 1
Next
For i = 0 To 4
Next
For j = 0 To 7
Next
End If
If Button = 1 Then
For i = 0 To 1
Next
End If
menucheck = True

33 | P a g e
a = 0: b = 1: c = 0
End Sub
Single)
For i = 0 To 1
Next
For i = 0 To 4
Next
For j = 0 To 7
Next
End If
If Button = 1 Then
For i = 0 To 4
Next
End If
menucheck = True
a = 0: b = 0: c = 1
End Sub
Private Sub Label6_Click(Index As Integer)
Unload Me
If Index = 0 Then
book.Show
ElseIf Index = 1 Then
author.Show
publisher.Show
subject.Show
staff.Show
login.Show
member1.Show
MsgBox "Good to see you"
Else

34 | P a g e
MsgBox "Good To See You"
End If
End Sub
Private Sub Label6_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label6(Index).BackColor = RGB(180, 180, 180)
Label6(Index).ForeColor = RGB(240, 240, 240)
End Sub
Unload Me
If Index = 0 Then
Book_issue.Show
book_Return.Show
End If
End Sub
End Sub
Call connect
Unload Me

35 | P a g e
If Index = 0 Then
updat.Show
about.Show
Cards.Show
Set application_form.DataSource = rs
application_form.Show
daily_news.Show
End If
End Sub
For i = 0 To 4
Label8(i).BackColor = RGB(240, 240, 240)
Label8(i).ForeColor = RGB(0, 0, 0)
Next
End Sub
If Right(Time, 2) = "PM" Then
If Left(Time, 1) < 4 Then
Label2.Caption = "Good Noon " + fn
ElseIf Left(Time, 1) < 8 And Left(Time, 1) >= 4 Then
Label2.Caption = "Good Evening " + fn
Else
Label2.Caption = "Good Night " + fn
End If
Else
Label2.Caption = "Good Morning " + fn
End If
End Sub
Label25.Caption = Time
End Sub
 Welcome Page

36 | P a g e
Dim a As Integer
End Sub
a = 0
login.Hide
menu.Show
Label2.Caption = Label2.Caption + " " + fn
welcome.Left = Screen.Width
welcome.Top = Screen.Height - 1600
Image1.Picture = LoadPicture(img)
End Sub
a = a + 1
If a = 5 Then
Unload Me
End If
End Sub
If welcome.Left > Screen.Width - 4500 Then
welcome.Left = welcome.Left - 30
End If
End Sub
 Add New Book Page

37 | P a g e
Dim temp2 As Variant
Dim up As Integer
Dim a As Integer
Dim bok As Integer
Dim txt As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "Image|*.jpg|*.bmp|*.*"
CommonDialog1.InitDir = "d:lms project 2"
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
bok = Val(Text7.Text) + Val(InputBox("How many books You want to add", "Add"))
End Sub
Call connect
If Text2.Text = "" And bookrs.RecordCount > 0 Then

38 | P a g e
With bookrs
Combo2.Text = .Fields(2)
DTPicker1.Value = .Fields(10)
Image1.Picture = LoadPicture(.Fields(12))
End With
ElseIf Text2.Text <> "" And bookrs.RecordCount > 0 Then
With bookrs
Do Until .EOF
If Text2.Text = .Fields(0) Then
.MoveNext
Exit Do
End If
.MoveNext
Loop
If .EOF = False Then

39 | P a g e
End If
End With
End If
End Sub
Call connect
With bookrs
.MoveLast

40 | P a g e
End With
With bookrs
.MoveLast
End With
End If
End Sub
Call connect
With bookrs

41 | P a g e
End With
With bookrs
Do Until .EOF
.MovePrevious
Exit Do
End If
.MoveNext
Loop
If .BOF = False Then

42 | P a g e
End If
End With
End If
End Sub
Call connect
With bookrs
End With

43 | P a g e
With bookrs
.MoveFirst
End With
End If
End Sub
Call connect
If Option3.Value = True Then
With bookrs
Do Until .EOF
If Val(Trim(Text11.Text)) = Trim(.Fields(0)) Then

44 | P a g e
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention ISBN NO. of Books"
End If
ElseIf Option4.Value = True Then
With bookrs
Do Until .EOF
If Trim(Text10.Text) = Trim(.Fields(4)) Then

45 | P a g e
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention Book Name"
End If
End If
End Sub
Frame2.Enabled = False
Label23.Enabled = True
Label22.Enabled = False
Combo2.Enabled = True: Combo2.Text = ""
Text1.Text = "": Text1.Enabled = True

46 | P a g e
Combo5.Text = "": Combo5.Enabled = True
Combo1.Text = "": Combo1.Enabled = True
Image1.Picture = LoadPicture(""): Label12.Enabled = True
DTPicker1.Enabled = True
Text9.Text = fn
DTPicker1.Value = Date
Call connect
Combo1.Clear
Combo2.Clear
Combo5.Clear
Do Until authorrs.EOF
Combo5.AddItem authorrs.Fields(1)
authorrs.MoveNext
Loop
Do Until publishers.EOF
Combo2.AddItem publishers.Fields(1)
publishers.MoveNext
Loop
Do Until bcatrs.EOF
Combo1.AddItem bcatrs.Fields(1)
bcatrs.MoveNext
Loop
With bookrs
Do Until .EOF
a = .Fields(13)
.MoveNext
Loop

47 | P a g e
End With
a = a + 1
Text12.Text = a
End Sub
Call connect
If LoadPicture("") <> Image1.Picture Then
With bookrs
.AddNew
.Fields(0).Value = Val(Text2.Text)
.Fields(1).Value = Text9.Text
.Fields(2).Value = Combo2.Text

48 | P a g e
.Fields(10).Value = DTPicker1.Value
.Fields(12) = ".imagebooks" + CommonDialog1.FileTitle
SavePicture Image1.Picture, .Fields(12)
.Fields(13) = Text12.Text
.Update
Do Until dailyrs.EOF
If dailyrs.Fields(0) = Date Then
dailyrs.Fields(13) = dailyrs.Fields(13) + 1
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Book Record insert"
Text9.Text = "": Text9.Enabled = False
Combo2.Text = "": Combo2.Enabled = False
Image1.Picture = LoadPicture(""): Label12.Enabled = False
DTPicker1.Enabled = False
UpDown1.Enabled = True
UpDown1.Enabled = False

49 | P a g e
Frame2.Enabled = True
End With
Else
MsgBox "Please select Book Image"
End If
Else
MsgBox "Please Select Book Category"
Combo1.SetFocus
End If
Else
MsgBox "Please Select Book Author"
Combo5.SetFocus
End If
Else
MsgBox "Please Insert Book Edition"
Text6.SetFocus
End If
Else
MsgBox "Please Insert No. of Books"
Text7.SetFocus
End If
Else
MsgBox "Please Insert Rack No."
Text5.SetFocus
End If

50 | P a g e
Else
MsgBox "Please Insert Book Price"
Text3.SetFocus
End If
Else
MsgBox "Please Insert Book Name"
Text4.SetFocus
End If
Else
MsgBox "Please Insert ISBN No."
Text2.SetFocus
End If
Else
MsgBox "Please Insert Subject"
Text1.SetFocus
End If
Else
MsgBox "Please Select Publisher"
Combo2.SetFocus
End If
End Sub
Dim author, publisher, category As String
Call connect

51 | P a g e
Combo2.Enabled = True
Text1.Enabled = True
category = Combo1.Text
publisher = Combo2.Text
author = Combo5.Text
Combo1.Clear
Combo2.Clear
Combo5.Clear
authorrs.MoveNext
Loop
publishers.MoveNext
Loop

52 | P a g e
Do Until bcatrs.EOF
Combo1.AddItem bcatrs.Fields(1)
bcatrs.MoveNext
Loop
Combo1.Text = category
Combo2.Text = publisher
Combo5.Text = author
Else
MsgBox "Please select a record"
End If
End Sub
Call connect
Do Until bookrs.EOF
If Val(Text2.Text) = bookrs.Fields(0) Then
bookrs.Delete
Text9.Text = ""
Combo2.Text = "": Combo2.Clear
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Text5.Text = ""
Text7.Text = ""
Text6.Text = ""
Image1.Picture = LoadPicture("")

53 | P a g e
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data Deleted"
End If
bookrs.MoveNext
Loop
Else
MsgBox "Please Select Record"
End If
End Sub
Combo2.Enabled = False: Combo2.Clear
Text1.Enabled = False: Text1.Text = ""

54 | P a g e
Label12.Enabled = False: Image1.Picture = LoadPicture("")
End Sub
book.Left = Screen.Width / 2 - book.Width / 2
book.Top = Screen.Height / 2 - book.Height / 2
Text9.Enabled = False
Combo2.Enabled = False
End Sub
Unload Me
menu.Show
Text9 = ""
End Sub
Call connect
If bookrs.RecordCount < 1 Then
MsgBox "There have no Book"

55 | P a g e
Else
list_book.Show
End If
End Sub
Call connect
With bookrs
Do Until .EOF
If Val(Trim(Text12.Text)) = .Fields(13) Then
Print .Fields(13)

56 | P a g e
.Fields(8).Value = bok
.Fields(10).Value = DTPicker1.Value
If Len(CommonDialog1.FileTitle) > 0 Then
.Fields(12) = ".imagebooks" + CommonDialog1.FileTitle
End If
.Update
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Book Record update"
Image1.Picture = LoadPicture(""): Label12.Enabled = False

57 | P a g e
End If
.MoveNext
Loop
End With
Else
MsgBox "Please select Book Image"
End If
Else
MsgBox "Please Select Book Category"
Combo1.SetFocus
End If
Else
MsgBox "Please Select Book Author"
Combo5.SetFocus
End If
Else
MsgBox "Please Insert Book Edition"
Text6.SetFocus
End If
Else
MsgBox "Please Insert No. of Books"

58 | P a g e
Text7.SetFocus
End If
Else
MsgBox "Please Insert Rack No."
Text5.SetFocus
End If
Else
MsgBox "Please Insert Book Price"
Text3.SetFocus
End If
Else
MsgBox "Please Insert Book Name"
Text4.SetFocus
End If
Else
MsgBox "Please Insert ISBN No."
Text2.SetFocus
End If
Else
MsgBox "Please Insert Subject"
Text1.SetFocus
End If
Else
MsgBox "Please Select Publisher"
Combo2.SetFocus
End If
End Sub
End Sub

59 | P a g e
bok = Val(Text7.Text) - Val(InputBox("How many books You want to less", "Less"))
If bok < 0 Then
MsgBox "Sorry, Have no Enough Book"
bok = Val(Text7.Text)
Else
End If
End Sub
Private Sub Option3_Click()
Text10.Text = ""
End If
End Sub
Text11.Text = ""
End If
End Sub
If Not (KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122) And Not
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
If Not IsNumeric(Text11.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0

60 | P a g e
End If
End Sub
KeyAscii = 0
End If
End Sub
Private Sub Text2_LostFocus()
If Len(Text2.Text) < 8 Then
If Text2.Enabled = True Then
Text2.SetFocus
Else
End If
End If
Call connect
With bookrs
Do Until .EOF
If .Fields(0) = Text2.Text Then
MsgBox "ISBN already exist"
Text2.SetFocus
End If
.MoveNext
Loop
End With
End Sub
KeyAscii = 0
End If
End Sub

61 | P a g e
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
If Frame5.Top > 7220 Then
Label28.Top = Label28.Top - 20
Frame5.Top = Frame5.Top - 20
Else
up = 1
End If
Else
If Frame5.Top < 7830 Then
Label28.Top = Label28.Top + 20
Frame5.Top = Frame5.Top + 20
Else
up = 0
End If
End If
End Sub
 Add New Author Page

62 | P a g e
Dim up As Integer
Dim a As Integer
Private Sub Combo1_Click()
Call connect
With authorrs
Do Until .EOF
If Combo1.Text = .Fields(0) Then
Text1 = .Fields(1)
Text2 = .Fields(2)
Text4 = .Fields(3)
End If
.MoveNext
Loop
End With
End Sub
Call connect

63 | P a g e
If Combo1.Text = "" And authorrs.RecordCount > 0 Then
Combo1.Text = authorrs.Fields(0)
Text1.Text = authorrs.Fields(1)
Image1.Picture = LoadPicture(authorrs.Fields(4))
ElseIf Combo1.Text <> "" And authorrs.RecordCount > 0 Then
If Combo1.Text = authorrs.Fields(0) Then
authorrs.MoveNext
Exit Do
End If
authorrs.MoveNext
Loop
If authorrs.EOF = False Then
End If
End If
End Sub
Call connect
authorrs.MoveLast

64 | P a g e
authorrs.MoveLast
End If
End Sub
Call connect
authorrs.MovePrevious
Exit Do
End If
authorrs.MoveNext
Loop
If authorrs.BOF = False Then

65 | P a g e
End If
End If
End Sub
Call connect
authorrs.MoveFirst
End If
End Sub
Call connect
authorrs.MoveFirst
If Val(Text11.Text) = authorrs.Fields(0) Then

66 | P a g e
Exit Do
End If
authorrs.MoveNext
Loop
Else
MsgBox "Please mention ID"
End If
authorrs.MoveFirst
If Text10.Text = authorrs.Fields(1) Then
Exit Do
End If
authorrs.MoveNext
Loop
Else
MsgBox "Please mention Name"
End If
End If

67 | P a g e
End Sub
If authorrs.RecordCount > 0 Then
list_authors.Show
Else
MsgBox "There have no authors"
End If
End Sub
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Call connect
With authorrs
Do Until .EOF
a = .Fields(0)

68 | P a g e
.MoveNext
Loop
End With
a = a + 1
Combo1.Text = a
End Sub
Call connect
With authorrs
.AddNew
.Fields(0) = Combo1.Text
.Fields(4) = ".imageauthor" + CommonDialog1.FileTitle
.Update
End With
dailyrs.Update
End If
dailyrs.MoveNext

69 | P a g e
Loop
MsgBox "Data Saved"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Else
MsgBox "Please select author profile"
End If
Else
Text4.SetFocus
MsgBox "please insert contact no."
End If
Else
Text2.SetFocus
MsgBox "please insert addresss"
End If
Else

70 | P a g e
Text1.SetFocus
MsgBox "please insert name"
End If
End Sub
author.Left = Screen.Width / 2 - author.Width / 2
author.Top = Screen.Height / 2 - author.Height / 2
Call connect
End Sub
Unload Me
menu.Show
End Sub
End Sub
Call connect

71 | P a g e
Combo1.Clear
authorrs.MoveNext
Loop
End Sub
Call connect
authorrs.Delete
Combo1.Clear
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
dailyrs.Update
End If
dailyrs.MoveNext
Loop
End If
authorrs.MoveNext
Loop
Else

72 | P a g e
End If
End Sub
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
End Sub
Call connect
With authorrs

73 | P a g e
Do Until .EOF
.Fields(1) = Text1
.Fields(4) = ".imageauthor" + CommonDialog1.FileTitle
Else
End If
.Update
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox ("Data Updated")
Text1.Text = ""
Exit Do
End If
.MoveNext
Loop

74 | P a g e
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Combo1.Clear
Else
MsgBox "Please Select Image"
End If
Else
Text4.SetFocus
MsgBox "Please Enter Contact No."
End If
Else
Text2.SetFocus
MsgBox "Please Enter Address"
End If
Else
Text1.SetFocus
MsgBox "Please Enter Author Name"
End If
End With
End Sub

75 | P a g e
End Sub
Text10.Text = ""
End If
End Sub
Text11.Text = ""
End If
End Sub
KeyAscii = 8 And KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 And KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0

76 | P a g e
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
Else
Timer1.Enabled = False : up = 1
End If
Else
Else
End If
End If
End Sub
 Add New Publisher Page

77 | P a g e
Dim up As Integer
Dim a As Integer
Call connect
With publishers
Do Until .EOF
Text1 = .Fields(1)
Text2 = .Fields(2)
Text4 = .Fields(3)
End If
.MoveNext
Loop
End With
End Sub
publisher.Left = Screen.Width / 2 - publisher.Width / 2
publisher.Top = Screen.Height / 2 - publisher.Height / 2

78 | P a g e
Call connect
End Sub
Unload Me
menu.Show
End Sub
End Sub
Call connect
If Combo1.Text = "" And publishers.RecordCount > 0 Then
Combo1.Text = publishers.Fields(0)
Text1.Text = publishers.Fields(1)
Image1.Picture = LoadPicture(publishers.Fields(4))
ElseIf Combo1.Text <> "" And publishers.RecordCount > 0 Then
If Combo1.Text = publishers.Fields(0) Then
publishers.MoveNext
Exit Do
End If
publishers.MoveNext
Loop
If publishers.EOF = False Then

79 | P a g e
End If
End If
End Sub
Call connect
publishers.MoveLast
publishers.MoveLast
End If
End Sub
Call connect

80 | P a g e
publishers.MovePrevious
Exit Do
End If
publishers.MoveNext
Loop
If publishers.BOF = False Then
End If
End If
End Sub
Call connect

81 | P a g e
publishers.MoveFirst
End If
End Sub
Call connect
If Val(Text11.Text) = publishers.Fields(0) Then
Exit Do
End If
publishers.MoveNext
Loop
Else
End If

82 | P a g e
If Text10.Text = publishers.Fields(1) Then
Exit Do
End If
publishers.MoveNext
Loop
Else
End If
End If
End Sub
If publishers.RecordCount > 0 Then
list_publishers.Show
Else
MsgBox "There have no publishers"
End If
End Sub
Call connect

83 | P a g e
Combo1.Clear
publishers.MoveNext
Loop
End Sub
Call connect
With publishers
.AddNew

84 | P a g e
.Fields(4) = ".imagepublishers" + CommonDialog1.FileTitle
.Update
End With
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data Saved"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Else

85 | P a g e
MsgBox "Please select author profile"
End If
Else
Text4.SetFocus
End If
Else
Text2.SetFocus
End If
Else
Text1.SetFocus
End If
End Sub
Call connect
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""

86 | P a g e
With publishers
Do Until .EOF
a = .Fields(0)
.MoveNext
Loop
End With
a = a + 1
Combo1.Text = a
End Sub
Call connect
publishers.Delete
Combo1.Clear
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
dailyrs.Update

87 | P a g e
End If
dailyrs.MoveNext
Loop
End If
publishers.MoveNext
Loop
Else
End If
End Sub
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Combo1.Text = ""
End Sub

88 | P a g e
Call connect
With publishers
Do Until .EOF
.Fields(1) = Text1
.Fields(4) = ".imagepublishers" + CommonDialog1.FileTitle
Else
End If
.Update
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox ("Data Updated")
Text1.Text = ""

89 | P a g e
Exit Do
End If
.MoveNext
Loop
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Combo1.Clear
Else
MsgBox "Please Select Image"
End If
Else
Text4.SetFocus
MsgBox "Please Enter Contact No."
End If
Else

90 | P a g e
Text2.SetFocus
MsgBox "Please Enter Address"
End If
Else
Text1.SetFocus
MsgBox "Please Enter Author Name"
End If
End With
End Sub
End Sub
Text10.Text = ""
End If
End Sub
Text11.Text = ""
End If
End Sub
Not KeyAscii = 8 And Not KeyAscii = 32 Then

91 | P a g e
KeyAscii = 0
End If
End Sub
Not KeyAscii = 8 And KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
Else
up = 1
End If
Else

92 | P a g e
Else
up = 0
End If
End If
End Sub
 Add New Subject Category Page
Dim up%
subject.Left = Screen.Width / 2 - subject.Width / 2
subject.Top = Screen.Height / 2 - subject.Height / 2
End Sub
Unload Me
menu.Show
End Sub

93 | P a g e
Call connect
If Combo1.Text = "" And bcatrs.RecordCount > 0 Then
With bcatrs
End With
ElseIf Combo1.Text <> "" And bcatrs.RecordCount > 0 Then
With bcatrs
Do Until .EOF
If Val(Combo1.Text) = .Fields(0) Then
.MoveNext
Exit Do
End If
.MoveNext
Loop
End If
End With
End If
End Sub
Call connect
With bcatrs
.MoveLast

94 | P a g e
End With
With bcatrs
.MoveLast
End With
End If
End Sub
Call connect
With bcatrs
End With
With bcatrs
Do Until .EOF
.MovePrevious
Exit Do
End If
.MoveNext
Loop
End If
End With

95 | P a g e
End If
End Sub
Call connect
With bcatrs
End With
With bcatrs
.MoveFirst
End With
End If
End Sub
End Sub
Call connect
With bcatrs
Do Until .EOF
If Val(Trim(Text11.Text)) = Val(Trim(.Fields(0))) Then
Exit Do

96 | P a g e
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention ID NO."
End If
With bcatrs
Do Until .EOF
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention Member Category Name"
End If
End If
End Sub
Call connect
If bcatrs.RecordCount < 1 Then
MsgBox "Have no Category"
Else
list_categories.Show

97 | P a g e
End If
End Sub
If Len(Combo1.Text) > 0 Then
Else
MsgBox "Please selet a record"
End If
End Sub
Call connect
If Len(Trim(Text1.Text)) > 0 Then
With bcatrs
.AddNew
.Update
dailyrs.Update
End If
dailyrs.MoveNext

98 | P a g e
Loop
MsgBox "Record Saved"
Combo1.Text = ""
Text1.Text = ""
End With
Else
MsgBox "please Enter Category Name"
Text1.SetFocus
End If
End Sub
Dim a%
Text1.Text = ""
Combo1.Text = ""

99 | P a g e
Call connect
With bcatrs
Do Until .EOF
a = .Fields(0)
.MoveNext
Loop
End With
a = a + 1
Combo1.Text = a
End Sub
With bcatrs
Do Until .EOF
.Delete
Combo1.Text = ""
Text1.Text = ""
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Record deleted"
End If
.MoveNext
Loop
End With

100 | P a g e
Else
MsgBox "Please select a record"
End If
End Sub
Combo1.Text = ""
Text1.Text = ""
End Sub
Call connect
If Len(Trim(Text1.Text)) > 0 Then
With bcatrs
Do Until .EOF
.Update
End If
.MoveNext
Loop

101 | P a g e
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Record Saved"
Combo1.Text = ""
Text1.Text = ""
End With
Else
MsgBox "please Enter Category Name"
Text1.SetFocus
End If
End Sub
Text10.Text = ""
End If
End Sub

102 | P a g e
Text11.Text = ""
End If
End Sub
KeyAscii = 8 And Not KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 And Not KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
Else

103 | P a g e
End If
Else
Else
End If
End If
End Sub
 Add New Staff Page
Dim up As Integer
Private Sub Check1_Click()
If Check1 = False Then
Text5.PasswordChar = "*"
Else
Text5.PasswordChar = ""
End If
End Sub

104 | P a g e
Call connect
With staffrs
Do Until .EOF
Text1 = .Fields(1)
Text2 = .Fields(3)
Text3 = .Fields(4)
Text4 = .Fields(5)
Text9 = .Fields(6)
Text8 = .Fields(7)
Text5 = .Fields(8)
Combo3 = .Fields(9)
Text6 = .Fields(10)
Combo4 = .Fields(11)
Text7 = .Fields(12)
End If
.MoveNext
Loop
End With
End Sub
If Combo3.Text <> "Select Question" And Len(Combo3.Text) > 0 Then
Else
End If
End Sub
Private Sub Combo3_Change()

105 | P a g e
Else
End If
End Sub
Else
End If
End Sub
Private Sub Combo4_Change()
Else
End If
End Sub
Private Sub Command6_Click()
Command7.Enabled = False
Command1.Enabled = True
Combo1.Text = ""

106 | P a g e
Check1.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub
End Sub
staff.Left = Screen.Width / 2 - staff.Width / 2
staff.Top = Screen.Height / 2 - staff.Height / 2
End Sub

107 | P a g e
Unload Me
menu.Show
End Sub
Call connect
If Combo1.Text = "" And staffrs.RecordCount > 0 Then
With staffrs
.MoveLast
End With
ElseIf Combo1.Text <> "" And staffrs.RecordCount > 0 Then
With staffrs
.MoveLast

108 | P a g e
End With
End If
End Sub
Call connect
With staffrs

109 | P a g e
End With
With staffrs
Do Until .EOF
.MovePrevious
Exit Do
End If
.MoveNext
Loop

110 | P a g e
End If
End With
End If
End Sub
Call connect
With staffrs
End With

111 | P a g e
With staffrs
.MoveFirst
End With
End If
End Sub
Call connect
With staffrs

112 | P a g e
End With
With staffrs
Do Until .EOF
.MoveNext
Exit Do
End If
.MoveNext
Loop

113 | P a g e
End If
End With
End If
End Sub
Call connect
With staffrs
Do Until .EOF
If Val(Trim(Text11.Text)) = Val(.Fields(0)) Then

114 | P a g e
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention ID NO."
End If
With staffrs
Do Until .EOF

115 | P a g e
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention Adhaar No."
End If
With staffrs
Do Until .EOF

116 | P a g e
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention First Name"
End If
End If
End Sub
Call connect
If staffrs.RecordCount < 1 Then
MsgBox "Have no Staff Member"
Else
list_staff.Show
End If
End Sub

117 | P a g e
Check1.Enabled = True
Else
MsgBox "Please select record"
End If
End Sub
Call connect

118 | P a g e
If Combo2.Text <> "Select Type" Then
With staffrs
.AddNew
.Fields(13) = ".imagestaff_admin" + CommonDialog1.FileTitle
.Fields(15) = DTPicker1.Value
.Update
End With
With rs
.AddNew

119 | P a g e
.Update
End With
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data Saved"
Combo1.Text = ""
Combo2.Text = "Select Type"
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text13.Text = ""

120 | P a g e
Else
MsgBox "Please select Staff member photo"
End If
Else
MsgBox "Please select Staff member Type"
Combo2.SetFocus
End If
Else
MsgBox "Please Enter Education"

121 | P a g e
Text13.SetFocus
End If
Else
MsgBox "Please Enter answer of" + Chr(32) + " second security question"
Text7.SetFocus
End If
Else
MsgBox "Please Enter answer of" + Chr(32) + " first security question"
Text6.SetFocus
End If
Else
MsgBox "Please put your password"
Text5.SetFocus
End If
Else
MsgBox "Please Enter aadhar no. for your security"
Text8.SetFocus
End If
Else
MsgBox "Please Enter contact no."
Text9.SetFocus
End If
Else
MsgBox "Please enter address of person"
Text4.SetFocus
End If
Else
MsgBox "Please enter last name of person"
Text3.SetFocus
End If

122 | P a g e
Else
MsgBox "Please enter first name of person"
Text2.SetFocus
End If
Else
MsgBox "Please enter username of person"
Text1.SetFocus
End If
End Sub
Combo2.Enabled = True: Combo2.Text = "Staff Type"
Combo3.Enabled = True: Combo3.Text = "Select Question"
Combo4.Enabled = True: Combo4.Text = "Select Question"
Check1.Enabled = True
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

123 | P a g e
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text13.Text = ""
Call connect
With staffrs
Do Until .EOF
a = .Fields(0)
.MoveNext
Loop
End With
a = a + 1
Combo1.Text = a
End Sub
Call connect
If Val(Combo1.Text) = staffrs.Fields(0) Then
Do Until rs.EOF

124 | P a g e
If rs.Fields(1) = staffrs.Fields(1) And rs.Fields(2) = staffrs.Fields(8) Then
rs.Delete
rs.Update
Exit Do
End If
rs.MoveNext
Loop
staffrs.Delete
Combo1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Text5.Text = ""
Text7.Text = ""
Text6.Text = ""
Text8.Text = ""
Text9.Text = ""
Text13.Text = ""
dailyrs.Update
End If
dailyrs.MoveNext

125 | P a g e
Loop
End If
staffrs.MoveNext
Loop
Else
End If
End Sub
Combo1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text13.Text = ""

126 | P a g e
Check1.Enabled = False
End Sub
Call connect

127 | P a g e
If Combo2.Text <> "Select Type" Then
With staffrs
Do Until .EOF
.Fields(12) = ".imagestaff_admin" + CommonDialog1.FileTitle
End If
.Update
End If

128 | P a g e
.MoveNext
Loop
End With
With rs
Do Until .EOF
If .Fields(1) = Text1.Text Then
.Update
End If
.MoveNext
Loop
End With
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data update"
Combo1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""

129 | P a g e
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text13.Text = ""

130 | P a g e
Else
MsgBox "Please select Staff member photo"
End If
Else
MsgBox "Please select Staff member Type"
Combo2.SetFocus
End If
Else
MsgBox "Please Enter Education"
Text13.SetFocus
End If
Else
MsgBox "Please Enter answer of" + Chr(32) + " second security question"
Text7.SetFocus
End If
Else
MsgBox "Please Enter answer of" + Chr(32) + " first security question"
Text6.SetFocus
End If
Else
MsgBox "Please put your password"
Text5.SetFocus
End If
Else
MsgBox "Please Enter aadhar no. for your security"
Text8.SetFocus
End If
Else

131 | P a g e
MsgBox "Please Enter contact no."
Text9.SetFocus
End If
Else
MsgBox "Please enter address of person"
Text4.SetFocus
End If
Else
MsgBox "Please enter last name of person"
Text3.SetFocus
End If
Else
MsgBox "Please enter first name of person"
Text2.SetFocus
End If
Else
MsgBox "Please enter username of person"
Text1.SetFocus
End If
End Sub
End Sub
End If
End Sub

132 | P a g e
End If
End Sub
End If
End Sub
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub

133 | P a g e
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0

134 | P a g e
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
Else
up = 1
End If
Else
Else
up = 0
End If
End If
End Sub
 Add New Member Page

135 | P a g e
Dim up%, a%
Dim imag1, imag2 As String
Unload Me
menu.Show
End Sub
Call connect
If Combo1.Text = "" And members.RecordCount > 0 Then
With members

136 | P a g e
End With
ElseIf Combo1.Text <> "" And members.RecordCount > 0 Then
With members
Do Until .EOF
.MoveNext
Exit Do
End If
.MoveNext
Loop

137 | P a g e
End If
End With
End If
End Sub
Call connect
With members
.MoveLast

138 | P a g e
End With
With members
.MoveLast
End With
End If
End Sub
Call connect
With members

139 | P a g e
End With
With members
Do Until .EOF
.MovePrevious
Exit Do
End If
.MoveNext
Loop

140 | P a g e
End If
End With
End If
End Sub
Call connect
With members

141 | P a g e
End With
With members
.MoveFirst
End With
End If
End Sub
Call connect

142 | P a g e
With members
Do Until .EOF
If Val(Trim(Text11.Text)) = Val(Trim(.Fields(0))) Then
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention ID NO. of Member"
End If
With members

143 | P a g e
Do Until .EOF
Exit Do
End If
.MoveNext
Loop
End With
Else
MsgBox "Please mention Member First Name"
End If
End If
End Sub

144 | P a g e
Call connect
If Image1.Picture <> LoadPicture("") Then
With members
Do Until .EOF

145 | P a g e
If Len(imag1) > 0 Then
.Fields(13) = imag1
SavePicture Image1.Picture, imag1
End If
If Len(imag2) > 0 Then
.Fields(14) = imag2
End If
.Update
End If
.MoveNext
Loop
End With
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data Updated"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

146 | P a g e
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

147 | P a g e
Else
MsgBox "please select reference person photo"
End If
Else
MsgBox "please select member photo"
End If
Else
Text10.SetFocus
MsgBox "please enter Father's name"
End If
Else
Text9.SetFocus
MsgBox "please enter your education"
End If
Else
Text8.SetFocus
MsgBox "please enter your email"
End If
Else
Text7.SetFocus
MsgBox "please enter contact number"
End If
Else
Text6.SetFocus
MsgBox "please insert reference department"
End If
Else
Text5.SetFocus
MsgBox "please insert reference name"

148 | P a g e
End If
Else
Text3.SetFocus
MsgBox "please insert reference contact no."
End If
Else
Text4.SetFocus
End If
Else
Text2.SetFocus
End If
Else
Text1.SetFocus
End If
End Sub
imag1 = ""
imag2 = ""

149 | P a g e
Else
MsgBox "please select a record"
End If
End Sub
Call connect

150 | P a g e
With members
.AddNew
.Fields(13) = imag1
.Fields(14) = imag2
.Update
End With

151 | P a g e
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Data Saved"
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

152 | P a g e
Else
MsgBox "please select reference person photo"
End If
Else
MsgBox "please select member photo"
End If
Else
Text10.SetFocus
MsgBox "please enter Father's name"
End If
Else
Text9.SetFocus
MsgBox "please enter your education"
End If
Else
Text8.SetFocus
MsgBox "please enter your email"

153 | P a g e
End If
Else
Text7.SetFocus
MsgBox "please enter contact number"
End If
Else
Text6.SetFocus
MsgBox "please insert reference department"
End If
Else
Text5.SetFocus
MsgBox "please insert reference name"
End If
Else
Text3.SetFocus
MsgBox "please insert reference contact no."
End If
Else
Text4.SetFocus
End If
Else
Text2.SetFocus
End If
Else
Text1.SetFocus
End If

154 | P a g e
End Sub
Call connect
With members
Do Until .EOF
Text1 = .Fields(1)
Text2 = .Fields(2)
Text4 = .Fields(4)
Combo2 = .Fields(3)
Text5 = .Fields(5)
Text6 = .Fields(6)
Text3 = .Fields(7)
End If
.MoveNext
Loop
End With
End Sub
member1.Left = Screen.Width / 2 - member1.Width / 2
member1.Top = Screen.Height / 2 - member1.Height / 2
Call connect
End Sub
Call connect
If members.RecordCount < 1 Then
MsgBox "Have no Member"
Else
list_member.Show

155 | P a g e
End If
End Sub
End Sub
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

156 | P a g e
End Sub
Call connect
Do Until members.EOF
If Val(Combo1.Text) = members.Fields(0) Then
members.Delete
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text3.Text = ""
Text5.Text = ""
Text7.Text = ""
Text6.Text = ""
Text8.Text = ""

157 | P a g e
Text9.Text = ""
Text10.Text = ""
dailyrs.Update
End If
dailyrs.MoveNext
Loop
End If
members.MoveNext
Loop
Else
End If
End Sub
imag1 = ""
imag2 = ""
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

158 | P a g e
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

159 | P a g e
Call connect
With members
Do Until .EOF
a = .Fields(0)
.MoveNext
Loop
End With
a = a + 1
Combo1.Text = a
End Sub
imag1 = ".imagemembers" + CommonDialog1.FileTitle
End Sub
imag2 = ".imagemembers" + CommonDialog1.FileTitle
End Sub
Text12.Text = ""

160 | P a g e
End If
End Sub
Text11.Text = ""
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub

161 | P a g e
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If

162 | P a g e
End Sub
If up = 0 Then
Else
up = 1
End If
Else
Else
up = 0
End If
End If
End Sub
 Book Issue Page

163 | P a g e
Dim flag%, up%
Call connect
Dim a%
With members
Do Until .EOF
If .Fields(0) = Combo1.Text Then
Label1.Caption = .Fields(1)
End If
.MoveNext
Loop
End With
If flag = 1 Then
With birs
Combo2.Clear
Combo2.Text = "Select issued Category"
Do Until .EOF

164 | P a g e
Combo2.AddItem .Fields(6)
End If
.MoveNext
Loop
End With
Dim c, i, j As Integer
For i = 0 To Combo2.ListCount - 1
c = 0
For j = 0 To Combo2.ListCount - 1
If Combo2.List(i) = Combo2.List(j) Then
c = c + 1
End If
Next
If c > 1 Then
Combo2.RemoveItem (i)
End If
Next
End If
End Sub
Call connect
Combo3.Clear
Combo3.Text = "Book"
Text2.Text = ""
With bookrs
Do Until .EOF

165 | P a g e
End If
.MoveNext
Loop
End With
With birs
Do Until .EOF
If Combo1.Text = .Fields(0) And Combo3.List(i) = .Fields(1) Then
End If
Next
End If
.MoveNext
Loop
End With
If birs.BOF = False Then
birs.MoveFirst
End If
If flag = 1 Then
With birs
Combo3.Clear
Combo3.Text = "Select issued Book"
Do Until .EOF
If Combo1.Text = .Fields(0) And Combo2.Text = .Fields(6) Then
End If
.MoveNext
Loop
End With

166 | P a g e
End If
End Sub
Call connect
Combo5.Clear
Combo5.Text = "New Book"
Text2.Text = ""
With bookrs
Do Until .EOF
End If
.MoveNext
Loop
End With
If Combo2.Text = Combo4.Text Then
If Combo3.Text = Combo5.List(i) Then
End If
Next
End If
End Sub
Call connect
With bookrs
Do Until .EOF

167 | P a g e
Text2.Text = .Fields(8) - Val(Text1)
End If
.MoveNext
Loop
End With
If flag = 0 Then
Else
End If
If flag = 1 Then
Combo4.Text = "New Category"
bookrs.MoveFirst
Combo5.Clear
Combo5.Text = "New Book"
With bookrs
Do Until .EOF
End If
.MoveNext
Loop
End With
If Combo2.Text = Combo4.Text Then
If Combo3.Text = Combo5.List(i) Then
End If
Next

168 | P a g e
End If
With birs
Do Until .EOF
If Combo1.Text = .Fields(0) And Combo2.Text = .Fields(6) And Combo3.Text = .Fields(1) Then
End If
.MoveNext
Loop
End With
End If
End Sub
Call connect
With bookrs
Do Until .EOF
End If
.MoveNext
Loop
End With
End Sub
flag = 0
Combo4.Visible = False
Dim c%, a$
Call connect

169 | P a g e
Text1.Text = "0"
Combo1.Clear
With members
Do Until .EOF
.MoveNext
Loop
End With
With birs
Do Until .EOF
a = .Fields(0)
c = 0
birs1.MoveFirst
Do Until birs1.EOF
If birs1.Fields(0) = a Then
c = c + 1
End If
birs1.MoveNext
Loop
If a = Combo1.List(i) And c = 2 Then
End If
Next
.MoveNext
Loop
End With

170 | P a g e
End Sub
Call connect
If Text1.Text <> "0" Then
With birs
.AddNew
birs1.Fields(0) = Combo1.Text
birs1.Fields(2) = DTPicker1.Value
birs1.Fields(4) = Text1.Text
Else
.Fields(7) = "0"
birs1.Fields(7) = "0"
End If

171 | P a g e
birs1.Update
.Update
bookrs.MoveFirst
Do Until bookrs.EOF
If bookrs.Fields(4) = Combo3.Text Then
bookrs.Fields(8) = Text2.Text
bookrs.Update
End If
bookrs.MoveNext
Loop
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Book Issued"
Text1.Text = "0"
Text2.Text = ""
Text3.Text = ""
Combo1.Clear
Combo2.Clear: Combo2.Text = "Category1"
Combo3.Clear: Combo3.Text = "Book1"
With members
Do Until .EOF
.MoveNext
Loop
End With

172 | P a g e
With bcatrs
Do Until .EOF
.MoveNext
Loop
End With
Label1.Caption = ""
Text3.Text = ""
Text3.Visible = False
End With
Else
MsgBox "can't issue 0 books"
Text1.SetFocus
End If
Else
MsgBox "Please insert books to be issue"
End If
Else
MsgBox "Please Select book"
End If
Else
MsgBox "Please Select Member"

173 | P a g e
End If
End Sub
flag = 1
Call connect
Combo1.Clear
With birs
Do Until .EOF
If DTPicker1.Value = .Fields(2) Then
End If
.MoveNext
Loop
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If
Next

174 | P a g e
If Combo1.List(i) < Combo1.List(j) Then
t = Combo1.List(i)
Combo1.List(i) = Combo1.List(j)
Combo1.List(j) = t
End If
Next
Next
Combo2.Text = "Select Issued Category"
Combo3.Text = "Select Issued Book"
Combo4.Visible = True
End Sub
Call connect
Dim temp%
If Combo2.Text <> "Select issued Category" Then
If Combo3.Text <> "Select issued Book" Then
With birs
If Combo4.Text <> "New Category" And Combo5.Text <> "New Book" Then
Do Until .EOF
temp = Val(.Fields(5))

175 | P a g e
.Update
birs1.Update
dailyrs.Update
End If
dailyrs.MoveNext
Loop
Do Until bookrs.EOF
bookrs.Fields(8) = temp + 1
bookrs.Update
ElseIf bookrs.Fields(4) = Combo5.Text Then
bookrs.Fields(8) = Text2.Text
bookrs.Update
End If
bookrs.MoveNext
Loop
End If
.MoveNext
birs1.MoveNext
Loop
Else
Do Until .EOF

176 | P a g e
.Update
birs1.Update
End If
.MoveNext
birs1.MoveNext
Loop
End If
End With
MsgBox ("Updation Successful")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Else
End If
Else
End If
Else
End If

177 | P a g e
Else
End If
End Sub
DTPicker2.Value = Date + 15
End Sub
Private Sub DTPicker2_Change()
If DTPicker2.Value < Date Then
Text3.Text = ""
ElseIf DTPicker2.Value > (Date + 30) Then
Text3.Text = ""
ElseIf DTPicker2.Value = (Date + 15) Then
Text3.Text = ""
End If
Dim dt As Date

178 | P a g e
dt = DTPicker2.Value
If (dt - DTPicker1.Value) > 15 Then
Text3.Visible = True
Text3.Text = ((dt - DTPicker1.Value) - 15) * 2
End If
End Sub
End Sub
Book_issue.Left = Screen.Width / 2 - Book_issue.Width / 2
Book_issue.Top = Screen.Height / 2 - Book_issue.Height / 2
Call connect
Dim a%
With bcatrs
Do Until .EOF
.MoveNext
Loop
End With
End Sub
Unload Me
menu.Show

179 | P a g e
End Sub
Call connect
If birs.RecordCount < 1 Then
MsgBox "There have no book issue"
Else
List_Issue.Show
End If
End Sub
End Sub
Call connect
If Combo1.Text = "" And birs.RecordCount > 0 Then
Combo1.Text = birs.Fields(0)
Text1.Text = birs.Fields(4)
Image1.Picture = LoadPicture(birs.Fields(7))
ElseIf Combo1.Text <> "" Then
With birs
Do Until .EOF
.MoveNext
Exit Do
End If
.MoveNext
Loop

180 | P a g e
End If
End With
End If
End Sub
Call connect
With birs
If Combo1.Text = "" And .RecordCount > 0 Then
.MoveLast
.MoveLast
End If

181 | P a g e
End With
End Sub
Call connect
With birs
Do Until .EOF
.MovePrevious
Exit Do
End If
.MoveNext
Loop
End If
End With
End If

182 | P a g e
End Sub
Call connect
With birs
If Combo1.Text = "" And .RecordCount > 0 Then
.MoveFirst
End If
End With
End Sub
End Sub

183 | P a g e
Call connect
With birs
If Val(Text11.Text) = .Fields(0) Then
Exit Do
End If
.MoveNext
Loop
End With
Else
End If
authorrs.MoveFirst

184 | P a g e
If Text10.Text = authorrs.Fields(1) Then
Exit Do
End If
authorrs.MoveNext
Loop
Else
End If
End If
End Sub
End Sub

185 | P a g e
End Sub
End Sub
Call connect
Do Until birs.EOF
If Combo1.Text = birs.Fields(0) Then
birs.Delete
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = "Category"
End If

186 | P a g e
birs.MoveNext
Loop
Else
End If
End Sub
End Sub
Combo1.Text = ""
Combo2.Text = "Category"
Combo4.Clear
Combo5.Clear

187 | P a g e
Text1.Text = ""
Text2.Text = ""
End Sub
Text10.Text = ""
End If
End Sub
Text11.Text = ""
End If
End Sub
Private Sub Text1_Change()
If Val(Text1.Text) > 1 Or Val(Text1.Text) < 0 Then
Text1.Text = ""
End If
Call connect
With bookrs
Do Until .EOF
If Val(Text1.Text) < .Fields(8) Then
End If
End If
.MoveNext

188 | P a g e
Loop
End With
End Sub
KeyAscii = 0
End If
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Text1 = "0"
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub
If up = 0 Then
Else

189 | P a g e
up = 1
End If
Else
Else
up = 0
End If
End If
End Sub
 Book Return Page
Dim falg As Integer
Dim up As Integer
Call connect
Dim a%

190 | P a g e
With members
Do Until .EOF
End If
.MoveNext
Loop
End With
birs.MoveFirst
With birs
Combo2.Clear
Do Until .EOF
End If
.MoveNext
Loop
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If

191 | P a g e
Next
If flag = 1 Then
Combo1.Clear
Combo2.Clear
Combo3.Clear
birs.MoveFirst
With birs
Combo3.Clear
Do Until .EOF
End If
.MoveNext
Loop
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If
Next
With bretrs
Combo2.Clear
Combo2.Text = "Old Book"
Do Until .EOF

192 | P a g e
End If
.MoveNext
Loop
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If
Next
End If
End Sub
Call connect
With birs
Do Until .EOF
Text1.Text = Val(.Fields(7))
DTPicker2.Value = Val(.Fields(2))
If .Fields(3) >= DTPicker3.Value Then
Else

193 | P a g e
If (DTPicker3.Value - DTPicker2.Value) > 15 Then
Text1.Text = ((DTPicker3.Value - DTPicker2.Value) - 15) * 2
End If
End If
End If
.MoveNext
Loop
End With
End Sub
Call connect
With birs
Do Until .EOF
Text1.Text = Val(.Fields(7))
DTPicker2.Value = Val(.Fields(2))
If .Fields(3) >= DTPicker3.Value Then
Else
If (DTPicker3.Value - DTPicker2.Value) > 15 Then
Text1.Text = ((DTPicker3.Value - DTPicker2.Value) - 15) * 2
End If
End If
End If
.MoveNext
Loop
End With
End Sub

194 | P a g e
Call connect
With birs
Do Until .EOF
.MoveNext
Loop
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If
Next
t = Combo1.List(i)
Combo1.List(j) = t
End If
Next
Next
End Sub

195 | P a g e
Call connect
With birs
Do Until .EOF
Do Until bookrs.EOF
bookrs.Fields(8) = bookrs.Fields(8) + 1
End If
bookrs.Update
bookrs.MoveNext
Loop
.Delete
With bretrs
.AddNew
.Update
End With
MsgBox "book return"
dailyrs.Update
End If
dailyrs.MoveNext

196 | P a g e
Loop
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
End If
.Update
.MoveNext
Loop
End With
Else
MsgBox "Please Select Book"
End If
Else
MsgBox "Please Select Member ID"
End If
End Sub
flag = 1
Call connect
With bretrs
Do Until .EOF
If .Fields(3) = Date Then
End If
.MoveNext
Loop

197 | P a g e
End With
c = 0
c = c + 1
End If
Next
If c > 1 Then
End If
Next
t = Combo1.List(i)
Combo1.List(j) = t
End If
Next
Next
End Sub
Call connect
If Combo2.Text <> "Old Book" Then
If Combo3.Text <> "New Book" Then
With bretrs
Do Until .EOF

198 | P a g e
.Update
dailyrs.Update
End If
dailyrs.MoveNext
Loop
MsgBox "Updation Saved"
Text1.Text = ""
End If
.MoveNext
Loop
End With
With birs1
Do Until .EOF
If .Fields(0) = Combo1.Text And .Fields(1) = Combo2.Text Then
End If
.MoveNext
Loop
End With
Else

199 | P a g e
MsgBox "Please Select Member ID"
End If
Else
MsgBox "Please Select Old returned Book"
End If
Else
MsgBox "Please Select New returned Book"
End If
End Sub
book_Return.Left = Screen.Width / 2 - book_Return.Width / 2
book_Return.Top = Screen.Height / 2 - book_Return.Height / 2
End Sub
Unload Me
menu.Show
End Sub
End Sub
Call connect
If bretrs.RecordCount < 1 Then
MsgBox "Have no Book for Return"

200 | P a g e
Else
list_return.Show
End If
End Sub
End Sub
Call connect
authorrs.MoveNext
Exit Do
End If
authorrs.MoveNext
Loop
If authorrs.EOF = False Then

201 | P a g e
End If
End If
End Sub
Call connect
authorrs.MoveLast
authorrs.MoveLast
End If
End Sub
Call connect

202 | P a g e
authorrs.MovePrevious
Exit Do
End If
authorrs.MoveNext
Loop
If authorrs.BOF = False Then
End If
End If
End Sub
Call connect
authorrs.MoveFirst

203 | P a g e
End If
End Sub
End Sub
End Sub
End Sub

204 | P a g e
End Sub
Text10.Text = ""
End If
End Sub
Text11.Text = ""
End If
End Sub
KeyAscii = 0
End If
End Sub
KeyAscii = 0
End If
End Sub

205 | P a g e
If up = 0 Then
Else
up = 1
End If
Else
Else
up = 0
End If
End If
End Sub
 Update Security Settings Page

206 | P a g e
Else
End If
End Sub
Else
End If
End Sub
Call connect
With staffrs
Do Until .EOF
If Text3.Text <> Text2.Text Then

207 | P a g e
.Update
rs.Fields(2) = Text3.Text
rs.Update
MsgBox "changes is saved"
Unload Me
menu.Show
Else
MsgBox "your new password is same as old password"
Text3.Text = ""
Text3.SetFocus
End If
Else
MsgBox "your old password is incorrect"
Text2.Text = ""
Text2.SetFocus
End If
End If
.MoveNext
rs.MoveNext
Loop
End With
Else
MsgBox "Please select Security Question 2"
Combo2.SetFocus
End If
Else
MsgBox "Please select Security Question 1"
Combo1.SetFocus
End If

208 | P a g e
Else
MsgBox "Please enter new answer 2 password"
Text5.SetFocus
End If
Else
MsgBox "Please enter new answer 1 password"
Text4.SetFocus
End If
Else
MsgBox "Please enter new password"
Text3.SetFocus
End If
Else
MsgBox "Please enter old password"
Text2.SetFocus
End If
End Sub
If Text2.Text = "" And Text3.Text = "" And Text4.Text = "" And Text5.Text = "" And Combo1.Text = ""
And Combo2.Text = "" And Check1.Value = False And Check2.Value = False Then
Unload Me
menu.Show
End If
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Check1.Value = False
Check2.Value = False

209 | P a g e
End Sub
updat.Left = Screen.Width / 2 - updat.Width / 2
updat.Top = Screen.Height / 2 - updat.Height / 2
Text1.Text = id
End Sub
Unload Me
menu.Show
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
KeyAscii = 8 Then
KeyAscii = 0
End If
End Sub
 About Us Page

210 | P a g e
Dim pic As Integer
about.Left = Screen.Width / 2 - about.Width / 2
about.Top = Screen.Height / 2 - about.Height / 2
pic = 1
End Sub
Unload Me
menu.Show
End Sub
'ChDir (Right(adrs, Len(adrs) - 2))
If pic = 1 Then
pic = 2
Label11.Caption = "Developer (Yash Agarwal)"
Image2.Picture = LoadPicture(".imageabout usyash1.jpg")

211 | P a g e
ElseIf pic = 2 Then
pic = 3
Label11.Caption = "Mentor (Tarun Sharma)"
Image2.Picture = LoadPicture(".imageabout ustarun.jpg")
ElseIf pic = 3 Then
pic = 1
Label11.Caption = "Developer (Heena Tejwani)"
Image2.Picture = LoadPicture(".imageabout usheena.jpg")
End If
End Sub
 Library Membership Card
Dim path As String
Call connect

212 | P a g e
With members
Do Until .EOF
Label8.Caption = .Fields(1) + " " + .Fields(2)
path = .Fields(13)
End If
.MoveNext
Loop
End With
End Sub
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Call connect
Combo1.Clear
Combo1.Text = "Select"
With members
If .RecordCount > 0 Then
.MoveFirst
End If
Do Until .EOF
.MoveNext
Loop
End With

213 | P a g e
Label7.Caption = ""
Label8.Caption = ""
Label10.Caption = ""
End Sub
Unload Me
menu.Show
End Sub
Set DataReport1.DataSource = members
DataReport1.Sections(2).Controls("label9").Caption = Label7.Caption
Set DataReport1.Sections(2).Controls("Image1").Picture = LoadPicture(path)
DataReport1.Show
dailyrs.Update
End If
dailyrs.MoveNext
Loop
Unload Me
End Sub
 Application Form

215 | P a g e
Chapter – 6 System Requirements of PC
Processor Core 2 Dual / 4.3 more
RAM 1, 2 GB or more
HDD 500 GB / 1 TB or more
OS Window 7 or Later
Database MS Access 2003

216 | P a g e
Chapter – 7 Conclusion
After we have completed the project we are sure the problems in the existing system world
overcome. The “Library Management System” process made computerized to reduce human
errors & to increase the efficiency. The main focus of this project is to less human efforts. The
maintenance of the records is made efficient, as all the records are stored in the Access Database,
through which data can be retrieved easily. The navigation control is provided in all the forms to
navigate through the large amount of records. If the numbers of records are very large than user
has to just type in the search string & user gets the results immediately. The editing is also made
simples. The user has to just type in the required field & process the update button to update the
desired field.
The books & students are given a particular unique id no. so that they can be access correctly &
without errors. Our main aim of the project is to get the correct information about a particular
member & books available in the Library.

217 | P a g e
Bibliography
 www.google.com
 www.youtube.com
 www.stackoverflow.com
 VB Black Book (Author: Steven Holzner)
 MS Visual Basic 2010 step by step (Author: Michael Halverson)
 The Complete Reference Visual Basic 6 (Author: Noel Jerk)
 College Notes

218 | P a g e
Thank You…
YASH AGARWAL
Dezyne E’cole College
106/10, CIVIL LINES
AJMER
RAJASTHAN - 305001 (INDIA)
(FEBRUARY, 2017)
www.dezyneecole.com

Yash Agarwal - BCA Final Year

More Related Content

What's hot (20)

Similar to Yash Agarwal - BCA Final Year (20)

More from Dezyneecole (20)

Recently uploaded (20)

Yash Agarwal - BCA Final Year