merestonedataset.designer.vb

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

            Me.columnMAPINFO_ID.AllowDBNull = false
            Me.columnMAPINFO_ID.Unique = true
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewMereStoneRow() As MereStoneRow
            Return CType(Me.NewRow,MereStoneRow)
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
            Return New MereStoneRow(builder)
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As Global.System.Type
            Return GetType(MereStoneRow)
        End Function
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.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
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.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
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.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
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.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
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub RemoveMereStoneRow(ByVal row As MereStoneRow)
            Me.Rows.Remove(row)
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
            Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence
            Dim ds As MereStoneDataSet = New MereStoneDataSet
            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "MereStoneDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
            If xs.Contains(dsSchema.TargetNamespace) Then
                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream
                Try 
                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
                    dsSchema.Write(s1)
                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
                    Do While schemas.MoveNext
                        schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
                        s2.SetLength(0)
                        schema.Write(s2)
                        If (s1.Length = s2.Length) Then
                            s1.Position = 0
                            s2.Position = 0
                            
                            Do While ((s1.Position <> s1.Length)  _
                                        AndAlso (s1.ReadByte = s2.ReadByte))
                                
                                
                            Loop
                            If (s1.Position = s1.Length) Then
                                Return type
                            End If
                        End If
                        
                    Loop
                Finally
                    If (Not (s1) Is Nothing) Then
                        s1.Close
                    End If
                    If (Not (s2) Is Nothing) Then
                        s2.Close
                    End If
                End Try
            End If
            xs.Add(dsSchema)
            Return type
        End Function
    End Class
    
    '''<summary>
    '''Represents strongly named DataRow class.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Partial Public Class MereStoneRow
        Inherits Global.System.Data.DataRow
        
        Private tableMereStone As MereStoneDataTable
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.tableMereStone = CType(Me.Table,MereStoneDataTable)
        End Sub
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        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
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzmc() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzmcColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzmc””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzmcColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzbh() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzbhColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzbh””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzbhColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property lx() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.lxColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““lx””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.lxColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property cz() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.czColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““cz””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.czColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property bw() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.bwColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““bw””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.bwColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property dj() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.djColumn),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““dj””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.djColumn) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzfww_jl1() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_jl1Column),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzzfww_jl1””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_jl1Column) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzfww_cfwj1() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_cfwj1Column),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzzfww_cfwj1””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_cfwj1Column) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzwww_mc1() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzwww_mc1Column),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzzwww_mc1””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzwww_mc1Column) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzfww_jl2() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_jl2Column),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzzfww_jl2””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_jl2Column) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzfww_cfwj2() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_cfwj2Column),String)
                Catch e As Global.System.InvalidCastException
                    Throw New Global.System.Data.StrongTypingException("表““MereStone””中列““jzzfww_cfwj2””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_cfwj2Column) = value
            End Set
        End Property
        
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property jzzwww_mc2() As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzwww_mc2Column),String)
                Catch e As Global.System.InvalidCastException