Analysis of monthly cash budget of Cyrus Brown Manufacturing Company Essay

Analysis of monthly cash budget of Cyrus Brown Manufacturing Company - Essay Example We will note from the income statement the net cash inflows from operations during the year after deducting the direct manufacturing costs and indirect expenses. As shown from the FS, the sales forecast for March and April are not sufficient to produce profit for the said months as expenses exceed projected sales. For the month of May, profit will be realized as projected sales have been increased. A substantial loss is seen for the month of June. A brief analysis of the data reveals that the loss is because of an investment made for plant structure and payment of taxes. The biggest sales forecast comes in September; however, it is also coupled with corresponding increase of expenses that includes second installment of payment of taxes; total expenses are 90% of sales. Accordingly, expected profit is reduced. There is a 42% drop in sales in October which is quite significant as it will also considerably affect the projected profit of the company and will reduce the cash receipts for the month. There is no explanation why the forecast of sales has gone down in October and November. TheTaxes have been deducted from the computations so the earnings that are shown in the balance are NET, that is no tax and interest have to be deducted. The net earnings are funds available for other uses like payment of debts or for other investments (Investorwords, n.d.) A projected monthly cash flow statement for March to November is presented for CBM to show the incoming and outgoing cash in the operations of the business. (See Annex 1). A cash flow has been defined as an accounting process that shows the difference of amount of cash in the beginning (opening balance) and the amount at the end of the period (closing balance) (Business Dictionary.com., n.d.). Management of cash flows is an important part of the business operations because most often it becomes the source of failure for most businesses. Thus, FindLaw (n.d) contends that when the owner of the business understands th e concept of cash management, he is prepared in the unforeseen eventualities in the business because he has a plan. Cash flows may become positive or negative during operations. When it is positive, business is shown to be in a healthy condition, while negative cash outflow shows internal problems in the operations. For CBM, its cash position shows negative cash outflow in the first two months of operations because of poor collection in March and slow growth of sales in March up to April. Cash flows will show the sources of funds used in the operations and how and where the funds are used. For sources of funds CBM provided an opening balance of $50,000 and collections from monthly sales. For March, only 75% of projected sales are expected to be collected. From April to November, 100 percent collection is expected to be collected. Because expenses are more than the funds collected from March to June there is a shortage of funds for this period. Due to this, CBM needs to get outside s ources of funds to finance its operations for March, April and June. There is a large cash outflow in June because of a capital investment and payment of taxes in June, after which cash flow becomes positive and profit accrue to the business. The cash on hand provided by CBM is $50,000.00 and it will need additional funds to support its operations. Approximately CBM needs a minimum credit line of $24,500 to draw for its monthly shortage of funds. It is assumed that CBM had provided capital for operations and there is no need to borrow additional funds. Conclusion. A cash flow projection

Impact of Information Technology in Organizations Essay Example for Free

Impact of Information Technology in Organizations Essay What Is Information Technology (IT)?Information technology is one of the very advancing and in-demand technologies of this era. Ever since this technology has emerged, it has heavily dominated many organizations and firms providing them with efficient way of work. Before indulging into the depth of this technology with respect to organizations, it is first important to get a brief idea about what information technology really is. Information technology basically involves all the things that are related to the technology and science of computer and telecommunication systems. Information Technology is concerned with developing technology into something more fruitful. Information technology is inclusive of both rational and technological elements. On the other side, technological elements comprise of terms and conditions of information technology that are needed for logical structure of a system (Kalam 1, 2000). In other words, it can be said that information technology includes both computer hardware and software like voice, telecommunication stuff, multimedia and so forth. Therefore, information technology is helpful for inserting, extracting or processing information (Kalam 1, 2000). It must be clear to all that information technology is not just limited to computer oriented areas, but also helpful in departments of telecommunication, micro graphics, various firms and other support services. Internet technology is also termed as the information revolution at many instances and as Information and Communications Technology at other instances. Information technology makes life easier for everyday places especially large organizations and places like libraries and is very helpful in managing all types of information in form of databases. Since information technology relies heavily on computers, many firms and educational institutes call their computer departments as IT departments. Such department is also called Information Services (IS) or Management Information Services (MIS) in several organizations (Jidaw, 2008). Most of the advanced Information Technology Department involves the usage of computers, servers, database management systems, and cryptography. The people needed in such departments are System Administrators, Database Administrators, and Technology Manager and these people are supposed to send all reports to Chief Information Officer (CIO). Since many companies are  really concerned about the security and privacy of the information within them, the scope of job inside Information Technology organization is very high and the data security and server experts get highly paid for their jobs (Schneider, 2008). Impact of Information Technology in the SocietyWith respect to ongoing theories and justifications about the modern changes in the world, it has been justified that this era of humans is in the middle of a third big revolution. Early revolution included innovations and strides in agriculture, mechanization, and industrialization. The third one and the recent one is the Information Revolution. The development in the technology of information and communication has been taking place for nearly hundred years and the growth is still at its pace. It is amazing how easily one piece of information can be transferred from one corner of the world to another in just a blink of an eye. People can exchange all kinds of information to people all over the world or just to a specific group of people. In this ever changing and modernized society, information technology plays a significant part in many aspects. This approach has proposed fresh business offers and advancements in many organizations. Information technology supplies the organizations with firm communication deals that are helpful for the firms to develop the business at a worldwide level very easily. In order to organize a long chain of distributors, dealers, and purchasers, all the organizations have set up global information systems. These global information systems help in keeping a track of placed orders, delivered products, and payments made all over the world. All the credit goes to the advancement in internet technology which has made all these things possible and made them easy to handle. The setup of basic information is made in such a way that at the lowest stage, there are servers comprising of one operating system. Software like database and web serving are usually installed on these servers, making them interconnected with each other and to the users through the help of a network infrastructure. The users who have access to these servers are facilitated with their personal hardware, operating systems, and software tools (Alexandrou). Basic Elements of Information TechnologyBefore jumping in the depth of the  impact of information technology in organizations, it will be handy to learn about the basic elements of information technology so that it will make it easy to comprehend this technology. As it was already mentioned that information technology can be described as such kind of technology which is needed to develop information into something more fruitful. Specifically it can be deduced that employing computer and its software to convert, save, progress, send, and extract information is what information technology is all about. The following technologies are the important technologies generated from information technology:1- Computer Hardware Technologies:Such technologies comprise of personal computers, powerful servers that are maintained by devices that sends, retrieves, and saves information. 2- Telecommunication and Network Technologies:Technologies linked with networking and telecommunication enhance the level of communication between organizations as they comprise of telecommunications media and related software that is both wired and wireless and are helpful for Internet and other networks. 3- Computer Software Technologies:Such technologies comprise of all kinds of software and web browsers useful in educational institutes and business organizations. 4- Data Resource Management Technologies:Such kind of technologies involve all the things needed to maintain a database for a company or institute (Kawatra 25, 2000). Impact of Information Technology on Various InstitutionsWhen the term institution comes, it does not point out to one specific workplace or anything of that sort, instead all the organizations, companies, firms, and schools can be categorized under the word institution. Organizations are divided according to their role and management policies. This portion will now briefly talk about how information technology has affected these institutions in helping them gain success. 1- Governments:Government itself comprises of various branches and  institutions, and each of the institution of government has a particular area to deal with. With the advancements in information technology, all the government institutes have also developed a lot to and have provided the citizens with better services. Not just this, but also, this advancement has heavily improved the security abilities of government by helping them design better and improved weapons and tools for the war and for military and army people (Kawatra 27, 2000). B2 Bomber is one such example of a plane which came into being solely due to the advancement in information technology and modern computer methods. Along with this, government can also keep sensitive information about anything in a safe environment, without the fear of it getting extracted by unauthorized people. 2- Commercial Businesses:Commercial businesses play a vital role in todays time and therefore, without any doubt, it can be said that the innovations and strides made have affected such businesses too. The extremely vital part played by information technology in such businesses is to supply benefits to the world of commercials. These benefits are achieved by the commercial businesses by the help of the newly progressed software like application software and operating systems (Kumar 104, 2000). Since television is the most entertaining and quick form of showing things all over the world at the same time, commercial businesses have taken the full advantage from this. 3- News Media Organizations:All the work done by news media organizations is relied totally on computers and therefore this shows how information technology has put an impact on them. Every task performed by information technology is also needed by news and media organizations, like saving information, sending it out to people, creating information and so forth (Ritendra 42, 2005). Hence, it can be seen how important the information technology is for such organizations. 4- Educational Organizations:Along with providing benefits and advantages to business-oriented organizations, information technology has even influenced the educational organizations. The advancements in information technology has made it very easy for the students as well as the faculty members to pretty much search anything on the Internet, exchange any personal  information via emails and share any knowledgeable things on forums and groups (Meadowcroft, 2000). Impact of Information Technology on Undergraduate EducationEvery industrialized nation has government bodies which try to integrate and coordinate the level of technological progress which aids in the foundation and establishment of educational institutes. Along with having a qualified faculty, it is significant to have information technology as part of the undergraduate education systems. Having information or computer department does not mean that it should only be available to the people of that area; instead students should be involved too by doing presentations, and working on other such things. Faculty members and undergraduate students can use computer facilities to take the full advantage of this technology on their finger tips. This technology has increased the ease of gaining information and decreased the hassle of worrying about the time it would have taken to seek information otherwise (Williams). The following impacts have been put by those tools:1) These tools help students in copying, presenting, researching and understanding the real-life oriented scientific complications which helps in building the examining capability in students. 2) Information technology helps in building the teamwork and learning capabilities among the students and helps them to solve matters and problems by searching and discussing with each other. 3) As information technology is advancing day by day, this is also bringing rapid changes in the formation and distribution of educational tools. 4) The proper and frequent use of information technology can help in providing an efficient educational system. 5) Information technology also helps the students of one part of the world to interact with the students in other parts of the world (Williams, 1996). Impact of Information Systems Technology on OrganizationsIt will be doubtless to say that nowadays, majority of the organizations, whether  private or government, rely a lot on information systems. Thus, it can be said that information technology has become truly mixed with all sorts of businesses. Organizations, like telecommunications or finance, involve efficient usage of information technology in order for them to exist successfully. Ever since the concept of e-commerce has started, this technology plays a vital and significant role in carrying out any business. Organizations are not only employing information technology to improve old ways of business deals, but are also employing it to discover fresh and innovative chances in order to gain success. Though employing old methods and approaches will not do any harm, but they will not lead to a lot of success in the future and will just maintain a stable outcome for the organizations. For instance, there are several banks and insurance companies that still rely on such systems which were introduced nearly 30 years ago (Bharadwaj 169, 2000). ConclusionIn the end, it can be concluded that the advancements and progresses in information technology in firms and organizations have undoubtedly brought a noticeable revolution. Information technology has led to ideas and notions that not only improve merely one organization, but also increases competition among various organizations to do something better and efficient. Every organization wants to be the best one and therefore, for that purpose it always keeps on looking for advancements and ways to employ them in order to turn itself into a superior and flourishing one. As pressure is building inside organizations and improvements are being made in technologies, all the organizations are making efforts to utilize these technologies and gain success and prosperity from them. There is no doubt that as things are becoming advanced, they are providing easier and quicker way of performing tasks while giving better results every time. Obvious improvements can be seen in all areas of businesses due to the magic spread by the information technology. New approaches and techniques are followed and implemented by all business organizations and training is being given to people of different firms for the sake of making them experts. The story does not end here, there are yet more advancement expected in information technology and as more tools and technologies will be developed, people will be able to succeed more and the competition will increase. Information  technology is a good base for those interested in computers to have their career in this field, as this field will not only give a start to their careers but it also promises success and progresses in the upcoming years. Educational institutes teach information technology as a separate subject in schools, which shows the importance of this technology and the role it plays in everyday life. It can be deduced that information technology is a necessity of daily life and is a food for prosperity. References: 1-Jidaw Systems Limited, 2008, What is Information Technology?, http://www.jidaw.com/itsolutions/whatisit.html2-Laura Schneider, 2008, Information Technology Definition and History, Tech Careers Guide, 3-Alexandrou, M. (n.d.), Definition of information technology, 4-Goel (Ritendra), 2005, Fundamentals of information technology, Lucknow: Paragon. 5-Kawatra, P. S., (2000), Textbook of information sciences, New Delhi: A.P.H. Pub. 6-Abdul Kalam, A. P. J,2001, February 3-9, Knowledge society, Employment News7-Meadowcroft, B, 2001, The impact of information technology on work and society, from 8-Kumar, K., Singh, S. P, 2000, From information society to knowledge society, Journal of Library and Information Science, 25(2), 104-111. 9-Luther S. Williams, 1996, Information Technology: Its Impact on Undergraduate Education in Science, Mathematics, Engineering, and Technology, Report on an NSF Workshop, National Science Foundation. 10-A. Bharadwaj, A resource-based perspective on information technology and firm performance: An empirical investigation, MIS Quarterly, Vol. 24, No. 1, 2000, 169-196.

