validateddetailsview.aspx.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

Option Explicit On
Option Strict On
'Imports System.Data.SqlClient

Partial Class ValidatedDetailsView_aspx
    Inherits System.Web.UI.Page

    '*********************************
    'Orders DetailsView event handlers
    '*********************************

    Private Sub dvOrders_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrders.ItemCommand
        If e.CommandName = "New" Then
            gvOrderDetails.Visible = False
        Else
            gvOrderDetails.Visible = True
        End If
    End Sub

    Private Sub dvOrders_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dvOrders.PageIndexChanged
        'Hide error text box
        txtError.Visible = False
        gvOrderDetails.Visible = True
    End Sub

    '*************************************
    'Order Details GridView event handlers
    '**************************************

    Private Sub gvOrderDetails_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvOrderDetails.PageIndexChanged
        txtError.Visible = False
    End Sub

    Private Sub gvOrderDetails_RowUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdatedEventArgs) Handles gvOrderDetails.RowUpdated
        If e.Exception Is Nothing Then
            txtError.Visible = False
            gvOrderDetails.DataBind()
        Else
            txtError.Visible = True
            txtError.Text = "Error: " + Mid(e.Exception.Message, 1, e.Exception.Message.IndexOf("."))
            e.ExceptionHandled = True
        End If
    End Sub

    Private Sub gvOrderDetails_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvOrderDetails.SelectedIndexChanged
        txtError.Visible = False
    End Sub

    '****************************************
    'Order Details DetailsView event handlers
    '****************************************

    Private Sub dvOrderDetails_ItemDeleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeletedEventArgs) Handles dvOrderDetails.ItemDeleted
        'Refresh the OrderDetails GridView
        gvOrderDetails.DataBind()
    End Sub

    Private Sub dvOrderDetails_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles dvOrderDetails.ItemInserted
        'Refresh the OrderDetails GridView
        If e.Exception Is Nothing Then
            txtError.Visible = False
            gvOrderDetails.DataBind()
        Else
            txtError.Visible = True
            txtError.Text = "Error: " + Mid(e.Exception.Message, 1, e.Exception.Message.IndexOf("."))
            e.ExceptionHandled = True
        End If
    End Sub

    Private Sub dvOrderDetails_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles dvOrderDetails.ItemInserting
        'Overwrite empty or user-entered value (first value) 
        'with OrderID from the Orders DetailsView
        e.Values(0) = dvOrders.SelectedValue
    End Sub

    Private Sub dvOrderDetails_ItemUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdatedEventArgs) Handles dvOrderDetails.ItemUpdated
        If e.Exception Is Nothing Then
            txtError.Visible = False
            gvOrderDetails.DataBind()
        Else
            'Display first sentence of Exception.Message
            txtError.Visible = True
            txtError.Text = "Error: " + Mid(e.Exception.Message, 1, e.Exception.Message.IndexOf("."))
            e.ExceptionHandled = True
        End If
    End Sub

    Private Sub dvOrderDetails_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrderDetails.ItemCommand
        txtError.Visible = False
    End Sub

    Private Sub dvOrderDetails_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dvOrderDetails.PageIndexChanged
        txtError.Visible = False
    End Sub

    Sub cvProductID_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs)
        Dim intRow As Integer
        Dim lblTest As Label = Nothing
        args.IsValid = True
        'Test edited value for duplicate ProductID 
        With gvOrderDetails
            For intRow = 0 To .Rows.Count - 1
                lblTest = CType(.Rows(intRow).FindControl("lblProductID"), Label)
                If lblTest IsNot Nothing Then
                    If args.Value = lblTest.Text Then
                        args.IsValid = False
                        Exit For
                    End If
                End If
            Next
        End With
    End Sub
End Class