Point of Sale and Inventory System - VB 6 Version

Submitted by admin on Saturday, November 15, 2008 - 15:12.

Language

Free Point of Sale (POS) and Inventory System.

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
  5. Support for returning of orders
  6. Product inventory according to unit of measures
  7. Run the source code to appreciate the program

Note: Automatic numbering of barcode (field) is used to simulate barcoding system. Just used the correct barcode of the product if you want to use the barcoding system.

Account information:

username: admin
password: a

For the database password please read FAQ.

Download POS and Inventory System v1.0 Installer here.

Note: You need crystal reports 8.5 to run the source code. If you don't have crystal reports you can still open the source code without problem with the ocx by installing the Installer above.

As you may already know, VB 6 is not already supported by Windows 10. So if you have this version, it's better to run a virtual machine like VMWare and install Windows XP to avoid any problem.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com 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.

Tags

Comments

"no value given for one or more required parameters." rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
Submitted byAnonymous (not verified)on Sat, 12/05/2009 - 19:51

bka nman kce wlng laman yung mga parameter mo ung sa filter n ginamit mo subukan mo i check o kya kuhanin mu sql statement mu.

ito po yung laging lumalabas kapag pinindot ko ung debug "no value given for one or more required parameters." tapos ito po yung nag high lishts kpag na pindot ko na ung debug 'rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Make sure that you spelled your fields correctly. Try to in-close also some field like code and unit. May be this is a reserve words. sql = "Select * from tblSubjects where Code = '" & txtCode.Text & "' or Description = '" & txtDescription.Text & "' or Unit = '" & txtUnit.Text & "' or Department = '" & cboDepartment.Text & "' order by LastName asc" ex: sql = "Select * from tblSubjects where [Code] = '" & txtCode.Text & "' or [Description] = '" & txtDescription.Text & "' or [Unit] = '" & txtUnit.Text & "' or [Department] = '" & cboDepartment.Text & "' order by LastName asc"

Sir, nasend ko na po sa share thanks for the time. and if yu have ideal for that system inform me thanks a lot

After you login just click the submit now link below the menu bar then click source code to upload source code in zip format. To create a zip file right click the folder where you put your source code and click "Send to >> compressed (zipped) folder". I am sending you an email also just in case you'd like me to do it for you. Thank you for sharing.

Yes but next time you have to send it to my email add. Reply to my previous email on the problem you encounter in your program.
Submitted byAnonymous (not verified)on Wed, 10/21/2009 - 23:16

hi there! can you send me this same s/w excluding the bar code features etc. advance features programmed in C++ ?? i just need the basic functioning of a POS s/w :) plz send it asap at: alpha0echo9 AT ml1 DOT net thanks

That is what I am doing now. However, I would like to speed up printing and would like to print each line everytime an item is entered and not after the last item is entered. If you have a slow printer, it would be very tedious to wait e.g. to complete 20 or more items before starting to print. It is also to make sure proper accounting of every item read by the scanner/barcode reader. Others suggest the printer.print * method but I am having difficulty avoiding double space. Any suggestion will be appreciated.

Try to help What do you mean with print every items ? If you want to print directly or to print first then preview the print out you can add this on frmReports Form load Case "Receipt" Set mReport = mTest.OpenReport(App.Path & "\Reports\rptCashInvoice.rpt") mReport.RecordSelectionFormula = strWhere mReport.PrintOut False, 1, , 1, 1 Thanks

He/she means that after each item is added to the list of sales the printer would print right away not waiting for the other or whole item. Just like with a normal cash register with printer (not computer). I don't know if there such a program to do this. This can be done in MS-DOS but with crystal reports I don't think it can be done.

Yes, Incidentally the usual xbase program command "SET DEVICE TO PRINT" usually does the job. But with visual basic, I think the only way around it is by sending command characters using Printer.print chr(?>) where in the ?? is a command code understandable by the printer. Some specific dot matrix command codes if provided by supplier may be the solution IMHO but they are not available.
Submitted byAnonymous (not verified)on Sun, 10/25/2009 - 20:17

