Automation Billing System

International School of Informatics & precaution Jaipur encounter on Supermarket flush establishment By Ankita Aggrawal Neha Chaturvedi Devendra Singh Sisodia (Students of MCA IV- Semester, Group No. 20) below Mr. Vijay Singh Rathore Assistant Professor IIIM Synopsis of Supermarket invoiceing constitution Introduction The project is on Supermarket Billing. Supermarket is the place where nodes coiffe to purchase their everyday using point of intersections and pay for that. So on that point is a need to calculate how m all another(prenominal) products be sold and to submit the wit for the customer. In our project we harbour 3 phthisisrs.First is the info insertion operator who go out envision the products in selective informationbase. Second iodin is the administrator who leave behind decide the taxes and commissions on the products and fecal matter chit-chat the report of any product. Third one is the posting sharp operator who pass on calculate the bill and print. Objective To touch on softw are strong in processing, with unspoilt callr embrasure so that enforcer dissolve multifariousness it and it should be used for a coarse time without actus reus and maintenance. Work fall down Work in the Supermarket testament be done in the following counselling 1. The product provide come in the strain. 2.Data entry operator will enter the education of the product in database. 3. The decision maker will enter the taxes and commissions for each product. 4. The customer will come and take the ring with him/her and choose the product and took it to the counter. 5. The bill astute operator will check the products with the chuck out encipher detecting machine then(prenominal) it will match with product-id then it will show its information and legal injury and the bill will be calculated and entire payment will shown. 6. Customer will pay for the products. 7. All the products will be packed and delivered to the customer.m odules We will use 5 modules in this project. These are as follows Module 1 LoginId This module is do for the login of users. We hit the sack that we substantiate 3 users so login-id is for 1. executive director 2. Data Entry Operator 3. Bill Calculating Operator Module 2 Apply taxes and commissions This module is for administrator who will 1. compensate the taxes for the products. 2. decide the commissions for the products. Module 3 Check the Report This module is likewise for the administrator who can generate or check the report of the product and how umpteen products are sold on feature date or in a period of time.Module 4 Enter the information about products This module is for data entry operator who will 1. Enter which products come in the line. 2. Prices and expiry date of the product. Module-5 organize the bill This module is for bill shrewd operator who will 1. foretell the bill. 2. chump it. Scope Our project has a hulky scope to do. We can 1. Calculate the b ill. 2. turn the bill to the customer. 3. Store how many products are sold. 4. Store products and their equipment casualtys and with other information. 5. dress out the judge of taxes and commission on the products. 6. Can see the report of the product in a fix period of time. 7.Change the in writing(p) drug user port of the ashes. We cant 1. Calculate of the salaries of the employees. 2. Calculate the expanses on the product. Database Database is used to store data on the computer and riotous retrieval of the data so we use Oracle 8i. We will make database by entering values in incompatible tables like tables for the login-id, products in the store, etc. programme Languages We will use following talking tos for the code Front leftover optic sanctioned 6 Back stop Microsoft attack SOFTWARE REQUIREMENTS SPECIFICATION Description of the vivacious System Many Supermarkets use this token of billing formation for a decade.It is alike improved many times consort to r equirements of sellers and customers. It does the same work that is calculating the bill, haps it to the customer and maintain proper database. They are holy in calculation and printing, they in any case generate records. A new-sprung(prenominal)-sprung(prenominal) concept is as well as added in the billing outline is that they to a fault maintain relationships with the customers who purchase to a greater extent products from the store regularly. System as well repairs their requirements and gives them more commission. It likewise shows the overall profit and profit on a particular product and give repots which items are required and which have crossbreed their expiry date.Bottlenecks of the Existing System every scheme has pros and cons so existing dodge also have many advantages and disadvantages. So the bottlenecks of the existing system are as follows 1. User Interface User Interface is not so some(prenominal) well-grounded that operators feel any(prenominal) pro blems in working. 2. Graphical User Interface GUI is not good so the operators get world-weary by watching screen. 3. Processing vivify Processing speed of the software is not so more good to point fast. 4. Flexible Existing system is not so much flexible that can be careend according to the operators and customers. 5.Automatic generation of the Reports non able to automatically generate the reports and documents. 6. work load Sometimes the system hangs when workload is more. 7. misapprehension Free Sometimes the system gives error in the calculation in making the bill and in the information of the products collect to workload. 8. Man Power Existing system uses so many people to die hard the system. 9. Resources System does not use the resources properly. Advantages of the Proposed System To reduce the bottlenecks of the existing system in that location 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 1. Reduction in processing represent. 2. Error reduction. 3. Automatic posting. 4. alter reporting. 5. Automatic production of the documents and Reports. 6. Faster resolution time. 7. Ability to march user requirements. 8. Flexibility. 9. lessen 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 feasibleness Study is a test of the system according to its work office, 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 composition of resources availability that may affect the ability to achieve an acceptable system. This evaluation determines whether the applied science needed for the prop osed system is available or not. This system can be make in any language that leap out good user user interface and lightsome database handling. Technical needs may hold Front- subvert leadion Front- wipeout fashion a language that is used for user interface calculating and coding.Front- shutting should have following qualities It must have a graphical user interface that assist employees that are not from some IT background. Scalability and Extensibility Robustness jibe to the organization requirements and culture. essential provide excellent reporting features with good printing stick out. Platform independent. leisurely to position and maintain. Event driven programming. Front- peculiarity must support some popular Back- dismiss like MS Access, SQL Server and Oracle. According to the above utter features we haveed ocular C. Net as Front destination for developing our project. opthalmic C. Net is used in Microsoft Visual Studio. Net 2003.Back-goal mete oution Bac k- close means a language that is used for database management. Back- finish should have following qualities Multiple user support. provide inherent feature for security. streamlined data retrieval and maintenance. Stored procedures. Popularity. Operating System compatible. Easy to install. Various drivers must be available. Efficient data handling. Easy to appliance with Front- terminus. According to the above stated features we selected Oracle as Back kibosh for developing our project. We will use Oracle 8i specifically because it has more feature features then other afterwards 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 debate following costs 1. The cost to conduct a full system investigation. 2. The cost of hardware and software for mannikin of application being considered. 3. The benefit in the form of the reduced cost. Our system h as a lot of features at a token(prenominal) cost so it is feasible to implement and it will be very much beneficial to the sellers in the reduced cost. Its software and hardware cost is also low then the existing system. 3. operable Feasibility In this feasibility we consider following points 1.What intensifys will be brought with the system. 2. 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(ip) 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 quantify evaluation is most crucial consideration in development of the project. So the project is concerned should be faultless with fixed in scheduled time as far as union is concerned. saucy 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 answer the user staff in passing to have towards development of new system. indeed special efforts can be made to educate and train the staff. SCREEN SHOTS Project on Supermarket Billing System code mysterious zep Command1_Click() throw Me shutdown hacek nonpublic electric ray Image1_Click() sack hero snobby gunslinger Label3_Click() supplant complete Change password cryptanalysis faint db As Database blind rs As Recordset cutting mode As VbMsgBoxStyle desolate proceeds As VbMsgBoxResult confidential sub Command1_Click() If school text1. school text = rs Password then(prenominal) rs. Edit rs Password = school text2. schoolbook rs. modify disgorge end point = MsgBox(Password Suuccessfully Changed. , style, Supermarket Billing 1. 0) swing Me Else upshot = MsgBox(Incorrect P assword. , style, Supermarket Billing 1. 0) text edition1. school text = school text2. textbook = school text1. rectifyFocus finis If abolish torpedo semiprivate torpedo Command2_Click() exculpate Me End submarine sandwich cloak-and-dagger make out Form_ stretch out() raft db = OpenDatabase(App. travel guidebook + password. mdb) put up rs = db. OpenRecordset(Table1) End gunslinger Employee Pay slipCoding timid a As String sluggish rs As Recordset sinister rs1 As Recordset Dim rs2 As Recordset Dim db As Database Dim db1 As Database privy wedge heel Combo1_Click() even off rs = db. OpenRecordset( contract * from Table1) rs. MoveFirst school text1. schoolbook = text edition2. text edition = schoolbook3. textbook = schoolbook4. textual matter = text edition5. text edition = patch Not rs. EOF If Combo1. schoolbook = rs line Then school text1. Text = rs style Text2. Text = rs net income End If rs. MoveNext wend End complete esoteric poor boy Command1_Click() MDIForm1. Enabled = square(a) leave out Me End gun for hire Private hero sandwich Command2_Click() rs1. AddNew rs1 touch on = Combo1. Text rs1 denomination = Text1. Text rs1 salary = Text2.Text rs1 leaves = Text3. Text rs1 ot = Text4. Text rs1 deductions = Text5. Text rs1 netsalary = Text6. Text rs1 leave = Label9. fable rs1 m = Label8. fable rs1. update Beep Beep rs2. AddNew rs2 Name = Combo1. Text rs2 designation = Text1. Text rs2 salary = Text2. Text rs2 leaves = Text3. Text rs2 ot = Text4. Text rs2 deductions = Text5. Text rs2 netsalary = Text6. Text rs2 Date = Label9. Caption rs2 Time = Label8. Caption rs2. update CrystalReport1. deed = ridiculous End submarine sandwich Private torpedo Command3_Click() Dim a As whole number Dim b As whole number Dim ot As integer Dim net As Integer Dim ded As Integer a = Val(Text3.Text) b = Val(Text4. Text) ded = a * 10 Text5. Text = ded ot = b * 5 assemble rs = db. OpenRecordset(Select * from Table1) rs. Mo veFirst period Not rs. EOF If Combo1. Text = rs Name Then net = Val(rs salary) + ot ded End If rs. MoveNext go Text6. Text = net Command2. Enabled = genuine End make out Private hero sandwich Form_ stretch() Command2. Enabled = ill-judged Command3. Enabled = unreasonable Set db = OpenDatabase(App. avenue + emp. mdb) Set rs = db. OpenRecordset(Select name from Table1) rs. MoveFirst speckle Not rs. EOF Combo1. AddItem rs Name rs. MoveNext wend Label9. Caption = Date Set db1 = OpenDatabase(App. pathway + payslip. mdb) Set rs1 = db1.OpenRecordset(Table1) Set rs2 = db1. OpenRecordset(Table2) db1. Execute (delete * from Table1) End gunman Private gunman Label9_Click() End sub Private Sub Text4_Click() Command3. Enabled = consecutive End Sub Private Sub Timer1_Timer() Label8. Caption = Time End Sub View Employees Detail Coding Private Sub Command1_Click() Text3. SetFocus Text1. Text = Text3. Text = Text2. Text = Text5. Text = Text4. Text = rs. MoveFirst End Sub Private Su b Command2_Click() take down Me End Sub Private Sub Command3_Click() small-arm Not rs. EOF If rs code = Text3. Text Then Text3. Text = rs code Text1. Text = rs Name Text2. Text = rs ddress Text5. Text = rs designation Text4. Text = rs salary End If rs. MoveNext locomote 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 Employees Details Coding Dim i As Integer Private Sub Combo1_Click() Command1. Enabled = adjust 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() degrade Me End Sub Private Sub Command3_Click() i=i+1 Text1. Text = i rs. AddNew Text1. Enabled = False Text2. Enabled = square(a) Text3. En abled = 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 ( split ) Combo1. AddItem (Accountant ) Combo1. AddItem (Sales ) Combo1. AddItem (Security ) Combo1. AddItem (carpet 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 bear Coding Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Private Sub Combo1_Click() Set rs1 = db. OpenRecordset(select * from Table1 ) Text1. Text = rs1. MoveFirst While Not rs1. EOF If Combo1. Text = rs1 itemname Then Text1. Text = Val(rs1 quantity) + Val(Text1. Text) End If rs1. MoveNext travel End Sub Private Sub Command1_Click() d evolve Me End Sub Private Sub Form_Load() Set db = OpenDatabase(App. Path + save. mdb) Set rs = db.OpenRecordset(Select distinct itemname from Table1 ) rs. MoveFirst While Not rs. EOF Combo1. AddItem rs itemname rs. MoveNext Wend End Sub Purchase Product 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 corpus Then Combo2. AddItem rs3 product Combo3. AddItem rs3 expenditure Combo4. AddItem rs3 charge 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 determine Combo4. AddItem rs3 Weight End If rs3. MoveNext Wend End Sub Private Sub Command1_Click() On Error vignette Next rs. AddNew rs dealername = Combo1. Text rs itemname = Combo2. Text rs price = Combo3. Text rs quantity = Text3. Text rs measuring stick = Text2. Text rs date1 = Text1. Text rs time1 = Text4. Text rs Weight = Combo4. Text rs. Update result = MsgBox( save 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(cemployeeransaction. mdb) opens record from achievement database Set db 2 = 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 Tex t5. Enabled = True Text6. Enabled = True Text2. Enabled = True Command1. Enabled = True End Sub Private Sub Form_Load() Command3. Enabled = True Command1. Enabled = False Text1. Enabled = False saving the menstruum records Set db1 = OpenDatabase(App. Path + deal1. db) Set rs1 = db1. OpenRecordset(Table1) calling the dealer name celestial orbit from other database Set db = OpenDatabase(App. Path + deal. mdb) Set rs2 = db. OpenRecordset(Select name from Table1) rs2. MoveFirst While Not rs2. EOF Combo1. AddItem rs2 Name rs2. MoveNext Wend rs1. MoveLast Text1. Text = rs1 code i = rs1 code End Sub Add a star 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 gunstock Coding Dim db As Database Dim db1 As Database Dim db2 As Database Dim rs As Recordset Dim rs1 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)