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

Submitted byAnonymous (not verified)on Thu, 05/14/2009 - 14:33

gud pm sir. i would like to inquire about your POS Software. we are a newly opened coffee shop in malabon. is there a way we could ask you on how to use your project and other info like installation and etc. thanks and hope to hear from you soon. phoenix
Submitted byadminon Thu, 05/14/2009 - 16:07

Hi, I think my POS is not suited for a coffee shop business. This is design for merchandising. I'm planning to upgrade this system to VB.NET and I hope to include a coffee shop business. Good Luck to you business...
Submitted byAnonymous (not verified)on Thu, 05/14/2009 - 19:27

I've seen what's the password for admin and everything but the password changes everytime so it makes it hard to log in, the characters arent normal they are broke like this ¢p?chôµq×ËåõÃB|û¸??? so.. anyway to fix this?
Submitted byAnonymous (not verified)on Sat, 05/16/2009 - 10:24

Hi There, I have seen you're system and its looks very nice more importantly you Have some good talent. I am based in uk and would like to discuss a proposal which i am sure u wud like. my email is [email protected] do contact me and i will let u know what it is. Thanks
Submitted byAnonymous (not verified)on Wed, 07/22/2009 - 04:59

How are you? what is your proposal? I haven't used MSN before so please bare with me
Submitted byAnonymous (not verified)on Sat, 05/16/2009 - 20:42

Night sir.. yes i can download and running your software.. but i need User's Guide.. in your software, i can't runing that.. no action.. what i can do for get it..??? please help me... thanks before and i need your answer.. best regards [email protected]
Submitted byadminon Sun, 05/17/2009 - 19:33

Since I have a lot of inquiries here. I have already added your request to my To Do List. I just need time to finish them all.
Submitted byAnonymous (not verified)on Sun, 05/24/2009 - 15:59

dear sir, great thanks to your kindnes I am a beginner, you are my teacher,yes sir I mean i got tutorials and source code from your site. i am a beginner, I am looking cliear and detailed notes great thankfully
Submitted byAnonymous (not verified)on Thu, 05/28/2009 - 14:20

hi master :) need ur help sir, by the way iam a 4th year student sa AMA. paano po ma save sa database ang isang image like pictures? thesis ko po dental software.. rex-davao
Submitted byadminon Thu, 05/28/2009 - 15:13

Please visit http://www.sourcecodester.com/forum/re-how-move-records-connected-images.html. Next time do not write in tagalog. I supposed to delete this comment but because I want to help you so I leave it here.
Submitted byAnonymous (not verified)on Sat, 05/30/2009 - 23:56

i would just like to try ur product for a limited time to c if its the 1 for me
Submitted byAnonymous (not verified)on Wed, 06/03/2009 - 03:13

Thx a lot for your source code,i am newbie in programming.i want to ask you,how do i change the currency? I am change regional setting not work.is it themoney function? At this time i change in cash sales+new local purchase.i want from 0.00 to 000,000 CMIIW,Please give me a clue... Thx for your reply.
Submitted byadminon Wed, 06/03/2009 - 08:17

Do you mean remove the 2 decimal point?
Submitted byxiaon Wed, 06/03/2009 - 18:27

Yes... sir the 2 decimal point.... Thx for your reply.......

I'm wondering why you want to remove this 2 decimal as it will create a conflict with your accounting. But anyway, here it is: Dim curTemp As Long curTemp = "10.32" curTemp = Format(curTemp, "##,##0") Just use the format function.

In my country it's doesnt require the 2 decimal point.... so i want to remove it... Latest i am remove themoney function not tested done and I'll try your suggestion... thank you very much....
Submitted byAnonymous (not verified)on Wed, 06/03/2009 - 21:25

I have working inventory control software like yours, and i want to add to sale screen, what employee sold total values. i add someting like this Private Sub Check1_Click() If Check1.Value = 1 Then data12.Recordset.Update ........???? all connections done by data12 via database. total sale is called as tot21 via textbox.. when seller check person1 box then prog should update database table PERS, COLUMN1 when seller ceck person2 box then prog should update database table PERS, COLUMN2 ....... I am amator dont know programming welll..
Submitted byAnonymous (not verified)on Thu, 06/04/2009 - 21:41

Its not completely clear to me if your application supports barcode reading and validation via a device. What I have is a ticket with a barcode, using a barcode reader I want to validate the barcode on the ticket against a DB/Excel file and return an OK/NOTOK signal to the barcode reader. Does your application support this? I've been looking like crazy for such an app but so far no luck...:@ Thanks ahead!
Submitted byAnonymous (not verified)on Mon, 01/31/2011 - 13:37

