Home

Microsoft Visual Basic Example Application: Georgetown Dry Cleaner
 

Introduction

This application is used to explore the techniques of managing XML elements. It is an application used by a dry cleaning store, registering orders and updating them when there is a change such as the clothes being ready for pick up or the customer picking up the clothes.

Besides the ability to create orders, this application allows the user to print an order.
     

Practical Learning: Introducing Element Location 
  1. Start Microsoft Visual Basic and create a Windows Forms Application named GeorgetownDryCleaner2
  2. In the Solution Explorer, right-click Form1.vb and click Rename
  3. Type Central.vb and press Enter
  4. Design the form as follows:
     
    Georgetown Dry Cleaner
     
    Control Name Text Additional Properties
    GroupBox GroupBox   Order Identification  
    Label Label   &Receipt #:  
    TextBox TextBox txtReceiptNumber 1000 TextAlign: Right
    Button Button btnOpen Open  
    Button Button btnNewCleaningOrder New Cleaning Order  
    Label Label   Customer Name:  
    TextBox TextBox txtCustomerName    
    Label Label   Customer Phone:  
    MaskedTextBox TextBox txtCustomerPhone   Mask: (999) 000-0000
    Label Label   Date Left:  
    DateTimePicker DateTimePicker dtpDateLeft    
    Label Label   Time Left:  
    DateTimePicker Date Time Picker dtpTimeLeft   Format: Time
    Label Label   Date Expected:  
    DateTimePicker DateTimePicker dtpDateExpected    
    Label Label   Time Expected:  
    DateTimePicker DateTimePicker dtpTimeExpected   Format: Time
    Label Label   Order &Status:  
    ComboBox ComboBox cbxOrderStatus    
    Label Label   D&ate Picked Up:  
    DateTimePicker DateTimePicker dtpDatePickedUp    
    Label Label   Time Pic&kep Up:  
    DateTimePicker DateTimePicker dtpTimePickedUp    
    GroupBox GroupBox   Order Processing  
    Label Label   Item Type  
    Label Label   Unit Price  
    Label Label   Qty  
    Label Label   Sub Total  
    Label Label   Shirts  
    TextBox TextBox txtUnitPriceShirts 1.25 TextAlign: Right
    TextBox TextBox txtQuantityShirts 0 TextAlign: Right
    TextBox TextBox txtSubTotalShirts 0.00 TextAlign: Right
    Label Label   Pants  
    TextBox TextBox txtUnitPricePants 1.95 TextAlign: Right
    TextBox TextBox txtQuantityPants   TextAlign: Right
    TextBox TextBox txtSubTotalPants 0.00 TextAlign: Right
    ComboBox ComboBox cbxNameItem1 None Items:
    None
    Women Suit
    Dress
    Regular Skirt
    Skirt With Hook
    Men's Suit 2Pc
    Men's Suit 3Pc
    Sweaters
    Silk Shirt
    Tie
    Coat
    Jacket
    Swede
    TextBox TextBox txtUnitPriceItem1 0.00 TextAlign: Right
    TextBox TextBox txtQuantityItem1 0 TextAlign: Right
    TextBox TextBox txtSubTotalItem1 0.00 TextAlign: Right
    ComboBox ComboBox cbxNameItem2 None Items:
    None
    Women Suit
    Dress
    Regular Skirt
    Skirt With Hook
    Men's Suit 2Pc
    Men's Suit 3Pc
    Sweaters
    Silk Shirt
    Tie
    Coat
    Jacket
    Swede
    TextBox TextBox txtUnitPriceItem2 0.00 TextAlign: Right
    TextBox TextBox txtQuantityItem2 0 TextAlign: Right
    TextBox TextBox txtSubTotalItem2 0.00 TextAlign: Right
    ComboBox ComboBox cbxNameItem3 None Items:
    None
    Women Suit
    Dress
    Regular Skirt
    Skirt With Hook
    Men's Suit 2Pc
    Men's Suit 3Pc
    Sweaters
    Silk Shirt
    Tie
    Coat
    Jacket
    Swede
    TextBox TextBox txtUnitPriceItem3 0.00 TextAlign: Right
    TextBox TextBox txtQuantityItem3 0 TextAlign: Right
    TextBox TextBox txtSubTotalItem3 0.00 TextAlign: Right
    ComboBox ComboBox cbxNameItem4 None Items:
    None
    Women Suit
    Dress
    Regular Skirt
    Skirt With Hook
    Men's Suit 2Pc
    Men's Suit 3Pc
    Sweaters
    Silk Shirt
    Tie
    Coat
    Jacket
    Swede
    TextBox TextBox txtUnitPriceItem4 0.00 TextAlign: Right
    TextBox TextBox txtQuantityItem4 0 TextAlign: Right
    TextBox TextBox txtSubTotalItem4 0.00 TextAlign: Right
    GroupBox GroupBox   Order Summary  
    Label Label   Cleaning Total:  
    TextBox TextBox txtCleaningTotal 0.00 TextAlign: Right
    Label Label   Tax Rate:  
    TextBox TextBox txtTaxRate 7.75 TextAlign: Right
    Label Label   %  
    Label Label   Tax Amount:  
    TextBox TextBox txtTaxAmount 0.00 TextAlign: Right
    Label Label   Net Total:  
    TextBox TextBox txtNetPrice 0.00 TextAlign: Right
    Button Button btnPrint Print...  
    Button Button btnPrintPreview Print Preview...  
    Button Button btnClose Close  
  5. Double-click the Time Left control and implement its ValueChanged event as follows:
      
    Imports System.IO
Imports System.Xml

