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