Essay about Growing as a Reader - 1145 Words

Throughout this year, I have read many different works of early English literature. From reading these works and following the rules of Vladimir Nabokov, I have grown tremendously as a reader since the beginning of this year. From reading Alice in Wonderland to now, I have grown to appreciate literature much more. I have developed a better sense of the English language through the use of a dictionary and the difficult sentence structure of works such as the Canterbury Tales, Beowulf, Le Morte D’Arthur, and the Fairie Queene. Because of the difficult sentence structures, the different word usages, and the deeper meanings wrapped in each of these works, I have learned to reread to better my understanding of the text and to see if I†¦show more content†¦With Alice in Wonderland, I had no intentions of using a dictionary for words that I did not understand, and as a consequence, I had no idea what a portmanteau was. This hindered my understanding of the entire chapte r with Humpty Dumpty and also the portmanteaus throughout the book. Learning from my mistakes as I started Beowulf, I began to use a dictionary as I read, but I only looked up words that I had never seen before. Because I did not look up words that looked out of place to me due their meaning now, I misinterpreted many parts of Beowulf. As I began the Canterbury Tales, I started to write words that I did not understand or that looked out of place in my journal with a question mark by them. After I was finished reading, I would go back and look up the words I wrote down. Then, I would reread the passage to get a better comprehension of it. I continued to do this throughout the year on most of the other works I read. I used the difficult sentence structure of the literary works I read this semester to give me a greater understanding of the English language. Before this year, I had read little to nothing with any form of Old English sentence structure, and when I came to Beowulf, I found it difficult to read. I had to read a passage three or four times before I finally understood what was happening. In my journal, I would write why could we not have a better translation. Now I know why. As I becameShow MoreRelatedBuilding a Foundation and Growing As Readers Essay746 Words   |  3 Pagesprior background knowledge about phonics, and word usage. The whole idea is to build both top-down model strategies, and bottom-up skills and word identification at the same time. The foundation has to be set before students can build and grow as readers. They must be immersed in reading and surrounded by it as well. As a teacher I plan on using phonemic awareness, and word identification skills while also practicing reading, and writing comprehension. Students are constantly building scaffold’sRead MoreComing of Age in Catcher in the Rye1139 Words   |  5 Pagesrealizes that growing up cannot be stopped. He wanders around the New York City by himself and gains experience of life that teaches him to become mature. This book is clearly written to show the theme of coming of age because it shows many symbols of coming of age, it shows the changes of young adults in modern life, and it creates an image of Holden growing up. There are many symbols that represent coming of age in this book. The author hides the innuendos of growing up in the natureRead MoreAnalysis Of The Horizontal World By Debra Marquart772 Words   |  4 Pageslike North Dakota. Throughout the passage it explains how growing up in North Dakota or the square states is boring and plain. Along with talking about how plain these states are, the author brings up many points on why these states are important. Points such as how these states are the states that hold strong women and good looking men (Marquart 26). Throughout this passage the author uses visual imagery and expert testimonial to show the reader how the square states are viewed. Visual imagery canRead MoreAnalysis Of Jane Hirshfield s Poem Tree 997 Words   |  4 Pagesredwood† (line 2) growing near a house, near a kitchen window. The redwood is already scraping against the window frame of the house, reminding the reader of the â€Å"foolish† (line 1) idea of letting it grow there. Humans were created to be one with nature, but as they evolved as a species, they were obligated to choose between the materialistic world or the world of nature. Hirshfield writes this poem in second person to give life to the poem so that the poem speaks to the reader. The poem starts byRead MoreEssay about Boys: Short Story Analysis998 Words   |  4 Pagesabout—relationships, travel, growing up, bedrooms, hotels, restaurants, the synagogue on 42nd Street—and they trust that they will discover things about the topic as they work.† (Sellers 71) Rick Moody author of â€Å"Boys† has taken a relatable topic the process of growing up and has turned a thirty year frame into a condensed linear chronological format. Moody offers the reader a different view point, introduces repetition and the stressing of words creating a certain movement influencing the readers experience. Read MoreAnalysis Of Majed R. Muhtaseb s Argument1353 Words   |  6 Pagesof Majed R. Muhtaseb’s argument in â€Å"Growing role of hedge funds in the economy† is to inform the reader of the increasing role hedge funds play in the eco nomy. Muhtaseb does not make the argument to persuade the reader to invest in hedge funds, but he attempts to convince them of their importance. Stated in the first sentence of the abstract, Muhtaseb presents the simple thesis for the article: â€Å"The objective of this article is to document the profound and growing role of hedge funds in the economy†Read MoreThe Love Song Of J. Alfred Prufrock1005 Words   |  5 Pagesâ€Å"The Love Song of J. Alfred Prufrock,† published in 1915, was written by a man named T.S. Eliot. The speaker of the poem begins to describe an evening that appears to be somewhat romantic and a little mysterious. As the reader progresses into the poem, the mood soon fades and the reader starts to figure out that this evening is not what they pictured. â€Å"Acquainted with the Night† is a poem written by Robert Frost. The poem was first published in 1927. The speaker of the poem has a similar mood as Eliot’sRead MoreAnalysis Of The Book Ranch Girl 929 Words   |  4 Pagesof a ranch girl is unknown to many people across America. In Maile Meloy’s Ranch Girl, a female narrator brings the reader into her hard life being raised as a ranch girl. Through many different literary devices including, tone, mood, and characterization, the writer set the reader to feel everything the narrator depicts and the reader ingested with a heavier impact than the reader anticipates. The obligation to the community for the ranch girl is to break all stereotypes, thus showing her communityRead MoreEssay On Innocence In To Kill A Mockingbird815 Words   |  4 Pagesteaches many lessons as well as defies stereotypes. Scout gives readers her perspective of things. In To Kill A Mockingbird, Harper Lee uses the growth and characterization of Scout to reveal to readers how innocence slowly falls away through Scout’s obliviousness about other people, Scout’s protection towards her family, and Scout’s curious ways. Although Scout starts off being insensible towards others, she begins to grow and unmask to readers that innocence slowly disappears from a child. Jem and ScoutRead More`` Hidden Intellectualism `` By Gerald Graff912 Words   |  4 Pagesreligious studies, sparking Graff’s’ interest in the idea of hidden intellectualism. He addresses throughout the paper how the culture of schools is not conducive to feeding intellectual growth; his main focus is that of his childhood, and his experience growing up in a school system that focused on memorization of seemingly unconnected facts and an environment that continuously put down intellectuals. Graf continues to argue that schools focus on suppressing conflict for a peaceful and quite faà §ade, however

