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:
- Barcode support
- Point of Sales
- Place an order (sales order or purchase order)
- Receive or deliver an order by batch
- Support for returning of orders
- Product inventory according to unit of measures
- 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.
Comments
re: Inquiry
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...
Password problem
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|û¸
I Have proposal for you
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
Thanks...
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]
re: Thanks...
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.
sir its my replay
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
Dental Software
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
re: Dental Software
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.
Currency
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.
re: currency
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:
Just use the format function.
- Dim curTemp As Long
- curTemp = "10.32"
- curTemp = Format(curTemp, "##,##0")
help me plz???
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..
Barcode support
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!
return an OK/NOTOK signal to the barcode reader????
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 !!!) :)
Hello Sir , Plz help me .....
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
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
Interested to your software
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
Hallo Sir, thanks for the
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
re: Hallo Sir, thanks for the
You cannot run vb in debugging mode if the report contains DSum function. Compile the project file and run the program and this error will gone.
thanks sir.......... how to
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
Use the format function. Ex:
Use the format function.
Ex: http://www.sourcecodester.com/visual-basic/point-sale-software.html#comment-2312
Point of sale calculation
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...
Calculation
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
can you help me ?
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
re: can you help me ?
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.
re: possible?
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.
error
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...
error
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..
No barcode
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
re: No barcode
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.
hi sir how to change the date
hi sir
how to change the date form MM-dd-yyyy
to dd-mm-yyy in reports
re: hi sir how to change the date
If you are using crystal reports you can change it's formating by clicking the customize button under the format field of your text field.
numbers to words source code in millions
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 1 Then
English = "ZERO"
End If
'** Now do each 3-digit section of number.
While LoopCount = 2
Chunk = Mid$(StringNum, StartVal, 3)
Hundreds = Val(Mid$(Chunk, 1, 1))
Tens = Val(Mid$(Chunk, 2, 2))
Ones = Val(Mid$(Chunk, 3, 1))
'** Do the hundreds portion of 3-digit number
If Val(Chunk) > 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 10 Then
English = English & " " & EngNum(Ones)
TensDone = True
End If
'** Is it a teen?
If (Tens >= 11 And Tens = 19) Then
English = English & EngNum(Tens)
TensDone = True
End If
'** Is it Evenly Divisible by 10?
If (Tens / 10#) = Int(Tens / 10#) Then
English = English & EngNum(Tens)
TensDone = True
End If
'** Or is it none of the above?
If Not TensDone Then
English = English & EngNum((Int(Tens / 10)) * 10)
English = English & " " & EngNum(Ones)
End If
'** Add the word "thousand" if necessary.
If AmountPassed > 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
re: numbers to words source code in millions
Here's the source code from Raju2047:
Changing number to words.
hallo sir hot to change the
hallo sir hot to change the amonut nemder to word text
for add to reports fo cash sales
Add new comment
- Add new comment
- 7727 views