Public Class Central

    Private Sub dtpTimeLeft_ValueChanged(ByVal sender As System.Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles dtpTimeLeft.ValueChanged
        Dim DateLeft As Date = dtpDateLeft.Value
        Dim TimeLeft As Date = dtpTimeLeft.Value

        Dim Time9AM As Date = New DateTime(TimeLeft.Year, _
                                           TimeLeft.Month, _
                                           TimeLeft.Day, 9, 0, 0)

        ' If the customer leaves clothes before 9AM...
        If TimeLeft <= Time9AM Then
            ' ... then they should be ready the same day after 5PM
            dtpDateExpected.Value = DateLeft
            dtpTimeExpected.Value = New DateTime(DateLeft.Year, _
                                                 DateLeft.Month, _
                                                 DateLeft.Day, 17, 0, 0)
        Else
            ' If the clothes were left after 9AM,
            ' then they will be available
            ' the following business morning at 8AM
            ' If the following day is Sunday,
            ' then they will be ready the following Monday
            If DateLeft.DayOfWeek = DayOfWeek.Saturday Then
                dtpDateExpected.Value = DateLeft.AddDays(2D)
                dtpTimeExpected.Value = New DateTime(DateLeft.Year, _
                                                     DateLeft.Month, _
                                                 DateLeft.Day + 2, 8, 0, 0)
            Else
                dtpDateExpected.Value = New DateTime(DateLeft.Year, _
                                                     DateLeft.Month, _
                                                     DateLeft.Day + 1)
                dtpTimeExpected.Value = New DateTime(DateLeft.Year, _
                                                     DateLeft.Month, _
                                                 DateLeft.Day + 1, 8, 0, 0)
            End If
        End If
    End Sub
End Sub
  6. Return to the form  
  7. From the Printing section of the Toolbox, click PrintDocument and click the form
  8. While the new control is still selected, in the Properties window, click the Properties button, click (Name), type docPrint and press Enter
  9. Under the form, double-click docPrint and implement its event as follows:
      
    Private Sub docPrint_PrintPage(ByVal sender As System.Object, _
                   ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
                               Handles docPrint.PrintPage
        e.Graphics.DrawLine(New Pen(Color.Black, 2), 60, 90, 720, 90)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 60, 93, 720, 93)

        Dim strDisplay As String = "Georgetown Dry Cleaner"
        Dim fntString As System.Drawing.Font = _
                New Font("Times New Roman", 28, _
                    FontStyle.Bold)
        e.Graphics.DrawString(strDisplay, fntString, _
                    Brushes.Black, 120, 100)

        strDisplay = "Customer Cleaning Order"
        fntString = New System.Drawing.Font("Times New Roman", 18, _
                    FontStyle.Bold)
        e.Graphics.DrawString(strDisplay, fntString, _
                    Brushes.Black, 220, 150)

        e.Graphics.DrawLine(New Pen(Color.Black, 1), 60, 184, 720, 184)
        e.Graphics.DrawLine(New Pen(Color.Black, 2), 60, 188, 720, 188)

        fntString = New System.Drawing.Font("Times New Roman", 12, _
                    FontStyle.Bold)
        e.Graphics.DrawString("", fntString, _
                    Brushes.Black, 80, 200)

        fntString = New System.Drawing.Font("Times New Roman", 12, _
                    FontStyle.Bold)
        e.Graphics.DrawString("Customer Identification:  ", fntString, _
                    Brushes.Black, 100, 220)
        fntString = New System.Drawing.Font("Times New Roman", 12, _
                    FontStyle.Regular)
        e.Graphics.DrawString(txtCustomerName.Text & "  -  " & _
                                      txtCustomerPhone.Text, fntString, _
                                      Brushes.Black, 300, 220)

        e.Graphics.DrawLine(New Pen(Color.Black, 1), 100, 240, 700, 240)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString("Date Left:        ", fntString, _
                                      Brushes.Black, 100, 260)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)

        e.Graphics.DrawString(dtpDateLeft.Value.ToString("D"), fntString, _
                                      Brushes.Black, 300, 260)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 100, 280, 700, 280)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString("Time Left: ", fntString, _
                                      Brushes.Black, 500, 260)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(dtpTimeLeft.Value.ToString("t"), fntString, _
                                      Brushes.Black, 620, 260)

        fntString = New System.Drawing.Font("Times New Roman", _
         12, FontStyle.Bold)
        e.Graphics.DrawString("Date Expected:    ", fntString, _
                    Brushes.Black, 100, 300)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(dtpDateExpected.Value.ToString("D"), _
         fntString, Brushes.Black, 300, 300)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString("Time Expected: ", fntString, _
                                      Brushes.Black, 500, 300)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(dtpTimeExpected.Value.ToString("t"), _
         fntString, Brushes.Black, 620, 300)

        e.Graphics.DrawLine(New Pen(Color.Black, 2), 100, 320, 700, 320)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString("Item Type", _
                                  fntString, Brushes.Black, 140, 350)
        e.Graphics.DrawString("Unit Price", _
                                  fntString, Brushes.Black, 300, 350)
        e.Graphics.DrawString("Quantity", _
                                  fntString, Brushes.Black, 405, 350)
        e.Graphics.DrawString("Sub-Total", _
                                  fntString, Brushes.Black, 500, 350)

        e.Graphics.DrawLine(New Pen(Color.Black, 2), 140, 370, 640, 370)

        Dim fmtString As StringFormat = New StringFormat
        fmtString.Alignment = StringAlignment.Far

        e.Graphics.DrawString("Shirts", _
                                  fntString, Brushes.Black, 150, 380)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPriceShirts.Text, fntString, _
                    Brushes.Black, 350, 380, fmtString)
        e.Graphics.DrawString(txtQuantityShirts.Text, fntString, _
                    Brushes.Black, 440, 380, fmtString)
        e.Graphics.DrawString(txtSubTotalShirts.Text, fntString, _
                    Brushes.Black, 550, 380, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 140, 400, 640, 400)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString("Pants", _
                                      fntString, Brushes.Black, 150, 410)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPricePants.Text, fntString, _
                    Brushes.Black, 350, 410, fmtString)
        e.Graphics.DrawString(txtQuantityPants.Text, fntString, _
                    Brushes.Black, 440, 410, fmtString)
        e.Graphics.DrawString(txtSubTotalPants.Text, fntString, _
                    Brushes.Black, 550, 410, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 140, 430, 640, 430)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString(cbxNameItem1.Text, _
                                      fntString, Brushes.Black, 150, 440)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPriceItem1.Text, fntString, _
                    Brushes.Black, 350, 440, fmtString)
        e.Graphics.DrawString(txtQuantityItem1.Text, fntString, _
                    Brushes.Black, 440, 440, fmtString)
        e.Graphics.DrawString(txtSubTotalItem1.Text, fntString, _
                    Brushes.Black, 550, 440, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 140, 460, 640, 460)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString(cbxNameItem2.Text, _
                                      fntString, Brushes.Black, 150, 470)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPriceItem2.Text, fntString, _
                    Brushes.Black, 350, 470, fmtString)
        e.Graphics.DrawString(txtQuantityItem2.Text, fntString, _
                    Brushes.Black, 440, 470, fmtString)
        e.Graphics.DrawString(txtSubTotalItem2.Text, fntString, _
                    Brushes.Black, 550, 470, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 140, 490, 640, 490)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString(cbxNameItem3.Text, _
                                      fntString, Brushes.Black, 150, 500)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPriceItem3.Text, fntString, _
                    Brushes.Black, 350, 500, fmtString)
        e.Graphics.DrawString(txtQuantityItem3.Text, fntString, _
                    Brushes.Black, 440, 500, fmtString)
        e.Graphics.DrawString(txtSubTotalItem3.Text, fntString, _
                    Brushes.Black, 550, 500, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), 140, 520, 640, 520)

        fntString = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawString(cbxNameItem4.Text, _
                    fntString, Brushes.Black, 150, 530)
        fntString = New Font("Times New Roman", 12, FontStyle.Regular)
        e.Graphics.DrawString(txtUnitPriceItem4.Text, fntString, _
                    Brushes.Black, 350, 530, fmtString)
        e.Graphics.DrawString(txtQuantityItem4.Text, fntString, _
                    Brushes.Black, 440, 530, fmtString)
        e.Graphics.DrawString(txtSubTotalItem4.Text, fntString, _
                    Brushes.Black, 550, 530, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 2), 140, 550, 640, 550)

        fntString = New System.Drawing.Font("Times New Roman", 12, _
         FontStyle.Bold)
        e.Graphics.DrawString("Order Summary", fntString, _
                              Brushes.Black, 260, 600)
        e.Graphics.DrawLine(New Pen(Color.Black, 2), 220, 620, 560, 620)

        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Bold)
        e.Graphics.DrawString("Cleaning Total:", fntString, _
                              Brushes.Black, 260, 630)
        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Regular)
        e.Graphics.DrawString(txtCleaningTotal.Text, fntString, _
                              Brushes.Black, 440, 630, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), _
       220, 650, 520, 650)

        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Bold)
        e.Graphics.DrawString("Tax Rate:", fntString, _
                              Brushes.Black, 260, 660)
        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Regular)
        e.Graphics.DrawString(txtTaxRate.Text, fntString, _
                              Brushes.Black, 440, 660, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), _
       220, 680, 520, 680)

        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Bold)
        e.Graphics.DrawString("Tax Amount:", fntString, _
                              Brushes.Black, 260, 690)
        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Regular)
        e.Graphics.DrawString(txtTaxAmount.Text, fntString, _
                       Brushes.Black, 440, 690, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 1), _
       220, 710, 520, 710)

        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Bold)
        e.Graphics.DrawString("Net Price:", fntString, _
                    Brushes.Black, 260, 720)
        fntString = New System.Drawing.Font("Times New Roman", _
         10, FontStyle.Regular)
        e.Graphics.DrawString(txtNetPrice.Text, fntString, _
                    Brushes.Black, 440, 720, fmtString)
        e.Graphics.DrawLine(New Pen(Color.Black, 2), _
       200, 740, 560, 740)
