dataset1.vb

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

            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
        
        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, 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("开户银行")
            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.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
                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 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
                Return CType(Me(Me.table组织机构编码表.单位编号Column),String)
            End Get