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]

Download Library Management System Project in VB with full Source Code.