dataset3.vb

本系统是航空公司的查询系统 所用的代码是ASP希望大家给点意见

        End Property
        
        Friend ReadOnly Property 乘客状态Column As DataColumn
            Get
                Return Me.column乘客状态
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As PassengersRow
            Get
                Return CType(Me.Rows(index),PassengersRow)
            End Get
        End Property
        
        Public Event PassengersRowChanged As PassengersRowChangeEventHandler
        
        Public Event PassengersRowChanging As PassengersRowChangeEventHandler
        
        Public Event PassengersRowDeleted As PassengersRowChangeEventHandler
        
        Public Event PassengersRowDeleting As PassengersRowChangeEventHandler
        
        Public Overloads Sub AddPassengersRow(ByVal row As PassengersRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddPassengersRow(ByVal 航班号 As String, ByVal 飞行日期 As Date, ByVal 乘客的姓 As String, ByVal 乘客的名 As String, ByVal 乘客状态 As String) As PassengersRow
            Dim rowPassengersRow As PassengersRow = CType(Me.NewRow,PassengersRow)
            rowPassengersRow.ItemArray = New Object() {航班号, 飞行日期, 乘客的姓, 乘客的名, 乘客状态}
            Me.Rows.Add(rowPassengersRow)
            Return rowPassengersRow
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As PassengersDataTable = CType(MyBase.Clone,PassengersDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New PassengersDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column航班号 = Me.Columns("航班号")
            Me.column飞行日期 = Me.Columns("飞行日期")
            Me.column乘客的姓 = Me.Columns("乘客的姓")
            Me.column乘客的名 = Me.Columns("乘客的名")
            Me.column乘客状态 = Me.Columns("乘客状态")
        End Sub
        
        Private Sub InitClass()
            Me.column航班号 = New DataColumn("航班号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column航班号)
            Me.column飞行日期 = New DataColumn("飞行日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column飞行日期)
            Me.column乘客的姓 = New DataColumn("乘客的姓", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column乘客的姓)
            Me.column乘客的名 = New DataColumn("乘客的名", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column乘客的名)
            Me.column乘客状态 = New DataColumn("乘客状态", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column乘客状态)
            Me.column航班号.AllowDBNull = false
            Me.column飞行日期.AllowDBNull = false
            Me.column乘客的姓.AllowDBNull = false
            Me.column乘客的名.AllowDBNull = false
            Me.column乘客状态.AllowDBNull = false
        End Sub
        
        Public Function NewPassengersRow() As PassengersRow
            Return CType(Me.NewRow,PassengersRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New PassengersRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(PassengersRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.PassengersRowChangedEvent) Is Nothing) Then
                RaiseEvent PassengersRowChanged(Me, New PassengersRowChangeEvent(CType(e.Row,PassengersRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.PassengersRowChangingEvent) Is Nothing) Then
                RaiseEvent PassengersRowChanging(Me, New PassengersRowChangeEvent(CType(e.Row,PassengersRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.PassengersRowDeletedEvent) Is Nothing) Then
                RaiseEvent PassengersRowDeleted(Me, New PassengersRowChangeEvent(CType(e.Row,PassengersRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.PassengersRowDeletingEvent) Is Nothing) Then
                RaiseEvent PassengersRowDeleting(Me, New PassengersRowChangeEvent(CType(e.Row,PassengersRow), e.Action))
            End If
        End Sub
        
        Public Sub RemovePassengersRow(ByVal row As PassengersRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class PassengersRow
        Inherits DataRow
        
        Private tablePassengers As PassengersDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tablePassengers = CType(Me.Table,PassengersDataTable)
        End Sub
        
        Public Property 航班号 As String
            Get
                Return CType(Me(Me.tablePassengers.航班号Column),String)
            End Get
            Set
                Me(Me.tablePassengers.航班号Column) = value
            End Set
        End Property
        
        Public Property 飞行日期 As Date
            Get
                Return CType(Me(Me.tablePassengers.飞行日期Column),Date)
            End Get
            Set
                Me(Me.tablePassengers.飞行日期Column) = value
            End Set
        End Property
        
        Public Property 乘客的姓 As String
            Get
                Return CType(Me(Me.tablePassengers.乘客的姓Column),String)
            End Get
            Set
                Me(Me.tablePassengers.乘客的姓Column) = value
            End Set
        End Property
        
        Public Property 乘客的名 As String
            Get
                Return CType(Me(Me.tablePassengers.乘客的名Column),String)
            End Get
            Set
                Me(Me.tablePassengers.乘客的名Column) = value
            End Set
        End Property
        
        Public Property 乘客状态 As String
            Get
                Return CType(Me(Me.tablePassengers.乘客状态Column),String)
            End Get
            Set
                Me(Me.tablePassengers.乘客状态Column) = value
            End Set
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class PassengersRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As PassengersRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As PassengersRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As PassengersRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class