A Study Of Female Writers Of Romantic Period - 1959 Words

A Study of female writers of romantic period Introduction: Various types of literature are found from the advent of English literature. Before the romantic period, there were various other periods like old English literature, middle English literature, English renaissance, neo-classical period etc. From the beginning we notice that there is an imbalance between the male and female authors. Male writers are found more than the female writers. This imbalance is also found in the romantic literature. Also it is seen that, though the majority writers are men, the women are more interested in reading those piece of literature, compared to male. The romantic period was an intellectual movement originated in Europe during the late 17th century. William Wordsworth is considered to be as the father of romantic period in one hand, on the other hand William blake is called the father of romantic period. The romantic period was basically a response to industrial revolution. In this period, the writers wrote about nature, personal experiences, show ed the negative side of city life and put more importance on imagination. Metaphors, symbols are quite common in this period of writing. In this research, I will try to find out the reasons behind the less number of female writers in the romantic period, was it because their lack of skills, was it because the male writers were dominating or they did write but it was not published or there areShow MoreRelatedSweeney Among the Nightingales1667 Words   |  7 PagesLeonardo Rubio English 12 Period 6 1/2/11 Sweeney Among the Nightingales This essay is written as a reader response to the poem written by T. S. Eliot, Sweeney Among the Nightingales. Unlike many other poems of his time, T. S. Eliot’s intention was to portray man as vulgar or mundane and having a pessimistic or cynical attitude. T. S. Eliot may have had a different view of life and people than other poets. He may not have viewed man as heroic or romantic, but more crude and reprehensible. ItRead MoreExamples Of Romanticism In The Fall Of The House Of Usher1610 Words   |  7 PagesInitials Thoughts about the work â€Å"The Fall of the House of Usher† After reading Edgar Allan Poe, â€Å"The Raven† during the course of study for the class and learning how Gothic literature was part of a central movement in the Romanticism era, I decided to read â€Å"The Fall of the House of Usher†. Even knowing that Poe is a gothic writer when the story started I was surprised, that beside the description of the feelings of sorrow and dead the House of Usher imposed on the visiting companion, as he describeRead MoreThe Importance Of Romanticism1046 Words   |  5 Pagesand early 1800s, the period of Romanticism blossomed. â€Å"Romanticism† very loosely describes the era in which modern culture began to take shape. During the Romantic era, many advancements were made in all aspects of people’s lives and cultures. One aspect in particular has held great value even to this day. That aspect being the expansive amount of literature created during the era. The era of Romanticism had its name for a reason. It can be greatl y attributed to the romantic style or genre of literatureRead MoreThe Tables Turned By William Wordsworth Analysis1389 Words   |  6 Pagesmeaning to you. How is the poem a reflection of the author’s beliefs and the Romantic Movement as a whole? William Wordsworth uses an emphatic voice in his poem â€Å"The Tables Turned† (Wordsworth, 1798) The image that the title itself evokes is of school children turning over their desks and leaping out the door into the woods. In it he urges the reader to reject the conventional paths to knowledge and instead to study in Natures schoolroom. Wordsworth asserts that we should â€Å"quit our books† andRead MoreThe Importance Of Individualism In Mary Shelleys Frankenstein1517 Words   |  7 Pagesindividuals, life is meaningless. Mary Shelley would certainly have agreed with this statement. Indeed, in her novel Frankenstein, Shelley recognizes and accentuates humanitys common judgement of beauty to contrast with her personal definition—the Romantic derivation of beauty from individualism, nature, and personal choice—so that the principles of Romanticism she so fervently espoused could be properly promoted. In a novel that is quite brimming with depictions of horrid acts of violence and mentalRead MoreThe Influence Of Gothic Literature On The Human Condition1283 Words   |  6 Pagesidea that was radically different. Romantic literature of this time period directly opposed the literature of the prior time period. â€Å"Intellectuals of the age were obsessed with the concept of violent and inclusive change in the human condition† (The Romantic Period). This new style was a response to the revolution going on in France. The Romantics believed that this time of violence and revolt would lead to a universal utopia. Even after this failed, the Romantics continued trying to reform societyRead MoreThe As A Stream Of Consciousness976 Words   |  4 Pageson transference, in which, in his case studies the patients transferred feelings for others onto the doctor (Thurschwell, 39). Therefore in, The Prelude, the narrator appears to transfer feelings intended for the female onto Nature an d then proceeds to sexualize Nature. â€Å"For Freud, every thought is unconscious before it is conscious† (Thurschwell, 4). With that being said, the imagination allows unconscious thoughts to reach consciousness once they are written. They exist within the imaginationRead MoreEdgar Allan Poe / Emily Dickinson3782 Words   |  16 Pagesnovelists adopted many of the same themes. The two writers discussed in this paper will be Emily Dickinson and Edgar Allan Poe. Romanticism was an artistic and intellectual movement originating in Europe in the late 18th century. The romantic period saw an overflowing of emotions, with â€Å"lyrical ballads† maintaining that all good poetry is the spontaneous overflow of powerful feeling. The romantic period in American literature, which included writers like Washington Irving, Emerson, Thoreau, EmilyRead MoreEmotion in Emily Dickinsons â€Å"My Life had stood – a Loaded Gun†1109 Words   |  5 PagesThis poem was written by American poet, Emily Dickinson, who was born in the 1800. This was the period where art was based on emotion; the â€Å"Romantic Period†. She was also born in the Victorian Era, where women had to be shackled to their pedestals and most had to be married by age eighteen. They were not allowed to vote, or earn money. This information should help the reader better understand the poem. When writing the poem â€Å"My Life had stood—a Loaded Gun† Di ckinson thought of what format to useRead MoreThe Romantic Period Of Jean Jacques Rousseau1915 Words   |  8 Pagesthinking on such matters. Jean-Jacques Rousseau was a contemporary, and is considered one of the earliest prominent voices in Nineteenth-Century Romanticism. The Romantic period marked the gradual but significant shift from the rational thinking of the Eighteenth-Century Enlightenment to a more emotional and individual thinking of the Romantics. In a way, Romanticism acted as reaction to modernity, rebutting the social and political norms and the rationalisation of nature from a scientific stance. Romanticism