Kindly help me with this, What code should be use when the highlighted data in datagrid you want to show in the form in their own respective textboxes using the enter key This are the codes I have use for mouse click: Private Sub txtsearch_Change() If txtsearch.Text = "" Then Me.Adodc1.CommandType = adCmdText Me.Adodc1.RecordSource = "Select * from PatientInfo order by lastname" Me.Adodc1.Refresh Else Me.Adodc1.CommandType = adCmdText Me.Adodc1.RecordSource = "Select * from PatientInfo where Lastname Like " & Chr(34) & Trim(txtsearch.Text) & "%" & Chr(34) Me.Adodc1.Refresh End If End Sub Private Sub txtsearch_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtsearch.Text = "" Then MsgBox "Indicate Lastname", vbInformation, "Search" Else If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then MsgBox "Patient not Found", vbInformation, "Search" Else Call load End If End If End If End Sub But using the Keypress asci 13 it is not working please help me [email protected]
Submitted byAnonymous (not verified)on Mon, 10/26/2009 - 15:07

Hi m new to this website.. Can u tel from where to download .ocx and .dll file for this?? i hav heard about the installer but can u give me the link to download that installer file?
Submitted byAnonymous (not verified)on Tue, 10/27/2009 - 09:09

huhuhu. read the content above.
Submitted byAnonymous (not verified)on Tue, 10/27/2009 - 13:10

hi sir ican shar the database between two pc and i use the same software in two pc
Submitted bykofiwusuon Thu, 11/05/2009 - 00:40

Sir, Is it possible to use mysql as a database instead of the access? if possible please instruct me on how to do it. I can convert the access DB into mysql with no problem but the problem is making the connections. Thanks!
Submitted byAnonymous (not verified)on Mon, 11/09/2009 - 11:13

how can i change the short cut to be my local langguage. i try edit the word at form1.frm but some word can't change after run. Pls help & Thank a lot
Submitted byAnonymous (not verified)on Wed, 11/18/2009 - 17:53

sir , i just have some questions regarding to the guidelines in creating the POS system & how to start it ...
Submitted byAnonymous (not verified)on Thu, 11/19/2009 - 14:47

Please email to me the username and password of the point of sale system. Send to this email adderess! [email protected]
Submitted byAnonymous (not verified)on Thu, 11/19/2009 - 17:52

what is the database password for the POS?? TNX..
Submitted byAnonymous (not verified)on Sun, 11/22/2009 - 19:48

Please email to me the username and password of the point of sale system. Send to this email adderess! [email protected]
Submitted byAnonymous (not verified)on Wed, 11/25/2009 - 07:43

Hey I'm looking to find a program with some simple code to punch in a number and make barcodes like the ones on your print preview.. how could I go about that? code39?

"Never in the field of human conflict was so much owed by so many to so few." -Winston Churchill This was the famous quote of Sir Winston Chruchill, he told this word during battle of britain, as britain is being bombarded by Nazi Germany, British isles is in a blink os collapase. But thanks god to his Royal Air Force and especially to his advanced radar that time, "God save the queen" as he addressed to the parliament. And this was almost happening to you, not that much, but MUCH OWED BY SO MANY and done only by one or few....lolsss Merry christmas my friend! and to all of you there
Submitted byAnonymous (not verified)on Wed, 12/02/2009 - 21:29

nice program but still it needs some modification.. 1st when you enter the same product, it must not be replaced but add the qty of it.. 2nd when the transaction has completely done it must be recorded to the database for returning products or exchange, it must have the name of customer, etc.. 3rd i'm a little bit confused what the used of F2 and F3.. 4th can you make my suggestion to improve this program.. tnxxxxx
Submitted byAnonymous (not verified)on Sun, 12/06/2009 - 16:06

..ziR, jz wnnA azk thE pazZword of the database of ur inventory system wd POS??? ..thnkz...

Add new comment

About text formats