End Sub
  10. Return to the form
  11. From the Printing section of the Toolbox, click PrintDialog and click the form
  12. In the Properties window, change its Name to dlgPrint
  13. Still in the Properties windows, set its Document property to docPrint
  14. On the form, double-click the Print button and implement the event as follows:
      
    Private Sub btnPrint_Click(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) _
                               Handles btnPrint.Click
        If dlgPrint.ShowDialog() = DialogResult.OK Then
            docPrint.Print()
        End If
End Sub
  15. Return to the form
  16. From the Printing section of the Toolbox, click PrintPreviewDialog and click the form
  17. In the Properties window, change its Name to dlgPrintPreview
  18. Still in the Properties windows, set its Document property to docPrint
  19. On the form, double-click File the btnPrintPreview button and implement the event as follows:
      
    Private Sub btnPrintPreview_Click(ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs) _
                                      Handles btnPrintPreview.Click
        dlgPrintPreview.ShowDialog()
End Sub
  20. Save the file
  21. In the Class Name combo box, select btnNewCleaningOrder
  22. In the Method Name combo box, select Click and implement the event as follows:
      
    Private Sub btnNewCleaningOrder_Click(ByVal sender As Object, _
                                          ByVal e As System.EventArgs) _
                                          Handles btnNewCleaningOrder.Click
        Dim ReceiptNumber As Integer = 1000
        Dim DOMCleaningOrders As XmlDocument = New XmlDocument
        Directory.CreateDirectory("C:\Georgetown Dry Cleaner")
        Dim Filename As String = _
                    "C:\Georgetown Dry Cleaner\cleaningorders.xml"

        ' If some payments were previously made
        If File.Exists(Filename) Then
            ' Open the payments.xml file
            DOMCleaningOrders.Load(Filename)

            ' Locate the root element
            Dim CleaningOrderElement As XmlElement = _
                    DOMCleaningOrders.DocumentElement
            ' Get a list of the child nodes
            Dim ListOfCleaningOrders As XmlNodeList = _
                    CleaningOrderElement.ChildNodes

            ' Get the last student number
            ReceiptNumber = _
                CInt(ListOfCleaningOrders(ListOfCleaningOrders.Count _
                                               - 1).FirstChild.InnerText)
        End If

        txtReceiptNumber.Text = CStr(ReceiptNumber + 1)

        txtCustomerName.Text = ""
        txtCustomerPhone.Text = ""
        dtpDateLeft.Value = DateTime.Today
        dtpTimeLeft.Value = DateTime.Today
        dtpDateExpected.Value = DateTime.Today
        dtpTimeExpected.Value = DateTime.Today

        cbxOrderStatus.Text = "Not Yet Ready"
        dtpDatePickedUp.Value = DateTime.Today
        dtpTimePickedUp.Value = DateTime.Today

        txtUnitPriceShirts.Text = "1.25"
        txtQuantityShirts.Text = "0"
        txtSubTotalShirts.Text = "0.00"
        txtUnitPricePants.Text = "1.95"
        txtQuantityPants.Text = "0"
        txtSubTotalPants.Text = "0.00"
        cbxNameItem1.Text = "None"
        txtUnitPriceItem1.Text = "0.00"
        txtQuantityItem1.Text = "0"
        txtSubTotalItem1.Text = "0.00"
        cbxNameItem2.Text = "None"
        txtUnitPriceItem2.Text = "0.00"
        txtQuantityItem2.Text = "0"
        txtSubTotalItem2.Text = "0.00"
        cbxNameItem3.Text = "None"
        txtUnitPriceItem3.Text = "0.00"
        txtQuantityItem3.Text = "0"
        txtSubTotalItem3.Text = "0.00"
        cbxNameItem4.Text = "None"
        txtUnitPriceItem4.Text = "0.00"
        txtQuantityItem4.Text = "0"
        txtSubTotalItem4.Text = "0.00"

        txtCleaningTotal.Text = "0.00"
        txtTaxRate.Text = "7.75"
        txtTaxAmount.Text = "0.00"
        txtCleaningTotal.Text = "0.00"

        txtCustomerName.Focus()
