winzip icon

A POS and Inventory System

Submitted on: 2/19/2015 12:35:00 PM
By: jaypabs (from psc cd)  
Level: Advanced
User Rating: By 12 Users
Compatibility: VB 6.0
Views: 16170
     POS and Inventory System v1.0 A must have features: 1. Barcode support 2. Point of Sales 3. Place an order (sales order or purchase order) 4. Receive or deliver an order by batch More features and other files needed to run this source code can be found at Revision: Oct. 22, 2009 Made some changes on the header of the report rptCashInvoice.rpt to automatically retrieve the company info from Business Info table.

winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net

Other 4 submission(s) by this author


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Advanced category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

11/23/2016 10:07:09 AMmoses

this is one heck of a coding. thumbs up. only that i have a problem when i press f11 or f12 so that i may print it displays this error . on F11 Private Sub cmdSettle_Click()
Dim rs As New Recordset

If blnPaid = False Then
btnLabel.Caption = "Transaction not yet paid."
Exit Sub
End If... (Error on .caption)

and on f12 it displays this Private Sub cmdPrint_Click()
If blnSave = False Then
btnLabel.Caption = "Settle a transaction first before printing a receipt."
Exit Sub
End If (error on .caption)
(If this comment was disrespectful, please report it.)

4/28/2017 6:02:12 AMVishesh Jain

In your Project, all ocx not found, always shows error not found.

(If this comment was disrespectful, please report it.)


Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)

To post feedback, first please login.