dataset1.vb

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

        Private column凭证编号 As DataColumn
        
        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
        
        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 Integer, ByVal 日期 As Date, ByVal 凭证字号 As String, ByVal 过账状态 As String, 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("借方合计")
            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.Int32), 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.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 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 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 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()
            Me(Me.ta