dg.vb

一个功能强大的学生公寓管理系统 界面非常友好 十分强大

        Public Property 免费水量 As Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.免费水量Column),Integer)
                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
            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 Decimal
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.水电费合记Column),Decimal)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.水费超支Column),Integer)
                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 Decimal
            Get
                Try 
                    Return CType(Me(Me.table水电费管理._水价_元_立方_Column),Decimal)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.月初电表值Column),Integer)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.月初水表值Column),Integer)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.月底电表值Column),Integer)
                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 Integer
            Get
                Try 
                    Return CType(Me(Me.table水电费管理.月底水表值Column),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table水电费管理.月底水表值Column) = value
            End Set
        End Property
        
        Public Function Is电费超支Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.电费超支Column)
        End Function
        
        Public Sub Set电费超支Null()
            Me(Me.table水电费管理.电费超支Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is_电价_元_度_Null() As Boolean
            Return Me.IsNull(Me.table水电费管理._电价_元_度_Column)
        End Function
        
        Public Sub Set_电价_元_度_Null()
            Me(Me.table水电费管理._电价_元_度_Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is免费电量Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.免费电量Column)
        End Function
        
        Public Sub Set免费电量Null()
            Me(Me.table水电费管理.免费电量Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is免费水量Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.免费水量Column)
        End Function
        
        Public Sub Set免费水量Null()
            Me(Me.table水电费管理.免费水量Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否交费Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.是否交费Column)
        End Function
        
        Public Sub Set是否交费Null()
            Me(Me.table水电费管理.是否交费Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is水电费合记Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.水电费合记Column)
        End Function
        
        Public Sub Set水电费合记Null()
            Me(Me.table水电费管理.水电费合记Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is水费超支Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.水费超支Column)
        End Function
        
        Public Sub Set水费超支Null()
            Me(Me.table水电费管理.水费超支Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is_水价_元_立方_Null() As Boolean
            Return Me.IsNull(Me.table水电费管理._水价_元_立方_Column)
        End Function
        
        Public Sub Set_水价_元_立方_Null()
            Me(Me.table水电费管理._水价_元_立方_Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is月初电表值Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.月初电表值Column)
        End Function
        
        Public Sub Set月初电表值Null()
            Me(Me.table水电费管理.月初电表值Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is月初水表值Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.月初水表值Column)
        End Function
        
        Public Sub Set月初水表值Null()
            Me(Me.table水电费管理.月初水表值Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is月底电表值Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.月底电表值Column)
        End Function
        
        Public Sub Set月底电表值Null()
            Me(Me.table水电费管理.月底电表值Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is月底水表值Null() As Boolean
            Return Me.IsNull(Me.table水电费管理.月底水表值Column)
        End Function
        
        Public Sub Set月底水表值Null()
            Me(Me.table水电费管理.月底水表值Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 水电费管理RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 水电费管理Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 水电费管理Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 水电费管理Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class