The beliefs of Childrens Learning

The beliefs of Childrens Learning Identifying the beliefs of Childrens Learning, Development, and the Social Influences that shaped them. A childs learning and development begins from the moment they are born, the early years from birth to five are an important milestone in a persons life, what a child experiences in the early years has a major impact on their future chances in life. A safe, secure and happy childhood is important in its own right. We can shape a childs learning from an early age, children learn through experience and adult involvement, therefore interaction with babies and young children is fundamentally important, it helps to build ideas, creates thinking and helps them develop as learners. Babies are born with an interest in people and a drive to find out about their world. Observing and assessing babies and young children is an important basis in their learning and development. Watching children learn can open our eyes to the capacity of how they learn (Pugh, 2001, p. 66), and this shows us the i mportance of these first few years in a childs life. Over the decades early education, policies and practices have seen significant changes. We still use many of the earlier theories and methods through the Early Years Foundation Stage (EYFS) in our early education settings today. The EYFS is part of a ten year Childcare Strategy introduced in 2008, it relates to the Childcare Act 2006, and its aim is to give young children the best start in life, it sets standards to enable early years providers to implement the rich and personalised experience many parents give their children at home. It provides legal requirements relating to learning, development, assessments and welfare. The EYFS principles which guide all practitioners consists of four themes; a Unique Child, Positive Relationships, Enabling Environments, Learning And Development. It implies that all children from birth to five will acquire the same skills and knowledge in preparation for school while at the same time recognising that all children are individuals that require ind ividual learning strategies. The construction of early education and care of children and young people dates back many years, as early as the 17th century. Friedrich Froebel a major theorist was born in 1782 in Thuringia what is now Germany and was well known for saying play is a childs work, he formulated the idea of kindergarten meaning childrens garden as a means of educating young children. Play and the outdoor environment were important in Froebelian kindergartens. His approach emphasized that children are able to develop their capacity for learning through play, and that active learning is essential with guidance and appropriate direction. He believed that training of workers within the early years was essential, and the importance of parents as partners in the education of young children. The influence of Froebels methods are well established in early years settings to date, his work was one of the theories that made the basis of early education. Many recent theorists based t heir work on these early findings, and say, he was ahead of his time as one of the EYFS themes and commitments, of today states active learning. Active learning it is implemented through the learning and development principle of the EYFS, it provides physical and mental involvement, decision-making and personalised learning, and it occurs when children are keen to learn and are interested in finding things out for themselves. Play is a dynamic process that develops and changes, it provides children with opportunities for developing cognitive, social, emotional and physical skills. Froebelian kindergartens were seen to be middle class; despite this his methods were adapted for use with disadvantaged children and families within developing 20th century nursery and infant schools. (Pound, 2008, p. 16). The first nursery school opened in Scotland in1816 by Robert Owen(1771-1858), he was a mill owner who refused to employ children less than 10 years of age, he believed that education should be a common right for all children, and that children are passive, contrived and by due preparation and accurate attention can be formed into any human character. He managed their behaviour through kindness, which in the19th century was unusual, children as young as 2 years attended his school. The opening of his nursery school influenced changing attitudes on child labour, and set the basis of early education for young children. The start of the curriculum method was one of Owenss ideas, his vision on education-inspired generations of activist; he recognised the link between social welfare and early education this is an important part of practice in modern day settings. His commitments to education were radical as were his ideas on the importance of equality, although his policies were a bold ste p forward, he was criticised as being rooted in his desire for profit. (Pound, 2008, p. 13) In the UK the development of early education was very slow compared to Europe, it was In 1870 that publicly funded education became compulsory for children age 5, the need to understand these early childhood services is important as they laid down the foundations of our education system (Pugh, 2001, p. 8) During the 1960s the voluntary playgroup movement emerged. A letter sent to the Guardian by Belle Tutaev, a young mother of a four-year-old expressing concern to the lack of appropriate nursery provision within our education system. For many years the main means of early education was state primary schools, and this was aimed at children over 5 years, after campaigning to the authorities to no avail she opened her own playgroup, this progressed and by the seventies playgroups became a recognised form of pre-school provision. Over the next 2 decades the changing family patterns and employment patterns meant early years provision were a much needed source, this saw the growth of private nurseries. Only after a review in 1988 on early childhood and education services, (The Education Reform Act) did the government realise there was a growing problem. It found flaws, in uncoordinated services, which varied between different parts of the country, compared to the rest of Europe there were low levels of public funding. It had different services ran by a diversity of different organisations, this meant a wide range of clients used them, all with different aims and purposes. The education system needed the government to intervene. A number of national reports was to be published, one of them the Rumbold report published in 1990, expressed concerns about education and the lack of access to Early Years services. It highlighted the need for the development of good quality provision in the early years, and believed it to be vital that all that work, or are involved with young children recognise the importance of their educational role and fulfil it. She urged those who make provision recognise the growing demand for and the expansion of high quality services to meet children and parents needs (rumbold, 1990). The report also highlighted the way in which young children learn are as important as what they learn, and argued against the introduction of formal learning. At the time, this report was ignored but it is now used as a basis for best practice in todays Early Years settings. The establishment of the Early Childhood Education forum in 1993 meant bringing together all national agencies working in the field, (Pugh, 2001, p. 11) it clarified that an early years policy is needed, and an expansion in services, the forum gathered strength with over 45 national organisations by 1998. Its aims were to champion childrens rights and entitlements, support the training development and education of early childhood practitioners, and all those who work with children and their families. The government took action and in 1995, funding for the education of 4 year olds was introduced this was in the form of vouchers that could be redeemed in private, voluntary, or local authority nurseries, the vouchers were extremely criticised at the time and was abolished in 1997 when Labour Government was elected. The election of the Labour Government brought big changes in the way our whole Education System was run, especially Early Education; its key issue is to eradicate child poverty, and provide more family friendly policies and childrens centres. The Sure Start initiative, launched in 1999 under the National Childcare Strategy plays a major role in doing this, by helping families in local communities of need with children under 4years old. The government pledged 1.4 billion pounds over 6 years. This meant that parents had access to a multi agency of services within the Sure Start Childrens Centres. They are now a key influence within our communities helping children, families and society, by learning and developing life skills in the early years so that young children grow up to be happy, healthy and are able to achieve their goals in life. The centres are at the Heart of the Every Child Matters Change for Children 2004. The green paper Every Child Matters was published in 2003, in response to a report by Lord Laming in 2001, into the death of Victoria Climbie. Victoria was a young girl who was horrifically abused, tortured and killed by her great aunt, Marie-Therese Kouao and partner Carl Manning; they were the people who were supposed to be caring for her. Shameful failings within a number of systems meant on 12 occasions over 10 months the chances to save Victoria were missed. Evidence from this Inquiry demonstrated the dangers of staff from different agencies not fulfilling their separate and distinctive responsibilities. The death of Victoria showed a fundamental need for an integrated service that would be part of a political agenda for many years, despite the Children Act 1989 provisions, child protection strategies and services stayed within the social service system, and the level of communication and co-operation between these and other services in health and education were variable. The Ev ery Child Matters agenda is recognised by five outcomes; be healthy, stay safe, enjoy and achieve, make a positive contribution, and achieve economic wellbeing; these outcomes are a universal ambition for the government, and form a strong basis for the EYFS curriculum used in Early Education Settings to date. The transfer of responsibility for children under 8-years-old were made from the Department of Health, to the Department of Education and Skills and from 2001, an integrated inspection service was introduced, bringing together all the services, enabling multi-agency working, which was an important step forward. The Early Years Development and Childcare Partnership in local authorities were also introduced, helping to increase levels of provision in Childcare. Working in partnership with the Local Education Authority, each authority completed an audit, with a plan to reach the governments targets for early education places for all 3- and-4year-olds. This was made easier in the change of policy earlier, that allowed non maintained sectors to apply for nursery grants, children in private day nurseries, pre-schools and some childminders could now access their free half-day nursery provision. In this way the strategy started to tackle the long-term split between Early Years education serv ices and the childcare services. (Macelod- Brundenell,and Kay 2nd edition 2008 pg 352 ). It has been without doubt that Early Education has come a long way since Froebel in the 17th century, and the opening of Owens nursery school in 1816, but not many things have changed, it was evident then that children learn through play and exploration, and early learning is important in the first five years. Maybe many generations of children have missed out the chances given to young children of today. The EYFS has been an important milestone for early education and young children, and is now the way forward in preparing a child for school, but its existance is still in the primary stages, and many small nursery settings may find adapting to these changes and sustaining them quiet difficult as the standards and welfare requirements set are extremly high.

