dailydataset.designer.vb

windows mobile下的一个东西

            Dim rowLook_ConfigRow As Look_ConfigRow = CType(Me.NewRow,Look_ConfigRow)
            rowLook_ConfigRow.ItemArray = New Object() {Font, F_Size, Backcolor}
            Me.Rows.Add(rowLook_ConfigRow)
            Return rowLook_ConfigRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overrides Function Clone() As System.Data.DataTable
            Dim cln As Look_ConfigDataTable = CType(MyBase.Clone,Look_ConfigDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New Look_ConfigDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnFont = MyBase.Columns("Font")
            Me.columnF_Size = MyBase.Columns("F_Size")
            Me.columnBackcolor = MyBase.Columns("Backcolor")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnFont = New System.Data.DataColumn("Font", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnFont)
            Me.columnF_Size = New System.Data.DataColumn("F_Size", GetType(Short), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnF_Size)
            Me.columnBackcolor = New System.Data.DataColumn("Backcolor", GetType(Double), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnBackcolor)
            Me.columnFont.MaxLength = 4
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function NewLook_ConfigRow() As Look_ConfigRow
            Return CType(Me.NewRow,Look_ConfigRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New Look_ConfigRow(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(Look_ConfigRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.Look_ConfigRowChangedEvent) Is Nothing) Then
                RaiseEvent Look_ConfigRowChanged(Me, New Look_ConfigRowChangeEvent(CType(e.Row,Look_ConfigRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanging(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.Look_ConfigRowChangingEvent) Is Nothing) Then
                RaiseEvent Look_ConfigRowChanging(Me, New Look_ConfigRowChangeEvent(CType(e.Row,Look_ConfigRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleted(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.Look_ConfigRowDeletedEvent) Is Nothing) Then
                RaiseEvent Look_ConfigRowDeleted(Me, New Look_ConfigRowChangeEvent(CType(e.Row,Look_ConfigRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowDeleting(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.Look_ConfigRowDeletingEvent) Is Nothing) Then
                RaiseEvent Look_ConfigRowDeleting(Me, New Look_ConfigRowChangeEvent(CType(e.Row,Look_ConfigRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub RemoveLook_ConfigRow(ByVal row As Look_ConfigRow)
            Me.Rows.Remove(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Shared Function GetTypedTableSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
            Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
            Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
            Dim ds As dailyDataSet = New dailyDataSet
            xs.Add(ds.GetSchemaSerializable)
            Dim any1 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
            any1.MinOccurs = New Decimal(0)
            any1.MaxOccurs = Decimal.MaxValue
            any1.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any1)
            Dim any2 As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
            any2.MinOccurs = New Decimal(1)
            any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
            sequence.Items.Add(any2)
            Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute1.Name = "namespace"
            attribute1.FixedValue = ds.Namespace
            type.Attributes.Add(attribute1)
            Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
            attribute2.Name = "tableTypeName"
            attribute2.FixedValue = "Look_ConfigDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    Partial Public Class DailyRow
        Inherits System.Data.DataRow
        
        Private tableDaily As DailyDataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.tableDaily = CType(Me.Table,DailyDataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property W_year() As Integer
            Get
                Return CType(Me(Me.tableDaily.W_yearColumn),Integer)
            End Get
            Set
                Me(Me.tableDaily.W_yearColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property W_month() As Integer
            Get
                Return CType(Me(Me.tableDaily.W_monthColumn),Integer)
            End Get
            Set
                Me(Me.tableDaily.W_monthColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property w_day() As Integer
            Get
                Return CType(Me(Me.tableDaily.w_dayColumn),Integer)
            End Get
            Set
                Me(Me.tableDaily.w_dayColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property Weather() As String
            Get
                Try 
                    Return CType(Me(Me.tableDaily.WeatherColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““Daily””中列““Weather””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableDaily.WeatherColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property R_time() As Date
            Get
                Try 
                    Return CType(Me(Me.tableDaily.R_timeColumn),Date)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““Daily””中列““R_time””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableDaily.R_timeColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property M_daily() As String
            Get
                Try 
                    Return CType(Me(Me.tableDaily.M_dailyColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““Daily””中列““M_daily””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableDaily.M_dailyColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property M_ID() As Integer
            Get
                Return CType(Me(Me.tableDaily.M_IDColumn),Integer)
            End Get
            Set
                Me(Me.tableDaily.M_IDColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property M_mood() As String
            Get
                Try 
                    Return CType(Me(Me.tableDaily.M_moodColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““Daily””中列““M_mood””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableDaily.M_moodColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function IsWeatherNull() As Boolean
            Return Me.IsNull(Me.tableDaily.WeatherColumn)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub SetWeatherNull()
            Me(Me.tableDaily.WeatherColumn) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function IsR_timeNull() As Boolean
            Return Me.IsNull(Me.tableDaily.R_timeColumn)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub SetR_timeNull()
            Me(Me.tableDaily.R_timeColumn) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function IsM_dailyNull() As Boolean
            Return Me.IsNull(Me.tableDaily.M_dailyColumn)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub SetM_dailyNull()
            Me(Me.tableDaily.M_dailyColumn) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function IsM_moodNull() As Boolean
            Return Me.IsNull(Me.tableDaily.M_moodColumn)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub SetM_moodNull()
            Me(Me.tableDaily.M_moodColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    Partial Public Class Look_ConfigRow
        Inherits System.Data.DataRow
        
        Private tableLook_Config As Look_ConfigDataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.tableLook_Config = CType(Me.Table,Look_ConfigDataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property Font() As String
            Get
                Try 
                    Return CType(Me(Me.tableLook_Config.FontColumn),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““Look_Config””中列““Font””的值为 DBNull。", e)