End Sub
  23. In the Class Name combo box, select (Central Events)
  24. In the Method Name combo box, select Load and implement the event as follows:
      
    Private Sub Central_Load(ByVal sender As Object, _
                             ByVal e As System.EventArgs) _
                             Handles Me.Load
    btnNewCleaningOrder_Click(sender, e)
End Sub
  25. Save the file
  26. In the Class Name combo box, select btnOpen
  27. In the Method Name combo box, select Click and implement the event as follows:
      
    Private Sub btnOpen_Click(ByVal sender As Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnOpen.Click
    Dim Filename As String = _
                "C:\Georgetown Dry Cleaner\cleaningorders.xml"
    Dim DOMCleaningOrders As XmlDocument = New XmlDocument

    If File.Exists(Filename) Then
        Dim Found As Boolean = False
        DOMCleaningOrders.Load(Filename)
        Dim CleaningOrderElement As XmlElement = _
                        DOMCleaningOrders.DocumentElement
        Dim ListOfCleaningOrders As XmlNodeList = _
                        CleaningOrderElement.ChildNodes

        For i As Integer = 0 To ListOfCleaningOrders.Count - 1
            If ListOfCleaningOrders(i).FirstChild.InnerText = _
                txtReceiptNumber.Text Then
                found = True

                txtCustomerName.Text = _
                    ListOfCleaningOrders(i)("CustomerName").InnerText
                txtCustomerPhone.Text = _
                        ListOfCleaningOrders(i)("CustomerPhone").InnerText
                dtpDateLeft.Value = _
                    DateTime.Parse(
			ListOfCleaningOrders(i)("DateLeft").InnerText)
                dtpTimeLeft.Value = _
                      DateTime.Parse(
			ListOfCleaningOrders(i)("TimeLeft").InnerText)
                dtpDateExpected.Value = _
                  DateTime.Parse(
			ListOfCleaningOrders(i)("DateExpected").InnerText)
                dtpTimeExpected.Value = _
                  DateTime.Parse(
			ListOfCleaningOrders(i)("TimeExpected").InnerText)

                cbxOrderStatus.Text = _
                        ListOfCleaningOrders(i)("OrderStatus").InnerText
                dtpDatePickedUp.Value = _
                    DateTime.Parse(
			ListOfCleaningOrders(i)("DatePickedUp").InnerText)
                dtpTimePickedUp.Value = _
                    DateTime.Parse(
			ListOfCleaningOrders(i)("TimePickedUp").InnerText)

                txtUnitPriceShirts.Text = _
                    ListOfCleaningOrders(i)("UnitPriceShirts").InnerText
                txtQuantityShirts.Text = _
                        ListOfCleaningOrders(i)("QuantityShirts").InnerText
                txtSubTotalShirts.Text = _
                        ListOfCleaningOrders(i)("SubTotalShirts").InnerText
                txtUnitPricePants.Text = _
                        ListOfCleaningOrders(i)("UnitPricePants").InnerText
                txtQuantityPants.Text = _
                        ListOfCleaningOrders(i)("QuantityPants").InnerText
                txtSubTotalPants.Text = _
                        ListOfCleaningOrders(i)("SubTotalPants").InnerText

                cbxNameItem1.Text = 
			ListOfCleaningOrders(i)("NameItem1").InnerText
                    txtUnitPriceItem1.Text = _
                        ListOfCleaningOrders(i)("UnitPriceItem1").InnerText
                    txtQuantityItem1.Text = _
                        ListOfCleaningOrders(i)("QuantityItem1").InnerText
                    txtSubTotalItem1.Text = _
                        ListOfCleaningOrders(i)("SubTotalItem1").InnerText

                cbxNameItem2.Text = 
			ListOfCleaningOrders(i)("NameItem2").InnerText
                    txtUnitPriceItem2.Text = _
                    ListOfCleaningOrders(i)("UnitPriceItem2").InnerText
                    txtQuantityItem2.Text = _
                        ListOfCleaningOrders(i)("QuantityItem2").InnerText
                    txtSubTotalItem2.Text = _
                        ListOfCleaningOrders(i)("SubTotalItem2").InnerText

                cbxNameItem3.Text = 
			ListOfCleaningOrders(i)("NameItem3").InnerText
                    txtUnitPriceItem3.Text = _
                        ListOfCleaningOrders(i)("UnitPriceItem3").InnerText
                    txtQuantityItem3.Text = _
                        ListOfCleaningOrders(i)("QuantityItem3").InnerText
                    txtSubTotalItem3.Text = _
                        ListOfCleaningOrders(i)("SubTotalItem3").InnerText

                cbxNameItem4.Text = _
			ListOfCleaningOrders(i)("NameItem4").InnerText
                    txtUnitPriceItem4.Text = _
                        ListOfCleaningOrders(i)("UnitPriceItem4").InnerText
                    txtQuantityItem4.Text = _
                        ListOfCleaningOrders(i)("QuantityItem4").InnerText
                    txtSubTotalItem4.Text = _
                        ListOfCleaningOrders(i)("SubTotalItem4").InnerText

                txtCleaningTotal.Text = _
                    ListOfCleaningOrders(i)("CleaningTotal").InnerText
                txtTaxRate.Text = _
			ListOfCleaningOrders(i)("TaxRate").InnerText
            txtTaxAmount.Text = _
		ListOfCleaningOrders(i)("TaxAmount").InnerText
                txtNetPrice.Text = _
			ListOfCleaningOrders(i)("NetPrice").InnerText
                Exit For
            End If
        Next

        If Found = False Then
            MsgBox("There is no cleaning order with that receipt number")
        End If
    Else
        MsgBox("There is no file that holds the list of cleaning orders")
    End If
End Sub
  28. Under the above End Sub line, create the following procedure:
      
    Private Sub SaveCleaningOrder()
    ' This variable will be used to know
    ' if the receipt number already exists in the file
    Dim ReceiptFound As Boolean = False

    ' This variable will be used to know whether we are creating
    ' a new cleaning order or if we are only updating
    ' an existing cleaning order
    Dim ExistingCleaningOrder As XmlNode = Nothing

    Dim ReceiptNumber As Integer = CInt(txtReceiptNumber.Text)
    ' We will need a reference to the DOM
    Dim DOMCleaningOrders As XmlDocument = New XmlDocument
    ' Here is the XML file that holds the cleaning orders
    Dim Filename As String = _
                    "C:\Georgetown Dry Cleaner\cleaningorders.xml"

    ' If there is no receipt number, don't do anything
    If txtReceiptNumber.Text.Length = 0 Then
            MsgBox("The cleaning order cannot be created " & _
                            "because the receipt number is missing")
        Exit Sub
    End If

    ' If the file exists,...
    If File.Exists(Filename) Then
        ' then open it
        DOMCleaningOrders.Load(Filename)
        Dim CleaningOrderElement As XmlElement = _
		DOMCleaningOrders.DocumentElement
        Dim ListOfCleaningOrders As XmlNodeList = _
		CleaningOrderElement.ChildNodes

            For i As Integer = 0 To ListOfCleaningOrders.Count - 1
                Dim Node As XmlNode = ListOfCleaningOrders.Item(i)

                If ListOfCleaningOrders.Item(i).FirstChild.InnerText = _
                    txtReceiptNumber.Text Then
                    ReceiptFound = True
                    ExistingCleaningOrder = ListOfCleaningOrders(i)
                    ReceiptNumber = _
                        CInt(ExistingCleaningOrder("ReceiptNumber").InnerText)
                    Exit For
                End If
            Next

            If ReceiptFound = True Then
                ExistingCleaningOrder("CustomerName").InnerText = _
                            txtCustomerName.Text
                ExistingCleaningOrder("CustomerPhone").InnerText = _
                            txtCustomerPhone.Text

                ExistingCleaningOrder("DateLeft").InnerText = _
                            dtpDateLeft.Value.ToString("d")
                ExistingCleaningOrder("TimeLeft").InnerText = _
                            dtpTimeLeft.Value.ToString("t")
                ExistingCleaningOrder("DateExpected").InnerText = _
                            dtpDateExpected.Value.ToString("d")
                ExistingCleaningOrder("TimeExpected").InnerText = _
                    dtpTimeExpected.Value.ToString("t")

                ExistingCleaningOrder("OrderStatus").InnerText = _
                    cbxOrderStatus.Text
                ExistingCleaningOrder("DatePickedUp").InnerText = _
                    dtpDatePickedUp.Value.ToString("d")
                ExistingCleaningOrder("TimePickedUp").InnerText = _
                    dtpTimePickedUp.Value.ToString("t")

                ExistingCleaningOrder("UnitPriceShirts").InnerText = _
                    txtUnitPriceShirts.Text
                ExistingCleaningOrder("QuantityShirts").InnerText = _
                    txtQuantityShirts.Text
                ExistingCleaningOrder("SubTotalShirts").InnerText = _
                    txtSubTotalShirts.Text

                ExistingCleaningOrder("UnitPricePants").InnerText = _
                    txtUnitPricePants.Text
                ExistingCleaningOrder("QuantityPants").InnerText = _
                    txtQuantityPants.Text
                ExistingCleaningOrder("SubTotalPants").InnerText = _
                    txtSubTotalPants.Text

                ExistingCleaningOrder( _
			"NameItem1").InnerText = cbxNameItem1.Text
                ExistingCleaningOrder("UnitPriceItem1").InnerText = _
                    txtUnitPriceItem1.Text
                ExistingCleaningOrder("QuantityItem1").InnerText = _
                    txtQuantityItem1.Text
                ExistingCleaningOrder("SubTotalItem1").InnerText = _
                    txtSubTotalItem1.Text

                ExistingCleaningOrder("NameItem2").InnerText = _
			cbxNameItem2.Text
                ExistingCleaningOrder("UnitPriceItem2").InnerText = _
                    txtUnitPriceItem2.Text
                ExistingCleaningOrder("QuantityItem2").InnerText = _
                    txtQuantityItem2.Text
                ExistingCleaningOrder("SubTotalItem2").InnerText = _
                    txtSubTotalItem2.Text

                ExistingCleaningOrder("NameItem3").InnerText = _
			cbxNameItem3.Text
                ExistingCleaningOrder("UnitPriceItem3").InnerText = _
                    txtUnitPriceItem3.Text
                ExistingCleaningOrder("QuantityItem3").InnerText = _
                    txtQuantityItem3.Text
                ExistingCleaningOrder("SubTotalItem3").InnerText = _
                    txtSubTotalItem3.Text

                ExistingCleaningOrder("NameItem4").InnerText = _
                    cbxNameItem4.Text
                ExistingCleaningOrder("UnitPriceItem4").InnerText = _
                    txtUnitPriceItem4.Text
                ExistingCleaningOrder("QuantityItem4").InnerText = _
                    txtQuantityItem4.Text
                ExistingCleaningOrder("SubTotalItem4").InnerText = _
                    txtSubTotalItem4.Text

                ExistingCleaningOrder("CleaningTotal").InnerText = _
                    txtCleaningTotal.Text
                ExistingCleaningOrder("TaxRate").InnerText = _
                    txtTaxRate.Text
                ExistingCleaningOrder("TaxAmount").InnerText = _
                    txtTaxAmount.Text
                ExistingCleaningOrder("NetPrice").InnerText = _
                    txtNetPrice.Text
            Else ' The receipt number was not found. 
		 'So, create a new cleaning order
                Dim RootElement As XmlElement = _
			DOMCleaningOrders.DocumentElement
                Dim NewElement As XmlElement = _
                     DOMCleaningOrders.CreateElement("CleaningOrder")

                Dim strNewCleaningOrder As String = _
                     "<ReceiptNumber>" & txtReceiptNumber.Text & _
                     "</ReceiptNumber>" & "<CustomerName>" & _
                     txtCustomerName.Text & "</CustomerName>" & _
                     "<CustomerPhone>" & txtCustomerPhone.Text & _
                     "</CustomerPhone>" & "<DateLeft>" & _
                     dtpDateLeft.Value.ToString("d") & "</DateLeft>" & _
                     "<TimeLeft>" & dtpTimeLeft.Value.ToString("t") & _
                     "</TimeLeft>" & "<DateExpected>" & _
                     dtpDateExpected.Value.ToString("d") & _
                     "</DateExpected>" & "<TimeExpected>" & _
                     dtpTimeExpected.Value.ToString("t") & _
                     "</TimeExpected>" & "<OrderStatus>" & _
                     cbxOrderStatus.Text & "</OrderStatus>" & _
                     "<DatePickedUp>" & _
			dtpDatePickedUp.Value.ToString("d") & _
                     "</DatePickedUp>" & "<TimePickedUp>" & _
                     dtpTimePickedUp.Value.ToString("t") & _
                     "</TimePickedUp>" & "<UnitPriceShirts>" & _
                     txtUnitPriceShirts.Text & "</UnitPriceShirts>" & _
                     "<QuantityShirts>" & txtQuantityShirts.Text & _
                     "</QuantityShirts>" & "<SubTotalShirts>" & _
                     txtSubTotalShirts.Text & "</SubTotalShirts>" & _
                     "<UnitPricePants>" & txtUnitPricePants.Text & _
                     "</UnitPricePants>" & "<QuantityPants>" & _
                     txtQuantityPants.Text & "</QuantityPants>" & _
                     "<SubTotalPants>" & txtSubTotalPants.Text & _
                     "</SubTotalPants>" & "<NameItem1>" & _
                     cbxNameItem1.Text & "</NameItem1>" & _
                     "<UnitPriceItem1>" & txtUnitPriceItem1.Text & _
                     "</UnitPriceItem1>" & "<QuantityItem1>" & _
                     txtQuantityItem1.Text & "</QuantityItem1>" & _
                     "<SubTotalItem1>" & txtSubTotalItem1.Text & _
                     "</SubTotalItem1>" & "<NameItem2>" & _
                     cbxNameItem2.Text & "</NameItem2>" & _
                     "<UnitPriceItem2>" & txtUnitPriceItem2.Text & _
                     "</UnitPriceItem2>" & "<QuantityItem2>" & _
                     txtQuantityItem2.Text & "</QuantityItem2>" & _
                     "<SubTotalItem2>" & txtSubTotalItem2.Text & _
                     "</SubTotalItem2>" & "<NameItem3>" & _
                     cbxNameItem3.Text & "</NameItem3>" & _
                     "<UnitPriceItem3>" & txtUnitPriceItem3.Text & _
                     "</UnitPriceItem3>" & "<QuantityItem3>" & _
                     txtQuantityItem3.Text & "</QuantityItem3>" & _
                     "<SubTotalItem3>" & txtSubTotalItem3.Text & _
                     "</SubTotalItem3>" & "<NameItem4>" & _
                     cbxNameItem4.Text & "</NameItem4>" & _
                     "<UnitPriceItem4>" & txtUnitPriceItem4.Text & _
                     "</UnitPriceItem4>" & "<QuantityItem4>" & _
                     txtQuantityItem4.Text & "</QuantityItem4>" & _
                     "<SubTotalItem4>" & txtSubTotalItem4.Text & _
                     "</SubTotalItem4>" & "<CleaningTotal>" & _
                     txtCleaningTotal.Text & "</CleaningTotal>" & _
                     "<TaxRate>" & txtTaxRate.Text & "</TaxRate>" & _
                     "<TaxAmount>" & txtTaxAmount.Text & "</TaxAmount>" & _
                     "<NetPrice>" & txtNetPrice.Text & "</NetPrice>"

                NewElement.InnerXml = strNewCleaningOrder
                DOMCleaningOrders.DocumentElement.AppendChild(NewElement)
            End If

            ' DOMCleaningOrders.Save(strFilename)
            ' If there is no such a file, prepare to create it
    Else REM if NOT File.Exists(strFilename))
        DOMCleaningOrders.LoadXml( _
		"<?xml version=""1.0"" encoding=""utf-8""?>" & _
                                      "<CleaningOrders></CleaningOrders>")

        Dim RootElement As XmlElement = DOMCleaningOrders.DocumentElement
        Dim CleaningOrderElement As XmlElement = _
		DOMCleaningOrders.CreateElement("CleaningOrder")
        Dim strNewCleaningOrder As String = _
                    "<ReceiptNumber>" & txtReceiptNumber.Text & _
                    "</ReceiptNumber>" & "<CustomerName>" & _
                    txtCustomerName.Text & "</CustomerName>" & _
                    "<CustomerPhone>" & txtCustomerPhone.Text & _
                    "</CustomerPhone>" & "<DateLeft>" & _
                    dtpDateLeft.Value.ToString("d") & "</DateLeft>" & _
                    "<TimeLeft>" & dtpTimeLeft.Value.ToString("t") & _
                    "</TimeLeft>" & "<DateExpected>" & _
                    dtpDateExpected.Value.ToString("d") & _
                    "</DateExpected>" & "<TimeExpected>" & _
                    dtpTimeExpected.Value.ToString("t") & _
                    "</TimeExpected>" & "<OrderStatus>" & _
                    cbxOrderStatus.Text & "</OrderStatus>" & _
                    "<DatePickedUp>" & dtpDatePickedUp.Value.ToString("d") & _
                    "</DatePickedUp>" & "<TimePickedUp>" & _
                    dtpTimePickedUp.Value.ToString("t") & _
                    "</TimePickedUp>" & "<UnitPriceShirts>" & _
                    txtUnitPriceShirts.Text & "</UnitPriceShirts>" & _
                    "<QuantityShirts>" & txtQuantityShirts.Text & _
                    "</QuantityShirts>" & "<SubTotalShirts>" & _
                    txtSubTotalShirts.Text & "</SubTotalShirts>" & _
                    "<UnitPricePants>" & txtUnitPricePants.Text & _
                    "</UnitPricePants>" & "<QuantityPants>" & _
                    txtQuantityPants.Text & "</QuantityPants>" & _
                    "<SubTotalPants>" & txtSubTotalPants.Text & _
                    "</SubTotalPants>" & "<NameItem1>" & _
                    cbxNameItem1.Text & "</NameItem1>" & _
                    "<UnitPriceItem1>" & txtUnitPriceItem1.Text & _
                    "</UnitPriceItem1>" & "<QuantityItem1>" & _
                    txtQuantityItem1.Text & "</QuantityItem1>" & _
                    "<SubTotalItem1>" & txtSubTotalItem1.Text & _
                    "</SubTotalItem1>" & "<NameItem2>" & _
                    cbxNameItem2.Text & "</NameItem2>" & _
                    "<UnitPriceItem2>" & txtUnitPriceItem2.Text & _
                    "</UnitPriceItem2>" & "<QuantityItem2>" & _
                    txtQuantityItem2.Text & "</QuantityItem2>" & _
                    "<SubTotalItem2>" & txtSubTotalItem2.Text & _
                    "</SubTotalItem2>" & "<NameItem3>" & _
                    cbxNameItem3.Text & "</NameItem3>" & _
                    "<UnitPriceItem3>" & txtUnitPriceItem3.Text & _
                    "</UnitPriceItem3>" & "<QuantityItem3>" & _
                    txtQuantityItem3.Text & "</QuantityItem3>" & _
                    "<SubTotalItem3>" + txtSubTotalItem3.Text & _
                    "</SubTotalItem3>" & "<Item4Name>" & _
                    cbxNameItem4.Text & "</Item4Name>" & _
                    "<UnitPriceItem4>" + txtUnitPriceItem4.Text & _
                    "</UnitPriceItem4>" & "<QuantityItem4>" & _
                    txtQuantityItem4.Text & "</QuantityItem4>" & _
                    "<SubTotalItem4>" & txtSubTotalItem4.Text & _
                    "</SubTotalItem4>" & "<CleaningTotal>" & _
                    txtCleaningTotal.Text & "</CleaningTotal>" & _
                    "<TaxRate>" & txtTaxRate.Text & "</TaxRate>" & _
                    "<TaxAmount>" & txtTaxAmount.Text & "</TaxAmount>" & _
                    "<NetPrice>" & txtNetPrice.Text & "</NetPrice>"

            CleaningOrderElement.InnerXml = strNewCleaningOrder
            DOMCleaningOrders.DocumentElement.AppendChild(CleaningOrderElement)
        End If

        DOMCleaningOrders.Save(Filename)
