1000 Projects

Bookshop Management System VB Project with Source Code

July 15, 2012

This project Bookshop System explains about how Book Shops works with the computer application when any customers buys books from the store. This Project developed for Rama Krishna Book House in India where the Previous book shop management system was taken care and known of  all Books Names, price, author, Quantity of the books, Ordering new books, payments, employee salary and other things. Here we are providing the following VB windows application to provide all included and automated features to the admin of the book shop. Admin no need to know more details about each book , if user wants any book then admin searches in his system using this application and will come to know the price values, quantity of the book and author name. The below Billing Management system VB source code explains about how the billing section & payment processing works.

MsgBox "Please enter a quantity..."
Exit Sub
End If
For i = 1 To LOF(1) / 124
Get #1, i, book
If b = 10 Then
MsgBox "Record already full,Print the bill or Press Clear to reset bill...", , "Record Full"
Exit Sub
End If
If book.isbn = Text1.Text + "-" + Text2.Text + "-" + Text3.Text + "-" + Text4.Text Then
For j = 0 To b - 1
If bs(j).bookname = book.bookname Then
If bs(j).quantity = 0 Then
MsgBox "0 book available..."
Exit Sub
End If
If bs(j).quantity < Text5.Text Then
MsgBox "Only " + bs(j).quantity + " book(s) are available..."
Exit Sub
End If
End If
Next
Label4(b).Caption = book.bookname
Label10(b).Caption = book.sellat
Label6(b).Caption = Text5.Text
Label7(b).Caption = Int(Text5.Text) * Int(book.sellat) - (Int(Text5.Text) * Int(book.sellat) * Int(Text6.Text) / 100)
b = b + 1
bs(b) = book
bs(b).quantity = Int(book.quantity) - Int(Text5.Text)
indexd(b) = i
Command1.Enabled = True
Label11(f).Caption = Text6.Text
f = f + 1
Exit Sub
End If
Next
MsgBox "No entry found...", , "No Entry"

The below Books Manager web form source code includes the below options to the administrator


  1. Please enter a valid book name
  2. Please enter a valid Author
  3. Please enter a currency
  4. Please enter a valid Price
  5. Please enter a currency
  6. Please enter a valid Price
  7. Please enter a valid Discount
  8. Please enter a valid ISBN Number
  9. Please select a valid Category
  10. Please Select a valid quantity
Dim book As bookstructure
'ISBN Check
Dim i As Integer
For i = 1 To LOF(1)
Get #1, i, book
If book.isbn = Text6.Text + "-" + Text7.Text + "-" + Text8.Text + "-" + Text9.Text Then
MsgBox "Entry already exist...", , "Entry Exists"
Exit Sub
End If
Next
'Book Name
If Text1.Text = "" Then
MsgBox "Please enter a valid book name..."
Exit Sub
Else
book.bookname = Text1.Text
End If
'Author Name
If Text2.Text = "" Then
MsgBox "Please enter a valid Author..."
Exit Sub
Else
book.authorname = Text2.Text
End If
'Buying Price
If IsNumeric(Text3.Text) = False Then
MsgBox "Please enter a currency..."
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "Please enter a valid Price..."
Exit Sub
Else
book.buyat = Text3.Text
End If
'Buying Price
If IsNumeric(Text4.Text) = False Then
MsgBox "Please enter a currency..."
Exit Sub
End If
If Text4.Text = "" Then
MsgBox "Please enter a valid Price..."
Exit Sub
Else
book.sellat = Text4.Text
End If
'Discount
If Text5.Text = "" Then
MsgBox "Please enter a valid Discount..."
Exit Sub
Else
book.discount = Text5.Text
End If
'ISBN Number
If Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then
MsgBox "Please enter a valid ISBN Number..."
Exit Sub
Else
book.isbn = Text6.Text + "-" + Text7.Text + "-" + Text8.Text + "-" + Text9.Text
End If
'Catagory
If Combo1.Text = "" Then
MsgBox "Please select a valid Catagory..."
Exit Sub
Else
book.catagory = Combo1.Text
End If
'Quantity
If Combo2.Text = "" Then
MsgBox "Please Select a valid quantity..."
Exit Sub
Else
book.quantity = Combo2.Text
End If
'End of code for creating structure...
Put #1, LOF(1) / 124 + 1, book
MsgBox "Book Added to the database...", vbOKOnly, "Success"
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim b1 As bookstructure
For i = 1 To LOF(1) / 124
Get #1, i, b1
If Trim(b1.isbn) = Text15.Text + "-" + Text16.Text + "-" + Text17.Text + "-" + Text18.Text Then
Text10.Text = b1.bookname
Text11.Text = b1.authorname
Text12.Text = b1.buyat
Text13.Text = b1.sellat
Text14.Text = b1.discount
Text19.Text = b1.catagory
Text20.Text = b1.quantity
Exit Sub
End If
Next
MsgBox "No such record found...", vbDefaultButton1, "No Record Found"
End Sub

Download Bookshop Management System VB Project with Source Code.


The following two tabs change content below.
Hi, Find more on FB...

Latest posts by Ramesh Gavva/Kasarla shanthan (see all)

posted in CSE Mini Projects, CSE Projects with Source Code, VB projects by Ramesh Gavva/Kasarla shanthan

Follow comments via the RSS Feed | Leave a comment | Trackback URL


‹‹‹ Airline Announcement System VB Project with Source Code

Network administrator tool project report ›››

Custom Search

1 Comment to "Bookshop Management System VB Project with Source Code"

  1. Ashokkumar wrote:

    i need full project with coding

Leave Your Comment

 
Copyright 2014 | Powered by 1000Projects.org | Developed by WikiHands.