Point of Sale and Inventory System

ABSTRACT Title: Sharp-end of Sale Rule for Stone Pro Execution Researchers: Serolf, Jham Year : 2013 Course: Computer Science Technology Adviser: CHAPTER 1 THE PROBLEM AND ITS BACKGROUND 1. 1 Introduction Man feel end a crave way in doing calling affairs delay each other. From the pristine ways of exchanging confollowing or “barter rule”, to the spent multifarious “e-commerce” or doing calling affairs delay the acceleration of the internet. Delay technology firm changing and upgrading perfect now and then, companies must unite to be cogent to surignoring in each callinges’ “cut-throat” emulation. Automation of one’s sharp-end of sale and archives rule puts you a trudge forward in the sport. It accelerations you guide calling affairs delay readiness as you merely feel to throng a few keys. It liberates you from unnumbered brochure fruits as reckoning of the day’s sale and custody course of archives are effected automatically. Delay these things in soul, we, the Blue Link Technology arrange , visions that upon completion of this Projected Sharp-end of Sale and Archives System, Stone Pro Execution allure asassured it of big rate and an indispenscogent asset in the concourse. That through the use of this System, useless droopping of space tardy on reckoning of reimbursements allure be minimized and biger client atonement allure be achieved. On the allot of the composition, sharp which effects are in deficiency of procurement and which are not, allure acceleration escape aggravate hoarding and bigly minimize useless expenses. At the end of the day, all affairs allure be rightly documented and hoard of descriptions allure lawful be a few keystrokes loose. Finally, we vision that delay the effect of the said System, we allure be cogent to acceleration Stone Pro Execution beend a concourse spent competitive and description prudent, pure of confession in the persomal toil. 1. 2 Backplea and purpose of the examine Most companies nowadays use computers in transacting delay their clients. Companies are now making their rules computerized owing using a computerized rule allure acceleration the concourse minimize the space and exertions consumed by using manual rule. Stone Pro Execution procure not merely cleaning advantages for your regular stones foundationing, but to-boot extend distant abnormity of foundation heed preparation and effects. A sale adverts to the modify of effect or advantages for an all of capital or its equipollent period Archives in a calling, is a completion all of confollowing and the act of computeing them. A concourse proprietor must distinguish the purposeed estimate of disunites in their storage areas in arrange to locate arranges and coerce drooppinges. Computerizing twain Sales and Archives Rule allure frame an easier and firmer affair delay the customers as courteous-behaved-behaved as warnering the hoards of the effects. The behoof of Sharp-end of Sale delay Archives rule is that this rule frames a calling abundant spent fertile, dark the requires of bestow the calling period decent customer advantage and making the calling spent sportive to fruit in period Computerized archives rule accelerations composition coerce the inventories, in diverge dark aggravateall loose requires in the areas of strive, facilities and logistics. A computerized archives rule to-boot improves customer-advantage metrics and fulfillment rates. 1. 3 Theoretical Framefruit The examine is for Stone Pro Execution by using “Visual Basic” that were proportionately facile to infer and use. The discoveryers were cogent to criticise the press properties. Analyzing the sharp-end of sale drawing and principle; it is influential owing the examine deficiencys to feel a description for the affair to be received and a cheerful imitator of affair. The examine use IPO chart on sharp the output of the examine. The input allure be a drawing and principle. The input allure ignoring through divers way. These are the press of affair. 1. 4 Conceptual Framefruit Figure 1 Discovery Paradigm Sharp-end of Sale Rule Stone Pro Execution 1. 5 Statement of the Problem Stone Pro Execution Rule requires some computer literacy on the user allot. It's not unweighty boarding in space or capital to set up. If the user doesn't feel basic distinguishledge then the technical requirements of this POS rule may eschew him. Ignoring usual exercises the this POS rule allure intermingle and defeat each user. The all effect of this rule is for the user to ensue the rules, infer accounting engagementinology and beend spent disciplined. If this allure be exercise, then this POS rule can carry a awful advantages. 1. 6 Hypothesis This examine is intended to drawing and amplify a Computerized Sharp-end of Sale Rule for Stone Pro Execution 2013. Specifically, this examine endowment: . To minimize the exertion of the staff in in waying the on Hoard Archives 2. To frame an fertile and considerate reckoning of capital Registry 3. To invent a courteous-behaved-arranged axiomsbase and to instrument solid protection of the rule for axioms protection. 1. 7 Appreciation of the Examine To Admin Division The projected rule allure acceleration the admin individuality of Stuff the Buss School Supplies. It allure acceleration to abate the space and exertion of the payroll framer/bookkeeper preparing reimbursements of employees. The Rule amplify can decide changing figures and aggregate a brochureless environment through courteous-behaved-behaved drawing axiomsbase. To Proponents This examine allure acceleration the proponents to improve the strength on how to invent an comprehendcogent computerized rule in an facile way. This allure forward to the proponents as a brave to do a ameliorate rule. To the other Researcher This examine gives distinguishledge to the discoveryer on how to invent a Computerized Rule in comprehendcogent way. This allure forward as a blooming plea for the discoveryer whose examine allure be allied in the room of Instruction Technology. 1. 8 Scope and Limitation Scope This examine is drawinged to amplify a Computerized Sharp-end of Sale Rule for Stone Pro execution. It covers the way of preparing the on hoard archives annals, custody of capital registry annalss prophylactic and computing the lawful daily fruits. The projected computerized Sharp-end of Sale Rule is expected to breed returns and description catalogue of daily and monthly fruits. Limitation The projected Computerized Sharp-end of Sale Rule for Stone Pro Execution does not living netfruit topology instrumentation and onoutline program or onoutline affair. 1. 7 Definition of Conditions Sharp-end of Sale - or checkout is the locate where a affair occurs in modify for confollowing or advantages. The sharp-end of sale frequently adverts to the natural electronic capital archives or abandoned POS hardware used for repressout, but the POS is simply the colonization where the sale is guideed, capital changes artisans and a reception is loving. Affair -  an conformity, message, or change-of-attribute carried out between a buyer and a seller to modify an asset for reimbursement. Capital Archives - is a effortless or electronic expedient for farsighted and annalsing sales affairs, and an attached capital drawer for storing cash. The capital archives to-boot usually imprints a receipt for the customer. Inventory Coerce Rule -  is a way for managing and locating endowment or materials. Computer Software -  is a afford of computer programs and allied data that procures the instructions for summited a computer what to do and how to do it. Computer Hardware - equals the afford of natural elements that imply a computer system. Computer Rule - A thorough, fruiting computer. Computer rules allure conceive the computer acrave delay any software and peripheral expedients that are expedient to frame the computer compatability Program - is a following of instructions written to discharge a bounded subordinatetaking delay a computer. CHAPTER 2 REVIEW OF THE RELATED LITERATURE 2. 1. Exotic Examine Aggravate the years, spent improvements were made to the capital archivess until the forthcoming 1970s, when the chief computer-driven capital archivess were introduced. The chief computer-driven capital archivess were basically a deepframe computer packaged as a afford coerceler that could coerce assured archivess. These sharp-end of sale rules were the chief to commercially economize client-server technology, peer-to-peer messages, Persomal Area Netfruit (LAN) endups, and unconnected initialization. In the tardy 1980s, hawk software established on PC technology began to frame its way into deepstream hawk callinges. Today, hawk sharp-end of sale rules are incompact years forward of where they began. Today's POS rules are firmer, spent enclose, and spent relicogent than their predecessors, and yield hawkers to act perfect facet of their calling delay a unique, integrated sharp-end of sale rule. Gone computer strength was the dubious productions, pliancy of waying became the deep end. Argument was located on automating stout way such as purchasing or paying, frequently delayin unique division as indicated by Jeffrey A. Hofer on New-fashioned Rule Analysis and Drawing (1996). Points of sale (POS) rules are electronic rules that procure callinges delay the capstrength to hold and criticise a distant abnormity of archives and affair axioms on a rectilineal plea. POS rules feel been touted as valucogent cat's-paws for a distant abnormity of calling purposes, including refining target dispenseing strategies; courseing supplier escheatments; determining customer purchasing patterns; analyzing sales (on a daily, monthly, or annual plea) of each archives disunite, division, or supplier; and creating descriptions for use in making escheatments, reorders, etc. Basic sharp-ends of sale rules exotericly in use conceive standalone electronic capital archivess, to-boot distinguishn as ECRs; ECR-established netfruit rules; and coerceler-established rules. Today, sharp-end of sale rules are incompact years forward of where they began. Today's POS rules are firmer, spent enclose, and spent relicogent than their predecessors, and yield hawkers to act perfect facet of their calling delay a unique, integrated sharp-end of sale rule. 2. 2 Persomal Examine Computers began from a raving inventive effect to the world’s exceedingly prioritized cat's-paw. Computers today are now used as a reattribute to manual wayes and other spent inventions relish the radio, television, etc. It is now used by nation for abundant simpler, easier and firmer way to do things. Some used it as a falter, and some use it as a job. Technology has never stopped from advancing through the years. Its new reversals accelerations repartee the nation’s elevate multifarious inquirys. Why not use these advantages to behoof ourselves? Divers nation use computers in their daily lives. Some use it for affairs, some use it for educational purposes and others use it for axioms storage. Though it potentiality gauge useless but in some plights when storing a refine for such a big concourse, can you trodden it rightly? Organizing, ascertaining a refine, etc. Delay computers, it can acceleration you disencumber the way of storing and managing the refines you deficiency for advenient use and frame ascertaining refines easier than the manual way. Delay our projected Sharp-end of Sales and Archives Rule In calling relish Stone Pro Execution , Sales and Archives rule plays an influential role. It is used to course all the affairs made by the calling and legal for warnering the disunites preparation. All the calling affairs must be rightly annalsed and must be enlightenedly enclosed by ignoringword. A Computerized rule is the best discerption and most innovative repartee for their deficiencys. The discoveryers had been motivated to do a examine on this inquiry-matter according to the overhead examine. The misrecord may acceleration others to comprehend spent encircling computer-generated axioms waying, especially on how to negotiate delay computers in plights of press, achievement and axioms protection. 2. Allied Studies In asking, we asassured new techniques, new distinguishledge, plain amplify new substances, gadgets, equipment, wayes or regularitys, subordinatestanding and unhesitatingness is assiduous by the discoveryer. The movables, new expedients, advantages, in technology are deficiencys of man for a ameliorate fuller space which is the matter of the discovery. These beneficial arts are the effects of the technological environment and the end-user is community in disclosed. The firm growing deviate and reversal in technologies today prompts discoveryers to guide studies encircling the pliancy of   rule program. This Plight bestows a dirty reconsideration of examine and studies, twain persomal and exotic that is allied to these studies. 2. 4 Exotic Studies 2. 5 Persomal Studies 2. 6 Synthesis CHAPTER 3 RESEARCH METHODOLOGY This plight plan the discovery ruleology of this examine. The discovery was guideed in six phases and the discovery ruleology allure be discussed subordinate divers phases : discovery drawing, contrast of the examine, inquiry of the examine, fount axioms, hardware and software requirements and statistical composition to be use to end up delay an effectual propose. . 1 Discovery Drawing The feeling rule of discovery was used for this examine. To fix the feeling bark of discovery, Creswell-behaved (1994) regularityatic that the feeling rule of discovery is to infer instruction encircling the bestow stout plight. The argument is on describing rather than on judging or interpreting. The aim of feeling discovery is to substantiate constituteulated hypotheses that advert to the bestow sight in arrange to explain it. The feeling bearing is shrewd and serviceable in plights of the financial sight. Moreover, this rule yields a supple bearing, thus, when influential new issues and inquirys prepare during the space of the examine, elevate scrutiny may be guideed. Feeling discovery on the other artisan is a bark of discovery that is deeply mattered delay describing the constitution or plight and the station in element of the bestow sight. This rule is used to portray the constitution of a sight, as it exists at the space of the examine and to criticize the cause/s of alloticular a celebrity. The aim of feeling discovery is to achieve an considerate prorefine of the nation, plaints or sights. With this discovery bark, it is requisite that the discoveryer alfitted has a disoccupied aim or delineate of the phenomena nature investigated antecedently the axioms afford regularity is carried out. The discoveryer used this bark of discovery to achieve chief artisan axioms from the respondents so as to constituteutardy investigate and gauge misrecords and instructions for the examine. The feeling bearing is shrewd and serviceable in plights of the financial sight. 3. 3 Inquiry of the Examine A Sharp-end of Sale (POS ) Rule  is a system for managing the sales of hawk consequence. The engagement is used to advert to the software and hardware associated delay repress out stands, and all of the bundled features which are conceived. Most hawkers use a POS system at their repress stands or contrarys, and divers deep manufacturers extend POS rules drawinged for multiconstitute barks of callinges, ranging from grocery affords to investment boutiques. Using a POS system makes a calling abundant spent fertile, dark the requires of bestow the calling period decent customer advantage and making the calling spent sportive to fruit in. In the hawk traffic, the “point of sale” is the importance when a customer walks up to a contrary delay confollowing and prepares to escheatment them. A POS system handles the affair, whether it seizes the constitute of an adding machine and a artisan written reception pad, or a multifarious computer rule. Except in the plight of very paltry callinges, a exoteric POS system usually seizes the constitute of a computer system. 3. 4 Sources of the Examine Our fount axioms is disjoined into 2 arranges, namely the fount axioms established on trodden examine and axioms founts established on introdden examines. . ) Fount of axioms established on trodden examine, unarranged others: • Conducting room studies, it was held at the space we fruited at a concourse occupied in the room of station equipment. • Examine of the dispense to featureize dispense expenses. • Discussion adherent colleagues, nursery friends and arrange component . 2. ) Fount of axioms established on introdden examines: • Searching the internet. • Lecture notes • Visual Basic Handbook 3. 5 Regularity of the Examine We made our own inquirynaire for our examine to distinguish the outend of Sharp-end of Sale System. Then we portio it to our respondents behind they repartee the inquiry we tallied and get the middle of the unwritten version. 3. 6 Project Drawing [pic] [pic] 3. 7 Rule Glide Chart [pic] Figure 2 Rule Flowchart 4. 5 Rule Algorithm Our computerized rule yields calling proprietors to course sales, capital glide and disunite archives. This rule allure to-boot calcutardy the completion of all the disunites that feel been escheatmentd. It allure determine not merely that the disunites has been considerd considerately but it allure to-boot explain the accident of a wickedness expense nature entered. It acceleration retrieved escheatment truth, disunite sales element, hoard foothold descriptions, monthly, annually, and seasonal sales axioms. To-boot this allure thwart thieving and to-boot acceleration to deeptain a annals of what is nature sold. This allure to-boot acceleration to warner the employees. It allure breed and imimimimprint administrative looking returns. 3. 9 Hardware and Software Requirements The Sharp-end of Sale Rule by Blue Link Technology is the software which allure be used. The loose or the platconstitute that allure be going to use is Windows XP, Visual Basic 6. 0 as the front end and Microsoft Admission 2007 as the axiomsbase. Hardware stint requirements Intel Pentium 3 3. Ghz delay 512mb RAM. 600 x 800 mitigate. 3. 10 Statistical Composition Database - The conjoined afford of axioms, usually affordd in one computer refine in one colonization, although axiomsbases can encomignoring instruction from divers founts and colonizations. Discompute - reductions to a basic expense of confollowing or advantages Frequency Compute - This is the most right-forward bearing to fruiting delay adventitious axioms. Items are classified according to a alloticular project and an arithmetical compute is made of the estimate of disunites (or tokens) delayin the quotation which becrave to each nature (or type) in the project. Percentage - A fraction or ratio delay 100 as the unwandering and subordinatestood denominator. Weighted Moderation -  is correspondent to an arithmetic moderation (the most vile bark of average), where instead of each of the axioms sharp-ends contributing akin to the definite middle, some axioms sharp-ends add spent than others. The apprehension of weighted moderation plays a role in feeling statistics and to-boot occurs in a spent disclosed constitute in divers other areas of mathematics. Tender - In calling, a engagement equivalent delay reimbursement or bark of reimbursement. CHAPTER 4 PRESENTATION ANALYSIS AND INTERPRETATION OF DATA In this plight states the flatten of acceptstrength of the amplifyed rule, the momentous disagreement on the cognizance of the respondents to the amplifyed rule, effect of the rule, program glidechart, program algorithm, program catalogueing, program output and user manual. 4. 1 The flatten of Acceptstrength of the amplifyed rule |Questions |Cashier |Employee of Stuff the |Weighted Moderation |Verbal Version | | | |Bus | | | |1. The sharp-end of sales rule is facile to artisanle? |3 |1. 5 |2. 25 |Unassured | | | | | | | |  |  |  |  |  | |2. The reckoning of the all expense is considerate in |3. 5 |3 |3. 25 |Agree | |the Sharp-end of Sale System? | | | | | | | | | | | | | | | | |  |  |  |  |  | |3. The sharp-end of sales Rule can maximize the |3. 5 |4. |4 |Agree | |productivity of the capitaliers fruit? | | | | | | | | | | | | | | | | | |  |  |  |  |  | |4. The Sharp-end of Sales Rule is used fertilely unarranged |4. 5 |2. 5 |3. 5 |Agree | |multiconstitute affords? | | | | | | | | | | | | | | | | |  |  |  |  |  | |5. Do you hold Sharp-end of Sale Rule can acceleration to your |5 |2. |3. 75 |Agree | |company? | | | | | | | | | | | |  |  |  |  |  | |Average Weighted Moderation |3. 9 |2. 8 |3. 35 |Agree | Tcogent 3 Computation of the flatten of acceptstrength of the amplifyed rule Inquiry 1 shows that unarranged 20 respondents unassured that Sharp-end of Sale Rule is facile to artisanle, owing of the weighted moderation of 2. 25. Inquiry 2 shows that unarranged 20 respondents delay the weighted moderation of 3. 25. This simply moderations that respondents acquiesce that the reckoning of the all expense is considerate in the Sharp-end of Sale System. Inquiry 3 shows that unarranged 20 respondents delay the weighted moderation of 4. 0. This shows that most of the respondent's acquiesce that the Sharp-end of Sale Rule can maximize the effectivity of the capitaliers fruits. Question 4 shows that unarranged 20 respondents delay the weighted moderation of 3. 5. This shows that the most respondents acquiesce that the Sharp-end of Sales Rule was used fertilely unarranged multiconstitute affords. Inquiry 5 shows that unarranged 20 respondents delay the weighted moderation of 3. 75. This shows the most of the respondents acquiesce that the Sharp-end of Sale Rule can acceleration to their concourse. Established on the tcogent most of the respondents acquiesced owing of the middle weighted moderation of 3. 35 which falls on Acquiesce Unwritten Interpretation. 4. 2 The appreciation Disagreement of the Cognizance of the Respondents to the Exposed Rule Respondents Distribution The population consists of 20 living-souls where 50% of the respondents are capitaliers and the employee of Stone Pro Enterprise. |Respondents |Quality |Percentage | |Cashiers |10 |50% | |Customers |10 |50% | Tcogent 1 Respondent Tcogent Idea Apostacy The discoveryers allure use inquirynaires delay the idea apostacy underneath to flake the effectualness of the examine of the respondents. Some inquirys feel non-interferences and some are deficiencyed to be evaluated and reparteecogent by estimate delay similar unwritten version. ( see tcogent 2 ). Flake |Range |Verbal Version | |5 |4. 01 - 5. 00 |Strongly Acquiesce | |4 |3. 01 - 4. 00 |Agree | |3 |2. 01 - 3. 00 |Unassured | |2 |1. 01 - 2. 00 |Disacquiesce | |1 |0. 01 - 1. 00 |Strongly Disacquiesce | Tcogent 2 Non-interference Apostacy 4. 3 Effect of the Rule [pic] [pic] [pic] [pic] [pic] [pic] [pic] [pic] [pic] [pic] pic] 4. 4 Program Glide Chart [pic] [pic] [pic] [pic] [pic] [pic] [pic] 4. 5 Program Algorithm Our computerized rule yields calling proprietors to course sales, capital glide and disunite archives. This rule allure to-boot calcutardy the completion of all the disunites that feel been escheatmentd. It allure determine not merely that the disunites has been considerd considerately but it allure to-boot explain the accident of a wickedness expense nature entered. To-boot this allure thwart thieving and to-boot acceleration to deeptain a annals of what is nature sold. This allure to-boot acceleration to warner the employees. It allure breed and imimimimprint administrative looking returns. 4. 6 Program Listing A. Member Log In Non-interference Explicit Private Sub cmdClose_Click() If Me. cmdClose. Caption = "Close" Then Dim response response = MsgBox("Do you realy absence to Quit this program? ", vbYesNo + vbQuestion, "Confirm Quit") If response = vbYes Then End End If Else Uninculpate Me End If End Sub Private Sub cmdOk_Click() Me. AdoUser. Reblooming If Me. cmdClose. Caption = "Close" Then Me. AdoUser. Recordset. Asassured ("UserName = '" & txtUser. Quotation & "'") If Me. txtPassword. Quotation = Me. AdoUser. Recordset. Fields("Password") Then If Me. AdoUser. Recordset. Fields("Previledge") = "Admin" Then mdiMain. mnuItems. Enabled = True mdiMain. tbMain. Panels(2). Quotation = Me. AdoUser. Recordset. Fields("UserName") frmSplash. Show mdiMain. Show End If If Me. AdoUser. Recordset. Fields("Previledge") = "User" Then mdiMain. mnuItems. Enabled = False mdiMain. mnuUser. Enabled = False mdiMain. mnuCustomers. Enabled = False mdiMain. mnuSuppliers. Enabled = False mdiMain. Toolbar1. Buttons(11). Enabled = False mdiMain. stbMain. Panels(2). Quotation = Me. AdoUser. Recordset. Fields("UserName") 'Uninculpate Me mdiMain. Show End If Uninculpate Me Else MsgBox "Invalid Password!!! ", vbExclamation, "Invalid Password" Me. txtPassword. SetFocus Me. txtPassword = "" End If End If End Sub Private Sub Form_Load() On Error Resume Next Call SQLDB(AdoUser, "Select * from UserAccount") AdoUser. Reblooming txtUser. Quotation = "Admin" End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdOk_Click 'cmdAccess_Click End If End Sub Private Sub txtUser_Click(Area As Integer) On Error Resume Next Dim temp Me. AdoUser. Recordset. Asassured ("UserName = '" & txtUser. Quotation & "'") temp = Me. AdoUser. Recordset. Fields(1) End Sub B. Deep Page Private Sub MDIForm_Load() 'With stbMain 'ensures all panels are obvious upon inculpateing DE. Connection1. ConnectionString = "Provider=Microsoft. Jet. OLEDB. 4. ;Data Source=" & App. Path & "DBStonePro. mdb;Persist Protection Info=False;Jet OLEDB:Database Password= " mdiMain. Width = 15360 End Sub Private Sub MDIForm_Unload(Cancel As Integer) Dim response response = MsgBox("Do you absence to Quit this program? ", vbYesNo + vbQuestion, "Confirm Quit") If response = vbYes Then End End If error: Cancel = -1 End Sub Private Sub mnuAbout_Click() frmAbout. Show vbModal End Sub Private Sub mnuBD_Click() frmDatabase. Show vbModal End Sub Private Sub mnuCustomers_Click() frmCustomers. Show vbModal End Sub Private Sub mnufind_Click() frmfind. Show 1 End Sub Private Sub mnuGp_Click() frmGroup. Show vbModal End Sub Private Sub mnuItems_Click() frmFItems. Show vbModal End Sub Private Sub mnuLogOff_Click() Dim response response = MsgBox("Do you indeed absence to LogOff? ", vbYesNo + vbQuestion, "Confirm Log-Off") If response = vbYes Then 'frmLogin. cmdClose. Caption = "Cancel" frmLogin. Show vbModal End If End Sub Private Sub mnuNewSales_Click() 'On Error Resume Next Call SQLDB1(frmNewSales. AdoSales, "Select * from Sales") Call SQLDB2(frmNewSales. adoCustomer, "Select * from Customer arrange by CustomerNumber") If frmNewSales. AdoSales. Recordset. RecordCount ;= 0 And frmNewSales. AdoSales. Recordset. RecordCount ; 9 Then frmNewSales. xtSalesNumber. Quotation = "00000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount ;= 9 And frmNewSales. AdoSales. Recordset. RecordCount ; 99 Then frmNewSales. txtSalesNumber. Quotation = "0000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount ;= 99 And frmNewSales. AdoSales. Recordset. RecordCount ; 999 Then frmNewSales. txtSalesNumber. Quotation = "000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount ;= 999 And frmNewSales. AdoSales. Recordset. RecordCount ; 9999 Then frmNewSales. txtSalesNumber. Quotation = "00" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount ;= 9999 And frmNewSales. AdoSales. Recordset. RecordCount ; 99999 Then frmNewSales. txtSalesNumber. Quotation = "0" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount ;= 99999 And frmNewSales. AdoSales. Recordset. RecordCount ; 999999 Then frmNewSales. txtSalesNumber. Quotation = frmNewSales. AdoSales. Recordset. RecordCount + 1 End If frmNewSales. xtAmountPaid. Quotation = "0. 00" frmNewSales. txtBalance. Quotation = "0. 00" frmNewSales. txtTotalCost. Quotation = "0. 00" frmNewSales. txtDeliverySatus. Quotation = "Undelivered" frmNewSales. dtDate. Rate = determination frmNewSales. DTDelivery = determination frmNewSales. Show vbModal End Sub Private Sub mnuOrder_Click() frmOrders. Show vbModal End Sub Private Sub mnuOrder2_Click() frmOrders. Show vbModal End Sub Private Sub mnuQuit_Click() Dim response response = MsgBox("Do you absence to Quit this program? ", vbYesNo + vbQuestion, "Confirm Quit") If response = vbYes Then End End If End Sub Private Sub mnuROP_Click() Set ReOrder. DataSource = frmReProd. Adodc1. Recordset ReOrder. Reblooming 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 Sub Private Sub mnuUpdateSales_Click() frmUpdateBalance. Show vbModal End Sub Private Sub mnuUser_Click() frmUser. Show vbModal End Sub Private Sub Toolbar1_ButtonClick(ByVal Nonentity As MSComctlLib. Button) Select Plight Button. Apostacy Plight 3: Call mnufind_Click Plight 5: PopupMenu mnuTransaction, , Button. Left, (Button. Top + Button. Height) Plight 7: PopupMenu mnuReport, , Button. Left, (Button. Top + Button. Height) Plight 9: PopupMenu mnuAccount, , Button. Left, (Button. Top + Button. Height) Plight 11: PopupMenu mnuHelp, , Button. Left, (Button. Top + Button. Height) Plight 13: Dim response response = MsgBox("Do you absence to Quit this program? , vbYesNo + vbQuestion, "Confirm Quit") If response = vbYes Then End End If error: Cancel = -1 End Select End Sub C. Affair 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. Reblooming If Val(Me. txtTotalCost. Text) = 0 Then Uninculpate Me Else If Me. txtCustomerName. Quotation = "" Then MsgBox "Plreadiness thorough axioms antecedently stagnation. ", vbInformation, "Information" Else Delay Me. AdoSales .Reblooming .Recordset. AddNew .Recordset. Fields("SalesNumber") = Me. txtSalesNumber. Quotation . Recordset. Fields("CustomerNumber") = Me. txtCustomerNumber. Quotation . Recordset. Fields("CustomerName") = Me. txtCustomerName. Quotation . Recordset. Fields("Datepurchased") = Me. dtDate. Rate .Recordset. Fields("DeliveryDate") = Me. DTDelivery. Rate .Recordset. Fields("DeliveryStatus") = Me. txtDeliverySatus. Quotation . Recordset. Fields("TotalCost") = Me. txtTotalCost. Quotation .Recordset. Fields("total") = Me. Text3. Quotation .Recordset. Fields("Discount") = Me. Text2. Quotation .Recordset. Fields("AmountPaid") = Me. txtAmountPaid. Quotation .Recordset. Fields("Balance") = Me. txtBalance. Quotation .Recordset. Updetermination .Reblooming Uninculpate Me End Delay End If End If End Sub Private Sub cmdEditItems_Click() Me. AdoItems. Reblooming Me. AdoItems. Recordset. Asassured ("ItemNumber = '" & Me. AdoSalesInfo. Recordset. Fields("ItemNumber") & "'") frmEditItems. txtinfo(0). Quotation = Me. AdoSalesInfo. Recordset. Fields("SalesNumber") frmEditItems. txtinfo(1). Quotation = Me. AdoSalesInfo. Recordset. Fields("Date") frmEditItems. txtinfo(2). Quotation = Me. AdoSalesInfo. Recordset. Fields("ItemNumber") frmEditItems. txtinfo(3). Quotation = Me. AdoSalesInfo. Recordset. Fields("ItemName") frmEditItems. txtinfo(4). Text = Me. AdoSalesInfo. Recordset. Fields("Qty") frmEditItems. txtinfo(5). Quotation = Me. AdoSalesInfo. Recordset. Fields("UnitPrice") frmEditItems. txtinfo(6). Quotation = Me. AdoSalesInfo. Recordset. Fields("TotalPrice") frmEditItems. Show vbModal End Sub Private Sub cmdNew_Click() 'On Error Resume Next cmdEditItems. Enabled = False cmdRemove. Enabled = False Call SQLDB1(AdoSales, "Select * from Sales") Me. AdoSales. Reblooming If Val(Me. txtTotalCost. Text) = 0 Then Else If Me. txtCustomerName. Quotation = "" Then MsgBox "Plreadiness thorough axioms antecedently stagnation. ", vbInformation, "Information" Else Delay Me. AdoSales .Reblooming .Recordset. AddNew .Recordset. Fields("SalesNumber") = Me. txtSalesNumber. Quotation . Recordset. Fields("CustomerNumber") = Me. txtCustomerNumber. Quotation . Recordset. Fields("CustomerName") = Me. txtCustomerName. Quotation . Recordset. Fields("Datepurchased") = Me. dtDate. Rate .Recordset. Fields("DeliveryDate") = Me. DTDelivery. Rate .Recordset. Fields("DeliveryStatus") = Me. txtDeliverySatus. Quotation . Recordset. Fields("TotalCost") = Me. txtTotalCost. Quotation .Recordset. Fields("AmountPaid") = Me. txtAmountPaid. Quotation .Recordset. Fields("Discount") = Me. Text2. Quotation .Recordset. Fields("Balance") = Me. txtBalance. Quotation .Recordset. Fields("total") = Me. Text3. Quotation .Recordset. Updetermination .Reblooming Me. txtCustomerName. Locked = False Me. txtCustomerNumber. Locked = False Me. txtCustomerName. Quotation = "" Me. txtCustomerNumber. Quotation = "" Me. txtAmountPaid. Quotation = "0. 00" Call SQLDB1(frmNewSales. AdoSales, "Select * from Sales") Call SQLDB2(frmNewSales. adoCustomer, "Select * from Customer arrange by CustomerName") If frmNewSales. AdoSales. Recordset. RecordCount >= 0 And frmNewSales. AdoSales. Recordset. RecordCount < 9 Then frmNewSales. txtSalesNumber. Quotation = "00000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount >= 9 And frmNewSales. AdoSales. Recordset. RecordCount < 99 Then frmNewSales. txtSalesNumber. Quotation = "0000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount >= 99 And frmNewSales. AdoSales. Recordset. RecordCount < 999 Then frmNewSales. txtSalesNumber. Quotation = "000" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount >= 999 And frmNewSales. AdoSales. Recordset. RecordCount < 9999 Then frmNewSales. txtSalesNumber. Quotation = "00" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount >= 9999 And frmNewSales. AdoSales. Recordset. RecordCount < 99999 Then frmNewSales. txtSalesNumber. Quotation = "0" & frmNewSales. AdoSales. Recordset. RecordCount + 1 End If If frmNewSales. AdoSales. Recordset. RecordCount >= 99999 And frmNewSales. AdoSales. Recordset. RecordCount > 999999 Then frmNewSales. txtSalesNumber. Quotation = frmNewSales. AdoSales. Recordset. RecordCount + 1 End If frmNewSales. txtAmountPaid. Quotation = "0. 00" frmNewSales. txtBalance. Quotation = "0. 00" frmNewSales. txtTotalCost. Quotation = "0. 00" rmNewSales. Text3. Quotation = "0. 00" frmNewSales. txtDeliverySatus. Quotation = "Undelivered" frmNewSales. dtDate. Rate = determination frmNewSales. DTDelivery = determination Me. cmdNew. Enabled = False Me. cmdNewCustomer. Enabled = True Me. cmdPayment. 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. Quotation & "'") AdoSalesInfo. Reblooming AdoItems. Reblooming 'Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfo Grid2. Columns(1). Obvious = False Grid2. Columns(2). Obvious = False Grid2. Columns(5). NumberFormat = "##0. 00" Grid2. Columns(6). NumberFormat = "##0. 00" Set Grid. DataSource = AdoItems Grid. Columns(0). Obvious = False Grid. Columns(2). Obvious = False Grid. Columns(5). Obvious = False Grid. Columns(6). Obvious = True Me. txtCustomerName. Locked = False Me. txtCustomerName. Locked = False lblChange. Caption = "0. 00" Me. txtCustomerName. Quotation = "" Me. txtCustomerNumber. Quotation = "" Me. txtAmountPaid. Quotation = "0. 00" Me. txtCustomerName. Locked = False Me. txtCustomerNumber. Locked = False Me. txtCustomerName. Quotation = "" Me. txtCustomerNumber. Quotation = "" Me. txtAmountPaid. Obvious = True 'Uninculpate Me End Delay End If End If End Sub Private Sub cmdNewCustomer_Click() Delay frmNewCustomer If Me. adoCustomer. Recordset. RecordCount >= 0 And Me. adoCustomer. Recordset. RecordCount < 9 Then . txtinfo(0). Quotation = "00000" & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount >= 9 And Me. adoCustomer. Recordset. RecordCount < 99 Then . txtinfo(0). Quotation = "0000" & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount >= 99 And Me. doCustomer. Recordset. RecordCount < 999 Then . txtinfo(0). Quotation = "000" & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount >= 999 And Me. adoCustomer. Recordset. RecordCount < 9999 Then . txtinfo(0). Quotation = "00" & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount >= 9999 And Me. adoCustomer. Recordset. RecordCount < 99999 Then . txtinfo(0). Quotation = "0" & Me. adoCustomer. Recordset. RecordCount + 1 End If If Me. adoCustomer. Recordset. RecordCount >= 99999 And Me. adoCustomer. Recordset. RecordCount > 999999 Then . txtinfo(0). Quotation = Me. adoCustomer. Recordset. RecordCount + 1 End If .Show vbModal End Delay End Sub Private Sub cmdPayment_Click() If Me. AdoSalesInfo. Recordset. RecordCount = 0 Then MsgBox "You cannot returns to reimbursement owing there is no disunite in your sales disunite catalogue!!! ", vbExclamation, "Error" Else frmPayment. txtBalance. Quotation = Me. txtBalance. Quotation frmPayment. Text3. Quotation = Me. txtTotalCost. Quotation frmPayment. txtChange. Quotation = "0. 00" frmPayment. txtPayment. Quotation = "0" frmPayment. Show vbModal End If End Sub Private Sub cmdReciept_Click() If Me. AdoSalesInfo. Recordset. RecordCount = 0 Then MsgBox "There is no disunite!!! ", vbExclamation, "StonePro System" Else If Me. txtCustomerName. Quotation = "" Or Me. txtDeliverySatus. Quotation = "" Then MsgBox "Plreadiness afford idiosyncratic axioms antecedently you aim the reception. ", vbInformation, "Information" Else Set RptReceipt. DataSource = Me. AdoSalesInfo RptReceipt. Reblooming RptReceipt. Sections("Section2"). Controls("lblSalesNumber"). Caption = frmNewSales. txtSalesNumber. Quotation RptReceipt. Sections("Section2"). Controls("lblTotalCost"). Caption = Format(frmNewSales. Text3. Text, "#,##0. 00") RptReceipt. Sections("Section2"). Controls("lblCustomerNumber"). Caption = frmNewSales. txtCustomerNumber. Quotation RptReceipt. Sections("Section2"). Controls("lblCustomerName"). Caption = frmNewSales. txtCustomerName. Quotation RptReceipt. Sections("Section2"). Controls("lblDatePurchased"). Caption = frmNewSales. dtDate. Rate RptReceipt. Sections("Section2"). Controls("lblDeliveryDate"). Caption = frmNewSales. DTDelivery. Rate 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 response response = MsgBox("Are you arrest you absence to eject this disunite to sales catalogue? ", vbYesNo + vbQuestion, "Confirmation to Remove") If response = vbYes Then frmNewSales. AdoItems. Reblooming Call SQLDB3(AdoItems, "Select * from Items") frmNewSales. AdoItems. Recordset. Asassured ("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. Updetermination frmNewSales. AdoItems. Reblooming frmNewSales. txtTotalCost. Quotation = Format(Val(frmNewSales. txtTotalCost. Text) - Me. AdoSalesInfo. Recordset. Fields("TotalPrice"), "##0. 00") frmNewSales. txtBalance. Quotation = Format(Val(frmNewSales. txtBalance. Text) - Me. AdoSalesInfo. Recordset. Fields("TotalPrice"), "##0. 00") frmNewSales. AdoSalesInfo. Recordset. Delete frmNewSales. AdoSalesInfo. Reblooming Call SQLDB3(AdoItems, "Select * from Items where RemainingQty ; 0") Call SQLDB(AdoSalesInfo, "Select * from SalesInfo where SalesNumber='" & Me. txtSalesNumber. Quotation & "'") AdoSalesInfo. Reblooming AdoItems. Reblooming 'Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfo Grid2. Columns(1). Obvious = False Grid2. Columns(2). Obvious = False Grid2. Columns(5). NumberFormat = "##0. 00" Grid2. Columns(6). NumberFormat = "##0. 00" Set Grid. DataSource = AdoItems Grid. Columns(0). Obvious = False Grid. Columns(2). Obvious = False Grid. Columns(5). Obvious = 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. Quotation & "'") Call SQLDB2(frmNewSales. adoCustomer, "Select * from Customer Arrange by CustomerName") adoCustomer. Reblooming AdoSalesInfo. Reblooming AdoItems. Reblooming 'Me. cmdNew. Enabled = True Set Grid2. DataSource = AdoSalesInfo Grid2. Columns(1). Obvious = 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). Obvious = False Grid. Columns(2). Obvious = False Grid. Columns(5). Obvious = False Grid. Columns(6). Obvious = True Grid2. Reblooming 'Call setgrid 'Call setquotation 'Call setgrid 'lblTotal. Caption = "Total Estimate of Records: " & Me. AdoSalesInfo. Recordset. RecordCount End Sub Private Sub setgrid() Set Me. Grid2. DataSource = Me. AdoSalesInfo Grid. Columns(0). Obvious = False Grid. Columns(2). Obvious = False Grid. Columns(3). Obvious = False Grid. Columns(4). Obvious = False Grid. Columns(5). Obvious = False Grid. Columns(6). Obvious = True End Sub Private Sub Grid_DblClick() Delay frmSalesConfirm .txtinfo(0). Quotation = Me. txtSalesNumber. Quotation .txtinfo(1). Quotation = Me. dtDate. Rate .txtinfo(2). Quotation = Me. AdoItems. Recordset. Fields("ItemNumber") . txtinfo(3). Quotation = Me. AdoItems. Recordset. Fields("ItemName") . txtinfo(4). Quotation = "0" .txtinfo(5). Quotation = Me. AdoItems. Recordset. Fields("UnitPrice") . txtinfo(6). Quotation = "0. 00" If Me. AdoItems. Recordset. Fields("Unit") = "Kilo" Then .Label5. Caption = "Quantity" End If .Show vbModal End Delay End Sub Private Sub lvButtons_H3_Click() Uninculpate Me End Sub Private Sub Text1_Change() On Error Resume Next Me. AdoItems. Reblooming Me. AdoItems. Recordset. Filter = "ItemName LIKE '" & LCase(Me. Text1. Text) & "*'" 'Call setquotation 'Call setgrid If Me. Text1. Quotation = "" Then Me. AdoItems. Reblooming 'setgrid End If End Sub Private Sub txtAmountPaid_Change() 'If Val(Me. txtAmountPaid. Text) < Val(Me. txtTotalCost. Text) Then 'MsgBox "Amount remunerated is inferior than its completion require. ", vbExclamation, "Stone Pro System" 'Me. txtAmountPaid. Quotation = "0. 00" 'Else 'Me. txtBalance. Quotation = Format(Val(Me. txtTotalCost. Text) - Val(Me. txtAmountPaid. Text), "##0. 00") 'End If End Sub Private 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. Reblooming Me. adoCustomer. Recordset. Asassured ("CustomerName = '" & Me. txtCustomerName. Quotation & "'") Me. txtCustomerNumber. Quotation = Me. adoCustomer. 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 Sub Confirm Affair Private Sub Check1_Click() If Check1. Rate = 1 Then Me. Text2. Quotation = Format(Val(Me. Text3. Quotation * 0. 1), "#,##0. 00") Me. Text1. Quotation = Format(Me. Text2. Text, "#,##0. 00") Exit Sub End If If Check1. Rate = 0 Then Me. Text1. Quotation = "0. 00" 'Me. Text1. Quotation = 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. Quotation frmNewSales. Text2. Quotation = Me. Text1. Quotation Uninculpate Me End Sub Private Sub cmdOk_Click() Dim response response = MsgBox("Are you arrest of this reimbursement?. Reimbursement can be effected merely uninterruptedly in this affair. , vbQuestion + vbYesNo, "Confirmation") If response = vbYes Then If Val(Me. txtPayment) ; Val(frmNewSales. txtTotalCost) Then Me. txtBalance. Quotation = "0. 00" Me. cmdOk. Enabled = False frmNewSales. txtBalance. Quotation = "0. 00" frmNewSales. txtPayment. Quotation = Val(Me. txtPayment) Me. Text4. Quotation = Format(Val(Me. txtPayment) - Val(Text3. Text) + Val(Text1. Text), "#,##0. 00") frmNewSales. txtAmountPaid. Obvious = False frmNewSales. cmdReciept. Enabled = True frmNewSales. cmdPayment. Enabled = False frmNewSales. cmdEditItems. Enabled = False frmNewSales. cmdRemove. Enabled = False frmNewSales. Text3. Quotation = Format(Val(Text3. Text) - Val(Text1. Text), "#,##0. 00") Me. Text1. Quotation = "0. 00" Else Me. txtBalance. Quotation = Format(Val(Me. txtPayment) - Val(Me. Text3. Text) - Val(Me. Text1. Text), "#,##0. 00") Me. txtChange. Quotation = "0. 00" Me. cmdOk. Enabled = False frmNewSales. txtBalance. Quotation = Format(Val(Me. txtPayment) - Val(Me. Text3. Text) - Val(Me. Text1. Text), "#,##0. 00") frmNewSales. txtBalance. Quotation = Format(Val(Me. Text3) - Val(Me. txtPayment. Text) - Val(Me. Text1. Text), "#,##0. 00") frmNewSales. lblChange. Caption = "0. 00" frmNewSales. txtAmountPaid. Quotation = Val(Me. txtPayment) frmNewSales. txtPayment. Quotation = Val(Me. xtPayment) frmNewSales. cmdReciept. Enabled = True frmNewSales. cmdPayment. Enabled = False frmNewSales. cmdEditItems. Enabled = False frmNewSales. cmdRemove. Enabled = False frmNewSales. Text3. Quotation = Format(Val(Text3. Text) - Val(Text1. Text), "#,##0. 00") 'Me. Text1. Quotation = Format((frmNewSales. Text3. Text), "#,##0. 00") frmNewSales. Text2. Quotation = Me. Text1. Quotation End If Else End If If Check1. Rate = 1 Then Me. Text2. Quotation = Format(Val(Me. Text3. Quotation * 0. 1), "#,##0. 00") Me. Text1. Quotation = Format(Me. Text2. Text, "#,##0. 00") Exit Sub End If If Check1. Rate = 0 Then frmNewSales. Text2. Quotation = "0. 00" Me. Text1. Text = "0. 00" Exit Sub End If End Sub Private Sub txtPayment_Change() If Check1. Rate = 1 Then Me. Text2. Quotation = Format(Val(Me. Text3. Quotation * 0. 1), "#,##0. 00") Me. Text1. Quotation = Format(Me. Text2. Text, "#,##0. 00") Exit Sub End If If Check1. Rate = 0 Then Me. Text1. Quotation = "0. 00" Exit Sub End If End Sub 4. 7 Program Output [pic] 4. 8 User Manual Title: Automated Sales and Archives Rule of Stone Pro Execution Tcogent of Contents 1. Introduction 1. 1 Rule Requirements 1. 1. 1 Hardware 1. 1. 1. 1 Desktop 1. 1. 1. 2 Display 1. 1. 1. 3 Capital Drawer 1. 1. 1. 4 Reception Printer 1. 1. 2 Software 1. 2 Convention 2. Getting Started . 1 Component Log in 2. 2 Performing Affair 3. Software Features 4. Message Boxes 5. User Interface Parts, Quotation boxes and Buttons 1. Introduction Most Enlightened hawk affords feel migrated from the old faithful capital archives to spent new-fashioned computerized sharp-end of sale (POS) rules. This impression Guide criticizes computerized POS technology and procures a roadmap for Stone Pro Enterprise. 1. 1 Rule Requirements 1. 1. 1 Hardware If you are a computer user, you're no demur conversant delay the most vile desktop peripherals - the keyboard, mouse. Blue Link Technology rules are established on settled desktop computer and loose rule . 1. 1. 1. Desktop Desktop delay enlightenedr but quieter fans to minimize ebullition and sound. Heavy business strength afford that ultimate craveer than the model disunites. Hard impel doesn't feel to be in enlightened compatability but it has to be true. We to-boot absence to determine that you're using cheerful surge combatant and UPS ( battery endup) to thwart strength allied crashes. 1. 1. 1. 2. Display At the very smallest, you'll deficiency a basic monitor at your POS to see what you're doing. Touch mitigates feel beend a spent approved and affordcogent non-interference these days gone they are a user social non-interference that can acceleration press up the repressout way. Adding customer-facing and pole displays allure extend a disengageder customer test and are a big way to excite specific extends to customers period they are in outline. 1. 1. 1. 3. Capital Drawer They may be the simplest peripheral in a POS rule, but capital drawers are stagnant an requisite allot of your rule. You deficiency to feel a enclose locate to restrain capital, represss 1. 1. 1. 4. Reception Printer Perfect affair ends delay a reception for the customer right from a reception imprinter. Having a imprinter go down is one of the most crippling things to any POS rule. Making arrest you feel a imprinter that'll living your imimimimprint extent and is facile to use is requisite. Most imprinters are ardent established so you don't plain feel to negotiate delay ribbon cartridges anymore. Lawful inculpate the brochure and you are end up and bestow! Whatever your reception extent or bark requirements are, there's a imprinter to fit your deficiencys. There are luteous barks of reception imprinters, categorized - relish any other computer imprinter - by its imprinting technology and its computer interface. 1. 1. 2. Software The POS software by Blue Link Technology is the conception of Stone Pro Execution POS rule. 1. 2 Convention Double Click : Advert to user force Log in Window : Advert to user interface Log in Button: Advert to aim Enter Key: Advert to Keyboard key 2. 0 Getting Started I. Daily Start-Up 1. Diverge the Computer ON – Throng the “ON/OFF” nonentity. (On top of the computer for Stone Pro Enterprise. ) WAIT. It allure seize a few importances but plaintually Stone Pro Execution Rule and an Address Lookup impression allure automatically set-on-foot up. A desktop delay icons allure show including [pic] A “Login” mitigate allure show: [pic] 2. Sign on to the Rule a) When the Protection Login mitigate shows, User ID = (ask for an admission principle to the admin attribute ) original you feel been attributeed star else. Password = the ignoringword you chosen. It allure NOT show for protection reasons. ENTER b) The Deep Desktop allure show [pic] II. Set-on-foot of Shift A. Capital Archives Processing. 1. Throng the Affair Menu nonentity. 2. Select TRANSACTION then NEW SALE. [pic] ( You are now fitted to discharge Capital Archives Operations. ) III. End of Shift A. Clerk Out Set-on-foot at the “Transaction” mitigate. Throng "CLOSE" to Exit from the Affair Screen. IV. End of Day In the plaining you allure deficiency to: 1. Leave the capital drawer disclosed. 2. Close Stone Pro Execution Rule Deep Page 3. Exit Stone Pro Execution System. 4. Turn off the computer. Behind you end the “End of Shift” regularity, thorough the ensueing: A. Log Off of Stone Pro Execution Rule 1. At the deep Stone Pro Execution Rule desktop B. Shut Down the Computer 1. Select the Set-on-foot nonentity in the inferior left artisan nook. 2. Select Shut Down… from the catalogue. A “Shut Down Windows” window allure show. 3. Select Shut Down from the droop down catalogue. The warner allure go black and say ‘No Sync’ for a bit. CHAPTER 5 FINDINGS, CONCLUSIONS AND RECOMMENDATION In this plight states the analysis of ascertainings, misrecord and instruction. 4. 1 Analysis of Findings Point of Sale Rule for Stone Pro Execution endowment to amplify an unhesitating rule that would encogent the emergence of Sharp-end of Sale and maximize the capabilities. It shows how fertile considerate and courteous-behaved-behaved compatability, the sharp-end of sale compared to manual registry. 4. 2 Misrecord We close that the discovery has shown that the examine can be beneficial for the concourse Stone Pro Enterprise. In this examine regarding all the factors affecting. 4. 3 Instruction The Researchers confide this Sharp-end of Sale Rule of Stone Pro Execution to be used in ardent body in decent and accelerationing nation hawk their effects. BIBLIOGRAPHY