10-04-2017, 09:12 PM
This post provides full visual basic (VB) Script source code for the Library Management System Project. Here VB code works for server side scripting validations and like be a windows based application. The main advantage of this project is to useful for college libraries, school libraries for book management system. The below added Vb code explains how Student details, Book details, Book Issue details, Admin book add and delete features, Library details. Database tables are stored in MS Access database.
[cc lang= vb ] TabCaption(0) = Member Details
TabCaption(1) = Book Details
TabCaption(2) = Issue Details
Form4.Data1.RecordSource = select * from Issue_mast
d = InputBox( Enter the member code to delete the record , Delete )
Data3.RecordSource = select * from issue_mast where mem_code=' + d +
MsgBox The member has not returned the book , vbInformation, Library
Data1.RecordSource = select * from mem_mast
r = InputBox( Enter your member code , Book Return )
Data3.RecordSource = select * from issue_mast where mem_code=' + r +
Data3.RecordSource = select * from issue_mast
b = InputBox( Enter your book code , Book Return )
Data2.RecordSource = select * from book_mast where book_code=' + b +
d = InputBox( Enter the book code to delete the book , Delete )
Data3.RecordSource = select * from issue_mast where book_code=' + d +
MsgBox Don t Delete, we have issued this book , vbInformation, Library
Data2.RecordSource = select * from book_mast
Data1.RecordSource = select * from mem_mast
Data2.RecordSource = select * from Book_mast
Data3.RecordSource = select * from Issue_mast
Data1.RecordSource = select * from Mem_mast
Data2.RecordSource = select * from Book_mast
Data3.RecordSource = select * from Issue_mast
[/cc] Library Project Web Form for Getting Book Information:
[cc lang= vb ]Private Sub Command2_Click()
Form1.Data2.RecordSource = select * from book_mast
Form1.Data2.Refresh
Form3.Hide
Form1.Show
End Sub
Private Sub Text1_LostFocus()
On Error GoTo errorhandle
Data1.RecordSource = select * from book_mast where book_code=' + Text1.Text +
Data1.Refresh
Do While Not Data1.Recordset.EOF
c = c + 1
Data1.Recordset.MoveNext
Loop
If c <> 0 Then
MsgBox Duplicate Code , vbExclamation, Duplicate
Text1.Text =
Text1.SetFocus
Else
Text2.SetFocus
End If
Exit Sub
errorhandle:
MsgBox Error occurred!Wrong Book Code , vbInformation, Error
End[/cc] Issuing Book VB web Form:
[cc lang= vb ] Data1.RecordSource = select * from issue_mast
Form1.Data2.RecordSource = select * from book_mast where book_code=' + Text3.Text +
Form1.Data3.RecordSource = select * from issue_mast
Form1.Data2.RecordSource = select * from book_mast where book_name=' + List1.Text +
Data1.RecordSource = select * from issue_mast where mem_code=' + Text1.Text +
MsgBox Please return the book first , vbInformation, Book Return
Form1.Data1.RecordSource = select * from mem_mast where mem_code=' + Text1.Text +
Form1.Data2.RecordSource = select * from book_mast
MsgBox Error occured!Wrong Member Code , vbInformation, Error
MsgBox ( Please check your stock )[/cc]
Manual process of keeping student records, book records, account details, managing employee is very difficult. There are various problems also faced by the student in library such as finding any particular book, information whether book is available or not, for what time this book will be available, searching of books using ISBN number etc. To eliminate this manual system, library management system has been developed. Library Management System will handle all the current issues faced by the students and by its admin personnel.
Motivation behind this project
To store all the information in the database from where user will place their query and get the results on the basis of their query. Only valid users will be able to access this Library Management System. Through this Library Management System it will be easy to manage accounts and various details of particular student and employees working under library along with the records of book.
Library Management System Project
The current Library Management System does not eliminate the process of searching books within the library campus. Students have to find books manually. They have to wait until they are not provided with their library card and token. For receiving book they have to show their library card and wait in line for their turns. The admin personnel also have to look manually on which day which person will take the charge within library to manage the overall work.
Library Management System Overview
This Library Management System will have login page from where its user can access. This page will provide login for admin, working staff members and the students. Staff members accounts will be manage by the admin. To access the library resources students have to register by using their registration number, email address, phone number, class roll number and password. After successful registration they will be provided the login facility.
Students can search books by using book ISBN number or by author name or by title of book along with author name. After completion of this process students will be provided with book details such as where it is located by using location number and by their row and column number.
If any student has lost their book, then this should be informed to library working staff member where they can made changes to their account and take appropriate actions such as fine.
Admin will able to add staffs, delete staffs, add students, delete students, add books, manage account details, schedule working time table etc.
For receiving book from the Library Management System students have to use their bard code card and provide to the staff members where they will scan their card and add particular book into their account. If any student does not clear their previous dues then it will display a message of defaulter and last date to submit their dues.
[cc lang= vb ] TabCaption(0) = Member Details
TabCaption(1) = Book Details
TabCaption(2) = Issue Details
Form4.Data1.RecordSource = select * from Issue_mast
d = InputBox( Enter the member code to delete the record , Delete )
Data3.RecordSource = select * from issue_mast where mem_code=' + d +
MsgBox The member has not returned the book , vbInformation, Library
Data1.RecordSource = select * from mem_mast
r = InputBox( Enter your member code , Book Return )
Data3.RecordSource = select * from issue_mast where mem_code=' + r +
Data3.RecordSource = select * from issue_mast
b = InputBox( Enter your book code , Book Return )
Data2.RecordSource = select * from book_mast where book_code=' + b +
d = InputBox( Enter the book code to delete the book , Delete )
Data3.RecordSource = select * from issue_mast where book_code=' + d +
MsgBox Don t Delete, we have issued this book , vbInformation, Library
Data2.RecordSource = select * from book_mast
Data1.RecordSource = select * from mem_mast
Data2.RecordSource = select * from Book_mast
Data3.RecordSource = select * from Issue_mast
Data1.RecordSource = select * from Mem_mast
Data2.RecordSource = select * from Book_mast
Data3.RecordSource = select * from Issue_mast
[/cc] Library Project Web Form for Getting Book Information:
[cc lang= vb ]Private Sub Command2_Click()
Form1.Data2.RecordSource = select * from book_mast
Form1.Data2.Refresh
Form3.Hide
Form1.Show
End Sub
Private Sub Text1_LostFocus()
On Error GoTo errorhandle
Data1.RecordSource = select * from book_mast where book_code=' + Text1.Text +
Data1.Refresh
Do While Not Data1.Recordset.EOF
c = c + 1
Data1.Recordset.MoveNext
Loop
If c <> 0 Then
MsgBox Duplicate Code , vbExclamation, Duplicate
Text1.Text =
Text1.SetFocus
Else
Text2.SetFocus
End If
Exit Sub
errorhandle:
MsgBox Error occurred!Wrong Book Code , vbInformation, Error
End[/cc] Issuing Book VB web Form:
[cc lang= vb ] Data1.RecordSource = select * from issue_mast
Form1.Data2.RecordSource = select * from book_mast where book_code=' + Text3.Text +
Form1.Data3.RecordSource = select * from issue_mast
Form1.Data2.RecordSource = select * from book_mast where book_name=' + List1.Text +
Data1.RecordSource = select * from issue_mast where mem_code=' + Text1.Text +
MsgBox Please return the book first , vbInformation, Book Return
Form1.Data1.RecordSource = select * from mem_mast where mem_code=' + Text1.Text +
Form1.Data2.RecordSource = select * from book_mast
MsgBox Error occured!Wrong Member Code , vbInformation, Error
MsgBox ( Please check your stock )[/cc]
Manual process of keeping student records, book records, account details, managing employee is very difficult. There are various problems also faced by the student in library such as finding any particular book, information whether book is available or not, for what time this book will be available, searching of books using ISBN number etc. To eliminate this manual system, library management system has been developed. Library Management System will handle all the current issues faced by the students and by its admin personnel.
Motivation behind this project
To store all the information in the database from where user will place their query and get the results on the basis of their query. Only valid users will be able to access this Library Management System. Through this Library Management System it will be easy to manage accounts and various details of particular student and employees working under library along with the records of book.
Library Management System Project
The current Library Management System does not eliminate the process of searching books within the library campus. Students have to find books manually. They have to wait until they are not provided with their library card and token. For receiving book they have to show their library card and wait in line for their turns. The admin personnel also have to look manually on which day which person will take the charge within library to manage the overall work.
Library Management System Overview
This Library Management System will have login page from where its user can access. This page will provide login for admin, working staff members and the students. Staff members accounts will be manage by the admin. To access the library resources students have to register by using their registration number, email address, phone number, class roll number and password. After successful registration they will be provided the login facility.
Students can search books by using book ISBN number or by author name or by title of book along with author name. After completion of this process students will be provided with book details such as where it is located by using location number and by their row and column number.
If any student has lost their book, then this should be informed to library working staff member where they can made changes to their account and take appropriate actions such as fine.
Admin will able to add staffs, delete staffs, add students, delete students, add books, manage account details, schedule working time table etc.
For receiving book from the Library Management System students have to use their bard code card and provide to the staff members where they will scan their card and add particular book into their account. If any student does not clear their previous dues then it will display a message of defaulter and last date to submit their dues.