merestonedataset.vb

界桩信息管理系统代码,VB写的。。。。。。。

            End Get
        End Property
        
        Friend ReadOnly Property qtColumn As DataColumn
            Get
                Return Me.columnqt
            End Get
        End Property
        
        Friend ReadOnly Property bzColumn As DataColumn
            Get
                Return Me.columnbz
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As MereStoneRow
            Get
                Return CType(Me.Rows(index),MereStoneRow)
            End Get
        End Property
        
        Public Event MereStoneRowChanged As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowChanging As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowDeleted As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowDeleting As MereStoneRowChangeEventHandler
        
        Public Overloads Sub AddMereStoneRow(ByVal row As MereStoneRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function AddMereStoneRow( _
                    ByVal jzmc As String,  _
                    ByVal jzbh As String,  _
                    ByVal lx As String,  _
                    ByVal cz As String,  _
                    ByVal bw As String,  _
                    ByVal dj As String,  _
                    ByVal jzzfww_jl1 As String,  _
                    ByVal jzzfww_cfwj1 As String,  _
                    ByVal jzzwww_mc1 As String,  _
                    ByVal jzzfww_jl2 As String,  _
                    ByVal jzzfww_cfwj2 As String,  _
                    ByVal jzzwww_mc2 As String,  _
                    ByVal jzzfww_jl3 As String,  _
                    ByVal jzzfww_cfwj3 As String,  _
                    ByVal jzzwww_mc3 As String,  _
                    ByVal sm As String,  _
                    ByVal qt As String,  _
                    ByVal bz As String) As MereStoneRow
            Dim rowMereStoneRow As MereStoneRow = CType(Me.NewRow,MereStoneRow)
            rowMereStoneRow.ItemArray = New Object() {Nothing, jzmc, jzbh, lx, cz, bw, dj, jzzfww_jl1, jzzfww_cfwj1, jzzwww_mc1, jzzfww_jl2, jzzfww_cfwj2, jzzwww_mc2, jzzfww_jl3, jzzfww_cfwj3, jzzwww_mc3, sm, qt, bz}
            Me.Rows.Add(rowMereStoneRow)
            Return rowMereStoneRow
        End Function
        
        Public Function FindByMAPINFO_ID(ByVal MAPINFO_ID As Integer) As MereStoneRow
            Return CType(Me.Rows.Find(New Object() {MAPINFO_ID}),MereStoneRow)
        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 MereStoneDataTable = CType(MyBase.Clone,MereStoneDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New MereStoneDataTable
        End Function
        
        Friend Sub InitVars()
            Me.columnMAPINFO_ID = Me.Columns("MAPINFO_ID")
            Me.columnjzmc = Me.Columns("jzmc")
            Me.columnjzbh = Me.Columns("jzbh")
            Me.columnlx = Me.Columns("lx")
            Me.columncz = Me.Columns("cz")
            Me.columnbw = Me.Columns("bw")
            Me.columndj = Me.Columns("dj")
            Me.columnjzzfww_jl1 = Me.Columns("jzzfww_jl1")
            Me.columnjzzfww_cfwj1 = Me.Columns("jzzfww_cfwj1")
            Me.columnjzzwww_mc1 = Me.Columns("jzzwww_mc1")
            Me.columnjzzfww_jl2 = Me.Columns("jzzfww_jl2")
            Me.columnjzzfww_cfwj2 = Me.Columns("jzzfww_cfwj2")
            Me.columnjzzwww_mc2 = Me.Columns("jzzwww_mc2")
            Me.columnjzzfww_jl3 = Me.Columns("jzzfww_jl3")
            Me.columnjzzfww_cfwj3 = Me.Columns("jzzfww_cfwj3")
            Me.columnjzzwww_mc3 = Me.Columns("jzzwww_mc3")
            Me.columnsm = Me.Columns("sm")
            Me.columnqt = Me.Columns("qt")
            Me.columnbz = Me.Columns("bz")
        End Sub
        
        Private Sub InitClass()
            Me.columnMAPINFO_ID = New DataColumn("MAPINFO_ID", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnMAPINFO_ID)
            Me.columnjzmc = New DataColumn("jzmc", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzmc)
            Me.columnjzbh = New DataColumn("jzbh", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzbh)
            Me.columnlx = New DataColumn("lx", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnlx)
            Me.columncz = New DataColumn("cz", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columncz)
            Me.columnbw = New DataColumn("bw", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnbw)
            Me.columndj = New DataColumn("dj", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columndj)
            Me.columnjzzfww_jl1 = New DataColumn("jzzfww_jl1", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_jl1)
            Me.columnjzzfww_cfwj1 = New DataColumn("jzzfww_cfwj1", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_cfwj1)
            Me.columnjzzwww_mc1 = New DataColumn("jzzwww_mc1", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzwww_mc1)
            Me.columnjzzfww_jl2 = New DataColumn("jzzfww_jl2", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_jl2)
            Me.columnjzzfww_cfwj2 = New DataColumn("jzzfww_cfwj2", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_cfwj2)
            Me.columnjzzwww_mc2 = New DataColumn("jzzwww_mc2", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzwww_mc2)
            Me.columnjzzfww_jl3 = New DataColumn("jzzfww_jl3", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_jl3)
            Me.columnjzzfww_cfwj3 = New DataColumn("jzzfww_cfwj3", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzfww_cfwj3)
            Me.columnjzzwww_mc3 = New DataColumn("jzzwww_mc3", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnjzzwww_mc3)
            Me.columnsm = New DataColumn("sm", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnsm)
            Me.columnqt = New DataColumn("qt", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnqt)
            Me.columnbz = New DataColumn("bz", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.columnbz)
            Me.Constraints.Add(New UniqueConstraint("MereStoneDataSetKey1", New DataColumn() {Me.columnMAPINFO_ID}, true))
            Me.columnMAPINFO_ID.AutoIncrement = true
            Me.columnMAPINFO_ID.AllowDBNull = false
            Me.columnMAPINFO_ID.Unique = true
        End Sub
        
        Public Function NewMereStoneRow() As MereStoneRow
            Return CType(Me.NewRow,MereStoneRow)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New MereStoneRow(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(MereStoneRow)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.MereStoneRowChangedEvent) Is Nothing) Then
                RaiseEvent MereStoneRowChanged(Me, New MereStoneRowChangeEvent(CType(e.Row,MereStoneRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.MereStoneRowChangingEvent) Is Nothing) Then
                RaiseEvent MereStoneRowChanging(Me, New MereStoneRowChangeEvent(CType(e.Row,MereStoneRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.MereStoneRowDeletedEvent) Is Nothing) Then
                RaiseEvent MereStoneRowDeleted(Me, New MereStoneRowChangeEvent(CType(e.Row,MereStoneRow), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.MereStoneRowDeletingEvent) Is Nothing) Then
                RaiseEvent MereStoneRowDeleting(Me, New MereStoneRowChangeEvent(CType(e.Row,MereStoneRow), e.Action))
            End If
        End Sub
        
        Public Sub RemoveMereStoneRow(ByVal row As MereStoneRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class MereStoneRow
        Inherits DataRow
        
        Private tableMereStone As MereStoneDataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableMereStone = CType(Me.Table,MereStoneDataTable)
        End Sub
        
        Public Property MAPINFO_ID As Integer
            Get
                Return CType(Me(Me.tableMereStone.MAPINFO_IDColumn),Integer)
            End Get
            Set
                Me(Me.tableMereStone.MAPINFO_IDColumn) = value
            End Set
        End Property
        
        Public Property jzmc As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzmcColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzmcColumn) = value
            End Set
        End Property
        
        Public Property jzbh As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzbhColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzbhColumn) = value
            End Set
        End Property
        
        Public Property lx As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.lxColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.lxColumn) = value
            End Set
        End Property
        
        Public Property cz As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.czColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.czColumn) = value
            End Set
        End Property
        
        Public Property bw As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.bwColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.bwColumn) = value
            End Set
        End Property
        
        Public Property dj As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.djColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.djColumn) = value
            End Set
        End Property
        
        Public Property jzzfww_jl1 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_jl1Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_jl1Column) = value
            End Set
        End Property
        
        Public Property jzzfww_cfwj1 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_cfwj1Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set