A Stationery supplier “Adwaat Al Maktabiyah” needs a program to display sales as per regions and add the sales to the file called sales.txt. The files Personal Details.txt and Sales.txt have been provided. You may download and use them in your program. They are as shown below:PersonalDetails.txtId First name Last Name RegionE111 Alvin Jones EastC121 Blake Kivell CentralC253 Edda Jardine CentralSales.txtRep_Id OrderDate Region Item Units UnitCostE111 1/6/2020 East Pencil 95 1.99C121 1/23/2020 Central Binder 50 19.99C253 2/9/2020 Central Pencil 36 4.99Note: - Use structures in the coding and declare structure array as public as shown below. The question 7doesn’t need arrays. Structure personaldetails Dim rid As String ' Employee id Dim fn As String 'First name Dim ln As String 'Last name Dim rn As String ' Region he belongs to End Structure Structure Regionalsales Dim id As String 'employee id Dim od As Date 'Order Date Dim region As String 'order region Dim item As String ' product name Dim unit As Integer ' Quantity of items Dim unitcost As Double ' price of a unit End Structure Public pd(perdet.Count - 1) As personaldetails Public rs(sales.Count - 1) As Regionalsales Public reg As String1. Design the following forms.a. Add Label with the text “Adwaat AL Maktabiyah”. 3 Marki. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centerb. Add a button and button text as “Add New Order”. 1 Markc. Add a button and text as “Exit Application”. 1 Markd. Add a datagridview and name it dgv1. 1 Marke. Add formText as Your Id. 0.5 Markf. Save the with the name mainform.vb. 0.5 Mark Stationery supplier "Adwaat Al Maktabiyah" needs a program to display sales as per regions and add the salesto the file called sales.txt. The files Personal Details.txt and Sales.txt have been provided. You may downloadand use them in your program. They are as shown below:First name Last Name RegionE111 AlvinC121 BakeC253 EcdaIdRegion itemUnits UnitCostRep_ld OrderDateE111 1/6/2020 EastC121 1/23/2020 Central Binder 50C253 2/9/2020 Central Pencil 36JonesEastPencil 951.99KivelCentral19.99JardireCentral4.99PersonalDetails.txtSales.txtNote: - Use structures in the coding and declare structure array as public as shown below. The question 7doesn't need arrays.Structure personaldetailsDin rid As String 'Employee idDin fn As StringDin In As StringDin rn As StringEnd Structure'First name"Last name' Region he belongs toStructure RegionalsalesDin id As String 'employee idod As Date "Order DateDin region As String 'order regioniten As String product naneDin unit As Integer Quantity of itemsDin unitcost As Double' price of a unitEnd StructurePublic pd(perdet.Count - 1) As personaldetailsPublic rs(sales.Count - 1) As RegionalsalesPublic reg As String1. Design the following forms.a. Add Label with the text "Adwaat AL Maktabiyah". 3 Marki. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centerb. Add a button and button text as "Add New Order". I Markc. Add a button and text as "Exit Application".d. Add a datagridview and name it dgvl.e. Add formText as Your Id.f. Save the with the name mainform.vb.1 MarkI Mark0.5 Mark0.5 MarkYour ldAdwaat Al MaktabiyahAdd New OrderExit Application2. Add a new form and save it as Displaysales.vba. Add a datagridview and a button as shown below.1 MarkExt3. Add a new form and save it as AddNewSales.vba. Add Label with the text "Add New Sales".i. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centeriv. Apply Backcolor of your choice3 Markb. Design the form as shown below:4 MarksXaAddNewSalesAdd New SalesOrder DateEmpldRegionItemUnit priceUntsAdd Sales to the fikeExit 4. Private Sub MainForm_Load(ByVal sender As Object, Byval e AsSystem. EventArgs) Handles Me. Loada. Write query to display Region and Total of sales as shown below.5 MarksAdwaat Al MaktabiyahRegion TotalAdd New OrderEast6002.09Central 11139.07West2486.72Exit Application5. Private Sub btnexit_Click(sender As System.Cbject, e As System. Eventargs) Handles btnExit.C1icka. Display messagebox to exit from application, if yes, exit application2 Marks6. Private Sub dgvi_CellContentClick(Byval sender As System.bject, Byval e AsSystem. Nindows.Forns.DataGridvicacellEventargs) Handles dgvi.CellcontentClickI Mark1 Marka. Get the contents of a selected cell in a public variable reg as stringb. Open form, Displaysales7. Private Sub Displaysales Load(Byval sender As Systen.Object, Byval e As System. Eventargs) HandlesMyllase.Leada. Write a query to display sales of the selected region in the datagridviewlas shown below.3 MarksDisplay SeksEnp idOrder DatetemUntsUnt CotTatalE11116/2020Penal199139 05E1114/1/2020Bnder604992994E111Brder60199539412/2020Brder2919957.71E4207/29/2020Brder8119991619 19E11VI5/2020Penal35499174 65E11S/18/2020Pen Set1615.99255 34E11110/22/2020Pen64399Exit8. Private Sub btnNeuorder_Click(Byval sender As Systen.Object, Byval e As Systen. EventArgs) Handlesbtnkeworder .clicka. Add the following data to the Sales.txt file.Empid : Your ldOrder Date: 4/10/2022Region: Central3 MarksItem: TextBookUnits: 5Unit cost: 5AddNewSalesAdd New SalesOrder Date 104/10/2022ErpldSaveCenRegonTetbookSaved Record into Sales.bt5UntsAdd SaOKExitpymmEmeOrder DateBemUnteLn CotTotaC121Pen Set422399C45610/2021Penc129903cars10/31/2021Penc141.2918.06C2s31/17/202inde1149954.09C25312/4/2021Dnder941999ca12/21/202124.99C1234E125C1234Tet25Exit

