dataset1.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 科目表Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 科目表Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 帐簿初始化表DataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column科目代码 As DataColumn
        
        Private column科目名称 As DataColumn
        
        Private column余额方向 As DataColumn
        
        Private column累计借方 As DataColumn
        
        Private column累计贷方 As DataColumn
        
        Private column期初余额 As DataColumn
        
        Friend Sub New()
            MyBase.New("帐簿初始化表")
            Me.InitClass
        End Sub
        
        Friend Sub New(ByVal table As DataTable)
            MyBase.New(table.TableName)
            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                Me.CaseSensitive = table.CaseSensitive
            End If
            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                Me.Locale = table.Locale
            End If
            If (table.Namespace <> table.DataSet.Namespace) Then
                Me.Namespace = table.Namespace
            End If
            Me.Prefix = table.Prefix
            Me.MinimumCapacity = table.MinimumCapacity
            Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            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
        
        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 Decimal, ByVal 累计贷方 As Decimal, ByVal 期初余额 As Decimal) 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("期初余额")
        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.Decimal), 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.Decimal), 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
        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
                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 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 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 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 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()