The Disadvantages of Smoking in Facilities Free Essays

The Disadvantages of Smoking in Facilities A decade ago, it wasn’t unusual to see people smoking in public buildings. It seemed that everywhere people went there were countless chain-smokers lighting up cigarettes in public facilities where the smoke consumed anything in its path. Presently, there has been a policy around the nation that has canceled out the bad habit of smoking in public buildings’. We will write a custom essay sample on The Disadvantages of Smoking in Facilities or any similar topic only for you Order Now This has removed the common issue of an untidy, reeking fire hazard waiting to happen. I couldn’t be happier with the idea of walking into a room and not dealing with the sight of ashtrays piled in every corner, and the walls drenched in brown tar. As a child I remember flinching at the thought of going out to dinner with my family and being seated in the smoking section if the smoke free section was full. I hated sitting down after someone who just finished smoking in the area where I wanted to enjoy my meal. Most times I would wait for my family to finish dinner so I could take my meal home. The inconvenience had me irritated when all I wanted was a stress free night out. But, the appearance of a public place was the least of my problems. From what I can remember, the dreadful part about being a non-smoker in a smoking environment was being trapped in the stench. It didn’t matter how hard I tried to get away from cigarette smoke the odor would follow. In my opinion, the smell of cigarettes comes close in comparison of spoiled eggs left out in the sun. Which caused my eye’s to water and my stomach to become upset. Imagine that smell leaking onto your clothes and having to wear it around for the rest of the day. I never understood why someone wanted to inhaled something that smelled so horrible, and have non-smokers around them to suffer at their caught? Not only is the smell of cigarettes harmful and disgusting to nonsmokers. Allowing people to smoke inside buildings is unsafe. I’ve even witnessed a cigarette to start burning 72 hours after being put out. If someone isn’t careful they can leave a cigarette to re-burn in an astray and cause a fire. I personally don’t want to be put in a situation where my life is in someone else’s hands. It’s scary to think that something as small as a cigarette can burn down a whole forest. Whether someone smokes or not, a policy causing public buildings to become smoke free is a good idea. Smokers might not be able to enjoy a cigarette while inside a public facility, but it wouldn’t limit them from smoking at all instead of doing it in someone else’s expense. It also eliminates the negative feedback that non-smokers would have concerning their health or safety. How to cite The Disadvantages of Smoking in Facilities, Essay examples The Disadvantages of Smoking in Facilities Free Essays The Disadvantages of Smoking in Facilities A decade ago, it wasn’t unusual to see people smoking in public buildings. It seemed that everywhere people went there were countless chain-smokers lighting up cigarettes in public facilities where the smoke consumed anything in its path. Presently, there has been a policy around the nation that has canceled out the bad habit of smoking in public buildings’. We will write a custom essay sample on The Disadvantages of Smoking in Facilities or any similar topic only for you Order Now This has removed the common issue of an untidy, reeking fire hazard waiting to happen. I couldn’t be happier with the idea of walking into a room and not dealing with the sight of ashtrays piled in every corner, and the walls drenched in brown tar. As a child I remember flinching at the thought of going out to dinner with my family and being seated in the smoking section if the smoke free section was full. I hated sitting down after someone who just finished smoking in the area where I wanted to enjoy my meal. Most times I would wait for my family to finish dinner so I could take my meal home. The inconvenience had me irritated when all I wanted was a stress free night out. But, the appearance of a public place was the least of my problems. From what I can remember, the dreadful part about being a non-smoker in a smoking environment was being trapped in the stench. It didn’t matter how hard I tried to get away from cigarette smoke the odor would follow. In my opinion, the smell of cigarettes comes close in comparison of spoiled eggs left out in the sun. Which caused my eye’s to water and my stomach to become upset. Imagine that smell leaking onto your clothes and having to wear it around for the rest of the day. I never understood why someone wanted to inhaled something that smelled so horrible, and have non-smokers around them to suffer at their caught? Not only is the smell of cigarettes harmful and disgusting to nonsmokers. Allowing people to smoke inside buildings is unsafe. I’ve even witnessed a cigarette to start burning 72 hours after being put out. If someone isn’t careful they can leave a cigarette to re-burn in an astray and cause a fire. I personally don’t want to be put in a situation where my life is in someone else’s hands. It’s scary to think that something as small as a cigarette can burn down a whole forest. Whether someone smokes or not, a policy causing public buildings to become smoke free is a good idea. Smokers might not be able to enjoy a cigarette while inside a public facility, but it wouldn’t limit them from smoking at all instead of doing it in someone else’s expense. It also eliminates the negative feedback that non-smokers would have concerning their health or safety. How to cite The Disadvantages of Smoking in Facilities, Papers

