merestonedataset.designer.vb

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

        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "MereStone"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As Global.System.Data.DataTable)
            MyBase.New
            Me.TableName = 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
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property MAPINFO_IDColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnMAPINFO_ID
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzmcColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzmc
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzbhColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzbh
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property lxColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnlx
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property czColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columncz
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property bwColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnbw
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property djColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columndj
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_jl1Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_jl1
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_cfwj1Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_cfwj1
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzwww_mc1Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzwww_mc1
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_jl2Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_jl2
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_cfwj2Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_cfwj2
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzwww_mc2Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzwww_mc2
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_jl3Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_jl3
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzfww_cfwj3Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzfww_cfwj3
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property jzzwww_mc3Column() As Global.System.Data.DataColumn
            Get
                Return Me.columnjzzwww_mc3
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property smColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnsm
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property qtColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnqt
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property bzColumn() As Global.System.Data.DataColumn
            Get
                Return Me.columnbz
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count() As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As MereStoneRow
            Get
                Return CType(Me.Rows(index),MereStoneRow)
            End Get
        End Property
        
        Public Event MereStoneRowChanging As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowChanged As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowDeleting As MereStoneRowChangeEventHandler
        
        Public Event MereStoneRowDeleted As MereStoneRowChangeEventHandler
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub AddMereStoneRow(ByVal row As MereStoneRow)
            Me.Rows.Add(row)
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        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)
            Dim columnValuesArray() As Object = 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}
            rowMereStoneRow.ItemArray = columnValuesArray
            Me.Rows.Add(rowMereStoneRow)
            Return rowMereStoneRow
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByMAPINFO_ID(ByVal MAPINFO_ID As Integer) As MereStoneRow
            Return CType(Me.Rows.Find(New Object() {MAPINFO_ID}),MereStoneRow)
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As Global.System.Collections.IEnumerator Implements Global.System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As Global.System.Data.DataTable
            Dim cln As MereStoneDataTable = CType(MyBase.Clone,MereStoneDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
            Return New MereStoneDataTable
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnMAPINFO_ID = MyBase.Columns("MAPINFO_ID")
            Me.columnjzmc = MyBase.Columns("jzmc")
            Me.columnjzbh = MyBase.Columns("jzbh")
            Me.columnlx = MyBase.Columns("lx")
            Me.columncz = MyBase.Columns("cz")
            Me.columnbw = MyBase.Columns("bw")
            Me.columndj = MyBase.Columns("dj")
            Me.columnjzzfww_jl1 = MyBase.Columns("jzzfww_jl1")
            Me.columnjzzfww_cfwj1 = MyBase.Columns("jzzfww_cfwj1")
            Me.columnjzzwww_mc1 = MyBase.Columns("jzzwww_mc1")
            Me.columnjzzfww_jl2 = MyBase.Columns("jzzfww_jl2")
            Me.columnjzzfww_cfwj2 = MyBase.Columns("jzzfww_cfwj2")
            Me.columnjzzwww_mc2 = MyBase.Columns("jzzwww_mc2")
            Me.columnjzzfww_jl3 = MyBase.Columns("jzzfww_jl3")
            Me.columnjzzfww_cfwj3 = MyBase.Columns("jzzfww_cfwj3")
            Me.columnjzzwww_mc3 = MyBase.Columns("jzzwww_mc3")
            Me.columnsm = MyBase.Columns("sm")
            Me.columnqt = MyBase.Columns("qt")
            Me.columnbz = MyBase.Columns("bz")
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnMAPINFO_ID = New Global.System.Data.DataColumn("MAPINFO_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnMAPINFO_ID)
            Me.columnjzmc = New Global.System.Data.DataColumn("jzmc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzmc)
            Me.columnjzbh = New Global.System.Data.DataColumn("jzbh", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzbh)
            Me.columnlx = New Global.System.Data.DataColumn("lx", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnlx)
            Me.columncz = New Global.System.Data.DataColumn("cz", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columncz)
            Me.columnbw = New Global.System.Data.DataColumn("bw", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnbw)
            Me.columndj = New Global.System.Data.DataColumn("dj", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columndj)
            Me.columnjzzfww_jl1 = New Global.System.Data.DataColumn("jzzfww_jl1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_jl1)
            Me.columnjzzfww_cfwj1 = New Global.System.Data.DataColumn("jzzfww_cfwj1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_cfwj1)
            Me.columnjzzwww_mc1 = New Global.System.Data.DataColumn("jzzwww_mc1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzwww_mc1)
            Me.columnjzzfww_jl2 = New Global.System.Data.DataColumn("jzzfww_jl2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_jl2)
            Me.columnjzzfww_cfwj2 = New Global.System.Data.DataColumn("jzzfww_cfwj2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_cfwj2)
            Me.columnjzzwww_mc2 = New Global.System.Data.DataColumn("jzzwww_mc2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzwww_mc2)
            Me.columnjzzfww_jl3 = New Global.System.Data.DataColumn("jzzfww_jl3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_jl3)
            Me.columnjzzfww_cfwj3 = New Global.System.Data.DataColumn("jzzfww_cfwj3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzfww_cfwj3)
            Me.columnjzzwww_mc3 = New Global.System.Data.DataColumn("jzzwww_mc3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnjzzwww_mc3)
            Me.columnsm = New Global.System.Data.DataColumn("sm", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnsm)
            Me.columnqt = New Global.System.Data.DataColumn("qt", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnqt)
            Me.columnbz = New Global.System.Data.DataColumn("bz", GetType(String), Nothing, Global.System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnbz)
            Me.Constraints.Add(New Global.System.Data.UniqueConstraint("MereStoneDataSetKey1", New Global.System.Data.DataColumn() {Me.columnMAPINFO_ID}, true))
            Me.columnMAPINFO_ID.AutoIncrement = true