Home

ADO.NET Example Applications:
College Park Auto-Shop
 

ADO.NET Example Applications: College Park Auto-Shop

Introduction

The SqlDataReader class of the .NET Framework provides a technique of moving in the records of a set in a forward-only one-way many. For example, imagine you get to a record to view it. Once you finish with such a record, you move to the next record. You cannot visit the previous record. This can provide a fast means of accessing record since there is little processing involved.

In this example, we will create a database used to process records for the customers of a car repair shop. When it's time to open a previously saved order, we will use a SqlDataReader object to demonstrate how it can be used.
 

Practical Learning Practical Learning: Creating the Application
  1. Start Microsoft Visual Studio .NET or Visual Basic .NET
  2. Display the Server Explorer. Expand the Servers node, followed by the name of the computer, followed by SQL Servers, followed by the name of the server.
    If you already have a database named CPAS, fine.
    If you don't have it, right-click the server and click New Database. Set the New Database Name to CPAS and accept to use Windows NT Integrated Security. Click OK. Under the name of the server in Server Explorer, expand the GCS node. Right-click the Tables node and click New Table. Create the table with the following columns (change only the indicated information; anything that is not mentioned should be ignored and use the default):
     
    Column Name Data Type Length Allow Nulls Other Properties
    RepairOrderID int     Primary Key
    Identity: Yes
    OrderDate datetime   Unchecked  
    OrderTime datetime 20 Unchecked  
    CustomerName varchar Unchecked  
    Address varchar      
    City varchar      
    State char 2    
    ZIPCode varchar 10    
    Make varchar 20 Unchecked  
    Model varchar 32 Unchecked  
    CarYear smallint 5 Unchecked  
    ProblemDescription text   Unchecked  
    PartName1 varchar      
    UnitPrice1 decimal 10   Default Value: 0.00
    Scale: 2
    Quantity1 tinyint 3   Default Value: 0
    SubTotal1 decimal 10   Default Value: 0.00
    Scale: 2
    PartName2 varchar  
    UnitPrice2 decimal 10   Default Value: 0.00
    Scale: 2
    Quantity2 tinyint 3   Default Value: 0
    SubTotal2 decimal     Default Value: 0.00
    Scale: 2
    PartName3 varchar      
    UnitPrice3 decimal     Scale: 2
    Quantity3 tinyint     Default Value: 0
    SubTotal3 decimal     Default Value: 0.00
    Scale: 2
    PartName4 varchar      
    UnitPrice4 decimal     Default Value: 0.00
    Scale: 2
    Quantity4 tinyint     Default Value: 0
    SubTotal4 decimal     Default Value: 0.00
    Scale: 2
    PartName5 varchar      
    UnitPrice5 decimal     Default Value: 0.00
    Scale: 2
    Quantity5 tinyint     Default Value: 0
    SubTotal5 decimal     Default Value: 0.00
    Scale: 2
    JobPerformed1 varchar 80    
    JobPrice1 decimal     Default Value: 0.00
    Scale: 2
    JobPerformed2 varchar 80    
    JobPrice2 decimal     Default Value: 0.00
    Scale: 2
    JobPerformed3 varchar 80    
    JobPrice3 decimal     Default Value: 0.00
    Scale: 2
    JobPerformed4 varchar 80     
    JobPrice4 decimal     Default Value: 0.00
    Scale: 2
    JobPerformed5 varchar 80     
    JobPrice5 decimal     Default Value: 0.00
    Scale: 2
    TotalParts decimal   Unchecked Default Value: 0.00
    Scale: 2
    TotalLabor decimal   Unchecked Default Value: 0.00
    Scale: 2
    TaxRate decimal   Unchecked Default Value: 7.75
    Scale: 2
    TaxAmount decimal   Unchecked Default Value: 0.00
    Scale: 2
    OrderTotal decimal   Unchecked Default Value: 0.00
    Scale: 2
    Recommendations text      

    Save the table as RepairOrders and close it
  3. Create a new Windows (Forms) Application named CPAS2
  4. Design the form as follows (you could select (all) and copy the form from lesson 7, paste it to this form and make the necessary changes):
     
    Control Name Text Other Properties
    GroupBox   Customer and Car Information  
    Label   First Name:  
    TextBox txtFirstName    
    Label   Last Name:  
    TextBox txtLastName    
    Label   Address  
    TextBox txtAddress    
    Label   City:  
    TextBox txtCity    
    Label   State:  
    TextBox txtState    
    Label   ZIP Code:  
    TextBox txtZIPCode   TextAlign: Right
    Label   Make / Model:  
    TextBox txtMake    
    TextBox txtModel    
    Label   Year:  
    TextBox txtCarYear   TextAlign: Right
    Label   Problem Description:  
    TextBox txtProblem    
    GroupBox   Parts Used  
    Label   Part Name  
    Label   Unit Price  
    Label   Qty  
    Label   Sub Total  
    TextBox txtPartName1    
    TextBox txtPartUnitPrice1 0.00 TextAlign: Right
    TextBox txtPartQuantity1 0 TextAlign: Right
    TextBox txtPartSubTotal1 0.00 TextAlign: Right
    TextBox txtPartName2    
    TextBox txtPartUnitPrice2 0.00 TextAlign: Right
    TextBox txtPartQuantity2 0 TextAlign: Right
    TextBox txtPartSubTotal2 0.00 TextAlign: Right
    TextBox txtPartName3    
    TextBox txtPartUnitPrice3 0.00 TextAlign: Right
    TextBox txtPartQuantity3 0 TextAlign: Right
    TextBox txtPartSubTotal3 0.00 TextAlign: Right
    TextBox txtPartName4    
    TextBox txtPartUnitPrice4 0.00 TextAlign: Right
    TextBox txtPartQuantity4 0 TextAlign: Right
    TextBox txtPartSubTotal4 0.00 TextAlign: Right
    TextBox txtPartName5    
    TextBox txtPartUnitPrice5 0.00 TextAlign: Right
    TextBox txtPartQuantity5 0 TextAlign: Right
    TextBox txtPartSubTotal5 0.00 TextAlign: Right
    GroupBox   Jobs Performed  
    Label   Job Description  
    Label   Price  
    TextBox txtJobDescription1    
    TextBox txtJobPrice1 0.00 TextAlign: Right
    TextBox txtJobDescription2    
    TextBox txtJobPrice2 0.00 TextAlign: Right
    TextBox txtJobDescription3    
    TextBox txtJobPrice3 0.00 TextAlign: Right
    TextBox txtJobDescription4    
    TextBox txtJobPrice4 0.00 TextAlign: Right
    TextBox txtJobDescription5    
    TextBox txtJobPrice5 0.00 TextAlign: Right
    GroupBox   Order Summary  
    Button btnResetOrder Reset Order  
    Button btnCalculateOrder Calculate Order  
    Label   Total Parts:  
    TextBox txtTotalParts 0.00 TextAlign: Right
    Label   Total Labor:  
    Text txtTotalLabor 0.00 TextAlign: Right
    Label   Tax Rate:  
    TextBox txtTaxRate 7.75 TextAlign: Right
    Label   %  
    Label   Tax Amount:  
    TextBox txtTaxAmount 0.00 TextAlign: Right
    Label   Total Order:  
    TextBox txtTotalOrder 0.00 TextAlign: Right
    Button btnSaveOrder Save this Order and Start New Order  
    Button btnOpenOrder Open an Existing Order  
    Label   Recommendations  
    TextBox txtRecommendations   Multiline: True
    ScrollBars: Vertical
  5. Double-click the New Order/Reset button and implement its Click event as follows:
      
    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
		Handles btnReset.Click
        dtpOrderDate.Value = DateTime.Today
        dtpOrderTime.Value = DateTime.Now
        txtCustomerName.Text = ""
        txtAddress.Text = ""
        txtCity.Text = ""
        txtState.Text = ""
        txtZIPCode.Text = ""
        txtMake.Text = ""
        txtModel.Text = ""
        txtCarYear.Text = ""
        txtProblem.Text = ""

        txtPartName1.Text = ""
        txtUnitPrice1.Text = "0.00"
        txtQuantity1.Text = "0"
        txtSubTotal1.Text = "0.00"
        txtPartName2.Text = ""
        txtUnitPrice2.Text = "0.00"
        txtQuantity2.Text = "0"
        txtSubTotal2.Text = "0.00"
        txtPartName3.Text = ""
        txtUnitPrice3.Text = "0.00"
        txtQuantity3.Text = "0"
        txtSubTotal3.Text = "0.00"
        txtPartName4.Text = ""
        txtUnitPrice4.Text = "0.00"
        txtQuantity4.Text = "0"
        txtSubTotal4.Text = "0.00"
        txtPartName5.Text = ""
        txtUnitPrice5.Text = "0.00"
        txtQuantity5.Text = "0"
        txtSubTotal5.Text = "0.00"

        txtJobPerformed1.Text = ""
        txtJobPrice1.Text = "0.00"
        txtJobPerformed2.Text = ""
        txtJobPrice2.Text = "0.00"
        txtJobPerformed3.Text = ""
        txtJobPrice3.Text = "0.00"
        txtJobPerformed4.Text = ""
        txtJobPrice4.Text = "0.00"
        txtJobPerformed5.Text = ""
        txtJobPrice5.Text = "0.00"

        txtTotalParts.Text = "0.00"
        txtTotalLabor.Text = "0.00"
        txtTaxRate.Text = "7.75"
        txtTaxAmount.Text = "0.00"
        txtTotalOrder.Text = "0.00"

        txtRecommendations.Text = ""
        txtCustomerName.Focus()