Sir Rich Arkwright and the Water Frame Invention :: Biography Biographies Essays

Sir Rich Arkwright and the Water Frame Invention Sir Rich Arkwright was born on December 23, 1732 at Preston in the county of Lancaster. His first profession was a barber in Bolron-le-moors in 1760. Soon afterward he traveled throught the country buying human hair. At that time he had a valuable chemical secret for dying the hair to make wigs out of. Arkwright's hair was commented to be the finest hair in the country. In 1761, Richard Arkwright married Margaret Biggins, and this marriage brought him to an aquaitance with Thomas Highs. Highs was probably one of the most important people Arkwright was to ever meet. He was the inventor of the spinning jenny and the water frame. Highs was behind the mechanical production of both of these machines, however he could now market his product due to lack of funding and ill communication skills. This is where Richard Arkwright comes in. Arkwright was highly skilled in dealing with business and other social aspects. Arkwright sought to obtain the water frame by less than friendly means. He contacted John Kay, a former employee of Highs', to "turn brass" for him. This was all part of a clever plot to get Kay to reveal the design of Highs' water frame. Eventually, Arkwright succeded and Kay cunstructed a replica of the water frame, or otherwise known as throstle. Arkwright showed off the model to several people to seek financial aid. He eventually prevailed on Mr. Smalley to fund the project. In April of 1768 he hired Kay and took him along with him to Nottingham where he built a factory turned by horses. On July 3, 1769, he obtained a patent for "spinning by rollers." By doing this, he solidified his hold over the water frame preventing Highs from ever gaining the immense profits made by the water frame. In 1771, Arkwright built another factory in Cromford. The power for this factory was supplied by a water wheel instead of horses. During this time many improvements were made to shorten the process of spinning wool. Arkwright kept an eye on these improvements and eventually made a machine combining many of them into a series. These "engines," as he called them, were enough to take up another pattent on December 16, 1775. Improvements specified in the pattent were not invented by Arkwright but were actually

Heart Failure Essay

Heart Failure The heart is one of the body’s most vital organ. The heart pumps blood throughout the body which carries nutrients other organs need. It also carries oxygenated blood to the lungs which allows us to breathe. Since the heart is so important, relying on it that it will do its job is necessary so we can live, but sometimes the heart can fail. Heart failure is a syndrome that occurs when the heart can not pump enough blood to meet the body’s metabolic needs. This paper will discuss what heart failure is, the signs and symptoms, and lastly the treatment and prevention of heart failure. Heart failure is usually classified according to the side of the heart that is affected. Either â€Å" left or right side, or by the cardiac cycle involved† (Lippincott Wilkins & Williams, 2011). Left sided heart failure occurs when there is ineffective function of the left ventricular contractile. As the pumping of the left ventricle fails, cardiac output also fails. The blood that is suppose to go to the body is no longer being pumped out, thus backing up into the left atrium and the the lungs, causing â€Å"pulmonary congestion, dyspnea, and activity intolerance† ( Lippincott Wilkins & Williams, 2011). Right sided heart failure results from ineffective right ventricular contractile function. Blood is not being pumped effectively through the right ventricle to the lungs, causing blood to back up into the right atrium and the peripheral circulation. When this happens, the patient gains weight and develops peripheral edema and engorgement of the kidney and other organs. Heart failure not only effects the heart but also other systems in the body. The cardiovascular system is affected by the heart not being able to pump blood throughout the body. Also, as the blood backs up into the left atrium, blood backs up into the lungs causing pulmonary congestion which affects the respiratory system. When blood backs up into  the right atrium, the kidneys become engorged which cause problems with the renal system. There are different signs and symptoms for heart failure. People with heart failure can develop shortness of breath, also called dyspnea, caused when the blood is backed up in the pulmonary veins. The patient will feel breathlessness during activity or while sleeping. Another sign and symptom is persistent coughing or wheezing, caused when fluid is being backed up in the lungs. The patient will cough up pink or blood stained mucus. Another sign and symptom is build up of excess fluid in body tissues, also called edema, and is caused when blood flow out of the heart slows down, the blood returning to the heart through the veins backs up, causing fluid to build up in the tissues. Patient can also develop swelling in the feet, ankles, legs or abdomen, or weight gain. A patient with heart failure may also feel tired and develop fatigue caused by the heart not pumping enough to meet the body’s needs. They also might develop digestive problems causing loss of appetite and nausea. Th is is a result of the digestive system not receiving enough blood causing digestive problems. ( Chen, 2013) If a patient has been diagnosed with heart failure there are some treatments that are involved to keep the syndrome under control. The patient will have medical therapy that involves medications such as an angiotensin- covering enzyme, diuretics to reduce fluid volume overload and venous return, beta- adrenergic blockers to prevent remodeling, any many others. A patient may also have to undergo surgery such as cardiac bypass. There are many life style changes that the patient also has to comply with. Some include weight loss, limited alcohol intake, smoking cessation, stress reduction, and development of an exercise program. If the case is severe, the patient might have to have a heart transplant, but even so, many complications and a hospitalizations are experienced. In order to porevent heart failure there are two ways to approach it. First is to stop or slow heart failure, and second is to avoid a repeat of any event detrimental to the patient’s life. (Shaddinger, 2014) Heart failure is a very serious disease. It should never be be taken lightly and although the most common cause of heart failure is coronary artery disease. It can also occur in infants and children with heart defects. References Chen, M. (2013) Hear Failure Overview. The New York Times. Retrieved from www.nytimes.com/health/guides/disease/heart-failure/overview.html Lippincott Williams & Wilkins, (2011) Pressure ulcers. Professional Guide to Pathophysiology. 3rd ed. p. 575-579. Philadelphia. Wolters Kluwer. Shaddinger, D. (2014) Treatment and Prevention. Seconds Count. Retrieved from www.scai.org/secondscount/treatment/default.aspx

“Gown Rental Management and Information System” Essays

