dataset1.vb

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

        End If
    End Sub
    
    Public Delegate Sub 科目表RowChangeEventHandler(ByVal sender As Object, ByVal e As 科目表RowChangeEvent)
    
    Public Delegate Sub 帐簿初始化表RowChangeEventHandler(ByVal sender As Object, ByVal e As 帐簿初始化表RowChangeEvent)
    
    Public Delegate Sub 系统参数表RowChangeEventHandler(ByVal sender As Object, ByVal e As 系统参数表RowChangeEvent)
    
    Public Delegate Sub 凭证表RowChangeEventHandler(ByVal sender As Object, ByVal e As 凭证表RowChangeEvent)
    
    Public Delegate Sub 分录表RowChangeEventHandler(ByVal sender As Object, ByVal e As 分录表RowChangeEvent)
    
    Public Delegate Sub 本期汇总账簿RowChangeEventHandler(ByVal sender As Object, ByVal e As 本期汇总账簿RowChangeEvent)
    
    Public Delegate Sub 本期明细账簿RowChangeEventHandler(ByVal sender As Object, ByVal e As 本期明细账簿RowChangeEvent)
    
    Public Delegate Sub 资产负债表RowChangeEventHandler(ByVal sender As Object, ByVal e As 资产负债表RowChangeEvent)
    
    <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
        
        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
        
        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 String, ByVal 余额方向 As String) 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("余额方向")
        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.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.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 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 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
            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
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 科目表RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 科目表Row