End Sub
  6. Under the above event, implement the follow sub procedure or function:
       
    Private Sub CalculateOrder()
        Dim part1UnitPrice As Decimal
        Dim part1SubTotal As Decimal
        Dim part2UnitPrice As Decimal
        Dim part2SubTotal As Decimal
        Dim part3UnitPrice As Decimal
        Dim part3SubTotal As Decimal
        Dim part4UnitPrice As Decimal
        Dim part4SubTotal As Decimal
        Dim part5UnitPrice As Decimal
        Dim part5SubTotal As Decimal
        Dim totalParts As Decimal

        Dim part1Quantity As Integer = 0
        Dim part2Quantity As Integer = 0
        Dim part3Quantity As Integer = 0
        Dim part4Quantity As Integer = 0
        Dim part5Quantity As Integer = 0

        Dim job1Price As Decimal = 0.0
        Dim job2Price As Decimal = 0.0
        Dim job3Price As Decimal = 0.0
        Dim job4Price As Decimal = 0.0
        Dim job5Price As Decimal = 0.0
        Dim totalLabor As Decimal
        Dim taxRate As Decimal
        Dim taxAmount As Decimal
        Dim totalOrder As Decimal

        ' Don't charge a part unless it is clearly identified
        If txtPartName1.Text = "" Then
            txtUnitPrice1.Text = "0.00"
            txtQuantity1.Text = "0"
            txtSubTotal1.Text = "0.00"
            part1UnitPrice = 0.0
        Else
            Try
                part1UnitPrice = CDbl(txtUnitPrice1.Text)
            Catch ex As FormatException
                msgbox("Invalid Unit Price")
                txtUnitPrice1.Text = "0.00"
                txtUnitPrice1.Focus()
            End Try

            Try
                part1Quantity = CInt(txtQuantity1.Text)
            Catch ex As FormatException
                msgbox("Invalid Quantity")
                txtQuantity1.Text = "0"
                txtQuantity1.Focus()
            End Try
        End If

        If txtPartName2.Text = "" Then
            txtUnitPrice2.Text = "0.00"
            txtQuantity2.Text = "0"
            txtSubTotal2.Text = "0.00"
            part2UnitPrice = 0.0
        Else
            Try
                part2UnitPrice = CDbl(txtUnitPrice2.Text)
            Catch ex As FormatException
                msgbox("Invalid Unit Price")
                txtUnitPrice2.Text = "0.00"
                txtUnitPrice2.Focus()
            End Try

            Try
                part2Quantity = CInt(txtQuantity2.Text)
            Catch ex As FormatException
                msgbox("Invalid Quantity")
                txtQuantity2.Text = "0"
                txtQuantity2.Focus()
            End Try
        End If

        If txtPartName3.Text = "" Then
            txtUnitPrice3.Text = "0.00"
            txtQuantity3.Text = "0"
            txtSubTotal3.Text = "0.00"
            part3UnitPrice = 0.0
        Else
            Try
                part3UnitPrice = CDbl(txtUnitPrice3.Text)
            Catch ex As FormatException
                msgbox("Invalid Unit Price")
                txtUnitPrice3.Text = "0.00"
                txtUnitPrice3.Focus()
            End Try

            Try
                part3Quantity = CInt(txtQuantity3.Text)
            Catch ex As FormatException
                msgbox("Invalid Quantity")
                txtQuantity3.Text = "0"
                txtQuantity3.Focus()
            End Try
        End If

        If txtPartName4.Text = "" Then
            txtUnitPrice4.Text = "0.00"
            txtQuantity4.Text = "0"
            txtSubTotal4.Text = "0.00"
            part4UnitPrice = 0.0
        Else
            Try
                part4UnitPrice = CDbl(txtUnitPrice4.Text)
            Catch ex As FormatException
                msgbox("Invalid Unit Price")
                txtUnitPrice4.Text = "0.00"
                txtUnitPrice4.Focus()
            End Try

            Try
                part4Quantity = CInt(txtQuantity4.Text)
            Catch ex As FormatException

                msgbox("Invalid Quantity")
                txtQuantity4.Text = "0"
                txtQuantity4.Focus()
            End Try
        End If

        If txtPartName5.Text = "" Then
            txtUnitPrice5.Text = "0.00"
            txtQuantity5.Text = "0"
            txtSubTotal5.Text = "0.00"
            part5UnitPrice = 0.0
        Else
            Try
                part5UnitPrice = CDbl(txtUnitPrice5.Text)
            Catch ex As FormatException
                msgbox("Invalid Unit Price")
                txtUnitPrice5.Text = "0.00"
                txtUnitPrice5.Focus()
            End Try

            Try
                part5Quantity = CInt(txtQuantity5.Text)
            Catch ex As FormatException
                msgbox("Invalid Quantity")
                txtQuantity5.Text = "0"
                txtQuantity5.Focus()
            End Try
        End If

        ' Don't bill the customer for a job that is not specified
        If txtJobPerformed1.Text = "" Then
            txtJobPrice1.Text = "0.00"
            job1Price = 0.0
        Else
            Try
                job1Price = CDbl(txtJobPrice1.Text)
            Catch ex As FormatException
                msgbox("Invalid Job Price")
                txtJobPrice1.Text = "0.00"
                txtJobPrice1.Focus()
            End Try
        End If

        If txtJobPerformed2.Text = "" Then
            txtJobPrice2.Text = "0.00"
            job2Price = 0.0
        Else
            Try
                job2Price = CDbl(txtJobPrice2.Text)
            Catch ex As FormatException
                MsgBox("Invalid Job Price")
                txtJobPrice2.Text = "0.00"
                txtJobPrice2.Focus()
            End Try
        End If

        If txtJobPerformed3.Text = "" Then
            txtJobPrice3.Text = "0.00"
            job3Price = 0.0
        Else
            Try
                job3Price = CDbl(txtJobPrice3.Text)
            Catch ex As FormatException
                MsgBox("Invalid Job Price")
                txtJobPrice3.Text = "0.00"
                txtJobPrice3.Focus()
            End Try
        End If

        If txtJobPerformed4.Text = "" Then
            txtJobPrice4.Text = "0.00"
            job4Price = 0.0
        Else
            Try
                job4Price = CDbl(txtJobPrice4.Text)
            Catch ex As FormatException
                MsgBox("Invalid Job Price")
                txtJobPrice4.Text = "0.00"
                txtJobPrice4.Focus()
            End Try
        End If

        If txtJobPerformed5.Text = "" Then
            txtJobPrice5.Text = "0.00"
            job5Price = 0.0
        Else
            Try
                job5Price = CDbl(txtJobPrice5.Text)
            Catch ex As FormatException
                MsgBox("Invalid Job Price")
                txtJobPrice5.Text = "0.00"
                txtJobPrice5.Focus()
            End Try
        End If

        part1SubTotal = part1UnitPrice * part1Quantity
        part2SubTotal = part2UnitPrice * part2Quantity
        part3SubTotal = part3UnitPrice * part3Quantity
        part4SubTotal = part4UnitPrice * part4Quantity
        part5SubTotal = part5UnitPrice * part5Quantity

        txtSubTotal1.Text = part1SubTotal.ToString("F")
        txtSubTotal2.Text = part2SubTotal.ToString("F")
        txtSubTotal3.Text = part3SubTotal.ToString("F")
        txtSubTotal4.Text = part4SubTotal.ToString("F")
        txtSubTotal5.Text = part5SubTotal.ToString("F")

        totalParts = part1SubTotal + part2SubTotal + part3SubTotal + _
              part4SubTotal + part5SubTotal

        totalLabor = job1Price + job2Price + job3Price + _
              job4Price + job5Price

        Try
            taxRate = CDbl(txtTaxRate.Text)
        Catch ex As FormatException
            MsgBox("Invalid Tax Rate")
            txtTaxRate.Text = "7.75"
            txtTaxRate.Focus()
        End Try

        Dim totalPartsAndLabor As Decimal = totalParts + totalLabor
        taxAmount = totalPartsAndLabor * taxRate / 100
        totalOrder = totalPartsAndLabor + taxAmount

        txtTotalParts.Text = totalParts.ToString("F")
        txtTotalLabor.Text = totalLabor.ToString("F")
        txtTaxAmount.Text = taxAmount.ToString("F")
        txtTotalOrder.Text = totalOrder.ToString("F")
