Download Supermarket Billing System: Product Module and Coding and more Study Guides, Projects, Research Computer Science in PDF only on Docsity!
SUPERMARKET BILLING SYSTEM
INTRODUCTION
The project is on Supermarket Billing. Supermarket is the place where customers come to purchase their daily using products and pay for that. So there is a need to calculate how many products are sold and to generate the bill for the customer. In our project we have 3 users. First is the data entry operator who will enter the products in database. Second one is the administrator who will decide the taxes and commissions on the products and can see the report of any product. Third one is the bill calculating operator who will calculate the bill and print.
OBJECTIVE
“To make software fast in processing, with good user interface so that user can change it and it should be used for a long time without error and maintenance.”
WORK FLOW
Work in the Supermarket will be done in the following way:
- The product will come in the store.
- Data entry operator will enter the information of the product in database.
- The Administrator will enter the taxes and commissions for each product.
- The customer will come and take the basket with him/her and choose the product and took it to the counter.
- The bill calculating operator will check the products with the bar code detecting machine then it will match with product-id then it will show its information and price and the bill will be calculated and total payment will shown.
- Customer will pay for the products.
- All the products will be packed and delivered to the customer.
MODULES
We will use 5 modules in this project. These are as follows: Module 1: Login–Id This module is made for the login of users. We know that we have 3 users so login-id is for:
- Administrator
- Data Entry Operator
- Bill Calculating Operator Module 2: Apply taxes and commissions This module is for administrator who will
- Set the taxes for the products.
- Set the commissions for the products. Module 3: Check the Report This module is also for the administrator who can generate or check the report of the product and how many products are sold on particular date or in a period of time. Module 4: Enter the information about products This module is for data entry operator who will
- Enter which products come in the store.
- Prices and expiry date of the product. Module-5: Calculate the bill This module is for bill calculating operator who will
- Calculate the bill.
- Print it.
SCOPE
Our project has a big scope to do. We can:
- Calculate the bill.
- Give the bill to the customer.
- Store how many products are sold.
- Store products and their prices and with other information.
shows the overall profit and profit on a particular product and give repots which items are required and which have cross their expiry date. Bottlenecks of the Existing System Every system has pros and cons so existing system also have many advantages and disadvantages. So the bottlenecks of the existing system are as follows:
- User Interface: User Interface is not so much good that operators feel some problems in working.
- Graphical User Interface: GUI is not good so the operators get bored by watching screen.
- Processing speed: Processing speed of the software is not so much good to operate fast.
- Flexible: Existing system is not so much flexible that can be changed according to the operators and customers.
- Automatic generation of the Reports: Not able to automatically generate the reports and documents.
- Workload: Sometimes the system hangs when workload is more.
- Error Free: Sometimes the system gives error in the calculation in making the bill and in the information of the products due to workload.
- Man Power: Existing system uses so many people to operate the system.
- Resources: System does not use the resources properly. Advantages of the Proposed System To reduce the bottlenecks of the existing system there is a need to develop a new system. The new system should concern the requirements of the customer and the sellers. It has the following qualities:
- Reduction in processing cost.
- Error reduction.
- Automatic posting.
- Improve reporting.
- Automatic production of the documents and Reports.
- Faster response time.
- Ability to meet user requirements.
- Flexibility.
- Reduced dependency. 10.Improves resource uses. 11.Reduction in use of the paper. 12.Reduction in Man Power. Proposed system has these qualities including the qualities of the existing system. Feasibility Study “Feasibility Study” is a test of the system according to its workability, impact of the organization, ability to meet user needs and effective use of the resources. We can test our system by different type of the feasibilities. There are 5 types of the feasibilities which are discussed here. These are as follows: 1. Technical Feasibility: A study of resources availability that may affect the ability to achieve an acceptable system. This evaluation determines whether the technology needed for the proposed system is available or not. This system can be made in any language that support good user interface and easy database handling. Technical needs may include:
versions and it is easy to make and maintain database. It is also easy to implement Oracle 8i with Visual C#.Net in Microsoft Visual Studio.Net 2003.
2. Economical Feasibility: In this we consider following costs:
- The cost to conduct a full system investigation.
- The cost of hardware and software for class of application being considered.
- The benefit in the form of the reduced cost. Our system has a lot of features at a minimum cost so it is feasible to implement and it will be very much beneficial to the sellers in the reduced cost. It’s software and hardware cost is also low then the existing system. 3. Operational Feasibility: In this feasibility we consider following points:
- What changes will be brought with the system.
- What new skills will be required? Do the existing staff members have these skills? If not, can they be trained in due course of time? In the new system we made some major changes for the staff members so that they have to be trained to use the newly added facilities. These major changes are possible and give a new era in the Supermarket in production and sales management. 4. Schedule Feasibility: Time evaluation is most important consideration in development of the project. So the project is concerned should be completed with fixed in scheduled time as far as company is concerned. New system is not so much big so it is easy to make in few days.
5. Behavioral Feasibility: People are inherently resisted to change and a computer means “change is the only certainty”. An estimate should be made of how strong a reaction the user staff in going to have towards development of new system. Thus special efforts can be made to educate and train the staff.
Screen shots
Supermarket Billing System
Coding Private Sub Command1_Click() Unload Me End Sub Private Sub Image1_Click() End Sub Private Sub Label3_Click() End Sub Change Password Coding Dim db As Database Dim rs As Recordset Dim style As VbMsgBoxStyle Dim result As VbMsgBoxResult Private Sub Command1_Click() If Text1.Text = rs!Password Then rs.Edit rs!Password = Text2.Text rs.Update Beep result = MsgBox("Password Suuccessfully Changed.", style, "Supermarket Billing 1.0") Unload Me Else result = MsgBox("Incorrect Password.", style, "Supermarket Billing 1.0") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path + "\password.mdb") Set rs = db.OpenRecordset("Table1") End Sub Employee Pay slip
Coding Private Sub Command1_Click() Text3.SetFocus Text1.Text = "" Text3.Text = "" Text2.Text = "" Text5.Text = "" Text4.Text = "" rs.MoveFirst End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() While Not rs.EOF If rs!code = Text3.Text Then Text3.Text = rs!code Text1.Text = rs!Name Text2.Text = rs!address Text5.Text = rs!designation Text4.Text = rs!salary End If rs.MoveNext Wend End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path + "\emp.mdb") Set rs = db.OpenRecordset("Table1") 'Text1.SetFocus End Sub Private Sub Text3_Change() End Sub Save Employee’s Details
Coding Dim i As Integer Private Sub Combo1_Click() Command1.Enabled = True End Sub Private Sub Command1_Click() rs!code = Text1.Text rs!Name = Text3.Text rs!address = Text2.Text rs!designation = Combo1.Text rs!salary = Text4.Text rs.Update Command1.Enabled = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" 'Combo1.Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() i = i + 1 Text1.Text = i rs.AddNew Text1.Enabled = False Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Combo1.Enabled = True End Sub Private Sub Form_Load() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Combo1.Enabled = False Command1.Enabled = False Combo1.AddItem ("Manager ") Combo1.AddItem ("Cashier ") Combo1.AddItem ("Accountant ") Combo1.AddItem ("Sales ") Combo1.AddItem ("Security ") Combo1.AddItem ("Sweeper ") Set db = OpenDatabase(App.Path + "\emp.mdb") Set rs = db.OpenRecordset("Table1") rs.MoveLast Text1.Text = rs!code i = rs!code End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Total Stock
Coding Dim style As VbMsgBoxStyle Dim result As VbMsgBoxResult Dim db As Database Dim rs As Recordset Dim db1 As Database Dim db4 As Database Dim db2 As Database Dim rs2 As Recordset Dim rs1 As Recordset Dim rs3 As Recordset Dim rs4 As Recordset Dim rs6 As Recordset Private Sub Combo1_Click() Set rs3 = db1.OpenRecordset("Table1") rs3.MoveFirst While Not rs3.EOF If Combo1.Text = rs3!dealer Then Combo2.AddItem rs3!product 'Combo3.AddItem rs3!price 'Combo4.AddItem rs3!Weight End If rs3.MoveNext Wend End Sub Private Sub Combo2_Click() Set rs3 = db1.OpenRecordset("Table1") rs3.MoveFirst While Not rs3.EOF If Combo2.Text = rs3!product Then Combo3.AddItem rs3!price Combo4.AddItem rs3! Weight End If rs3.MoveNext Wend End Sub Private Sub Command1_Click() On Error Resume Next rs.AddNew rs!dealername = Combo1.Text rs!itemname = Combo2.Text rs!price = Combo3.Text rs!quantity = Text3.Text rs! amount = Text2.Text rs!date1 = Text1.Text rs!time1 = Text4.Text rs!Weight = Combo4.Text rs.Update result = MsgBox("Saved Successfully.", style, "Supermarket Billing 1.0") Unload Me Load Form7 Form7.Show Form7.Move 0, 0 End Sub Private Sub Command2_Click() Unload Me Load Form7 Form7.Show Form7.Move 0, 0 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() rs.Delete End Sub Private Sub Form_Load() Command1.Enabled = False Text1.Text = Date Set db1 = OpenDatabase(App.Path + "\deal1.mdb") Set rs1 = db1.OpenRecordset("Table1") Set rs2 = db1.OpenRecordset("Select distinct dealer from Table1 ") Set rs4 = db1.OpenRecordset("Table1") 'Set db4 =apppath+ OpenDatabase("c:\employee\transaction.mdb") 'opens record from transaction database Set db = OpenDatabase(App.Path + "\save.mdb") Set rs = db2.OpenRecordset("Table1") 'saves the purchased data to updated data rs2.MoveFirst While Not rs2.EOF Combo1.AddItem rs2!dealer rs2.MoveNext Wend End Sub Private Sub Text1_Change() End Sub
Private Sub Text2_Change() Command1.Enabled = True End Sub Private Sub Text3_Change() Text2.Text = Val(Combo3.Text) * Val(Text3.Text) End Sub Private Sub Timer1_Timer() Text4.Text = Time End Sub Add New Product
Coding Dim db1 As Database Dim rs1 As Recordset Dim rs2 As Recordset Dim i As Integer Private Sub Command1_Click() rs1!code = Text1.Text rs1!dealer = Combo1.Text rs1!product = Text5.Text rs1!price = Text6.Text rs1!Weight = Text2.Text rs1.Update Command1.Enabled = False Command3.Enabled = True Text1.Text = "" Text5.Text = "" Text6.Text = "" Text2.Text = "" Combo1.Clear End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() i = i + 1 Text1.Text = i rs1.AddNew Text1.Enabled = False Combo1.Enabled = True Text5.Enabled = True Text6.Enabled = True Text2.Enabled = True Command1.Enabled = True End Sub View Sold Stock
Coding Dim db As Database Dim db1 As Database Dim db2 As Database Dim rs As Recordset Dim rs As Recordset Dim rs2 As Recordset Dim rs3 As Recordset Dim rs4 As Recordset Dim style As VbMsgBoxStyle Dim result As VbMsgBoxResult Private Sub Combo1_Click() Set rs1 = db.OpenRecordset("Select * from Table1 ") Text2.Text = "" rs1.MoveFirst While Not rs1.EOF If Combo1.Text = rs1!product Then Text2.Text = Val(rs1! quantity) + Val(Text2.Text) End If rs1.MoveNext Wend Set rs2 = db1.OpenRecordset("Table1") Set rs2 = db1.OpenRecordset("Select * from Table1 ") Text1.Text = "" rs2.MoveFirst While Not rs2.EOF If Combo1.Text = rs2!itemname Then Text1.Text = Val(rs2!quantity) + Val(Text1.Text) End If rs2.MoveNext Wend Text3.Text = Val(Text1.Text) - Val(Text2.Text) If Val(Text3.Text) <= 4 Then result = MsgBox("WARNING STOCK LOW !!!.", style, "Supermarket Billing 1.0") End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() CrystalReport1.Action = False End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path + "\bill.mdb") Set rs = db.OpenRecordset("Select distinct product from Table1 ") rs.MoveFirst While Not rs.EOF Combo1.AddItem rs!product rs.MoveNext Wend Set db1 = OpenDatabase(App.Path + "
save.mdb") End Sub Update Selling Price
Coding Dim rs As Recordset Dim rs1 As Recordset Dim db As Database Private Sub Combo1_Click() Set rs1 = db.OpenRecordset("select * from Table1 ") List1.Clear List2.Clear List4.Clear List5.Clear List6.Clear List7.Clear Text1.Text = "" Text2.Text = "" Text3.Text = "" rs1.MoveFirst While Not rs1.EOF If Combo1.Text = rs1!customername Then Text1.Text = rs1!customernumber Text2.Text = rs1!Date Text3.Text = rs1!Time List1.AddItem rs1!itemnumber List2.AddItem rs1!product List4.AddItem rs1!Weight List5.AddItem rs1!price List6.AddItem rs1!quantity List7.AddItem rs1!totalprice End If rs1.MoveNext Wend End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path + "\bill.mdb") Set rs = db.OpenRecordset("Select distinct customername from Table1") rs.MoveFirst While Not rs.EOF Combo1.AddItem rs!customername rs.MoveNext Wend End Create New Bill
Coding Dim a As Integer Dim b As Integer Dim rs As Recordset Dim rs1 As Recordset Dim rs2 As Recordset Dim rs3 As Recordset Dim rs4 As Recordset Dim rs5 As Recordset Dim rs6 As Recordset Dim db As Database Dim db1 As Database Dim db2 As Database Dim i As Integer Dim j As Integer Private Sub Combo1_Click() Set rs1 = db.OpenRecordset("Select * from Table1") rs1.MoveFirst Text4.Text = "" Text5.Text = "" While Not rs1.EOF If Combo1.Text = rs1!product Then Text3.Text = rs1!sellingprice Text2.Text = rs1!Weight End If rs1.MoveNext Wend End Sub Private Sub Command1_Click() On Error Resume Next rs2.AddNew rs2!customernumber = Text7.Text rs2!customername = Text10.Text rs2!itemnumber = Text6.Text rs2!product = Combo1.Text 'rs2!code = Text1.Text rs2!Weight = Text2.Text rs2!price = Text3.Text rs2!quantity = Text4.Text rs2!totalprice = Text5.Text rs2!Date = Text8.Text rs2!Time = Text9.Text rs2.Update Beep Beep rs4.AddNew rs4!customernumber = Text7.Text rs4!customername = Text10.Text rs4!itemnumber = Text6.Text rs4!product = Combo1.Text 'rs4!code = Text1.Text rs4!Weight = Text2.Text rs4!price = Text3.Text rs4!quantity = Text4.Text rs4!totalprice = Text5.Text rs4! Date = Text8.Text rs4!Time = Text9.Text rs4.Update List1.AddItem Text6.Text List2.AddItem Combo1.Text 'List3.AddItem Text1.Text List4.AddItem Text2.Text List5.AddItem Text3.Text List6.AddItem Text4.Text List7.AddItem Text5.Text b = 0 For a = 0 To List7.ListCount - 1 b = b + Val(List7.List(a)) Label19.Caption = b Next a i = i
- 1 Text6.Text = i End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() On Error Resume Next List1.RemoveItem List1.ListCount - 1 List2.RemoveItem List2.ListCount - 1 'List3.RemoveItem List3.ListCount - 1 List4.RemoveItem List4.ListCount - 1 List5.RemoveItem List5.ListCount - 1 List6.RemoveItem List6.ListCount - 1 List7.RemoveItem List7.ListCount - 1 Label19.Caption = "" i = i - 1 Text6.Text = i End Sub Private Sub Command5_Click() db2.Execute ("delete * from Table1") End Sub Private Sub Form_Load() Text8.Text = Date Set db = OpenDatabase(App.Path + "\stock.mdb") Set rs = db.OpenRecordset("Select product from Table1") rs.MoveFirst While Not rs.EOF Combo1.AddItem rs!product rs.MoveNext Wend Set db1 = OpenDatabase(App.Path + "\bill.mdb") Set rs2 = db1.OpenRecordset("Table1") Set db2 = OpenDatabase(App.Path + "\temp.mdb") Set rs4 = db2.OpenRecordset("Table1") db2.Execute ("delete * from Table1") i = 1 Text6.Text = i j = 0 Text7.Text = j End Sub Private Sub Label5_Click() End Sub