man.. i think you don't understand how it work.. after the barcode reader reads the barcode.. this application check the barcode in database and if its valid.. it show the products data in screen not in the scanner... why you ask this kindheart programmer to "return OK/NOTOK signal to the barcode reader" if it has functionality to READ the codes? is there a barcode reader/scanner that could show the OK/NOTOK that you mean? if its there just tell him/her the reader/scanner type (although imo there are NO such tool !!!) :)
Submitted byAnonymous (not verified)on Fri, 06/05/2009 - 00:27

Your source code is running wel ,But In some part of the program somthing is missmached Eg : Private Sub InitNSD() 'For Vendor With nsdUnit .ClearColumn .AddColumn "Unit ID", 1794.89 .AddColumn "Unit", 2264.88 ------------------ ------------------ End With Here this control 'nsdUnit' is What ? my system giving an error "method or data momber not found " Can u help me ? Abhilash Joseph C,MCA Mob:009719663954244 E-mail:[email protected] web:www.softlinkcom.110mb.com

Hallo Sir, i have problam in pos is failed to opena rowset deails :'42000[micorsoft]ODBC i using CR v10 and DB2007 pls need to solve this error
Submitted byjrumalion Fri, 06/05/2009 - 10:27

Hi. I am interested in this software. There are certain things to customize it based on my business merchandising need. Kindly email me. Thanks, Jinkee Umali Realize Enterprise
Submitted byAnonymous (not verified)on Fri, 06/05/2009 - 12:26

Hallo Sir, thanks for the replay i have problam in pos is failed to opena rowset deails :42000:[micorsoft][ODBC micorsoft access driver ] undefined function 'DSum'in expression how i gat CR v8.5 pls if you have CR v8.5 pls need to solve this error
Submitted byAnonymous (not verified)on Fri, 06/05/2009 - 13:31

thanks sir.......... how to change the 2 decimal point to 3 decimal point and war i but the code and how if am not inter the user name and pass word is opne i want to remove the timer in login window Ex if i prss X is opne
Submitted byAnonymous (not verified)on Sun, 06/07/2009 - 20:45

Thanx a lot for your source code on point of sale.i want to ask you about the calculation,running with your installer application. purchase order form,try fill the quantity with 10 packs alcohol,the results for gross and amount is 400.000,00.is there anyway to fix this? Thx for your reply...

Thanks,for your fast response.my desktop regional setting based on my country,it's result as above.but when i change to US regional setting,all seem normal.what should i do to get it worked with my regional settings in our country? I am newbie sorry if too many ask.thanks
Submitted byadminon Wed, 06/10/2009 - 12:57

I think I already answered this in my chat conversation. Am I right?
Submitted byAnonymous (not verified)on Tue, 06/09/2009 - 03:29

i have this problem can you help me ? error form : frmReports Occr In:Form_Load Error Number :429 Description : Le composant Activex ne peut créer l'objet

I think this is again a common question that most of my visitors are asking. You must install crystal reports 8.5 in order to open reports.
Submitted byAnonymous (not verified)on Tue, 06/09/2009 - 22:19

its possible being client server program??
Submitted byadminon Wed, 06/10/2009 - 13:02

This program is design to support Local Area Network. But as a file server only and not the true client/server architecture. In file server all you have to do is to map the shared folder from your file server.
Submitted byxiaon Wed, 06/10/2009 - 23:58

Sir, newbie want to ask you again, In certain form such as sales order delivery,receive stock,sales order return and purchase order return.i got error on BOF or EOF the current record not exist.is it about relationship on database ??? Sorry for my dumb question,Thx
Submitted byadminon Thu, 06/11/2009 - 09:05

This error will occur only if you deleted the record in sales order return. I have included two records for this as a dummy so the program will work properly.

I am download your installer and source code but not found any records in sales order return. I found your answer at previous post by other user : "May be you are trying to click the NEW Button at the toolbar which I forgot to remove in my code. Return Items are triggered from their respectively delivery order. Currently Cash Sales is not accepting any returns. So please disregard that menu." i try manually filled sales order delivery / sales order return / local purchase return / receive item / purchase order return.But still get that error. Thanks for your kindness...
Submitted byxiaon Sun, 06/14/2009 - 02:02