Question

A Stationery supplier “Adwaat Al Maktabiyah” needs a program to display sales as per regions and add the sales to the file called sales.txt. The files Personal Details.txt and Sales.txt have been provided. You may download and use them in your program. They are as shown below:PersonalDetails.txtId First name Last Name RegionE111 Alvin Jones EastC121 Blake Kivell CentralC253 Edda Jardine CentralSales.txtRep_Id OrderDate Region Item Units UnitCostE111 1/6/2020 East Pencil 95 1.99C121 1/23/2020 Central Binder 50 19.99C253 2/9/2020 Central Pencil 36 4.99Note: - Use structures in the coding and declare structure array as public as shown below. The question 7doesn’t need arrays. Structure personaldetails Dim rid As String ' Employee id Dim fn As String 'First name Dim ln As String 'Last name Dim rn As String ' Region he belongs to End Structure Structure Regionalsales Dim id As String 'employee id Dim od As Date 'Order Date Dim region As String 'order region Dim item As String ' product name Dim unit As Integer ' Quantity of items Dim unitcost As Double ' price of a unit End Structure Public pd(perdet.Count - 1) As personaldetails Public rs(sales.Count - 1) As Regionalsales Public reg As String1. Design the following forms.a. Add Label with the text “Adwaat AL Maktabiyah”. 3 Marki. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centerb. Add a button and button text as “Add New Order”. 1 Markc. Add a button and text as “Exit Application”. 1 Markd. Add a datagridview and name it dgv1. 1 Marke. Add formText as Your Id. 0.5 Markf. Save the with the name mainform.vb. 0.5 Mark Stationery supplier &#34;Adwaat Al Maktabiyah&#34; needs a program to display sales as per regions and add the salesto the file called sales.txt. The files Personal Details.txt and Sales.txt have been provided. You may downloadand use them in your program. They are as shown below:First name Last Name RegionE111 AlvinC121 BakeC253 EcdaIdRegion itemUnits UnitCostRep_ld OrderDateE111 1/6/2020 EastC121 1/23/2020 Central Binder 50C253 2/9/2020 Central Pencil 36JonesEastPencil 951.99KivelCentral19.99JardireCentral4.99PersonalDetails.txtSales.txtNote: - Use structures in the coding and declare structure array as public as shown below. The question 7doesn't need arrays.Structure personaldetailsDin rid As String 'Employee idDin fn As StringDin In As StringDin rn As StringEnd Structure'First name&#34;Last name' Region he belongs toStructure RegionalsalesDin id As String 'employee idod As Date &#34;Order DateDin region As String 'order regioniten As String product naneDin unit As Integer Quantity of itemsDin unitcost As Double' price of a unitEnd StructurePublic pd(perdet.Count - 1) As personaldetailsPublic rs(sales.Count - 1) As RegionalsalesPublic reg As String1. Design the following forms.a. Add Label with the text &#34;Adwaat AL Maktabiyah&#34;. 3 Marki. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centerb. Add a button and button text as &#34;Add New Order&#34;. I Markc. Add a button and text as &#34;Exit Application&#34;.d. Add a datagridview and name it dgvl.e. Add formText as Your Id.f. Save the with the name mainform.vb.1 MarkI Mark0.5 Mark0.5 MarkYour ldAdwaat Al MaktabiyahAdd New OrderExit Application2. Add a new form and save it as Displaysales.vba. Add a datagridview and a button as shown below.1 MarkExt3. Add a new form and save it as AddNewSales.vba. Add Label with the text &#34;Add New Sales&#34;.i. Dock: Topii. Autosize: Falseiii. TextAlign: Middle, Centeriv. Apply Backcolor of your choice3 Markb. Design the form as shown below:4 MarksXaAddNewSalesAdd New SalesOrder DateEmpldRegionItemUnit priceUntsAdd Sales to the fikeExit 4. Private Sub MainForm_Load(ByVal sender As Object, Byval e AsSystem. EventArgs) Handles Me. Loada. Write query to display Region and Total of sales as shown below.5 MarksAdwaat Al MaktabiyahRegion TotalAdd New OrderEast6002.09Central 11139.07West2486.72Exit Application5. Private Sub btnexit_Click(sender As System.Cbject, e As System. Eventargs) Handles btnExit.C1icka. Display messagebox to exit from application, if yes, exit application2 Marks6. Private Sub dgvi_CellContentClick(Byval sender As System.bject, Byval e AsSystem. Nindows.Forns.DataGridvicacellEventargs) Handles dgvi.CellcontentClickI Mark1 Marka. Get the contents of a selected cell in a public variable reg as stringb. Open form, Displaysales7. Private Sub Displaysales Load(Byval sender As Systen.Object, Byval e As System. Eventargs) HandlesMyllase.Leada. Write a query to display sales of the selected region in the datagridviewlas shown below.3 MarksDisplay SeksEnp idOrder DatetemUntsUnt CotTatalE11116/2020Penal199139 05E1114/1/2020Bnder604992994E111Brder60199539412/2020Brder2919957.71E4207/29/2020Brder8119991619 19E11VI5/2020Penal35499174 65E11S/18/2020Pen Set1615.99255 34E11110/22/2020Pen64399Exit8. Private Sub btnNeuorder_Click(Byval sender As Systen.Object, Byval e As Systen. EventArgs) Handlesbtnkeworder .clicka. Add the following data to the Sales.txt file.Empid : Your ldOrder Date: 4/10/2022Region: Central3 MarksItem: TextBookUnits: 5Unit cost: 5AddNewSalesAdd New SalesOrder Date 104/10/2022ErpldSaveCenRegonTetbookSaved Record into Sales.bt5UntsAdd SaOKExitpymmEmeOrder DateBemUnteLn CotTotaC121Pen Set422399C45610/2021Penc129903cars10/31/2021Penc141.2918.06C2s31/17/202inde1149954.09C25312/4/2021Dnder941999ca12/21/202124.99C1234E125C1234Tet25Exit

Accepted Answer

below is the program: