1. Visual Basic
  2. Point of Sale and Inventory System - VB 6 Version

Point of Sale and Inventory System - VB 6 Version

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

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
visual basic
point of sale
pos

Comments

Submitted by Anonymous (not verified) on Mon, 10/19/2009 - 22:13

"no value given for one or more required parameters." rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

Submitted by Anonymous (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.
  1. 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:
  1. 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

Submitted by admin on Wed, 10/21/2009 - 19:49

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.

sir, , Jay nakuha nu na po b yung na send ko?. Thanks for the time

Submitted by admin on Thu, 10/22/2009 - 17:18

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 by Anonymous (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 by Anonymous (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:
  1. Private Sub txtsearch_Change()
  2. If txtsearch.Text = "" Then
  3.     Me.Adodc1.CommandType = adCmdText
  4.     Me.Adodc1.RecordSource = "Select * from PatientInfo order by lastname"
  5.        Me.Adodc1.Refresh
  6.  
  7.         Else
  8.        
  9.  
  10.     Me.Adodc1.CommandType = adCmdText
  11.     Me.Adodc1.RecordSource = "Select * from PatientInfo where Lastname Like " & Chr(34) & Trim(txtsearch.Text) & "%" & Chr(34)
  12.     Me.Adodc1.Refresh
  13.    
  14.    End If
  15.    
  16.    
  17. End Sub
  18.  
  19. Private Sub txtsearch_KeyPress(KeyAscii As Integer)
  20. If KeyAscii = 13 Then
  21.     If txtsearch.Text = "" Then
  22.     MsgBox "Indicate Lastname", vbInformation, "Search"
  23.     Else
  24.     If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
  25.     MsgBox "Patient not Found", vbInformation, "Search"
  26.     Else
  27. Call load
  28.  
  29. End If
  30. End If
  31. End If
  32. End Sub
But using the Keypress asci 13 it is not working please help me [email protected]

Submitted by Anonymous (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 by Anonymous (not verified) on Tue, 10/27/2009 - 09:09

huhuhu. read the content above.

Submitted by Anonymous (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 by kofiwusu on 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!

It can but it needs a lot of modification. Especially on the SQL statement. This can be done easily using VB.NET but not on VB 6.0.

Thanks man! I thought it would rather be difficult in vb.net. ok boss how should i go abt it in vb.net 2008 and mysql Thanks!

Submitted by Anonymous (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 by Anonymous (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 by Anonymous (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 by Anonymous (not verified) on Thu, 11/19/2009 - 17:52

what is the database password for the POS?? TNX..

Submitted by Anonymous (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 by Anonymous (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 by Anonymous (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 by Anonymous (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