Point of Sale and Inventory System

ABSTRACT Title head teacher of cut-rate cut-rate exchange arrangement for St atomic number 53 pro endeavor Researchers Serolf, Jham Year 2013 Course info processor Science Technology Adviser CHAPTER 1 THE PROBLEM AND ITS BACKGROUND 1. 1 Introduction Man fork over come a long commission in doing communication channel legal proceeding with each an opposite(prenominal). From the primitive representations of exchanging goods or barter find outment, to the to a greater extent complex e-commerce or doing employment transactions with the serve well of process of the internet. With technology rapidly changing and upgrading every now and then, companies essential adopt to be able to excel in each act ases cut-throat competition.Automation of ones headway of cut-rate sale and arsenal agreement puts you a standard ahead in the game. It abets you conduct business transactions with ease as you only commit to press a few keys. It liberates you from countless radica l works as deliberation of the days sale and retentiveness track of inventory atomic number 18 done automatic each(prenominal)y. With these things in mind, we, the Blue marry Technology group , hopes that upon completion of this proposed register of sales yett and Inventory constitution, pitfall master take partprise lead find it of great value and an subjective asset in the corporation.That through the phthisis of this brass, unnecessary loss of clip spent on computation of recompenses leave alone be aspersed and greater client satisfaction ordain be achieved. On the part of the management, versed which products ar in need of procurement and which atomic number 18 not, will assistant avoid over stocking and greatly minimize unnecessary expenses. At the decease of the day, all transactions will be properly documented and generation of reports will just be a few keystrokes away.Finally, we hope that with the knowledge of the said arrangement of rules , we will be able to help sway Pro Enterprise become a ships company more competitive and tint wise, worthy of recognition in the local industry. 1. 2 Background and point of the discipline close companies nowadays subroutine computing devices in transacting with their clients. Companies argon now making their organizations reckonerized beca wont using a computerized governing body will help the company minimize the time and efforts consumed by using manual remains. stone pit Pro Enterprise provide not only cleaning services for your natural stones flooring, that besides offer widely variety of floor care supplies and products. A sale concerns to the expectchange of product or services for an amount of funds or its equivalent while Inventory in a business, is a total amount of goods and the act of counting them. A company proprietor m emeritusiness know the precise number of items in their storage areas in show to place orders and control losses. computing mac hineizing both packs and Inventory administration will limit an easier and high-speed transaction with the customers as tumesce as observeing the stocks of the products.The benefit of refer of bargain with Inventory body is that this system makes a business much more efficient, sonorous the costs of caterpillar tread the business while improving customer service and making the business more pleasant to work in while computerized inventory system helps management control the inventories, in turn unhorseing overall make for costs in the areas of labor, facilities and logistics. A computerized inventory system in like manner improves customer-service poetic rhythm and fulfillment rates. 1. 3 Theoretical fashion model The test is for orchestra pit Pro Enterprise by using optic Basic that were relatively aristocratic to learn and use.The exploreers were able to analyze the speed properties. Analyzing the point of sale public figure and code it is important beca use the study needs to have a case for the transaction to be accepted and a good imitator of transaction. The study use IPO chart on knowing the output of the study. The scuttle plainlyt will be a design and code. The input will hightail it through some(prenominal) process. These are the speed of transaction. 1. 4 Conceptual Framework Figure 1 Research Paradigm billet of Sale musical arrangement gemstone Pro Enterprise 1. 5 Statement of the Problem rocknroll Pro Enterprise dodging requires both(prenominal) computer literacy on the substance ab exploiter part.Its not trivial investment in time or funds to set up. If the user doesnt have basic knowledge then the skilful requirements of this POS system may baffle him. Ignoring normal practices the this POS system will confound and frustrate each user. The whole opinion of this system is for the user to describe the rules, learn accounting terminology and become more disciplined. If this will be practice, then this POS sy stem hind end bring a tremendous advantages. 1. 6 Hypothesis This study is intended to design and develop a Computerized Point of Sale System for orchestra pit Pro Enterprise 2013. Specifically, this study aims . To minimize the effort of the staff in in processing the on bourgeon Inventory 2. To make an efficient and high-fidelity computation of cash registry 3. To create a well-arranged database and to implement strong certification of the system for data security. 1. 7 Signifi scum bagce of the Study To Admin Department The proposed system will help the admin section of Stuff the Buss School Supplies. It will help to diminish the time and effort of the payroll maker/book moveer preparing payments of employees. The System develop can accommodate changing figures and produce a paperless environment through well design database.To Proponents This study will help the proponents to enhance the ability on how to create an understandable computerized system in an easy way. This will coiffure to the proponents as a challenge to do a better system. To the other Researcher This study gives knowledge to the looker on how to create a Computerized System in understandable way. This will serve as a fresh ground for the looker whose study will be tie in in the line of products of teaching Technology. 1. 8 range of mountains and Limitation Scope This study is designed to develop a Computerized Point of Sale System for Stone Pro enterprise.It covers the process of preparing the on stock inventory record, keeping of cash registry records safety and computing the exact daily revenue. The proposed computerized Point of Sale System is expected to generate receipts and report hark of daily and monthly revenue. Limitation The proposed Computerized Point of Sale System for Stone Pro Enterprise does not support network topology execution of instrument and online broadcast or online transaction. 1. 7 Definition of Terms Point of Sale or stayis the place where a tr ansaction occurs in exchange for goods or services.The point of sale often refers to the physical electronic cash register or dedicated POS hardware utilise for checkout, and the POS is apparently the location where the sale is conducted, money changes croaks and a receipt is given. achievement an agreement, communication, or movement carried out between a buyer and a seller to exchange an asset for payment. specie Register is a automaton desire or electronic device for calculating and recording sales transactions, and an linkcash drawerfor storingcash. The cash register too usually prints areceiptfor the customer.Inventory Control System is a process for managing and locating objects or materials. Computer software product is a entreaty ofcomputer programsand associatedatathat provides the instructions for telling acomputerwhat to do and how to do it. Computer Hardware equals the collection of physical elements that comprise acomputersystem. Computer System A comp lete, workingcomputer. Computer systems will include the computer along with any software systemandperipheral devicesthat are necessary to make the computer function Program is a sequence ofinstructionsscripted to perform a specified task with acomputer.CHAPTER 2 look into OF THE RELATED LITERATURE 2. 1. Foreign Literature Over the eld, more enhancements were do to the cash registers until the early 1970s, when the introductory computer-driven cash registers were introduced. The first computer-driven cash registers were essentially a mainframe computer packaged as a terminus controller that could control certain registers. These point of sale systems were the first to commercially utilize client-server technology, peer-to-peer communications, Local Area Network (LAN) backups, and remote initialization.In the late 1980s, sell software base on PC technology began to make its way into mainstream retail businesses. Today, retail point of sale systems are light age ahead of whe re they began. Todays POS systems are faster, more secure, and more reliable than their predecessors, and allow retailers to hightail it every facet of their business with a single, integrated point of sale system. Since computer power was the critical re reference book, efficiency of processing became the main goal. accent mark was placed on automating existing process such as buy or paying, often within single department as indicated by Jeffrey A.Hofer on Modern System Analysis and Design (1996). Points of sale (POS) systems are electronic systems that provide businesses with the capability to retain and analyze a wide variety of inventory and transaction data on a unremitting basis. POS systems have been touted as valuable tools for a wide variety of business purposes, including refining target marketing strategies tracking supplier purchases determining customer purchasing patterns analyzing sales (on a daily, monthly, or annual basis) of each inventory item, department, or supplier and creating reports for use in making purchases, reorders, etc.Basic points of sale systems currently in use include standalone electronic cash registers, besides know as ECRs ECR-based network systems and controller-based systems. Today, point of sale systems are light years ahead of where they began. Todays POS systems are faster, more secure, and more reliable than their predecessors, and allow retailers to operate every facet of their business with a single, integrated point of sale system. 2. 2 Local Literature Computers began from a wild imaginative idea to the worlds highly prioritized tool.Computers today are now utilise as a substitute to manual processes and other past inventions like the radio, television, etc. It is now used by people for much simpler, easier and faster way to do things. Some used it as a hobby, and some use it as a job. Technology has never stopped from advance through the years. Its new innovations helps dissolve the peoples further comp lex questions. Why not use these advantages to benefit ourselves? Many people use computers in their daily lives.Some use it for transactions, some use it for educational purposes and others use it for data storage. Though it might exit unnecessary but in some cases when storing a file for such a big company, can you manage it properly? Organizing, purpose a file, etc. With computers, it can help you simplify the process of storing and managing the files you need for future use and make finding files easier than the manual process. With our proposed Point of Sales and Inventory System In business like Stone Pro Enterprise , Sales and Inventory system plays an important role.It is used to track all the transactions do by the business and responsible for monitoring the items supplies. All the business transactions must be properly recorded and must be fully secured by password. A Computerized system is the best solution and close to innovative answer for their needs. The searcher s had been motivated to do a study on this topic tally to the above observation. The result may help others to understand more intimately computer-generated data processing, especially on how to deal with computers in monetary value of speed, true statement and data security. 2. Related Studies In exploration, we find new techniques, new knowledge, even develop new substances, gadgets, equipment, processes or procedures, imagination and skill is employed by the researcher. The commodities, new devices, services, in technology are needs of man for a better fuller life which is the concern of the research. These useful arts are the products of the technological environment and the end-user is society in general. The fast growing disregard and innovation in technologies today prompts researchers to conduct studies about the efficiency of system program.This Chapter presents a brief review of literature and studies, both local and distant that is related to these studies. 2. 4 Fo reign Studies 2. 5 Local Studies 2. 6 implication CHAPTER 3 RESEARCH METHODOLOGY This chapter outline the research methodology of this study. The research was conducted in six phases and the research methodology will be discussed under several phases research design, setting of the study, subject of the study, source data, hardware and software requirements and statistical treatment to be use to come up with an telling proposal. . 1 Research Design The descriptive method of research was used for this study. To define the descriptive type of research, Creswell (1994) stated that the descriptive method of research is to gather information about the present existing condition. The emphasis is on describing rather than on judging or interpreting. The aim of descriptive research is to verify formulated hypotheses that refer to the present situation in order to elucidate it. The descriptive approach is quick and practical in terms of the monetary aspect.Moreover, this method allows a flexible approach, thus, when important new issues and questions draw close during the duration of the study, further investigation may be conducted. Descriptive research on the other hand is a type of research that is chiefly concerned with describing the nature or condition and the degree in peak of the present situation. This method is used to describe the nature of a situation, as it exists at the time of the study and to explore the cause/s of token a phenomenon. The aim of descriptive research is to obtain an accurate write of the people, events or situations.With this research type, it is essential that the researcher already has a give notice view or picture of the phenomena being investigated before the data collection procedure is carried out. The researcher used this kind of research to obtain first hand data from the respondents so as to formulate rational and sound conclusions and preachations for the study. The descriptive approach is quick and practical in term s of the financial aspect. 3. 3 hoagieject of the Study A Point of Sale (POS ) System is asystemfor managing the sales of retail goods.The term is used to refer to the software and hardware associated with check out stands, and all of the bundled features which are included. Most retailers use a POSsystemat their check stands or counters, and several major manufacturers offer POS systems designed for various types of businesses, ranging from grocery stores to clothing boutiques. use a POSsystemmakes a business much more efficient, lowering the costs of running the business while improving customer serviceand making the business more pleasant to work in.In the retail trade, the pointofsale is the moment when a customer walks up to a counter with goods and prepares to purchase them. A POSsystemhandles the transaction, whether it takes the form of anadding machineand a hand written receipt pad, or a complex computer system. pull up in the case of very small businesses, a current POS systemusually takes the form of a computersystem. 3. 4 Sources of the Study Our source data is divided into 2 groups, namely the source data based on direct observation and data sources based on confirmatory observations. . ) Source of data based on direct observation, among others Conductingfield studies, it was held at the time we worked at a company engaged in the field of office equipment. Observation of the market to determine market unconventionals. Discussion fissure colleagues, college friends and group member . 2. ) Source of data based on indirect observations Searchingthe internet. Lecture notes Visual Basic Handbook 3. 5 result of the Study We made our own questionnaire for our study to know the outcome of Point of Sale System. accordingly we distribute it to our respondents after they answer the question we tallied and get the incriminate(a) of the verbal interpretation. 3. 6 Project Design pic pic 3. 7 System watercourse Chart pic Figure 2 System Flowcha rt 4. 5 System Algorithm Our computerized system allows business owners to track sales, cash point and item inventory. This system will also calculate the total of all the items that have been purchased. It will ensure not only that the items has been calculated accurately but it will also eliminate the chance of a wrong price being entered.It help retrieved purchase history, item sales detail, stock place reports, monthly, yearly, and seasonal sales data. Also this will prevent theft and also help to maintain a record of what is being sold. This will also help to monitor the employees. It will generate and print professional expression receipts. 3. 9 Hardware and Software Requirements The Point of Sale System by Blue radio link Technology is the software which will be used. The operate or the platform that will be going to use is windowpanes XP, Visual Basic 6. 0 as the front end and Microsoft Access 2007 as the database. Hardware minimum requirements Intel Pentium 3 3. Ghz wi th 512mb RAM. 600 x 800 screen. 3. 10 statistical Treatment Database The united collection of data, usually stored in one computer file in one location, although databases can encompass information from more sources and locations. Discount reductions to a basic price of goods or services oftenness Count This is the most straight-forward approach to working with quantitative data. Items are class according to a particular scheme and an arithmetical count is made of the number of items (ortokens) within the text which belong to each classification (ortype) in the scheme.Percentage Afractionorratiowith 100 as the resolved and understood denominator. weighted Mean is similar to anarithmetic mean(the most common type ofaverage), where instead of each of the data points contributing equally to the final average, some data points contribute more than others. The notion of weight vote out mean plays a role indescriptive statisticsand also occurs in a more general form in sever al other areas of mathematics. Tender In business, a term synonymous with payment or type of payment. CHAPTER 4 PRESENTATION ANALYSIS AND INTERPRETATION OF DATAIn this chapter states the level of acceptability of the developed system, the significant difference on the perception of the respondents to the developed system, development of the system, program flowchart, program algorithm, program heeling, program output and user manual. 4. 1 The level of Acceptability of the developed system capitulums Cashier Employee of Stuff the Weighted Mean Verbal Interpretation Bus 1.The point of sales system is easy to handle? 3 1. 5 2. 25 Uncertain 2. The computation of the amount price is accurate in 3. 5 3 3. 25 assent the Point of Sale System? 3. The point of sales System can maximize the 3. 5 4. 4 tick productivity of the cashiers work? 4.The Point of Sales System is used efficiently among 4. 5 2. 5 3. 5 Agree various stores? 5. Do you think Point of Sale System can help to your 5 2. 3. 75 Agree company? Average Weighted Mean 3. 9 2. 8 3. 35 Agree Table 3Computation of the level of acceptability of the developed system Question 1 shows that among 20 respondents uncertain that Point of Sale System is easy to handle, because of the weighted mean of 2. 25. Question 2 shows that among 20 respondents with the weighted mean of 3. 25. This manifestly means that respondents agree that the computation of the amount price is accurate in the Point of Sale System. Question 3 shows that among 20 respondents with the weighted mean of 4. 0. This shows that most of the respondents agree that the Point of Sale System can maximize the productivity of the cashiers works.Question 4 shows that among 20 respondents with the weighted mean of 3. 5. This shows that the most respondents agree that the Point of Sales System was used efficiently among various stores. Question 5 show s that among 20 respondents with the weighted mean of 3. 75. This shows the most of the respondents agree that the Point of Sale System can help to their company. Based on the get across most of the respondents agreed because of the average weighted mean of 3. 35 which falls on Agree Verbal Interpretation. 4. 2 The significance Difference of the perception of the Respondents to the Developed System Respondents DistributionThe population consists of 20 persons where 50% of the respondents are cashiers and the employee of Stone Pro Enterprise. Respondents Quality Percentage Cashiers 10 50% Customers 10 50% Table 1 Respondent Table Opinion Index The researchers will use questionnaires with the opinion index below to scale the effectiveness of the study of the respondents. Some questions have options and some are needed to be evaluated and answerable by number with corresponding verbal interpretation. ( see table 2 ). Scale Range Verbal Interpretation 5 4. 01 5. 00 Strongly Agre e 4 3. 01 4. 00 Agree 3 2. 01 3. 00 Uncertain 2 1. 01 2. 00 Disagree 1 0. 01 1. 00 Strongly Disagree Table 2 Option Index 4. 3 Development of the System pic pic pic pic pic pic pic pic pic pic pic 4. 4 Program Flow Chart pic pic pic pic pic pic pic 4. 5 Program Algorithm Our computerized system allows business owners to track sales, cash flow and item inventory. This system will also calculate the total of all the items that have been purchased. It will ensure not only that the items has been calculated accurately but it will also eliminate the chance of a wrong price being entered. Also this will prevent theft and also help to maintain a record of what is being sold. This will also help to monitor the employees. It will generate and print professional looking receipts. 4. 6 Program Listing A.Member Log In Option definite orphic milling machinery cmdClose_Click() If Me. cmdClose. furnish = Close then(prenominal) Dim resolution reaction = MsgBox(Do you realy want to deliver this program? , vbYesNo + vbQuestion, Confirm block) If reception = vbYes hence stamp out wipeout If Else fall asleep Me lay off If stopping point zep secluded paladin cmdOk_Click() Me. Adosubstance abuser. refurbish If Me. cmdClose. furnish = Close whence Me. AdoUser. Recordset. Find (UserName = & txtUser. textual matter & ) If Me. txtPassword. text = Me. AdoUser. Recordset. Fields(Password) past If Me. AdoUser. Recordset. Fields(Previledge) = Admin because mdiMain. mnuItems. Enabled = true(p) mdiMain. tbMain. Panels(2). textual matter = Me. AdoUser. Recordset. Fields(UserName) frmSplash. designate mdiMain. institute finis If If Me. AdoUser. Recordset. Fields(Previledge) = User Then mdiMain. mnuItems. Enabled = fake mdiMain. mnuUser. Enabled = off mdiMain. mnuCustomers. Enabled = misguided mdiMain. mnuSuppliers. Enabled = specious mdiMain. Toolbar1. Buttons(11). Enabled = counterfeit mdiMain. stbMain. Panels(2). text edition = Me. AdoUser. Reco rdset. Fields(UserName) Unload Me mdiMain. luff finis If Unload Me Else MsgBox Invalid Password , vbExclamation, Invalid Password Me. txtPassword. SetFocus Me. txtPassword = stamp out If ending If stop substitute clubby fill out Form_Load() On Error view Next cover SQLDB(AdoUser, withdraw * from UserAccount) AdoUser. Refresh txtUser. textbook = Admin ratiocination step in Private grinder txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdOk_Click cmdAccess_Click eradicate If curiosity fill in Private fighter txtUser_Click(Area As Integer) On Error restart Next Dim temp Me. AdoUser. Recordset. Find (UserName = & txtUser. text & ) temp = Me. AdoUser. Recordset. Fields(1) finale hero B. Main knave Private shade MDIForm_Load() With stbMain ensures all panels are visible upon loading DE. Connection1. ConnectionString = Provider=Microsoft. Jet. OLEDB. 4. Data Source= & App. Path & DBStonePro. mdb endure Security Info= counterfeitJet OLEDBDatabase P assword= mdiMain. Width = 15360 land up gun for hire Private triggerman MDIForm_Unload( cancel As Integer) Dim reply reply = MsgBox(Do you want to Quit this program? , vbYesNo + vbQuestion, Confirm Quit) If reply = vbYes Then decision culmination If error Cancel = -1 quit torpedo Private hero sandwich mnuAbout_Click() frmAbout. express vbModal complete hero sandwich Private champion mnuBD_Click() frmDatabase. Show vbModal complete gun Private sub mnuCustomers_Click() frmCustomers. Show vbModal annihilate exchange Private electric ray mnufind_Click() frmfind. Show 1 kibosh hit man Private wedge mnuGp_Click() frmGroup. Show vbModal close hitmanPrivate Sub mnuItems_Click() frmFItems. Show vbModal End Sub Private Sub mnuLogOff_Click() Dim reply reply = MsgBox(Do you really want to LogOff? , vbYesNo + vbQuestion, Confirm Log-Off) If reply = vbYes Then frmLogin. cmdClose. Caption = Cancel frmLogin. Show vbModal End If End Sub Private Sub mnuNewSales_Click() On Erro r Resume Next cover SQLDB1(frmNewSales. AdoSales, ingest * from Sales) vociferate SQLDB2(frmNewSales. adoCustomer, postulate * from Customer order by CustomerNumber) If frmNewSales. AdoSales. Recordset. RecordCount = 0 And frmNewSales. AdoSales. Recordset. RecordCount 9 Then frmNewSales. xtSalesNumber. textbook = 00000 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 9 And frmNewSales. AdoSales. Recordset. RecordCount 99 Then frmNewSales. txtSalesNumber. schoolbook = 0000 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 99 And frmNewSales. AdoSales. Recordset. RecordCount 999 Then frmNewSales. txtSalesNumber. text edition = 000 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 999 And frmNewSales.AdoSales. Recordset. RecordCount 9999 Then frmNewSales. txtSalesNumber. textbook = 00 & frmNewSal es. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 9999 And frmNewSales. AdoSales. Recordset. RecordCount 99999 Then frmNewSales. txtSalesNumber. text edition = 0 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 99999 And frmNewSales. AdoSales. Recordset. RecordCount 999999 Then frmNewSales. txtSalesNumber. textbook = frmNewSales. AdoSales. Recordset. RecordCount + 1 End If frmNewSales. xtAmountPaid. text = 0. 00 frmNewSales. txtBalance. school text = 0. 00 frmNewSales. txtTotalCost. text = 0. 00 frmNewSales. txtDeliverySatus. school text = Undelivered frmNewSales. dt while. pass judgment = date frmNewSales. DTDelivery = date frmNewSales. Show vbModal End Sub Private Sub mnu ordain_Click() frmOrders. Show vbModal End Sub Private Sub mnuOrder2_Click() frmOrders. Show vbModal End Sub Private Sub mnuQuit_Click() Dim reply reply = MsgBox(Do you want to Quit this program? , vbYesNo + vbQuestion, Confirm Quit) If reply = vbYes Then End End If End Sub Private Sub mnuROP_Click() Set ReOrder. DataSource = frmReProd. Adodc1.Recordset ReOrder. Refresh ReOrder. Show End Sub Private Sub mnuRDelivered_Click() frmDelivered. Show vbModal End Sub Private Sub mnuRItems_Click() frmFItems. Show vbModal End Sub Private Sub mnuRP_Click() frmReProd. Show vbModal End Sub Private Sub mnuRPR_Click() frmReProd. Show vbModal End Sub Private Sub mnuRSales_Click() frmSalesReport. Show vbModal End Sub Private Sub mnuRSupplier_Click() frmSupplier. Show vbModal End Sub Private Sub mnuRUndelivered_Click() frmUndelivered. Show vbModal End Sub Private Sub mnuSuppliers_Click() frmSupplier. Show vbModal End Sub Private Sub mnuTips_Click() frmTips. Show vbModal End SubPrivate Sub mnuUpdateSales_Click() frmUpdateBalance. Show vbModal End Sub Private Sub mnuUser_Click() frmUser. Show vbModal End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib. Button) Select fictitious character Button. Index Case 3 bring up mnufind_Click Case 5 PopupMenu mnu accomplishment, , Button. Left, (Button. fall + Button. Height) Case 7 PopupMenu mnuReport, , Button. Left, (Button. Top + Button. Height) Case 9 PopupMenu mnuAccount, , Button. Left, (Button. Top + Button. Height) Case 11 PopupMenu mnuHelp, , Button. Left, (Button. Top + Button. Height) Case 13 Dim reply reply = MsgBox(Do you want to Quit this program? , vbYesNo + vbQuestion, Confirm Quit) If reply = vbYes Then End End If error Cancel = -1 End Select End Sub C. Transaction Page Private Sub cmdAdd_Click() Grid_DblClick cmdEditItems. Enabled = True cmdRemove. Enabled = True End Sub Private Sub cmdCalculator_Click() Shell calc. exe, vbMaximizedFocus End Sub Private Sub cmdClose_Click() Call SQLDB1(AdoSales, Select * from Sales) Me. AdoSales. Refresh If Val(Me. txtTotalCost. text edition) = 0 Then Unload Me Else If Me. txtCustomerName. Text = Then MsgBox Please complete data before closing. , vb breeding, I nformation Else With Me. AdoSales .Refresh .Recordset.AddNew .Recordset. Fields(SalesNumber) = Me. txtSalesNumber. Text . Recordset. Fields(CustomerNumber) = Me. txtCustomerNumber. Text . Recordset. Fields(CustomerName) = Me. txtCustomerName. Text . Recordset. Fields(Datepurchased) = Me. dtDate. prize .Recordset. Fields(DeliveryDate) = Me. DTDelivery. Value .Recordset. Fields(DeliveryStatus) = Me. txtDeliverySatus. Text . Recordset. Fields(TotalCost) = Me. txtTotalCost. Text .Recordset. Fields(total) = Me. Text3. Text .Recordset. Fields(Discount) = Me. Text2. Text .Recordset. Fields(AmountPaid) = Me. txtAmountPaid. Text .Recordset.Fields(Balance) = Me. txtBalance. Text .Recordset. Update .Refresh Unload Me End With End If End If End Sub Private Sub cmdEditItems_Click() Me. AdoItems. Refresh Me. AdoItems. Recordset. Find (ItemNumber = & Me. AdoSalesInfo. Recordset. Fields(ItemNumber) & ) frmEditItems. txtinfo(0). Text = Me. AdoSalesInfo. Recordset. Fields(SalesNumber) frmEditItems. txtinfo(1). Text = Me. AdoSalesInfo. Recordset. Fields(Date) frmEditItems. txtinfo(2). Text = Me. AdoSalesInfo. Recordset. Fields(ItemNumber) frmEditItems. txtinfo(3). Text = Me. AdoSalesInfo. Recordset. Fields(ItemName) frmEditItems. txtinfo(4).Text = Me. AdoSalesInfo. Recordset. Fields(Qty) frmEditItems. txtinfo(5). Text = Me. AdoSalesInfo. Recordset. Fields( unitPrice) frmEditItems. txtinfo(6). Text = Me. AdoSalesInfo. Recordset. Fields(TotalPrice) frmEditItems. Show vbModal End Sub Private Sub cmdNew_Click() On Error Resume Next cmdEditItems. Enabled = morose cmdRemove. Enabled = bogus Call SQLDB1(AdoSales, Select * from Sales) Me. AdoSales. Refresh If Val(Me. txtTotalCost. Text) = 0 Then Else If Me. txtCustomerName. Text = Then MsgBox Please complete data before closing. , vbInformation, Information Else With Me. AdoSales .Refresh .Recordset.AddNew .Recordset. Fields(SalesNumber) = Me. txtSalesNumber. Text . Recordset. Fields(CustomerNumber) = Me. txtCustomerNumber. Text . Recordset. Fields(CustomerName) = Me. txtCustomerName. Text . Recordset. Fields(Datepurchased) = Me. dtDate. Value .Recordset. Fields(DeliveryDate) = Me. DTDelivery. Value .Recordset. Fields(DeliveryStatus) = Me. txtDeliverySatus. Text . Recordset. Fields(TotalCost) = Me. txtTotalCost. Text .Recordset. Fields(AmountPaid) = Me. txtAmountPaid. Text .Recordset. Fields(Discount) = Me. Text2. Text .Recordset. Fields(Balance) = Me. txtBalance. Text .Recordset.Fields(total) = Me. Text3. Text .Recordset. Update .Refresh Me. txtCustomerName. Locked = wild Me. txtCustomerNumber. Locked = False Me. txtCustomerName. Text = Me. txtCustomerNumber. Text = Me. txtAmountPaid. Text = 0. 00 Call SQLDB1(frmNewSales. AdoSales, Select * from Sales) Call SQLDB2(frmNewSales. adoCustomer, Select * from Customer order by CustomerName) If frmNewSales. AdoSales. Recordset. RecordCount = 0 And frmNewSales. AdoSales. Recordset. RecordCount 9 Then frmNewSales. txtSalesNumber. Text = 00000 & frmNewSales. AdoSa les. Recordset. RecordCount + 1 End If If frmNewSales.AdoSales. Recordset. RecordCount = 9 And frmNewSales. AdoSales. Recordset. RecordCount 99 Then frmNewSales. txtSalesNumber. Text = 0000 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 99 And frmNewSales. AdoSales. Recordset. RecordCount 999 Then frmNewSales. txtSalesNumber. Text = 000 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 999 And frmNewSales. AdoSales. Recordset. RecordCount 9999 Then frmNewSales. txtSalesNumber. Text = 00 & frmNewSales.AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 9999 And frmNewSales. AdoSales. Recordset. RecordCount 99999 Then frmNewSales. txtSalesNumber. Text = 0 & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount = 99999 And frmNewSales. AdoSales. Recordset. RecordCount 999999 Then frmNewSales. txtSalesNumber. Text = frmNewSales. AdoSales. Recordset. RecordCount + 1 End If frmNewSales. txtAmountPaid. Text = 0. 00 frmNewSales. txtBalance. Text = 0. 00 frmNewSales. txtTotalCost. Text = 0. 00 rmNewSales. Text3. Text = 0. 00 frmNewSales. txtDeliverySatus. Text = Undelivered frmNewSales. dtDate. Value = date frmNewSales. DTDelivery = date Me. cmdNew. Enabled = False Me. cmdNewCustomer. Enabled = True Me. cmd compensation. Enabled = False Me. cmdReciept. Enabled = False Me. cmdEditItems. Enabled = False Me. cmdRemove. Enabled = False Call SQLDB3(AdoItems, Select * from Items where RemainingQty 0) Call SQLDB(AdoSalesInfo, Select * from SalesInfo where SalesNumber= & Me. txtSalesNumber. Text & ) AdoSalesInfo. Refresh AdoItems. Refresh Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfoGrid2. Columns(1). telescopic = False Grid2. Columns(2). manifest = False Grid2. Columns(5). NumberFormat = 0. 00 Grid2. Columns(6). NumberFormat = 0. 00 Set Grid. DataSource = AdoItems Grid. Columns(0). glaring = False Grid. Columns(2). obvious = False Grid. Columns(5). Visible = False Grid. Columns(6). Visible = True Me. txtCustomerName. Locked = False Me. txtCustomerName. Locked = False lblChange. Caption = 0. 00 Me. txtCustomerName. Text = Me. txtCustomerNumber. Text = Me. txtAmountPaid. Text = 0. 00 Me. txtCustomerName. Locked = False Me. txtCustomerNumber. Locked = False Me. txtCustomerName. Text = Me. txtCustomerNumber. Text = Me. txtAmountPaid. Visible = True Unload Me End With End If End If End Sub Private Sub cmdNewCustomer_Click() With frmNewCustomer If Me. adoCustomer. Recordset. RecordCount = 0 And Me. adoCustomer. Recordset. RecordCount 9 Then . txtinfo(0). Text = 00000 & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount = 9 And Me. adoCustomer. Recordset. RecordCount 99 Then . txtinfo(0). Text = 0000 & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount = 99 And Me. doCustomer. Recordset. RecordCount 999 Then . txtinfo(0). Text = 000 & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount = 999 And Me. adoCustomer. Recordset. RecordCount 9999 Then . txtinfo(0). Text = 00 & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount = 9999 And Me. adoCustomer. Recordset. RecordCount 99999 Then . txtinfo(0). Text = 0 & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount = 99999 And Me. adoCustomer. Recordset.RecordCount 999999 Then . txtinfo(0). Text = Me. adoCustomer. Recordset. RecordCount + 1 End If .Show vbModal End With End Sub Private Sub cmdPayment_Click() If Me. AdoSalesInfo. Recordset. RecordCount = 0 Then MsgBox You cannot proceed to payment because there is no item in your sales item list , vbExclamation, Error Else frmPayment. txtBalance. Text = Me. txtBalance. Text frmPayment. Te xt3. Text = Me. txtTotalCost. Text frmPayment. txtChange. Text = 0. 00 frmPayment. txtPayment. Text = 0 frmPayment. Show vbModal End If End Sub Private Sub cmdReciept_Click() If Me. AdoSalesInfo. Recordset.RecordCount = 0 Then MsgBox There is no item , vbExclamation, StonePro System Else If Me. txtCustomerName. Text = Or Me. txtDeliverySatus. Text = Then MsgBox Please supply personal data before you view the receipt. , vbInformation, Information Else Set RptReceipt. DataSource = Me. AdoSalesInfo RptReceipt. Refresh RptReceipt. Sections(Section2). Controls(lblSalesNumber). Caption = frmNewSales. txtSalesNumber. Text RptReceipt. Sections(Section2). Controls(lblTotalCost). Caption = Format(frmNewSales. Text3. Text, ,0. 00) RptReceipt. Sections(Section2). Controls(lblCustomerNumber).Caption = frmNewSales. txtCustomerNumber. Text RptReceipt. Sections(Section2). Controls(lblCustomerName). Caption = frmNewSales. txtCustomerName. Text RptReceipt. Sections(Section2). Controls(lblDatePurcha sed). Caption = frmNewSales. dtDate. Value RptReceipt. Sections(Section2). Controls(lblDeliveryDate). Caption = frmNewSales. DTDelivery. Value RptReceipt. Sections(Section2). Controls(lblDis). Caption = Format(frmNewSales. Text2. Text, ,0. 00) RptReceipt. Sections(Section2). Controls(lblAmountPaid). Caption = Format(frmNewSales. txtPayment. Text, ,0. 00) RptReceipt.Sections(Section2). Controls(lblBalance). Caption = Format(frmNewSales. txtBalance. Text, ,0. 00) RptReceipt. Sections(Section2). Controls(lblChange). Caption = Format(frmNewSales. lblChange. Caption, ,0. 00) cmdNew. Enabled = True RptReceipt. Show 1 End If End If End Sub Private Sub cmdRemove_Click() Dim reply reply = MsgBox(Are you sure you want to transfer this item to sales list? , vbYesNo + vbQuestion, hitch to Remove) If reply = vbYes Then frmNewSales. AdoItems. Refresh Call SQLDB3(AdoItems, Select * from Items) frmNewSales. AdoItems. Recordset. Find (ItemNumber= & Me. AdoSalesInfo.Recordset. Fields(ItemNumber) & ) frmNewSales. AdoItems. Recordset. Fields(RemainingQty) = Val(frmNewSales. AdoItems. Recordset. Fields(RemainingQty)) + Me. AdoSalesInfo. Recordset. Fields(Qty) frmNewSales. AdoItems. Recordset. Update frmNewSales. AdoItems. Refresh frmNewSales. txtTotalCost. Text = Format(Val(frmNewSales. txtTotalCost. Text) Me. AdoSalesInfo. Recordset. Fields(TotalPrice), 0. 00) frmNewSales. txtBalance. Text = Format(Val(frmNewSales. txtBalance. Text) Me. AdoSalesInfo. Recordset. Fields(TotalPrice), 0. 00) frmNewSales. AdoSalesInfo. Recordset. Delete frmNewSales.AdoSalesInfo. Refresh Call SQLDB3(AdoItems, Select * from Items where RemainingQty 0) Call SQLDB(AdoSalesInfo, Select * from SalesInfo where SalesNumber= & Me. txtSalesNumber. Text & ) AdoSalesInfo. Refresh AdoItems. Refresh Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfo Grid2. Columns(1). Visible = False Grid2. Columns(2). Visible = False Grid2. Columns(5). NumberFormat = 0. 00 Grid2. Columns(6). NumberFormat = 0. 00 Set Grid. DataSource = AdoItems Grid. Columns(0). Visible = False Grid. Columns(2). Visible = False Grid. Columns(5). Visible = False If Me. AdoSalesInfo. Recordset.RecordCount = 0 Then Me. cmdEditItems. Enabled = False Me. cmdRemove. Enabled = False Me. cmdPayment. Enabled = False End If Else End If End Sub Private Sub Form_Load() On Error Resume Next Call SQLDB3(AdoItems, Select * from Items where RemainingQty 0) Call SQLDB(AdoSalesInfo, Select * from SalesInfo where SalesNumber= & Me. txtSalesNumber. Text & ) Call SQLDB2(frmNewSales. adoCustomer, Select * from Customer Order by CustomerName) adoCustomer. Refresh AdoSalesInfo. Refresh AdoItems. Refresh Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfo Grid2. Columns(1). Visible = False Grid2. Columns(2).Visible = False Grid2. Columns(5). NumberFormat = 0. 00 Grid2. Columns(6). NumberFormat = 0. 00 Set Grid. DataSource = AdoItems Grid. Columns(0). Visible = False Grid. Columns(2). Visible = False Grid. Columns(5). V isible = False Grid. Columns(6). Visible = True Grid2. Refresh Call setgrid Call settext Call setgrid lblTotal. Caption = Total Number of Records & Me. AdoSalesInfo. Recordset. RecordCount End Sub Private Sub setgrid() Set Me. Grid2. DataSource = Me. AdoSalesInfo Grid. Columns(0). Visible = False Grid. Columns(2). Visible = False Grid. Columns(3). Visible = False Grid. Columns(4). Visible = FalseGrid. Columns(5). Visible = False Grid. Columns(6). Visible = True End Sub Private Sub Grid_DblClick() With frmSalesConfirm .txtinfo(0). Text = Me. txtSalesNumber. Text .txtinfo(1). Text = Me. dtDate. Value .txtinfo(2). Text = Me. AdoItems. Recordset. Fields(ItemNumber) . txtinfo(3). Text = Me. AdoItems. Recordset. Fields(ItemName) . txtinfo(4). Text = 0 .txtinfo(5). Text = Me. AdoItems. Recordset. Fields(UnitPrice) . txtinfo(6). Text = 0. 00 If Me. AdoItems. Recordset. Fields(Unit) = Kilo Then .Label5. Caption = Quantity End If .Show vbModal End With End Sub Private Sub lvButtons_H3_Click( )Unload Me End Sub Private Sub Text1_Change() On Error Resume Next Me. AdoItems. Refresh Me. AdoItems. Recordset. Filter = ItemName want & LCase(Me. Text1. Text) & * Call settext Call setgrid If Me. Text1. Text = Then Me. AdoItems. Refresh setgrid End If End Sub Private Sub txtAmountPaid_Change() If Val(Me. txtAmountPaid. Text) Val(Me. txtTotalCost. Text) Then MsgBox Amount paid is lower than its total cost. , vbExclamation, Stone Pro System Me. txtAmountPaid. Text = 0. 00 Else Me. txtBalance. Text = Format(Val(Me. txtTotalCost. Text) Val(Me. txtAmountPaid. Text), 0. 00) End If End SubPrivate Sub txtAmountPaid_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then Exit Sub End If If KeyAscii = 46 Then Exit Sub End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub txtCustomerName_Change() On Error Resume Next Me. adoCustomer. Refresh Me. adoCustomer. Recordset. Find (CustomerName = & Me. txtCustomerName. Text & ) Me. txtCustomerNumber. Text = Me. adoCu stomer. Recordset. Fields(CustomerNumber) End Sub Private Sub txtCustomerNumber_KeyPress(KeyAscii As Integer) KeyAscii = False End Sub Private Sub txtDeliverySatus_KeyPress(KeyAscii As Integer) KeyAscii = False End SubConfirm Transaction Private Sub Check1_Click() If Check1. Value = 1 Then Me. Text2. Text = Format(Val(Me. Text3. Text * 0. 1), ,0. 00) Me. Text1. Text = Format(Me. Text2. Text, ,0. 00) Exit Sub End If If Check1. Value = 0 Then Me. Text1. Text = 0. 00 Me. Text1. Text = Format(Val(Me. txtPayment. Text) Val(Me. Text2. Text), ,0. 00) Exit Sub End If End Sub Private Sub cmdClose_Click() frmNewSales. lblChange. Caption = Me. Text4. Text frmNewSales. Text2. Text = Me. Text1. Text Unload Me End Sub Private Sub cmdOk_Click() Dim reply reply = MsgBox(Are you sure of this payment?. Payment can be done only once in this transaction. , vbQuestion + vbYesNo, Confirmation) If reply = vbYes Then If Val(Me. txtPayment) Val(frmNewSales. txtTotalCost) Then Me. txtBalance. Text = 0. 00 Me. cmdOk. Enabled = False frmNewSales. txtBalance. Text = 0. 00 frmNewSales. txtPayment. Text = Val(Me. txtPayment) Me. Text4. Text = Format(Val(Me. txtPayment) Val(Text3. Text) + Val(Text1. Text), ,0. 00) frmNewSales. txtAmountPaid. Visible = False frmNewSales. cmdReciept. Enabled = True frmNewSales. cmdPayment. Enabled = False frmNewSales. cmdEditItems. Enabled = False frmNewSales. cmdRemove. Enabled = False frmNewSales. Text3. Text = Format(Val(Text3.Text) Val(Text1. Text), ,0. 00) Me. Text1. Text = 0. 00 Else Me. txtBalance. Text = Format(Val(Me. txtPayment) Val(Me. Text3. Text) Val(Me. Text1. Text), ,0. 00) Me. txtChange. Text = 0. 00 Me. cmdOk. Enabled = False frmNewSales. txtBalance. Text = Format(Val(Me. txtPayment) Val(Me. Text3. Text) Val(Me. Text1. Text), ,0. 00) frmNewSales. txtBalance. Text = Format(Val(Me. Text3) Val(Me. txtPayment. Text) Val(Me. Text1. Text), ,0. 00) frmNewSales. lblChange. Caption = 0. 00 frmNewSales. txtAmountPaid. Text = Val(Me. txtPayment ) frmNewSales. txtPayment. Text = Val(Me. xtPayment) frmNewSales. cmdReciept. Enabled = True frmNewSales. cmdPayment. Enabled = False frmNewSales. cmdEditItems. Enabled = False frmNewSales. cmdRemove. Enabled = False frmNewSales. Text3. Text = Format(Val(Text3. Text) Val(Text1. Text), ,0. 00) Me. Text1. Text = Format((frmNewSales. Text3. Text), ,0. 00) frmNewSales. Text2. Text = Me. Text1. Text End If Else End If If Check1. Value = 1 Then Me. Text2. Text = Format(Val(Me. Text3. Text * 0. 1), ,0. 00) Me. Text1. Text = Format(Me. Text2. Text, ,0. 00) Exit Sub End If If Check1. Value = 0 Then frmNewSales. Text2. Text = 0. 00 Me. Text1.Text = 0. 00 Exit Sub End If End Sub Private Sub txtPayment_Change() If Check1. Value = 1 Then Me. Text2. Text = Format(Val(Me. Text3. Text * 0. 1), ,0. 00) Me. Text1. Text = Format(Me. Text2. Text, ,0. 00) Exit Sub End If If Check1. Value = 0 Then Me. Text1. Text = 0. 00 Exit Sub End If End Sub 4. 7 Program Output pic 4. 8 User Manual Title Automated Sa les and Inventory System of Stone Pro Enterprise Table of Contents 1. Introduction 1. 1 System Requirements 1. 1. 1 Hardware 1. 1. 1. 1 Desktop 1. 1. 1. 2 Display 1. 1. 1. 3 Cash Drawer 1. 1. 1. 4 Receipt Printer 1. 1. 2 Software 1. 2 Convention 2. Getting Started . 1 Member Log in 2. 2 Performing Transaction 3. Software Features 4. Message Boxes 5. User port wine Parts, Text boxes and Buttons 1. Introduction Most Large retail stores have migrated from the old trusty cash register to more modern computerized point of sale (POS) systems. This application Guide explores computerized POS technology and provides a roadmap for Stone Pro Enterprise. 1. 1 System Requirements 1. 1. 1 Hardware If you are a computer user, youre no doubt familiar with the most common desktop peripherals the keyboard, mouse. Blue connector Technology systems are based on ordinary desktop computer and operating system . 1. 1. 1. Desktop Desktop with outstandingr but quieter fans to minimize heat and noise. H eavy duty power supply that last endless than the standard items. Hard drive doesnt have to be in large capacity but it has to be reliable. We also want to ensure that youre using good surge protector and UPS ( battery backup) to prevent power related crashes. 1. 1. 1. 2. Display At the very least, youll need a basicmonitorat your POS to see what youre doing. Touch screenshave become a more popular and affordable option these days since they are a user friendly option that can help speed up the checkout process.Adding customer-facingandpole displayswill offer a clearer customer experience and are a great way to promote special offers to customers while they are in line. 1. 1. 1. 3. Cash Drawer They may be the simplest peripheral in a POS system, butcash drawersare still an essential part of your system. You need to have a secure place to keep cash, checks 1. 1. 1. 4. Receipt Printer Every transaction ends with a receipt for the customer straight from areceipt printer. Having a prin ter go down is one of the most crippling things to any POS system. Making sure you have a printer thatll support your print volume and is easy to use is essential.Most printers are thermal based so you dont even have to deal with ribbon cartridges anymore. Just load the paper and you are back up and running Whatever your receipt size or type requirements are, theres a printer to fit your needs. There are numerous types of receipt printers, reason like any other computer printer by its feeling technology and its computer interface. 1. 1. 2. Software ThePOS softwareby Blue Link Technology is the brains of Stone Pro Enterprise POS system. 1. 2 Convention copy Click Refer to user action Log in Window Refer to user interfaceLog in Button Refer to object Enter Key Refer to Keyboard key 2. 0 Getting Started I. Daily Start-Up 1. acquire the Computer ON Press the ON/OFF button. (On top of the computer for Stone Pro Enterprise. ) WAIT. It will take a few moments but eventually Stone Pro Enterprise System and an Address hunting application will automatically start up. A desktop with icons will appear including pic A Login screen will appear pic 2. Sign on to the System a) When the Security Login screen appears, User ID = (ask for an access code to the admin narrow down ) unless you have been assigned something else.Password = the password you selected. It will NOT appear for security reasons. ENTER b) The Main Desktop will appear pic II. Start of faux pas A. Cash Register Processing. 1. Press the Transaction Menu button. 2. Select transaction then NEW SALE. pic ( You are now ready to perform Cash Register Operations. ) III. End of Shift A. Clerk Out Start at the Transaction screen. Press CLOSE to Exit from the Transaction Screen. IV. End of sidereal day In the evening you will need to 1. Leave the cash drawer open. 2. Close Stone Pro Enterprise System Main Page 3. Exit Stone Pro Enterprise System. 4.Turn off the computer. After you fetch up the End of Shif t procedure, complete the following A. Log Off of Stone Pro Enterprise System 1. At the main Stone Pro Enterprise System desktop B. Shut Down the Computer 1. Select the Start button in the lower left hand corner. 2. Select Shut Down from the list. A Shut Down Windows window will appear. 3. Select Shut Down from the drop down list. The monitor will go black and say No Sync for a bit. CHAPTER 5 FINDINGS, CONCLUSIONS AND RECOMMENDATION In this chapter states the summary of findings, conclusion and recommendation. 4. 1 Summary of FindingsPoint of Sale System for Stone Pro Enterprise aims to develop an expert system that would enable the emergence of Point of Sale and maximize the capabilities. It shows how efficient accurate and well function, the point of sale compared to manual registry. 4. 2 Conclusion We terminate that the research has shown that the study can be useful for the company Stone Pro Enterprise. In this study considering all the factors affecting. 4. 3 Recommendation Th e Researchers recommend this Point of Sale System of Stone Pro Enterprise to be used in interested establishment in improving and percentage people retail their products. BIBLIOGRAPHY