I am sorry... maybe too dumb for me... For Local purchase return and purchase order return no problem.But in sales order delivery when i make sales order return the credit memo was disabled. Try to enabled from the source code,but i am get error 3265.How about this ? Did i miss operated your program again ??? Thanks Maybe i solved this problem but still need your advice,sir. in sales order return form.change to : 'Add qty received in stocks Dim RSStockUnit As New Recordset RSStockUnit.Open "SELECT * From Stock_Unit", CN, adOpenStatic, adLockOptimistic RSStockUnit.Find "[StockID] = " & toNumber(.TextMatrix(c, 10)), , adSearchForward, 1 RSStockUnit!Onhand = RSStockUnit!Onhand + toNumber(.TextMatrix(c, 4)) RSStockUnit.Update I hope this will work.... no time to tested.. too sleepy..
Submitted byAnonymous (not verified)on Sun, 06/14/2009 - 00:38

Sir, how would I add my own Product Id to ring up things insted for using barcode? Insted for barcode I want to use item's id, like D12.99 and then it will pick up the price from data. Thank you
Submitted byadminon Mon, 06/15/2009 - 17:32

The system is designed to transact record using barcode. If you like and know some programming you can actually change the label of a barcode to something like Product ID. The barcode column can accept alphanumeric character so you don't have to worry about your value.
Submitted byAnonymous (not verified)on Sun, 06/14/2009 - 19:02

hi sir how to change the date form MM-dd-yyyy to dd-mm-yyy in reports
Submitted byAnonymous (not verified)on Sun, 06/14/2009 - 19:13

hi sir how to change the date MM-dd-yyyy to dd-MM-yyyy in the reports
Submitted byAnonymous (not verified)on Wed, 06/17/2009 - 13:12

Good Day Sir, i am using the alan simpson source code on access numbers to words, but it is limited only to thousand,if i enter million, the result is error, even on decimal they will be round-off. needed help. many thanks, [email protected] Option Compare Database 'Use database order for string comparisons Option Explicit 'Require explicit variable declaration 'This routine (c) 1994 Alan Simpson author of Understanding Access 2.0 by Sybex 'Variables used in NumWord() procedure defined here in Declarations. Dim EngNum(90) As String Dim StringNum As String, Chunk As String, English As String Dim Hundreds As Integer, Tens As Integer, Ones As Integer Dim LoopCount As Integer, StartVal As Integer Dim TensDone As Integer Dim Pennies As String Static Function NumWord(ByVal AmountPassed As Currency) As String '** Convert a number to words for filling in the Amount of a check '** Example: NumWord(120.45) returns ONE HUNDRED TWENTY PESOS AND 45/100 '** Can handle numbers from 0 to $999,999.99 '** First working version, not yet fully tuned for speed or brevity. '** The array below, and other variables, are dimensioned '** in the Declarations section. '** Fill EngNum array, if it's not filled already) If Not EngNum(1) = "ONE" Then EngNum(0) = "" EngNum(1) = "ONE" EngNum(2) = "TWO" EngNum(3) = "THREE" EngNum(4) = "FOUR" EngNum(5) = "FIVE" EngNum(6) = "SIX" EngNum(7) = "SEVEN" EngNum(8) = "EIGHT" EngNum(9) = "NINE" EngNum(10) = "TEN" EngNum(11) = "ELEVEN" EngNum(12) = "TWELVE" EngNum(13) = "THIRTEEN" EngNum(14) = "FOURTEEN" EngNum(15) = "FIFTEEN" EngNum(16) = "SIXTEEN" EngNum(17) = "SEVENTEEN" EngNum(18) = "EIGHTEEN" EngNum(19) = "NINETEEN" EngNum(20) = "TWENTY" EngNum(30) = "THIRTY" EngNum(40) = "FORTY" EngNum(50) = "FIFTY" EngNum(60) = "SIXTY" EngNum(70) = "SEVENTY" EngNum(80) = "EIGHTY" EngNum(90) = "NINETY" End If '** Convert incoming Currency value to a string for parsing. StringNum = Format$(AmountPassed, "000000.00") '** Initialize other variables English = "" LoopCount = 1 StartVal = 1 Pennies = Mid$(StringNum, 8, 2) '** Just in case the check is for less than a buck... If AmountPassed 99 Then English = English & EngNum(Hundreds) & " HUNDRED " End If '** Do the tens & ones portion of 3-digit number TensDone = False '** Is it less than 10? If Tens = 11 And Tens 999.99 And LoopCount = 1 Then English = English + " THOUSAND " End If '** Do pass through second three digits LoopCount = LoopCount + 1 StartVal = 4 Wend '** Done: Return english with pennies tacked on. NumWord = Trim(English) & " and " & Pennies & "/100" End Function
Submitted byAnonymous (not verified)on Thu, 06/18/2009 - 15:27

hallo sir hot to change the amonut nemder to word text for add to reports fo cash sales

Add new comment

About text formats