End Sub
  7. Return to the form. Click the first text box under Qty and, in the Properties window, click the Events button
  8. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtQuantity1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtQuantity1.Leave
        CalculateOrder()
End Sub
  9. Return to the form. Click the second text box under Qty. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtQuantity2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtQuantity2.Leave
        CalculateOrder()
End Sub
  10. Return to the form. Click the third text box under Qty. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtQuantity3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtQuantity3.Leave
        CalculateOrder()
End Sub
  11. Return to the form. Click the fourth text box under Qty. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtQuantity4_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtQuantity4.Leave
        CalculateOrder()
End Sub
  12. Return to the form. Click the fifth text box under Qty. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtQuantity5_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtQuantity5.Leave
        CalculateOrder()
End Sub
  13. Return to the form. Click the first text box under Price on the right side of Job Performed. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtJobPrice1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtJobPrice1.Leave
        CalculateOrder()
End Sub
  14. Return to the form. Click the second text box under Price. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtJobPrice2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtJobPrice2.Leave
        CalculateOrder()
End Sub
  15. Return to the form. Click the third text box under Price. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtJobPrice3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtJobPrice3.Leave
        CalculateOrder()
End Sub
  16. Return to the form. Click the fourth text box under Price. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtJobPrice4_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtJobPrice4.Leave
        CalculateOrder()