End Sub
  29. Under the above End Sub line, implement the following event:
      
    Private Sub ControlLeave(ByVal sender As Object, _
                             ByVal e As EventArgs) _
                             Handles txtUnitPriceShirts.Leave, _
                                     txtQuantityShirts.Leave, _
                                     txtUnitPricePants.Leave, _
                                     txtQuantityPants.Leave, _
                                     txtUnitPriceShirts.Leave, _
                                     txtQuantityPants.Leave, _
                                     txtUnitPriceItem1.Leave, _
                                     txtQuantityItem1.Leave, _
                                     txtUnitPriceItem2.Leave, _
                                     txtQuantityItem2.Leave, _
                                     txtUnitPriceItem3.Leave, _
                                     txtQuantityItem3.Leave, _
                                     txtUnitPriceItem4.Leave, _
                                     txtQuantityItem4.Leave, _
                                     txtTaxRate.Leave
        Dim UnitPriceShirts As Double, UnitPricePants As Double
        Dim UnitPriceItem1 As Double, UnitPriceItem2 As Double
        Dim UnitPriceItem3 As Double, UnitPriceItem4 As Double
        Dim SubTotalShirts As Double, SubTotalPants As Double
        Dim SubTotalItem1 As Double, SubTotalItem2 As Double
        Dim SubTotalItem3 As Double, SubTotalItem4 As Double
        Dim QuantityShirts As Integer = 1, QuantityPants As Integer = 1
        Dim QuantityItem1 As Integer = 1
        Dim QuantityItem2 As Integer = 1, QuantityItem3 As Integer = 1
        Dim QuantityItem4 As Integer = 4
        Dim CleaningTotal As Double = 0.0, TaxRate As Double
        Dim TaxAmount As Double = 0.0, NetPrice As Double

        ' Retrieve the unit price of this item
        ' Just in case the user types an invalid value,
        ' we are using a try...catch
        Try
            UnitPriceShirts = CDbl(txtUnitPriceShirts.Text)
        Catch Exc As FormatException
            MsgBox("The value you entered for the price of " & _
                            "shirts is not valid" & _
                            vbCrLf & "Please try again")
            Exit Sub
        End Try

        ' Retrieve the number of this item
        ' Just in case the user types an invalid value,
        ' we are using a try...catch
        Try
            QuantityShirts = CInt(txtQuantityShirts.Text)
        Catch Exc As FormatException
            MsgBox("The value you entered for the number of " & _
                            "shirts is not valid" & _
                            vbCrLf & "Please try again")
            Exit Sub
        End Try

        Try
            UnitPricePants = CDbl(txtUnitPricePants.Text)
        Catch Exc As FormatException
            MsgBox("The value you entered for the price of " & _
                            "pants is not valid" & _
                            vbCrLf & "Please try again")
            Exit Sub
        End Try

        Try
            QuantityPants = CInt(txtQuantityPants.Text)
        Catch Exc As FormatException
            MsgBox("The value you entered for the number of " & _
                            "pants is not valid" & _
                            vbCrLf & "Please try again")
            Exit Sub
        End Try

        If (cbxNameItem1.Text = "None") Or _
           (cbxNameItem1.Text = "") Then
            QuantityItem1 = 0
            UnitPriceItem1 = 0.0
        Else
            Try
                UnitPriceItem1 = CDbl(txtUnitPriceItem1.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered for the price is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try

            Try
                QuantityItem1 = CInt(txtQuantityItem1.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try
        End If

        If (cbxNameItem2.Text = "None") Or _
           (cbxNameItem2.Text = "") Then
            QuantityItem2 = 0
            UnitPriceItem2 = 0.0
        Else
            Try
                UnitPriceItem2 = CDbl(txtUnitPriceItem2.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered for " & _
                    "the price is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try

            Try
                QuantityItem2 = CInt(txtQuantityItem2.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try
        End If

        If (cbxNameItem3.Text = "None") Or _
           (cbxNameItem3.Text = "") Then
            QuantityItem3 = 0
            UnitPriceItem3 = 0.0
        Else
            Try
                UnitPriceItem3 = CDbl(txtUnitPriceItem3.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered for the " & _
                    "price is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try

            Try
                QuantityItem3 = CInt(txtQuantityItem3.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered is not valid" & _
                                vbCrLf & "Please try again")
                Exit Sub
            End Try
        End If

        If (cbxNameItem4.Text = "None") Or (cbxNameItem4.Text = "") Then
            QuantityItem4 = 0
            UnitPriceItem4 = 0.0
        Else
            Try
                UnitPriceItem4 = CDbl(txtUnitPriceItem4.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered for the price is not valid" & _
                        vbCrLf & "Please try again")
                Exit Sub
            End Try

            Try
                QuantityItem4 = CInt(txtQuantityItem4.Text)
            Catch Exc As FormatException
                MsgBox("The value you entered is not valid" & _
                        vbCrLf & "Please try again")
                Exit Sub
            End Try
        End If

        ' Calculate the sub-total for this item
        SubTotalShirts = QuantityShirts * UnitPriceShirts
        SubTotalPants = QuantityPants * UnitPricePants
        SubTotalItem1 = QuantityItem1 * UnitPriceItem1
        SubTotalItem2 = QuantityItem2 * UnitPriceItem2
        SubTotalItem3 = QuantityItem3 * UnitPriceItem3
        SubTotalItem4 = QuantityItem4 * UnitPriceItem4

        ' Calculate the total based on sub-totals
        CleaningTotal = SubTotalShirts + SubTotalPants + _
                        SubTotalItem1 + SubTotalItem2 + _
                        SubTotalItem3 + SubTotalItem4

        TaxRate = CDbl(txtTaxRate.Text)
        ' Calculate the amount owed for the taxes
        TaxAmount = CleaningTotal * TaxRate / 100
        ' Add the tax amount to the total order
        NetPrice = CleaningTotal + TaxAmount

        ' Display the sub-total in the corresponding text box
        txtSubTotalShirts.Text = FormatNumber(SubTotalShirts)
        txtSubTotalPants.Text = FormatNumber(SubTotalPants)
        txtSubTotalItem1.Text = FormatNumber(SubTotalItem1)
        txtSubTotalItem2.Text = FormatNumber(SubTotalItem2)
        txtSubTotalItem3.Text = FormatNumber(SubTotalItem3)
        txtSubTotalItem4.Text = FormatNumber(SubTotalItem4)

        txtCleaningTotal.Text = FormatNumber(CleaningTotal)
        txtTaxAmount.Text = FormatNumber(TaxAmount)
        txtNetPrice.Text = FormatNumber(NetPrice)

        SaveCleaningOrder()
End Sub
  30. In the Class Name combo box, select cbxOrderStatus
  31. In the Method Name combo box, select SelectedIndexChanged and implement the event as follows:
      
    Private Sub cbxOrderStatus_SelectedIndexChanged(ByVal sender As Object, _
                                                ByVal e As System.EventArgs) _
                                   Handles cbxOrderStatus.SelectedIndexChanged
        SaveCleaningOrder()
End Sub
  32. In the Class Name combo box, select dtpDatePickedUp
  33. In the Method Name combo box, select ValueChanged and implement the event as follows:
      
    Private Sub dtpDatePickedUp_ValueChanged(ByVal sender As Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles dtpDatePickedUp.ValueChanged
        SaveCleaningOrder()
End Sub
  34. In the Class Name combo box, select dtpTimePickedUp
  35. In the Method Name combo box, select ValueChanged and implement the event as follows:
      
    Private Sub dtpTimePickedUp_ValueChanged(ByVal sender As Object, _
                                         ByVal e As System.EventArgs) _
                                         Handles dtpTimePickedUp.ValueChanged
    SaveCleaningOrder()
End Sub
  36. In the Class Name combo box, select btnClose
  37. In the Method Name combo box, select Click and implement the event as follows:
      
    Private Sub btnClose_Click(ByVal sender As Object, _
                               ByVal e As System.EventArgs) _
                               Handles btnClose.Click
        End
End Sub
  38. Execute the application
  39. Create a cleaning order
  40. Click New Cleaning Order and create a few more cleaning orders
  41. Close the form and return to your programming environment
 
Home Copyright © 2008-2016, FunctionX, Inc.