dataset1.vb

数据库课程设计。

            Get
                Return Me.column订购单价
            End Get
        End Property
        
        Friend ReadOnly Property 订购日期Column As DataColumn
            Get
                Return Me.column订购日期
            End Get
        End Property
        
        Friend ReadOnly Property 订购者联系方式Column As DataColumn
            Get
                Return Me.column订购者联系方式
            End Get
        End Property
        
        Friend ReadOnly Property 操作员Column As DataColumn
            Get
                Return Me.column操作员
            End Get
        End Property
        
        Friend ReadOnly Property 是否验收Column As DataColumn
            Get
                Return Me.column是否验收
            End Get
        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 图书征订Row
            Get
                Return CType(Me.Rows(index),图书征订Row)
            End Get
        End Property
        
        Public Event 图书征订RowChanged As 图书征订RowChangeEventHandler
        
        Public Event 图书征订RowChanging As 图书征订RowChangeEventHandler
        
        Public Event 图书征订RowDeleted As 图书征订RowChangeEventHandler
        
        Public Event 图书征订RowDeleting As 图书征订RowChangeEventHandler
        
        Public Overloads Sub Add图书征订Row(ByVal row As 图书征订Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add图书征订Row(ByVal 征订编号 As String, ByVal 图书编号 As String, ByVal 订购者 As String, ByVal 订购数量 As Integer, ByVal 订购单价 As Decimal, ByVal 订购日期 As Date, ByVal 订购者联系方式 As String, ByVal 操作员 As String, ByVal 是否验收 As Boolean, ByVal 验收日期 As Date) As 图书征订Row
            Dim row图书征订Row As 图书征订Row = CType(Me.NewRow,图书征订Row)
            row图书征订Row.ItemArray = New Object() {征订编号, 图书编号, 订购者, 订购数量, 订购单价, 订购日期, 订购者联系方式, 操作员, 是否验收, 验收日期}
            Me.Rows.Add(row图书征订Row)
            Return row图书征订Row
        End Function
        
        Public Function FindBy征订编号(ByVal 征订编号 As String) As 图书征订Row
            Return CType(Me.Rows.Find(New Object() {征订编号}),图书征订Row)
        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 图书征订DataTable = CType(MyBase.Clone,图书征订DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 图书征订DataTable
        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("订购单价")
            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.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.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column订购数量)
            Me.column订购单价 = New DataColumn("订购单价", GetType(System.Decimal), 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.Boolean), 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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column征订编号}, true))
            Me.column征订编号.AllowDBNull = false
            Me.column征订编号.Unique = true
            Me.column图书编号.AllowDBNull = false
        End Sub
        
        Public Function New图书征订Row() As 图书征订Row
            Return CType(Me.NewRow,图书征订Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 图书征订Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(图书征订Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.图书征订RowChangedEvent) Is Nothing) Then
                RaiseEvent 图书征订RowChanged(Me, New 图书征订RowChangeEvent(CType(e.Row,图书征订Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.图书征订RowChangingEvent) Is Nothing) Then
                RaiseEvent 图书征订RowChanging(Me, New 图书征订RowChangeEvent(CType(e.Row,图书征订Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.图书征订RowDeletedEvent) Is Nothing) Then
                RaiseEvent 图书征订RowDeleted(Me, New 图书征订RowChangeEvent(CType(e.Row,图书征订Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.图书征订RowDeletingEvent) Is Nothing) Then
                RaiseEvent 图书征订RowDeleting(Me, New 图书征订RowChangeEvent(CType(e.Row,图书征订Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove图书征订Row(ByVal row As 图书征订Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 图书征订Row
        Inherits DataRow
        
        Private table图书征订 As 图书征订DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table图书征订 = CType(Me.Table,图书征订DataTable)
        End Sub
        
        Public Property 征订编号 As String
            Get
                Return CType(Me(Me.table图书征订.征订编号Column),String)
            End Get
            Set
                Me(Me.table图书征订.征订编号Column) = value
            End Set
        End Property
        
        Public Property 图书编号 As String
            Get
                Return CType(Me(Me.table图书征订.图书编号Column),String)
            End Get
            Set
                Me(Me.table图书征订.图书编号Column) = value
            End Set
        End Property
        
        Public Property 订购者 As String
            Get
                Try 
                    Return CType(Me(Me.table图书征订.订购者Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.订购者Column) = value
            End Set
        End Property
        
        Public Property 订购数量 As Integer
            Get
                Try 
                    Return CType(Me(Me.table图书征订.订购数量Column),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.订购数量Column) = value
            End Set
        End Property
        
        Public Property 订购单价 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table图书征订.订购单价Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.订购单价Column) = value
            End Set
        End Property
        
        Public Property 订购日期 As Date
            Get
                Try 
                    Return CType(Me(Me.table图书征订.订购日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.订购日期Column) = value
            End Set
        End Property
        
        Public Property 订购者联系方式 As String
            Get
                Try 
                    Return CType(Me(Me.table图书征订.订购者联系方式Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.订购者联系方式Column) = value
            End Set
        End Property
        
        Public Property 操作员 As String
            Get
                Try 
                    Return CType(Me(Me.table图书征订.操作员Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.操作员Column) = value
            End Set
        End Property
        
        Public Property 是否验收 As Boolean
            Get
                Try 
                    Return CType(Me(Me.table图书征订.是否验收Column),Boolean)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.是否验收Column) = value
            End Set
        End Property
        
        Public Property 验收日期 As Date
            Get
                Try 
                    Return CType(Me(Me.table图书征订.验收日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table图书征订.验收日期Column) = value
            End Set
        End Property
        
        Public Function Is订购者Null() As Boolean
            Return Me.IsNull(Me.table图书征订.订购者Column)
        End Function
        
        Public Sub Set订购者Null()
            Me(Me.table图书征订.订购者Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is订购数量Null() As Boolean
            Return Me.IsNull(Me.table图书征订.订购数量Column)
        End Function
        
        Public Sub Set订购数量Null()
            Me(Me.table图书征订.订购数量Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is订购单价Null() As Boolean
            Retu