Increase Of Concentration Of Ethyl Acetate Biology Essay Example For Students

Increase Of Concentration Of Ethyl Acetate Biology Essay First the purpose of the experiment is to find the output, transition and reaction rate by using the rules of material balance with chemical reaction for batch reactions. The intent of the experiment is to happen out the factors impacting the rate of reaction to increases the transition rate the output of merchandise produced. The hypothesis of the experiment is that the addition of concentration of Ethyl Acetate would besides increase the rate of reaction. From two different concentrations of Ethyl Acetate ( 0.01M and 0.02M ) have shown that the 0.02M of Ethyl Acetate shows a addition in the rate of reaction and transition rate of Sodium Hydroxide to Sodium Acetate. Second the theory portion shows the definitions of footings like saponification, batchwise reactions and factors that affect the rate of reaction. The most of import definition is the saponification which is the hydrolysis of an ester under basic conditions to organize an intoxicant and the salt of a carboxylic acid. Third, the process subdivision shows how to transport out the 3 major stairss which are readying of the reactant, the experimental apparatus and the processs to transport out the experiment. This is followed by the consequences and computations which is about the computation of the transition per centum and output of the reactions of different concentrations of Ethyl Acetate carried out in the experiment. After the consequences and computations, is the treatment portion which discusses the consequences obtained, states some safeguards to be taken while transporting out the experiment and the factors that affect the consequences. Last the decision concludes the study by saying if the purpose of the experiment had been reached and it besides states that the hypothesis that the higher the concentration of the reactant, the faster the rate of reaction and transition, has been proven. Outline1 REPORT ON MATERIAL BALANCE WITH CHEMICAL REACTION2 1. Introduction3 2. Theory4 Fig.1 ) Graph of conduction values of Sodium Hydroxide against the concentration of Sodium Hydroxide. )5 Table 1 ) Concentration of Sodium Hydroxide in 1 min interval:6 Fig3 ) Graph of concentration of Sodium Hydroxide against clip ( for 0.1M of Ethyl Acetate used )7 Table 2 ) Concentration of Sodium Hydroxide in 1 min interval:8 Fig4 ) Graph of concentration of Sodium Hydroxide against clip ( for 0.02M of Ethyl Acetate used )9 Fig 4 ) Graph of 1/concentration against clip ( Rate of reaction )10 5. Discussion11 6. Decision REPORT ON MATERIAL BALANCE WITH CHEMICAL REACTION 1. Introduction 1.1 Background Literature Conversion of Na hydrated oxide into Na ethanoate is called saponification. It is the procedure of doing soap. It is the reaction between an ester with a metallic base and H2O. It is besides related to the procedure used to change over natural fats into soap. ( Donohue 2009 ) An base is a soluble salt of an alkali metal like Na. It is used in soap-making whereby it was obtained from the ashes of workss. Now, the term base describes a base which neutralizes an acid. ( Donohue 2009 ) Bases used in soap devising are sodium hydrated oxide ( NaOH ) , besides called acerb sodium carbonate ; and potassium hydrated oxide ( KOH ) , besides called acerb potassium hydroxide. ( Donohue 2009 ) Example: An illustration of the reaction is: ( Therese Lott s Saponification Calculator Standalone spreadsheet for ciphering saponification values in handmade soapmaking. ) ( hypertext transfer protocol: //www.freepatentsonline.com/6751527.html ) 1.2 Aim The purpose of this experiment is to find the output, transition and reaction rate by using the rules of material balance with chemical reaction for batch reactions. This will besides enable us to happen out factors to better the output and the rate of transition and reaction. 1.3 Hypothesis The hypothesis of the experiment is that if the concentration is high, the output together with the rate of transition and reaction would besides increase. Therefore, from a 0.02M concentration of Ethyl Acetate and 0.01M concentration of Ethyl Acetate, the 0.02M concentration would hold a higher output, rate of transition and reaction. This is because at the start of the experiment the conduction value was high but as the reaction precedes the conduction value decreases demoing the concentration and figure of moles. 2. Theory 2.1 Saponification Saponification is the hydrolysis of an ester under basic conditions to organize an intoxicant and the salt of a carboxylic acid. Saponification is normally used to mention to the reaction of a metallic base with a fat or oil to organize soap. Saponifiable substances are those that can be converted into soap. In the experiment the coveted merchandise is sodium ethanoate. ( Donohue 2009 ) 2.2 Batchwise Chemical reaction A batchwise reaction is a reaction where by reactants are put in and the reaction is started. After the reaction has ended, the merchandises are taken out and the equipment and all are washed to be prepared for the following experiment. Unlike steady province reaction it does non hold a uninterrupted input and end product. ( Singapore Polytechnic 2009 ) 2.3 Percentage Conversion Xa = moles of A reacted Gram molecules of A Federal into the reactor x100 % It is defined as a fraction of reactants or provender that successfully reacted to organize the coveted merchandise. The above expression calculates the sum of reacts converted into merchandises. ( Singapore Polytechnic 2009 ) 2.4 Output of A Product YP = Moles of coveted merchandise formed Gram molecules of reactant fed into the reactor Output has 3 definitions. First it is sum of coveted merchandise formed based on the sum of restricting reactants feed into the reaction. Second it is the sum of coveted merchandise obtained divided by the sum of reactant consumed. Last, it is besides defined as the sum of merchandise obtained divided by the theoretically sum of restricting reactant consumed. The above reaction calculates the sum output based on merely the modification reactant. ( Singapore Polytechnic 2009 ) 2.5 Rate of Reaction The rate of reaction is the sum of clip taken for the chemicals to respond wholly. ( Singapore Polytechnic 2009 ) 2.6 Surface Area To Volume Ratio The surface country to the volume ration affects the rate of reaction. The smaller the atom, the larger its open surface country. With a larger open surface country more atoms can clash with one another doing more reactions to take topographic point within a shorter sum of clip. ( Purchon 2006 ) Prologue of History EssayNo. Of Moles reacted: 0.005mol 0.0019mol= 0.0031mol Conversion: Xa = moles of A reacted Gram molecules of A Federal into the reactor x100 % Xa= ( 0.0031/ 0.005 ) X 100 % =62 % No. Of Mole of CH3COONa formed is 0.0031mol Output: YP = Moles of coveted merchandise formed Gram molecules of reactant fed into the reactor YP = 0.0031/ 0.005 = 0.62 4.3 Output When 0.02M of Ethyl Acetate Used Table 2 ) Concentration of Sodium Hydroxide in 1 min interval: Time ( Min ) Conduction of NaOH ( Â µS/cm ) Concentration of NaOH ( M ) 1 1080 0.0031 2 1040 0.0029 3 1005 0.0027 4 972 0.0025 5 942 0.0023 6 816 0.0022 7 889 0.002 8 866 0.0019 9 844 0.0018 10 824 0.0016 11 804 0.0016 12 786 0.0014 13 770 0.0013 14 754 0.0012 15 740 0.0012 16 726 0.0011 17 712 0.001 18 700 0.00092 19 688 0.00085 20 678 0.0008 21 666 0.00073 22 658 0.00068 23 648 0.00062 24 640 0.00057 25 630 0.00052 26 622 0.00047 27 616 0.00044 28 608 0.00039 29 600 0.00035 30 596 0.00032 Fig4 ) Graph of concentration of Sodium Hydroxide against clip ( for 0.02M of Ethyl Acetate used ) NaOH + CH3cooc2H5 A ; agrave ; C2H5OH + CH3COONa The chemical equation above shows that the molar ratio of NaOH to CH3COONa is 1:1. Original No.Of Moles of NaOH ( start of experiment ) is 0.005mol From Fig4.3.2, No. Of Moles of NaOH after 15 proceedingss ( midway of experiment ) is 0.0012mol No. Of Moles reacted: 0.005mol 0.0012mol= 0.0038mol Conversion: Xa = moles of A reacted Gram molecules of A Federal into the reactor x100 % Xa= ( 0.0038/ 0.005 ) X 100 % =76 % No. Of Mole of CH3COONa formed is 0.0038mol Output: YP = Moles of coveted merchandise formed Gram molecules of reactant fed into the reactor YP = 0.0038/ 0.005 = 0.76 4.4 Determining the Rate of Reaction The rate of reaction is determined by ciphering the gradient of the graph 1/concentration against clip Fig 4 ) Graph of 1/concentration against clip ( Rate of reaction ) Rate of reaction = Gradient of 1/concentration against clip = Y2-Y1 A ; divide ; X2-X1 = 0.00012 ( -0.00018 ) A ; divide ; 0.000005- 0.000008 = 0.00006 mol/ L.Min / -0.000004 ( Mol.L ) 2 =-15 min/ ( mol/L ) 5. Discussion 5.1 Factors Affecting Rate of Reaction First the concentrations of Ethyl Acetate used were 0.01M and 0.02M which means that for 0.01M of Ethyl Acetate was obtained by thining 0.49cm3 of pure Ethyl Acetate and 0.02M was obtained by thining 0.92cm3 of pure Ethyl Acetate. By comparing the graphs ( Fig 3 and 4 ) above, the reaction ( 0.02M ) was the fastest. This was due to the concentration factor. The higher the concentration, the faster the rate of reaction as the addition in concentration means that there are more molecules in a specific country. Other factor like temperature and force per unit area were keep at a changeless ( standard room conditions ) . There was no accelerator involved the experiment. Therefore, these other factors did non impact the rate of reaction. 5.2 Factors Affecting Conversion and Yield The transition of Sodium Hydroxide and the output of Sodium Acetate will neer be a 100 % due to the proficient equipment and uncoerced human mistakes. It is besides due to constrains in the lab like equipment or the continuance of the experiment. The longer the reaction, more transition and output could hold been produced. 5.3 Factors Affecting the Conductivity Values The concentration of Sodium Hydroxide affects the conduction value of the reaction. If the concentration of Sodium Hydroxide is high, the conduction value will besides be high. Therefore, as the reaction returns, the conduction drops as the concentration of the Sodium Hydroxide decreases as it is being reacted off. For the 0.01M reaction, Fig 4.2.2 show that the concentration decreases significantly. However, for the 0.02M reaction, Fig 4.3.2 shows some fluctuations in the bead of the concentration of Sodium Hydroxide. This could be because of the equipment. The equipment, the conduction investigation and the machine has been known to turn off indiscriminately during the reaction. Therefore there was some abnormalities in the bead of concentration for the 0.02M reaction. 5.4 Precautions to Be Taken During the experiment the Ethyl Acetate should ever be handled in the fume goon as it would break up in the unfastened, therefore impacting the concentration of the Ethyl Acetate and to forestall it from sloping anyplace else in the research lab. Baseball gloves should besides be worn to forestall bacteriums from polluting the reaction or chemicals and to besides protect our custodies from the chemicals. Goggles should besides be worn to protect our eyes from chemicals sprinkling into our eyes. 5.5 Comparison of transition and outputs of different concentration of Ethyl Acetate The output of the reaction of 0.01M Ethyl Acetate is 0.62 while the output of the reaction of 0.02M Ethyl Acetate is 0.76. The 2nd reaction of 0.02M has a higher output due to the higher concentration of Ethyl Acetate. This is because the concentration of the reactants is more due to the addition in concentration of Sodium Hydroxide therefore, bring forthing more merchandises whereby the output of Sodium Acetate additions. However both the experiments did non bring forth a 100 % output because of human mistake and constrains of proficient equipment. Even if a accelerator was added, the output will be the same as the accelerator will merely increase the rate of reaction and impact the output. 6. Decision In decision, the higher the concentration of Ethyl Acetate used, the faster the rate of reaction together with a higher transition per centum of Sodium Hydroxide. The concentration of Sodium Hydroxide affects the conduction values of the reaction because the consequences show that the conduction decreases as the reaction returns because the concentration of Sodium Hydroxide besides decreases as the Sodium Hydroxide was being reacted off. Therefore, the hypothesis is proven to be true. The purpose of the experiment was met as consequences province that with a higher concentration of Ethyl Acetate, the rate of reaction together with the rate of transition additions. The concentration of the Ethyl Acetate responding with Sodium Hydroxide in a reactor as clip base on ballss by was studied. However the experiment could be improved by adding in a accelerator or increasing the temperature to increase the rate of reaction and transition rate.

Right or wrong free essay sample

Is there a clear difference between right and wrong? Well, it all depends on what one has been trained to believe. When answering this question one must include many factors, such as religious morals and values, environmental influences, society, and etc. One might believe that stealing to provide for their family is okay, but another knows that you do not steal, no matter what the circumstances may be because it is wrong. As with the given example, what one person may think is wrong, may be right to another person. Right and wrong are human values. We have to determine for ourselves what we believe to be right or wrong. Today we make our decisions according to what society believes is right or wrong and what we are taught. Society believes lying can be wrong in most situations, but not in all situations. Right or Wrong? How many times must an individual be faced with those three words in a lifetime? What makes them choose one or the other? Is the right choice always necessarily the moral choice? Who decides what is right or wrong? These are all relevant questions in this struggling issue in life. We will write a custom essay sample on Right or wrong or any similar topic specifically for you Do Not WasteYour Time HIRE WRITER Only 13.90 / page Could the belief in karma be enough for one to lead a good moral existence? The finger is always pointed towards ones self interest and ones outcome of their decisions. In Thomas Nagels paper, Right and Wrong, Nagel attempts to explain the differences and the thoughts behind right and wrong decisions. He makes references to personal benefits, religion, and punishments of decision-making. Nagels paper truly defines thought processes as well as how human beings come to decide life choices and pathways for their futures.

Cultural Critique Essay Topics

Cultural Critique Essay TopicsCultural critique essays are conducted in a wide variety of settings such as classroom, college and university, writing seminars, debate and book clubs. In this type of writing, cultural criticism is a critical approach to an issue that often pertains to the study of culture and its impact on the human body, mind and soul. It provides a critical analysis of how people perceive certain cultural ideas or beliefs and how these beliefs affect their lives. The application of cultural critique essay topics is critical because the arguments it presents to both, the audience and the writer themselves must be well-informed and well-argued.The best way to analyze any essay topics is to have it analyzed by another who is knowledgeable in that area. You can request an essay topic analysis from any of the resources that offer this service. Once you obtain the information, all you need to do is go through the suggestions and see what they suggest that best fits the es say topic.There are some points that should always be included in any culture critique essay topics: the purpose of the essay, what the essay will accomplish, what ideas the essay examines, the main topic, the theme of the essay, and how to structure the essay. The theme of the essay is also important because it sets the tone for the rest of the essay topics.The first person perspective is a critical point in the application of cultural critique essay topics. For example, you may be describing your intellectual experience to a class. The student will be viewing your essay from his or her own perspective, and this perspective can help the student analyze the facts and opinions you present. By including your viewpoint in the essay, you may help students better understand their own individual experiences.The power of culture in shaping the thoughts of the general public will be a key element in cultural critique essay topics. Thus, the essay should focus on how ideas from one culture a re reflected in another culture and how different beliefs from other cultures have affected the world we live in today.In the application of essay topics, the importance of the perspective and a student's view of the world and society is an important element. For example, if you are writing about a certain area in Africa, you may want to include details about the fact that many African people don't wear clothing with skulls and bones. You may want to include this in your essay if you feel this information could shed some light on a particular subject.In addition to cultural critique essay topics, the arts should also be part of any essay or research paper. If the writing has music, poetry, drama, dance or drama included in it, it will be easier for readers to understand what you are trying to say in your essay.

“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)