â€Å"Gown Rental Management and Information System† Essays â€Å"Gown Rental Management and Information System† Essay â€Å"Gown Rental Management and Information System† Essay Republic of the Philippines Gordon College Olongapo City College of Computer Studies A System Analysis and Design Project â€Å"GOWN RENTAL MANAGEMENT AND INFORMATION SYSTEM† Presented to the Faculty of Gordon College Olongapo City In Partial FulfilmentoftheRequirements for the Degree ASSOCIATE IN COMPUTER TECHNOLOGY By: JUNNIEFER C. SABILE MARK JOSEPH L. PEREZ March 14, 2013 Republic of the Philippines Gordon College Olongapo City College of Computer Studies APPROVAL SHEET A System Analysis and Design Project entitledâ€Å"GOWN RENTAL MANAGEMENT AND INFORMATION SYSTEM†prepared and submitted by JUNNIEFER C. SABILE and MARK JOSEPH L. PEREZin partial fulfilment of the requirements for the degreeASSOCIATE IN COMPUTER TECHNOLOGY is herebyaccepted and recommended forORAL EXAMINATION. ______________________________________________ MS. SHERMEIN R. FERNANDEZ SUNGA Adviser Approved by the Panel of Examiners ______________________________ ERLINDA S. CASELA Chair ____________________________ ____________________________ MRS. LILIA PERTACORTAMS. SHERMEIN R. FERNANDEZ SUNGA - Beneficiary I. T. Professional - Accepted and Approved in Partial Fulfilment of the Requirements for the Degree/Course Associate of Computer Technology. __________________________ ERLINDA S. CASELA College Dean March 2013 ACKNOWLEDGEMENT The proponents have taken efforts in this project. However, it would not have been possible without the support and help of many individuals who are in one way or another contributed and extended their valuable assistance in the preparation and completion of the project. First and foremost, the proponents would like to thank Mrs. Lilia Pertacorta, owner of Queen’s Gown and Men’s Wear who agrees to be the beneficiary of these projects, and on giving the data needed for the project and information. Ms. Shermein R. Fernandez Sunga, CCS instructor in Gordon College and the adviser on this project for giving them advices, instructions and all the things needed for finishing this project. The proponents would also like to thank her for the time and patience when they present her the system they made. Ms. Erlinda Casela-Abarintos, Dean of the College of Computer Studies for being one of the panellists on the final defense for this project. The proponents would also like to thank their parents for supporting them, telling them to never give up and to think positive. Last but not the least; the proponents would like to thank God Almighty and his son Jesus Christ for answering their prayers and giving them strength to continue on despite them wanting to give up on making this project. ABSTRACT Queen’s Gown and Men’s Wear Order and Customer Record System is a system that records customer transactions, customer information and prints an acknowledgement receipt, customer transaction report, and daily, weekly, monthly, and annual customer report, the system was made using Visual Basic and Microsoft Access 2007. The reason why this system was made is to help the beneficiary record customer transactions easily, because currently, they record customer transactions using only pen and paper. This system aims to make recording customer transactions and printing customer reports easier and faster, and has a user friendly interface. This system helped the beneficiary work easier and faster, they can now many records for a short time, they now have a printed acknowledgment receipt, customer transaction report and sales report. The beneficiary and the panellists were satisfied at the system the proponents have made. LIST OF FIGURES Figure 1: Beneficiary Map Figure 2: Queen’s Gown Organizational Chart.. Figure 3: DFD of Manual System Figure 4: Flowchart of Manual System.. .. Figure 5: DFD of Proposed System Figure 6: SDLC.. Figure 7: System Design Specification Figure 8: Gantt Chart. LIST OF TABLES Table 1: Requirement Specification.. Table 2: Division of Labor and Tasks.. Chapter I INTRODUCTION BACKGROUND OF THE PROJECT COMPANY PROFILE Queen’s Gown and Men’s Wear is owned by Mrs. Lilia Pertacorta. It is located at #33 18th Street East BajacBajac, Olongapo City Zambales. Queen’s Gown was established in year 1996, and it has a total of 5 to 10 employees and serving 50-75 customers per day. They also rent clothes and their gowns are worth 500 pesos and up depending on the type and fabric used. LOCALE OF THE STUDY Queen’s Gown and Men’s Wear is located at #33 18th St. East BajacBajac, Olongapo City Queen’s Gown Gown A. ORGANIZATIONAL STRUCTURE Mrs. Lilia Pertacorta Owner Ma. Teresa Lagisma Information Officer Figure 2: Queen’s Gown Organizational Chart B. IT FACILITIES AND EQUIPMENT OF THE BUSINESS Equipment| Quantity| Television| 1| Electric Fan| 3| Sewing Machine| 3| Flat Iron| 1| GENERAL OBJECTIVE To make a user friendly system that can record customer’s information and orders. The researchers had an analysis and general objectives to improve and propose a computerized information system and produce a system that would ease the flow of Queen’s Gown Rental. SPECIFIC OBJECTIVES 1. To save customer information. 2. To add, update, and delete customer transaction records. 3. Generate customer transaction report. 4. Add, edit, search, move and cancel orders 5. Add, edit, search, move and cancel rents 6. Uses login to access the system . View all the necessary information about the rents and orders SCOPE AND LIMITATION The project will be focus on the ordering process of Queen’s Gown, the customer information they put on every order and generating a report of all the transaction made by the customer. The System is composed of buttons which you can add; edit, delete, search, and a main form which includes add reco rd, info entry, and view report. We also have a Log-in form. This button and form can only be used by the owner. The proposed system includes the processing of costumers information. The limitation of this project is that there are no other functions and features in the system, this project will only focus on the ordering process of Queen’s Gown. The limitation of this project work is that it only prints a receipt but not to compute sales because it doesn’t tackle the payment of the Company and it only focus on the ordering and rental process of gowns and men’s wear . The other items of the company like a masquerade, crowns and etc. , are not supported by this system. CHAPTER II CONCEPTUAL FRAMEWORK REVIEW OF RELATED LITERATURE OF STUDIES Project System requires a good understanding of the topic being investigated. For this reason, a conceptual framework needs to be drawn up to guide the direction of the development of the projects. Review of related literature is a study whereby new information can be generated. In carrying out research, one of the fundamental requirements is to be able to define clearly the direction of the study. If the issues are not clear in the researchers mind, it is easy to wander away from what needs to be investigated. The conceptual framework works like a map that sets the direction of research or thesis writing. One of the significant steps in a research project is conducting the literature review. Through this chapter, the readers can familiarize with the study of the proponents. The related and previous studies presented in this chapter would give the readers and future researchers, an idea of the proposed system of the proponents. The proponents selected and reviewed these studies and previous works to provide information for the readers. THEORETICAL FRAMEWORK Queen’s Gown and Men’s Wear, they will input his information, if it is a new costumer they will input all needed information and saves it to the customer database, if it is an old customer, they will just find his name on the database and all of the information will appear. After saving the transaction, it will be saved on the transaction database. A customer transaction report that records all transactions for a certain costumer, an acknowledgement receipt which will be given to the customer and sales report. OPERATIONAL DEFINITION OF TERMS * Acknowledgement Receipt A documented  verification  that  goods  have been received or  services  have been rendered. Typically, the  acknowledgement  is indicated by the  recipients  signature  on a  bill of lading, an  invoice  or another  form. Information -Data that has been verified to be accurate and timely, is specific and organized for a purpose. * Transactions- An agreement between a buyer and a seller to exchange an asset for payment. * Sales Report A report made in a certain time showing the number of items sold or the amount of money a company has received for selling stock CHAPTER III SYSTEM ANALYSIS SYSTEM OVERVIEW Flowchart and DFD of the existing system DFD OF MANUAL SYSTEM Figure 3: DFD of Manual System START INQUIRE ITEMS ORDER OR RENT ORDER RENT ITEMS ITEMS MANUALLY RECORDS TRANSACTION MANUALLY RECORDS TRANSACTION END ATART ATART Figure 4: Flowchart of Manual System STATEMENT OF THE PROBLEM The following are the problems encountered from the current system of Queen’s Gown and Men’s Wear which is in the manual process: * subject to records lost * waste of time by scanning rental record book * employees record customer transactions using pen and paper only, * their acknowledgement receipt is handwritten * manually encode their customer reports PROPOSED SOLUTION Those problems stated can be solved in this system. This system records customer transactions easily and quickly. You can save the customer’s needed information so if the same customer orders again, no need to type his information, just search his/her name on the customer’s list and his information will automatically appear. This system can generate customer reports and acknowledgement receipt by just a click of a button. For the ownerwhose involved in the capture, processing and the inputting of data in thesystem, an information data only as good as the data inputted, poor data will lead to poor results being outputted, incomplete or in accurate information means outputted information will being complete or inaccurate. CHAPTER IV SYSTEM DESIGN OVERVIEW OF THE PROPOSED PROJECT DFD of the Proposed System CUSTOMER PERSONAL INFORMATION ITEMS O GOWN RENTAL MANAGEMENT AND INFORMATION SYSTEM Order, Rent REPORTS OWNER Figure 5: DFD of the Proposed System DATA DICTIONARY * Name The full name of the Customer * Address The full address of the customer * Rent – clothes or gown that the customer will order * Price The price of clothes or gown before the rent * Cash The amount of cash that the customer paid * Change The amount of change that customer will received * Transaction Date The date of clothes or gown ordered Order– clothes or gown that the customer will order METHODOLOGY OF THE STUDY Figure 6: The Systems Development Life Cycle Developing a system is difficult to do because there will be series of tests and revisions before it will become functional. Therefore, there are some useful tools in building in integrated system methods such as System Development Cycle models which includes Waterfall, Spiral and Rapid prototyping. REQUIREMENTSSPECIFICATION These are the minimum requirements needed for the system in order to function. HARDWARE REQUIREMENTS * Monitor * Mouse * Computer Keyboard Printer – Black and White or any printer * CD – ROM Drive * Hard Disk at least not lower than 100GB SOFTWARE REQUIREMENTS * Microsoft Visual Studio 2008 * Microsoft Power Point 2007 * Microsoft Access 2007 * Microsoft Word 2007 * Windows 7 Table 1: Hardware and Software requirements SYSTEM DESIGN SPECIFICATION Ordered Items Customer details Order New Information Rented Items Customer details Rent Rent Information Log-in Main Form Report Print Reports Returned Items Customer details Log-out Figure 7: System Design Specification GANTT CHART LEGEND: Duration SCHEDULE| NOVEMBER| DECEMBER| JANUARY| FEBRUARY| MARCH| WEEK| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| Orientation about the System| | | | | | | | | | | | | | | | | | | | System Proposal Making| | | | | | | | | | | | | | | | | | | | Search for the Beneficiary| | | | | | | | | | | | | | | | | | | | Meeting with the Beneficiary| | | | | | | | | | | | | | | | | | | | Data Gathering| | | | | | | | | | | | | | | | | | | | System Design| | | | | | | | | | | | | | | | | | | | Codings| | | | | | | | | | | | | | | | | | | | Preliminary Defense| | | | | | | | | | | | | | | | | | | | Revision of the System| | | | | | | | | | | | | | | | | | | | Testing| | | | | | | | | | | | | | | | | | | | Secondary Defense| | | | | | | | | | | | | | | | | | | | Input Data | | | | | | | | | | | | | | | | | | | | Preparation for Final Defense| | | | | | | | | | | | | | | | | | | | Final Defense| | | | | | | | | | | | | | | | | | | | Documentation| | | | | | | | | | | | | | | | | | | | Submission of the Requirement| | | | | | | | | | | | | | | | | | | | Passing of the Requirement| | | | | | | | | | | | | | | | | | | | LEGEND: Completed SCHEDULE| NOVEMBER| DECEMBER| JANUARY| FEBRUARY| MARCH| WEEK| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| 1| 2| 3| 4| Orientation about the System| | | | | | | | | | | | | | | | | | | | System Proposal Making| | | | | | | | | | | | | | | | | | | | Search for the Beneficiary| | | | | | | | | | | | | | | | | | | | Meeting with the Beneficiary| | | | | | | | | | | | | | | | | | | | Data Gathering| | | | | | | | | | | | | | | | | | | | System Design| | | | | | | | | | | | | | | | | | | | Codings| | | | | | | | | | | | | | | | | | | | Preliminary Defense| | | | | | | | | | | | | | | | | | | | Revision of the System| | | | | | | | | | | | | | | | | | | | Testing| | | | | | | | | | | | | | | | | | | | Secondary Defense| | | | | | | | | | | | | | | | | | | | Input Data | | | | | | | | | | | | | | | | | | | | Preparation for Final Defense| | | | | | | | | | | | | | | | | | | | Final Defense| | | | | | | | | | | | | | | | | | | | Documentation| | | | | | | | | | | | | | | | | | | | Submission of the Requirement| | | | | | | | | | | | | | | | | | | | Passing of the Requirement| | | | | | | | | | | | | | | | | | | | Figure 8: Gantt Chart DIVISION OF LABOR Table 2: Division of Labor and Tasks JUNNIEFER C. SABILE| MARK JOSEPH L. PEREZ| -Coding -Debugging-Gathering information for the system-Design Project System -Making Documentation-User’s Interface| -Paper Works-Making Letters-Making Presentations-Making Documentation| Chapter V SUMMARY OF FINDINGS, CONCLUSIONS AND RECOMMENDATIONS SUMMARY OF FINDINGS When we are concerning the manual process of maintaining a rental records regarding customer’s information, the major problem is the waste of time that is completely dependent on human actions which couldn’t be free from errors. The manual system is difficult to managed that is why we the researchers find ways to propose this new system. This project is designed so as to be used by Queen’s Gown and Men’s Wear specializing in renting gowns and men’s wear to customers. It is a system through which owner can view available items and rented gowns. The development of the new system include such as saving time, reliability, and for the records to be safe kept and to improved their current system by making it computerized for faster and more efficient way in handling transaction for their customers. And all the stages of the transaction procedure will be facilitated by the system. It will provide a user friendly interface, access levels to ensure the integrity of the data stored in the system. CONCLUSIONS This Gown Rental Management and Information Systemfor Queen’s Gown and Men’s Wearis so important in dealing with the owner’s daily need of keeping rental records and customer transactions. Especially during occasional times wherein there are lots of customers who wanted to rent gowns, this would help much. Typing is much better than of writing for easy saving changes like editing wrong information, adding new items, updating available and rented items, making acknowledgement receipts, and generating sales reports for the said beneficiary. RECOMMENDATIONS Before creating a system, you must first know the purpose of the system; plan the system flow first before making the actual system, gather all the data needed for the system, and set priorities. In creating a customer record system, you must make it very user friendly. If possible, do not put many forms in the system, put multiple functions in only 1 form so the system won’t be confusing to use, like this system, most of its functions like, adding, deleting, editing, updating transactions, print receipt, print sales report and the transaction list are all on the main form. In designing the look of the system, make it simple; In the design, use colors that are pleasing to the eyes, the text and the buttons in the system should be readable and avoid too much gimmicks on the system like splash screens, unnecessary message boxes etc. This rental system is already a running system yet need more development especially the design in showing the lists of the customers who rented certain item/s. BIBLIOGRAPHY Eyjen, B. et. al. (2008). Professional Visual Basic 2008, Indianapolis, IN: Wiley Publishing Inc. Grundgeiger, Dave. (2002). Programming Visual Basic. NET. Sebastopol, CA: O’Reilly National Barcode. (2007,November). What is POS?. Retrieved December 2, 2011, from nationalbarcode. com/info/what-is-point-of-sale. html WhatIS(2011,March). POS Terminal. Retrieved November 3, 2011, from http://whatis. techtarget. com/definition/0,,sid9_gci774854,00. html https://docs. google. com/document/preview? hgd=1id=13i-I5cFekkqspu9mA4yf-ru_GFB-g_n9rVct_n0ZXdgpli=1 https://docs. google. com/document/preview? gd=1id=13i-I5cFekkqspu9mA4yf-ru_GFB-g_n9rVct_n0ZXdgpli=1 http://softwaretopic. informer. com/gown-rental-system/ rentinfo. com/ APPENDICES A. PROGRAM SOURCE CODE: PublicClass Form1 PrivateSub Form1_Load(ByVal sender A s System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load EndSub PrivateSub but_login_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles but_login. Click If txtuser. Text. Trim = Or txtpword. Text. Trim = Then MsgBox(Please fill in the required fields! , MsgBoxStyle. Exclamation, System Login) txtuser. Focus() Else con. Open() sql = SELECT * FROM [account] WHERE [user] LIKE txtuser. Text AND [password] LIKE txtpword. Text dc = New Data. OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader If dr. HasRows Then While dr. Read txtuser. Text = dr. Item(user) EndWhile MsgBox(Succesfully Log-in! , MsgBoxStyle. Information, System Login) con. Close() Me. Hide() Mainpage. Show() Else con. Close() MsgBox(Incorrect Username or Password! , MsgBoxStyle. Exclamation, System Login) txtuser. Clear() txtpword. Clear() txtuser. Focus() EndIf EndIf EndSub PrivateSub but_clearlogin_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles but_clearlogin. Click Dim quitmsg AsString = Are You Sure You Want To Quit? Dim quitanswer As DialogResult = MessageBox. Show(quitmsg, QUIT , MessageBoxButtons. YesNo, MessageBoxIcon. Question, MessageBoxDefaultButton. Button2) If quitanswer = Windows. Forms. DialogResult. Yes Then Me. Close() EndIf EndSub EndClass PublicClass Mainpage PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click Me. Hide() Order. Show() EndSub PrivateSub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4. Click Form1. Show() Me. Close() EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Me. Hide() Rental. Show() EndSub PrivateSub Button6_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button6. Click Me. Hide() Ordered_Items. Show() EndSub PrivateSub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click Me. Hide() RentedItems. Show() EndSub PrivateSub Button7_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button7. Click Me. Hide() ReturnedItems. Show() EndSub PrivateSub Button5_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button5. Click reportlist. Show() EndSub PrivateSub Mainpage_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load EndSub EndClass Imports System. Data. OleDb PublicClass EditOrder Public EditString AsString Public ReturnForm AsString PrivateSub EditOrder_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load sql = SELECT * FROM [Order] WHERE [Order Number]=' EditString con. Open() dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader While dr. Read Label1. Text = dr. Item(Order Number) Last_NameTextBox. Text = dr. Item(Last Name) First_NameTextBox. Text = dr. Item(First Name) Customer_NumberTextBox. Text = dr. Item(Customer Number) Date_OrderedDateTimePicker. Value = dr. Item(Date Ordered) Date_of_Pick_UpDateTimePicker. Value = dr. Item(Date of Pickup) Name_of_UserTextBox. Text = dr. Item(Name of User) GenderComboBox. Text = dr. Item(Gender) DistanceTextBox. Text = dr. Item(Distance) ShoulderTextBox. Text = dr. Item(Shoulder) Arm_HoleTextBox. Text = dr. Item(Arm Hole) Sleeve_LengthTextBox. Text = dr. Item(Sleeve Length) WaistlineTextBox. Text = dr. Item(Waistline) Upper_BustTextBox. Text = dr. Item(Upper Bust) BustTextBox. Text = dr. Item(Bust) HipsTextBox. Text = dr. Item(Hips) FigureTextBox. Text = dr. Item(Figure) Other_DescriptionTextBox. Text = dr. Item(Other Description) EndWhile dr. Close() con. Close() Last_NameTextBox. Focus() EndSub PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click If Last_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf First_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Name_of_UserTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf GenderComboBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf DistanceTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf ShoulderTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Arm_HoleTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Sleeve_LengthTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf WaistlineTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Upper_BustTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf BustTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf HipsTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf FigureTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Other_DescriptionTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) Else edit() EndIf EndSub PrivateSub edit() Dim msg AsString = MessageBox. Show(Are you sure you want to replace existing record? , Update Query, MessageBoxButtons. YesNo, MessageBoxIcon. Question) If msg = MsgBoxResult. Yes Then con. Open() sql = UPDATE [Order] SET [Last Name]=' Last_NameTextBox. Text , [First Name]=' _ First_NameTextBox. Text , [Customer Number]=' Customer_NumberTextBox. Text , [Date Ordered]=' _ Date_OrderedDateTimePicker. Value. ToShortDateString , [Date of Pickup]=' Date_of_Pick_UpDateTimePicker. Value. ToShortDateString , [Name of User]=' _ Name_of_UserTextBox. Text , [Gender]=' GenderComboBox. Text , [Distance]=' _ DistanceTextBox. Text , [Shoulder]=' ShoulderTextBox. Text , [Arm Hole]=' _ Arm_HoleTextBox. Text , [Sleeve Length]=' Sleeve_LengthTextBox. Text , [Waistline]=' _ WaistlineTextBox. Text , [Upper Bust]=' Upper_BustTextBox. Text , [Bust]=' _ BustTextBox. Text , [Hips]=' HipsTextBox. Text , [Figure]=' _ FigureTextBox. Text WHERE [Order Number]=' Label1. Text dc = New OleDb. OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Record Updated! , MsgBoxStyle. Information, Update Query) Me. Close() Ordered_Items. Show() Else ExitSub EndIf EndSub PrivateSub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click Dim msg AsString = MessageBox. Show(Are you sure you want to Move the Item? , Update Query, MessageBoxButtons. YesNo, MessageBoxIcon. Question) If msg = MsgBoxResult. Yes Then con. Open() sql = SELECT * FROM [Order] ORDER BY [Order Number] ASC dc = New OleDbCommand(sql, con) dr = dc. ExecuteReader ql = INSERT INTO [Done] ([Order Number],[Last Name],[First Name],[Customer Number],[Date of Order],[Date of Pick-Up],[Name of User],[Gender],[Distance],[Shoulder],[Arm Hole],[Sleeve Length],[Waist Line],[Upper Bust],[Bust],[Hips],[Figure],[Other Description]) VALUES ( Label1. Text , _ Last_NameTextBox. Text , First_NameTextBox. Text , Custome r_NumberTextBox. Text , Date_OrderedDateTimePicker. Value. ToShortDateString , Date_of_Pick_UpDateTimePicker. Value. ToShortDateString , Name_of_UserTextBox. Text , GenderComboBox. Text , DistanceTextBox. Text , ShoulderTextBox. Text , Arm_HoleTextBox. Text , Sleeve_LengthTextBox. Text , WaistlineTextBox. Text , Upper_BustTextBox. Text , BustTextBox. Text , HipsTextBox. Text , FigureTextBox. Text , Other_DescriptionTextBox. Text ) dc = New OleDbCommand(sql, con) dc. ExecuteNonQuery() sql = DELETE * FROM [Order] WHERE [Order Number]=' Label1. Text dc = New OleDb. OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Item Moved! , MsgBoxStyle. Information, Insert Query) CLR() Me. Close() Ordered_Items. Show() EndIf EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Me. Close() Ordered_Items. Show() EndSub EndClass Imports System. Data. OleDb PublicClass EditRent Public EditString AsString Public ReturnForm AsString PrivateSub EditRent_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load sql = SELECT * FROM [Rent] WHERE [Rent Number]='; EditString ; con. Open() dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader While dr. Read Label2. Text = dr. Item(Rent Number) Last_NameTextBox. Text = dr. Item(Last Name) First_NameTextBox. Text = dr. Item(First Name) Customer_NumberTextBox. Text = dr. Item(Customer Number) AddressTextBox. Text = dr. Item(Address) DateTimePicker1. Value = dr. Item(Date of Rent) DateTimePicker2. Value = dr. Item(Date of Return) Rented_Item_DesciptionTextBox. Text = dr. Item(Item Description) AmountTextBox. Text = dr. Item(Amount) EndWhile dr. Close() con. Close() Last_NameTextBox. Focus() EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Me. Hide() RentedItems. Show() EndSub PrivateSub save() con. Open() sql = SELECT * FROM [Rent] ORDER BY [Rent Number] ASC dc = New OleDbCommand(sql, con) dr = dc. ExecuteReader ql = INSERT INTO [Rent] ([Rent Number],[Last Name],[First Name],[Customer Number],[Address],[Date of Rent],[Date of Return],[Item Description],[Amount]) VALUES (; Label2. Text ;, _ ; Last_NameTextBox. Text ;, ; First_NameTextBox. Text ;, ; Customer_NumberTextBox. Text ;, ; AddressTextBox. Text ;, ; DateTimePicker1. Value. ToShortDateString ;, ; DateTimePicker2. Value. ToShort DateString ;, ; Rented_Item_DesciptionTextBox. Text ;, ; AmountTextBox. Text ;) dc = New OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Record Saved! , MsgBoxStyle. Information, Insert Query) CLR() Me. Close() RentedItems. Show() EndSub PrivateSub edit() Dim msg AsString = MessageBox. Show(Are you sure you want to replace existing record? , Update Query, MessageBoxButtons. YesNo, MessageBoxIcon. Question) If msg = MsgBoxResult. Yes Then con. Open() sql = UPDATE [Rent] SET [Last Name]=' Last_NameTextBox. Text , [First Name]=' _ First_NameTextBox. Text , [Customer Number]=' Customer_NumberTextBox. Text , [Address]=' _ AddressTextBox. Text , [Date of Rent]=' DateTimePicker1. Value. ToShortDateString , [Date of Return]=' _ DateTimePicker2. Value. ToShortDateString , [Item Description]=' Rented_Item_DesciptionTextBox. Text , [Amount]=' _ AmountTextBox. Text WHERE [Rent Number]=' Label2. Text dc = New OleDb. OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Record Updated! , MsgBoxStyle. Information, Update Query) Me. Close() RentedItems. Show() Else ExitSub EndIf EndSub PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click If Last_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf First_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf AddressTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Rented_Item_DesciptionTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary in formation! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf AmountTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) Else edit() EndIf EndSub PrivateSub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click Dim msg AsString = MessageBox. Show(Are you sure you want to Move the Item? , Update Query, MessageBoxButtons. YesNo, MessageBoxIcon. Question) If msg = MsgBoxResult. Yes Then con. Open() sql = SELECT * FROM [Rent] ORDER BY [Rent Number] ASC dc = New OleDbCommand(sql, con) dr = dc. ExecuteReader sql = INSERT INTO [Return] ([Return Number],[Last Name],[First Name],[Customer Number],[Address],[Date of Rent],[Date of Return],[Item Description],[Amount]) VALUES ( Label2. Text , _ Last_NameTextBox. Text , First_NameTextBox. Text , Customer_NumberTextBox. Text , AddressTextBox. Text , DateTimePicker1. Value. ToShortDateString , DateTimePicker2. Value. ToShortDateString , Rented_Item_DesciptionTextBox. Text , AmountTextBox. Text ) dc = New OleDbCommand(sql, con) dc. ExecuteNonQuery() sql = DELETE * FROM [Rent] WHERE [Rent Number]=' Label2. Text dc = New OleDb. OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Item Moved! , MsgBoxStyle. Information, Insert Query) CLR() Me. Close() RentedItems. Show() EndIf EndSub EndClass Imports System. IO Imports System. Data. OleDb Module Module1 Public a AsInteger = 1 Public sql AsString Public conString AsString = Provider=Microsoft. JET. OLEDB. 4. 0;Data Source=|DataDirectory|GownNewDatabase1. mdb Public CurrentForm As System. Windows. Forms. Form Public con AsNew OleDbConnection(conString) Public ds As DataSet Public dc As OleDbCommand Public dr As OleDbDataReader Public da As OleDbDataAdapter Public dt As DataTable EndModule Imports System. Data. OleDb PublicClass Order Sub ptcode() Randomize() pt1 = Format(Int(Rnd() * 99)) pt2 = Year(Now()) 2000 pt3 = pt2 ; pt1 Label12. Text = pt3 EndSub Sub ptcode2() Randomize() p1 = Format(Int(Rnd() * 9), 0) p2 = Format(Int(Rnd() * 9), 1) p3 = p2 ; p1 Label13. Text = p3 EndSub Sub ptcode3() Dim pr4 As String pr4 = p3 + 1 Label13. Text = pr4 End Sub PrivateSub Order_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load Order_NumberTextBox. Hide() ptcode() ptcode2() EndSub PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click If Last_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf First_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Name_of_UserTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf GenderComboBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf DistanceTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf ShoulderTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Arm_HoleTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Sleeve_LengthTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf WaistlineTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Upper_BustTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf BustTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf HipsTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf FigureTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Other_DescriptionTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) Else saved() EndIf EndSub Pri vateSub saved() If MessageBox. Show(Are you sure the information you have entered is correct? , ADD PATIENT INFORMATION, MessageBoxButtons. YesNo, MessageBoxIcon. Question) = Windows. Forms. DialogResult. Yes Then con. Open() sql = SELECT * FROM [Order] ORDER BY [Order Number] ASC dc = New OleDbCommand(sql, con) dr = dc. ExecuteReader ql = INSERT INTO [Order] ([Order Number],[Transaction],[Last Name],[First Name],[Customer Number],[Date Ordered],[Date of Pickup],[Name of User],[Gender],[Distance],[Shoulder],[Arm Hole],[Sleeve Length],[Waistline],[Upper Bust],[Bust],[Hips],[Figure],[Other Description]) VALUES (; Label12. Text ;, _ ; Label13. Text ;, ; Last_NameTextBox. Text ;, ; First_NameTextBox. Text ;, ; Customer_NumberTextBox. Text ;, ; Date_OrderedDateTimePicker. Value. ToShortDateString ;, ; Date_of_Pick_UpDateTimePicker. Value. ToShortDateString ;, ; Name_of_UserTextBox. Text ;, ; GenderComboBox. Text ;, ; DistanceTextBox. Text ;, ; ShoulderTextBox. Text ;, ; Arm_HoleTextBox. Text ;, ; Sleeve_LengthTextBox. Text ;, ; WaistlineTextBox. Text ;, ; Upper_BustTextBox. Text ;, ; BustTextBox. Text ;, ; HipsTextBox. Text ;, ; FigureTextBox. Text ;, ; Other_DescriptionTextBox. Text ;) dc = New OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Record Saved! , MsgBoxStyle. Information, Insert Query) EndIf EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Me. Close() Mainpage. Show() EndSub PrivateSub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4. Click Last_NameTextBox. Clear() First_NameTextBox. Clear() Customer_NumberTextBox. Clear() Name_of_UserTextBox. Clear() GenderComboBox. ResetText() ShoulderTextBox. Clear() DistanceTextBox. Clear() Arm_HoleTextBox. Clear() Sleeve_LengthTextBox. Clear() WaistlineTextBox. Clear() Upper_BustTextBox. Clear() BustTextBox. Clear() HipsTextBox. Clear() FigureTextBox. Clear() Other_DescriptionTextBox. Clear() Label13. Text = Val(Label13. Text) + 1 ptcode3() Label12. Text = + 1 EndSub PrivateSub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click Name_of_UserTextBox. Clear() GenderComboBox. ResetText() ShoulderTextBox. Clear() DistanceTextBox. Clear() Arm_HoleTextBox. Clear() Sleeve_LengthTextBox. Clear() WaistlineTextBox. Clear() Upper_BustTextBox. Clear() BustTextBox. Clear() HipsTextBox. Clear() FigureTextBox. Clear() Other_DescriptionTextBox. Clear() Label12. Text = Val(Label12. Text) + 1 EndSub PrivateSub NewTransactionToolStripMenuItem_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles NewTransactionToolStripMenuItem. Click Last_NameTextBox. Clear() First_NameTextBox. Clear() Customer_NumberTextBox. Clear() Name_of_UserTextBox. Clear() GenderComboBox. ResetText() ShoulderTextBox. Clear() DistanceTextBox. Clear() Arm_HoleTextBox. Clear() Sleeve_LengthTextBox. Clear() WaistlineTextBox. Clear() Upper_BustTextBox. Clear() BustTextBox. Clear() HipsTextBox. Clear() FigureTextBox. Clear() Other_DescriptionTextBox. Clear() Label13. Text = Val(Label13. Text) + 1 EndSub PrivateSub NewOrderToolStripMenuItem_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles NewOrderToolStripMenuItem. Click Name_of_UserTextBox. Clear() GenderComboBox. ResetText() ShoulderTextBox. Clear() DistanceTextBox. Clear() Arm_HoleTextBox. Clear() Sleeve_LengthTextBox. Clear() WaistlineTextBox. Clear() Upper_BustTextBox. Clear() BustTextBox. Clear() HipsTextBox. Clear() FigureTextBox. Clear() Other_DescriptionTextBox. Clear() Label12. Text = Val(Label12. Text) + 1 EndSub EndClass Imports System. IO Imports System. Data Imports System. Data. OleDb PublicClass Ordered_Items Dim SelectionString AsString = String. Empty Dim m As MsgBoxResult Dim t AsString PrivateSub Ordered_Items_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load con. Open() sql = SELECT * FROM [Order] dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader lv. View = View. Details lv. FullRowSelect = True lv. GridLines = True lv. Columns. Add(Order Number, 90) lv. Columns. Add(Last Name, 105) lv. Columns. Add(First Name, 105) lv. Columns. Add(Customer Number, 100) lv. Columns. Add(Date Ordered, 150) lv. Columns. Add(Date of Pickup, 120) lv. Columns. Add(Name of User, 150) lv. Columns. Add(Gender, 50) lv. Columns. Add(Distance, 50) lv. Columns. Add(Shoulder, 50) lv. Columns. Add(Arm Hole, 50) lv. Columns. Add(Sleeve Length, 50) lv. Columns. Add(Waistline, 50) lv. Columns. Add(Upper Bust, 50) lv. Columns. Add(Bust, 50) lv. Columns. Add(Hips, 50) lv. Columns. Add(Figure, 50) lv. Columns. Add(Other Description, 150) While dr. Read Dim LVItem AsNew ListViewItem(dr. Item(Order Number). ToString()) LVItem. SubItems. Add(dr. Item(Last Name)) LVItem. SubItems. Add(dr. Item(First Name)) LVItem. SubItems. Add(dr. Item(Customer Number)) LVItem. SubItems. Add(dr. Item(Date Ordered)) LVItem. SubItems. Add(dr. Item(Date of Pickup)) LVItem. SubItems. Add(dr. Item(Name of User)) LVItem. SubItems. Add(dr. Item(Gender)) LVItem. SubItems. Add(dr. Item(Distance)) LVItem. SubItems. Add(dr. Item(Shoulder)) LVItem. SubItems. Add(dr. Item(Arm Hole)) LVItem. SubItems. Add(dr. Item(Sleeve Length)) LVItem. SubItems. Add(dr. Item(Waistline)) LVItem. SubItems. Add(dr. Item(Upper Bust)) LVItem. SubItems. Add(dr. Item(Bust)) LVItem. SubItems. Add(dr. Item(Hips)) LVItem. SubItems. Add(dr. Item(Figure)) LVItem. SubItems. Add(dr. Item(Other Description)) lv. Items. Add(LVItem) EndWhile con. Open() sql = SELECT * FROM [Done] dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader lv1. View = View. Details lv1. FullRowSelect = True lv1. GridLines = True lv1. Columns. Add(Order Number, 90) lv1. Columns. Add(Last Name, 105) lv1. Columns. Add(First Name, 105) lv1. Columns. Add(Customer Number, 100) lv1. Columns. Add(Date Ordered, 150) lv1. Columns. Add(Date of Pickup, 120) lv1. Columns. Add(Name of User, 150) lv1. Columns. Add(Gender, 50) lv1. Columns. Add(Distance, 50) lv1. Columns. Add(Shoulder, 50) lv1. Columns. Add(Arm Hole, 50) lv1. Columns. Add(Sleeve Length, 50) lv1. Columns. Add(Waistline, 50) lv1. Columns. Add(Upper Bust, 50) lv1. Columns. Add(Bust, 50) lv1. Columns. Add(Hips, 50) lv1. Columns. Add(Figure, 50) lv1. Columns. Add(Other Description, 150) While dr. Read Dim LVI1tem AsNew ListViewItem(dr. Item(Order Number). ToString()) LVI1tem. SubItems. Add(dr. Item(Last Name)) LVI1tem. SubItems. Add(dr. Item(First Name)) LVI1tem. SubItems. Add(dr. Item(Customer Number)) LVI1tem. SubItems. Add(dr. Item(Date of Order)) LVI1tem. SubItems. Add(dr. Item(Date of Pick-Up)) LVI1tem. SubItems. Add(dr. Item(Name of User)) LVI1tem. SubItems. Add(dr. Item(Gender)) LVI1tem. SubItems. Add(dr. Item(Distance)) LVI1tem. SubItems. Add(dr. Item(Shoulder)) LVI1tem. SubItems. Add(dr. Item(Arm Hole)) LVI1tem. SubItems. Add(dr. Item(Sleeve Length)) LVI1tem. SubItems. Add(dr. Item(Waist Line)) LVI1tem. SubItems. Add(dr. Item(Upper Bust)) LVI1tem. SubItems. Add(dr. Item(Bust)) LVI1tem. SubItems. Add(dr. Item(Hips)) LVI1tem. SubItems. Add(dr. Item(Figure)) LVI1tem. SubItems. Add(dr. Item(Other Description)) lv1. Items. Add(LVI1tem) EndWhile con. Close() EndSub PrivateSub txtSearch_TextChanged(ByVal sender AsObject, ByVal e As System. EventArgs) Handles txtSearch. TextChanged If ComboBox1. Text = Order NumberThen sql = SELECT * FROM [Order] WHERE [Order Number] LIKE % txtSearch. Text % ORDER BY [Order Number] ASC search() ElseIf ComboBox1. Text = Last NameThen sql = SELECT * FROM [Order] WHERE [Last Name] LIKE % txtSearch. Text % ORDER BY [Last Name] ASC search() ElseIf ComboBox1. Text = Date of OrderThen sql = SELECT * FROM [Order] WHERE [Date Ordered] LIKE % txtSearch. Text % ORDER BY [Date Ordered] ASC search() EndIf EndSub PrivateSub search() v. Clear() con. Open() sql = SELECT * FROM [Order] WHERE [Order Number] LIKE % ; txtSearch. Text ; % ORDER BY [Order Number] ASC dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader lv. View = View. Details lv. FullRowSelect = True lv. GridLines = True lv. Columns. Add(Order Number, 90) lv. Columns. Add(Last Name, 105) lv. Columns. Add(First Name, 105) lv. Columns. Add(Customer Number, 100 ) lv. Columns. Add(Date Ordered, 150) lv. Columns. Add(Date of Pickup, 120) lv. Columns. Add(Name of User, 150) lv. Columns. Add(Gender, 50) lv. Columns. Add(Distance, 50) lv. Columns. Add(Shoulder, 50) lv. Columns. Add(Arm Hole, 50) lv. Columns. Add(Sleeve Length, 50) lv. Columns. Add(Waistline, 50) lv. Columns. Add(Upper Bust, 50) lv. Columns. Add(Bust, 50) lv. Columns. Add(Hips, 50) lv. Columns. Add(Figure, 50) lv. Columns. Add(Other Description, 150) While dr. Read Dim LVItem AsNew ListViewItem(dr. Item(Order Number). ToString()) LVItem. SubItems. Add(dr. Item(Last Name)) LVItem. SubItems. Add(dr. Item(First Name)) LVItem. SubItems. Add(dr. Item(Customer Number)) LVItem. SubItems. Add(dr. Item(Date Ordered)) LVItem. SubItems. Add(dr. Item(Date of Pickup)) LVItem. SubItems. Add(dr. Item(Name of User)) LVItem. SubItems. Add(dr. Item(Gender)) LVItem. SubItems. Add(dr. Item(Distance)) LVItem. SubItems. Add(dr. Item(Shoulder)) LVItem. SubItems. Add(dr. Item(Arm Hole)) LVItem. SubItems. Add(dr. Item(Sleeve Length)) LVItem. SubItems. Add(dr. Item(Waistline)) LVItem. SubItems. Add(dr. Item(Upper Bust)) LVItem. SubItems. Add(dr. Item(Bust)) LVItem. SubItems. Add(dr. Item(Hips)) LVItem. SubItems. Add(dr. Item(Figure)) LVItem. SubItems. Add(dr. Item(Other Description)) lv. Items. Add(LVItem) EndWhile con. Close() If txtSearch. Text. Trim = Then lv. Clear() lv. View = View. Details lv. FullRowSelect = True lv. GridLines = True lv. Columns. Add(Order Number, 90) lv. Columns. Add(Last Name, 105) lv. Columns. Add(First Name, 105) lv. Columns. Add(Customer Number, 100) lv. Columns. Add(Date Ordered, 150) lv. Columns. Add(Date of Pickup, 120) lv. Columns. Add(Name of User, 150) lv. Columns. Add(Gender, 50) lv. Columns. Add(Distance, 50) lv. Columns. Add(Shoulder, 50) lv. Columns. Add(Arm Hole, 50) lv. Columns. Add(Sleeve Length, 50) lv. Columns. Add(Waistline, 50) lv. Columns. Add(Upper Bust, 50) lv. Columns. Add(Bust, 50) lv. Columns. Add(Hips, 50) lv. Columns. Add(Figure, 50) lv. Columns. Add(Other Description, 150) EndIf EndSub PrivateSub search1() lv1. Clear() con. Open() sql = SELECT * FROM [Order] WHERE [Order Number] LIKE % ; txtSearch. Text ; % ORDER BY [Order Number] ASC dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader lv1. View = View. Details lv1. FullRowSelect = True lv1. GridLines = True lv1. Columns. Add(Order Number, 90) lv1. Columns. Add(Last Name, 105) lv1. Columns. Add(First Name, 105) lv1. Columns. Add(Customer Number , 100) lv1. Columns. Add(Date Ordered, 150) lv1. Columns. Add(Date of Pickup, 120) lv1. Columns. Add(Name of User, 150) lv1. Columns. Add(Gender, 50) lv1. Columns. Add(Distance, 50) lv1. Columns. Add(Shoulder, 50) lv1. Columns. Add(Arm Hole, 50) lv1. Columns. Add(Sleeve Length, 50) lv1. Columns. Add(Waistline, 50) lv1. Columns. Add(Upper Bust, 50) lv1. Columns. Add(Bust, 50) lv1. Columns. Add(Hips, 50) lv1. Columns. Add(Figure, 50) lv1. Columns. Add(Other Description, 150) While dr. Read Dim LVI1tem AsNew ListViewItem(dr. Item(Order Number). ToString()) LVI1tem. SubItems. Add(dr. Item(Last Name)) LVI1tem. SubItems. Add(dr. Item(First Name)) LVI1tem. SubItems. Add(dr. Item(Customer Number)) LVI1tem. SubItems. Add(dr. Item(Date of Order)) LVI1tem. SubItems. Add(dr. Item(Date of Pick-Up)) LVI1tem. SubItems. Add(dr. Item(Name of User)) LVI1tem. SubItems. Add(dr. Item(Gender)) LVI1tem. SubItems. Add(dr. Item(Distance)) LVI1tem. SubItems. Add(dr. Item(Shoulder)) LVI1tem. SubItems. Add(dr. Item(Arm Hole)) LVI1tem. SubItems. Add(dr. Item(Sleeve Length)) LVI1tem. SubItems. Add(dr. Item(Waist Line)) LVI1tem. SubItems. Add(dr. Item(Upper Bust)) LVI1tem. SubItems. Add(dr. Item(Bust)) LVI1tem. SubItems. Add(dr. Item(Hips)) LVI1tem. SubItems. Add(dr. Item(Figure)) LVI1tem. SubItems. Add(dr. Item(Other Description)) lv1. Items. Add(LVI1tem) EndWhile con. Close() If TextBox1. Text. Trim = Then lv1. Clear() lv1. View = View. Details lv1. FullRowSelect = True lv1. GridLines = True lv1. Columns. Add(Order Number, 90) lv1. Columns. Add(Last Name, 105) lv1. Columns. Add(First Name, 105) lv1. Columns. Add(Customer Number, 100) lv1. Columns. Add(Date Ordered, 150) lv1. Columns. Add(Date of Pickup, 120) lv1. Columns. Add(Name of User, 150) lv1. Columns. Add(Gender, 50) lv1. Columns. Add(Distance, 50) lv1. Columns. Add(Shoulder, 50) lv1. Columns. Add(Arm Hole, 50) lv1. Columns. Add(Sleeve Length, 50) lv1. Columns. Add(Waistline, 50) lv1. Columns. Add(Upper Bust, 50) lv1. Columns. Add(Bust, 50) lv1. Columns. Add(Hips, 50) lv1. Columns. Add(Figure, 50) lv1. Columns. Add(Other Description, 150) EndIf EndSub PrivateSub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4. Click Me. Close() Mainpage. Show() EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Order. Show() Me. Hide() EndSub PrivateSub LVSelection() ForEach LVItem As ListViewItem In lv. SelectedItems SelectionString = LVItem. Text Next EndSub PrivateSub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3. Click LVSelection() If SelectionString ;;Then EditOrder. EditString = SelectionString EditOrder. ReturnForm = Grid Me. Hide() EditOrder. Show() Else MsgBox(Please select record to update. , MsgBoxStyle. Exclamation, Edit Query) EndIf EndSub PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click LVSelection() If SelectionString ;;Then Dim msg AsString = MessageBox. Show(Are you sure you want to Cancel this Transaction? , Delete Query, MessageBoxButtons. YesNo, MessageBoxIcon. Question) If msg = MsgBoxResult. Yes Then con. Open() sql = DELETE * FROM [Order] WHERE [Order Number]='; SelectionString ; dc = New OleDb. OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Rent has been Cancelled! , MsgBoxStyle. Information, Delete Query) txtSearch. Clear() txtSearch. Focus() search() Else ExitSub EndIf Else MsgBox(Please select record to be Deleted. , MsgBoxStyle. Exclamation, Delete Query) EndIf EndSub PrivateSub TextBox1_TextChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1. TextChanged If ComboBox2. Text = Order NumberThen sql = SELECT * FROM [Done] WHERE [Order Number] LIKE % txtSearch. Text % ORDER BY [Order Number] ASC search1() ElseIf ComboBox2. Text = Last NameThen sql = SELECT * FROM [Done] WHERE [Last Name] LIKE % txtSearch. Text % ORDER BY [Last Name] ASC search1() ElseIf ComboBox2. Text = Date of OrderThen sql = SELECT * FROM [Done] WHERE [Date of Order] LIKE % txtSearch. Text % ORDER BY [Date of Order] ASC search1() EndIf EndSub EndClass Imports System. Data. OleDb PublicClass Rental Sub ptcode() Dim pt1, pt2, pt3 AsString Randomize() pt1 = Format(Int(Rnd() * 999), 000) pt2 = Year(Now()) 2000 pt3 = 1 pt2 pt1 Rent_NumberTextBox. Text = pt3 EndSub PrivateSub Rental_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load Rent_NumberTextBox. Hide() ptcode() EndSub PrivateSub saved() If MessageBox. Show(Are you sure the information you have entered is correct? , ADD PATIENT INFORMATION, MessageBoxButtons. YesNo, MessageBoxIcon. Question) = Windows. Forms. DialogResult. Yes Then con. Open() sql = SELECT * FROM [Rent] ORDER BY [Rent Number] ASC dc = New OleDbCommand(sql, con) dr = dc. ExecuteReader sql = INSERT INTO [Rent] ([Rent Number],[Last Name],[First Name],[Customer Number],[Address],[Date of Rent],[Date of Return],[Item Description],[Amount]) VALUES ( Rent_NumberTextBox. Text , _ Last_NameTextBox. Text , First_NameTextBox. Text , Customer_NumberTextBox. Text , AddressTextBox. Text , DateTimePicker1. Value. ToShortDateString , DateTimePicker2. Value. ToShortDateString , Rented_Item_DesciptionTextBox. Text , AmountTextBox. Text ) dc = New OleDbCommand(sql, con) dc. ExecuteNonQuery() con. Close() MsgBox(Record Saved! , MsgBoxStyle. Information, Insert Query) EndIf EndSub PrivateSub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click If Last_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf First_NameTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf AddressTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Customer_NumberTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf Rented_Item_DesciptionTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary in formation! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) ElseIf AmountTextBox. Text = String. Empty Then MsgBox(All fields are required to be filled in with necessary information! Please enter valid data. , MsgBoxStyle. Information, Information Incomplete! ) Else aved() EndIf EndSub PrivateSub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click Me. Close() Mainpage. Show() EndSub EndClass Imports System. IO Imports System. Data Imports System. Data. OleDb PublicClass RentedItems Dim SelectionString AsString = String. Empty Dim m As MsgBoxResult Dim t AsString PrivateSub RentedItems_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) HandlesMyBase. Load con. Open() sql = SELECT * FROM [Rent] dc = New OleDb. OleDbCommand(sql, con) dr = dc. ExecuteReader lv3. View = View. Details lv3. FullRowSelect = True lv3. GridLines = True lv3. Columns. Add(Rent Number, 90) lv3. Columns. Add(Last Name, 105) lv3. Columns. Add(First Name, 105) lv3. Columns. Add(Customer Number, 100) lv3. Columns. Add(Address, 150) lv3. Columns. Add(Date of Rent, 120) lv3. Columns. Add(Date of Return, 120) lv3. Columns. Add(Item Description, 200) lv3. Columns. Add(Amount, 50) While dr. Read Dim LVItem1 AsNew ListViewItem(dr. Item(Rent Number). ToString()) LVItem1. SubItems. Add(dr. Item(Last Name)) LVItem1. SubItems. Add(dr. Item(First Name)) LVItem1. SubItems. Add(dr. Item(Customer Number)) LVItem1. SubItems. Add(dr. Item(Address)) LVItem1. SubItems. Add(dr. Item(Date of Rent)) LVItem1. SubItems. Add(dr. Item(Date of Return)) LVItem1. SubItems. Add(dr. Item(Item Description)) LVItem1. SubItems. Add(dr. Item(Amount)) lv3. Items. Add(LVItem1) EndWhile con. Close() dr. Close() EndSub PrivateSub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4. Click Me. Close() Mainpage. Show() EndSub PrivateSub txtSearch_KeyPress(ByVal sender AsObject, ByVal e As System. Windows. Forms. KeyPressEventArgs) Handles txtSearch. KeyPress If Asc(e. KeyChar) = 13 Then If txtSearch. Text. Trim = Then MsgBox(Please fill in the required fields! , MsgBoxStyle. Exclamation, System Login)