End Sub
  17. Return to the form. Click the fifth text box under Price. In the Events section of the Properties window, generate the Leave event and implement it as follows:
      
    Private Sub txtJobPrice5_Leave(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles txtJobPrice5.Leave
        CalculateOrder()
End Sub
  18. Return to the form. Double-click the Save Order button and implement its Click event as follows:
      
    Private Sub btnSaveOrder_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles btnSaveOrder.Click
        Dim strCustomerName As String = txtCustomerName.Text

        If strCustomerName = "" Then
            MsgBox("You must provide a name for the customer")
            Exit Sub
        End If

        Dim strOrderDate As String = dtpOrderDate.Value.ToString("d")
        Dim strOrderTime As String = dtpOrderTime.Value.ToString("t")

        Dim strNewRepairOrder As String = "INSERT INTO RepairOrders(OrderDate, " & _
                                             "OrderTime, CustomerName, Address, " & _
           "City, State, ZIPCode, Make, Model, " & _
           "CarYear, ProblemDescription, PartName1, " & _
           "UnitPrice1, Quantity1, SubTotal1, " & _
           "PartName2, UnitPrice2, Quantity2, " & _
           "SubTotal2, PartName3, UnitPrice3, " & _
           "Quantity3, SubTotal3, PartName4, " & _
           "UnitPrice4, Quantity4, SubTotal4, " & _
           "PartName5, UnitPrice5, Quantity5, " & _
           "SubTotal5, JobPerformed1, JobPrice1, " & _
           "JobPerformed2, JobPrice2, JobPerformed3, " & _
           "JobPrice3, JobPerformed4, JobPrice4, " & _
           "JobPerformed5, JobPrice5, TotalParts, " & _
           "TotalLabor, TaxRate, TaxAmount, " & _
           "OrderTotal, Recommendations) " & _
           "VALUES('" & strOrderDate & "', '" & strOrderTime & _
           "', '" & strCustomerName & "', '" & txtAddress.Text & _
              "', '" & txtCity.Text & "', '" & txtState.Text & _
              "', '" & txtZIPCode.Text & "', '" & txtMake.Text & _
              "', '" & txtModel.Text & "', '" & txtCarYear.Text & _
              "', '" & txtProblem.Text & "', '" & txtPartName1.Text & _
              "', '" & txtUnitPrice1.Text & "', '" & txtQuantity1.Text & _
              "', '" & txtSubTotal1.Text & "', '" & txtPartName2.Text & _
              "', '" & txtUnitPrice2.Text & "', '" & txtQuantity2.Text & _
              "', '" & txtSubTotal2.Text & "', '" & txtPartName3.Text & _
              "', '" & txtUnitPrice3.Text & "', '" & txtQuantity3.Text & _
              "', '" & txtSubTotal3.Text & "', '" & txtPartName4.Text & _
              "', '" & txtUnitPrice4.Text & "', '" & txtQuantity4.Text & _
              "', '" & txtSubTotal4.Text & "', '" & txtPartName5.Text & _
              "', '" & txtUnitPrice5.Text & "', '" & txtQuantity5.Text & _
             "', '" & txtSubTotal5.Text & "', '" & txtJobPerformed1.Text & _
             "', '" & txtJobPrice1.Text & "', '" & txtJobPerformed2.Text & _
             "', '" & txtJobPrice2.Text & "', '" & txtJobPerformed3.Text & _
             "', '" & txtJobPrice3.Text & "', '" & txtJobPerformed4.Text & _
             "', '" & txtJobPrice4.Text & "', '" & txtJobPerformed5.Text & _
              "', '" & txtJobPrice5.Text & "', '" & txtTotalParts.Text & _
              "', '" & txtTotalLabor.Text & "', '" & txtTaxRate.Text & _
              "', '" & txtTaxAmount.Text & "', '" & txtTotalOrder.Text & _
              "', '" & txtRecommendations.Text & "');"

        Dim conDatabase As System.Data.SqlClient.SqlConnection = New _
        System.Data.SqlClient.SqlConnection( _
     "Data Source=(local);Database='CPAS';Integrated Security=yes")
        Dim cmdDatabase As System.Data.SqlClient.SqlCommand = New _
         System.Data.SqlClient.SqlCommand(strNewRepairOrder, conDatabase)

        conDatabase.Open()

        cmdDatabase.ExecuteNonQuery()
        conDatabase.Close()
End Sub
  19. Return to the form. Double-click the Close button and implement its Click event as follows:
      
    Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
			Handles btnClose.Click
        End
End Sub
  20. Execute the application and create a repair order. Here is an example:
     
  21. Save the order
  22. Close the form and return to your programming environment
  23. Display the form. On the form, double-click the Open button and implement its Click event as follows:
      
    Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        Dim strReceiptNumber As String = txtReceiptNumber.Text

        If strReceiptNumber = "" Then
            MsgBox("You must provide a receipt number to look for the repair")
            Exit Sub
        End If

        Dim strFindRepair As String = "SELECT * FROM RepairOrders WHERE RepairOrderID = '" & _
           strReceiptNumber & "'"

        Dim conDatabase As System.Data.SqlClient.SqlConnection = New _
System.Data.SqlClient.SqlConnection("Data Source=(local);Database='CPAS';Integrated Security=yes")
        Dim cmdDatabase As System.Data.SqlClient.SqlCommand = New _
         System.Data.SqlClient.SqlCommand(strFindRepair, conDatabase)

        conDatabase.Open()

        Dim rdrRepairOrder As System.Data.SqlClient.SqlDataReader
        rdrRepairOrder = cmdDatabase.ExecuteReader()

        While rdrRepairOrder.Read()
            dtpOrderDate.Value = rdrRepairOrder.GetDateTime(1)
            dtpOrderTime.Value = rdrRepairOrder.GetDateTime(2)
            txtCustomerName.Text = rdrRepairOrder.GetString(3)
            txtAddress.Text = rdrRepairOrder.GetString(4)
            txtCity.Text = rdrRepairOrder.GetString(5)
            txtState.Text = rdrRepairOrder.GetString(6)
            txtZIPCode.Text = rdrRepairOrder.GetString(7)
            txtMake.Text = rdrRepairOrder.GetString(8)
            txtModel.Text = rdrRepairOrder.GetString(9)
            txtCarYear.Text = rdrRepairOrder.GetSqlInt16(10).ToString()
            txtProblem.Text = rdrRepairOrder.GetString(11)

            txtPartName1.Text = rdrRepairOrder.GetString(12)
            txtUnitPrice1.Text = rdrRepairOrder.GetSqlDecimal(13).ToString()
            txtQuantity1.Text = rdrRepairOrder.GetSqlByte(14).ToString()
            txtSubTotal1.Text = rdrRepairOrder.GetSqlDecimal(15).ToString()
            txtPartName2.Text = rdrRepairOrder.GetString(16)
            txtUnitPrice2.Text = rdrRepairOrder.GetSqlDecimal(17).ToString()
            txtQuantity2.Text = rdrRepairOrder.GetSqlByte(18).ToString()
            txtSubTotal2.Text = rdrRepairOrder.GetSqlDecimal(19).ToString()
            txtPartName3.Text = rdrRepairOrder.GetString(20)
            txtUnitPrice3.Text = rdrRepairOrder.GetSqlDecimal(21).ToString()
            txtQuantity3.Text = rdrRepairOrder.GetSqlByte(22).ToString()
            txtSubTotal3.Text = rdrRepairOrder.GetSqlDecimal(23).ToString()
            txtPartName4.Text = rdrRepairOrder.GetString(24)
            txtUnitPrice4.Text = rdrRepairOrder.GetSqlDecimal(25).ToString()
            txtQuantity4.Text = rdrRepairOrder.GetSqlByte(26).ToString()
            txtSubTotal4.Text = rdrRepairOrder.GetSqlDecimal(27).ToString()
            txtPartName5.Text = rdrRepairOrder.GetString(28)
            txtUnitPrice5.Text = rdrRepairOrder.GetSqlDecimal(29).ToString()
            txtQuantity5.Text = rdrRepairOrder.GetSqlByte(30).ToString()
            txtSubTotal5.Text = rdrRepairOrder.GetSqlDecimal(31).ToString()

            txtJobPerformed1.Text = rdrRepairOrder.GetString(32)
            txtJobPrice1.Text = rdrRepairOrder.GetSqlDecimal(33).ToString()
            txtJobPerformed2.Text = rdrRepairOrder.GetString(34)
            txtJobPrice2.Text = rdrRepairOrder.GetSqlDecimal(35).ToString()
            txtJobPerformed3.Text = rdrRepairOrder.GetString(36)
            txtJobPrice3.Text = rdrRepairOrder.GetSqlDecimal(37).ToString()
            txtJobPerformed4.Text = rdrRepairOrder.GetString(38)
            txtJobPrice4.Text = rdrRepairOrder.GetSqlDecimal(39).ToString()
            txtJobPerformed5.Text = rdrRepairOrder.GetString(40)
            txtJobPrice5.Text = rdrRepairOrder.GetSqlDecimal(41).ToString()

            txtTotalParts.Text = rdrRepairOrder.GetSqlDecimal(42).ToString()
            txtTotalLabor.Text = rdrRepairOrder.GetSqlDecimal(43).ToString()
            txtTaxRate.Text = rdrRepairOrder.GetSqlDecimal(44).ToString()
            txtTaxAmount.Text = rdrRepairOrder.GetSqlDecimal(45).ToString()
            txtTotalOrder.Text = rdrRepairOrder.GetSqlDecimal(46).ToString()

            txtRecommendations.Text = rdrRepairOrder.GetString(47)
        End While

        rdrRepairOrder.Close()
        conDatabase.Close()
End Sub
  24. Execute the application
  25. In the bottom receipt number text box, type 1 and click Open
  26. Close the form and return to your programming environment
 
Home Copyright © 2005-2012 FunctionX