dataset1.vb

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

            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
        
        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
        
        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
        
        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) As 系统参数表Row
            Dim row系统参数表Row As 系统参数表Row = CType(Me.NewRow,系统参数表Row)
            row系统参数表Row.ItemArray = New Object() {Nothing, 参数名称, 取值}
            Me.Rows.Add(row系统参数表Row)
            Return row系统参数表Row
        End Function
        
        Public Function FindBy编号(ByVal 编号 As Integer) 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("取值")
        End Sub
        
        Private Sub InitClass()
            Me.column编号 = New DataColumn("编号", GetType(System.Int32), 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.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column编号}, true))
            Me.column编号.AutoIncrement = true
            Me.column编号.AllowDBNull = false
            Me.column编号.ReadOnly = true
            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 Integer
            Get
                Return CType(Me(Me.table系统参数表.编号Column),Integer)
            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 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
        
        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