dataset1.designer.vb

人事管理系统（VB.NET2005+SQL Server2005）

        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As attendance_itemRow
            Get
                Return CType(Me.Rows(index),attendance_itemRow)
            End Get
        End Property
        
        Public Event attendance_itemRowChanging As attendance_itemRowChangeEventHandler
        
        Public Event attendance_itemRowChanged As attendance_itemRowChangeEventHandler
        
        Public Event attendance_itemRowDeleting As attendance_itemRowChangeEventHandler
        
        Public Event attendance_itemRowDeleted As attendance_itemRowChangeEventHandler
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Sub Addattendance_itemRow(ByVal row As attendance_itemRow)
            Me.Rows.Add(row)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Overloads Function Addattendance_itemRow(ByVal 项目名称 As String, ByVal 字段名 As String, ByVal 计时单位 As String, ByVal 备注 As String) As attendance_itemRow
            Dim rowattendance_itemRow As attendance_itemRow = CType(Me.NewRow,attendance_itemRow)
            rowattendance_itemRow.ItemArray = New Object() {Nothing, 项目名称, 字段名, 计时单位, 备注}
            Me.Rows.Add(rowattendance_itemRow)
            Return rowattendance_itemRow
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function FindByid(ByVal id As Integer) As attendance_itemRow
            Return CType(Me.Rows.Find(New Object() {id}),attendance_itemRow)
        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 attendance_itemDataTable = CType(MyBase.Clone,attendance_itemDataTable)
            cln.InitVars
            Return cln
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function CreateInstance() As System.Data.DataTable
            Return New attendance_itemDataTable
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub InitVars()
            Me.columnid = MyBase.Columns("id")
            Me.column项目名称 = MyBase.Columns("项目名称")
            Me.column字段名 = MyBase.Columns("字段名")
            Me.column计时单位 = MyBase.Columns("计时单位")
            Me.column备注 = MyBase.Columns("备注")
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Private Sub InitClass()
            Me.columnid = New System.Data.DataColumn("id", GetType(Integer), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.columnid)
            Me.column项目名称 = New System.Data.DataColumn("项目名称", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column项目名称)
            Me.column字段名 = New System.Data.DataColumn("字段名", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column字段名)
            Me.column计时单位 = New System.Data.DataColumn("计时单位", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column计时单位)
            Me.column备注 = New System.Data.DataColumn("备注", GetType(String), Nothing, System.Data.MappingType.Element)
            MyBase.Columns.Add(Me.column备注)
            Me.Constraints.Add(New System.Data.UniqueConstraint("Constraint1", New System.Data.DataColumn() {Me.columnid}, true))
            Me.columnid.AutoIncrement = true
            Me.columnid.AllowDBNull = false
            Me.columnid.ReadOnly = true
            Me.columnid.Unique = true
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Newattendance_itemRow() As attendance_itemRow
            Return CType(Me.NewRow,attendance_itemRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function NewRowFromBuilder(ByVal builder As System.Data.DataRowBuilder) As System.Data.DataRow
            Return New attendance_itemRow(builder)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(attendance_itemRow)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Overrides Sub OnRowChanged(ByVal e As System.Data.DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.attendance_itemRowChangedEvent) Is Nothing) Then
                RaiseEvent attendance_itemRowChanged(Me, New attendance_itemRowChangeEvent(CType(e.Row,attendance_itemRow), 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.attendance_itemRowChangingEvent) Is Nothing) Then
                RaiseEvent attendance_itemRowChanging(Me, New attendance_itemRowChangeEvent(CType(e.Row,attendance_itemRow), 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.attendance_itemRowDeletedEvent) Is Nothing) Then
                RaiseEvent attendance_itemRowDeleted(Me, New attendance_itemRowChangeEvent(CType(e.Row,attendance_itemRow), 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.attendance_itemRowDeletingEvent) Is Nothing) Then
                RaiseEvent attendance_itemRowDeleting(Me, New attendance_itemRowChangeEvent(CType(e.Row,attendance_itemRow), e.Action))
            End If
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Removeattendance_itemRow(ByVal row As attendance_itemRow)
            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 DataSet1 = New DataSet1
            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 = "attendance_itemDataTable"
            type.Attributes.Add(attribute2)
            type.Particle = sequence
            Return type
        End Function
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Partial Public Class attendance_itemRow
        Inherits System.Data.DataRow
        
        Private tableattendance_item As attendance_itemDataTable
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
            MyBase.New(rb)
            Me.tableattendance_item = CType(Me.Table,attendance_itemDataTable)
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property id() As Integer
            Get
                Return CType(Me(Me.tableattendance_item.idColumn),Integer)
            End Get
            Set
                Me(Me.tableattendance_item.idColumn) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 项目名称() As String
            Get
                Try 
                    Return CType(Me(Me.tableattendance_item.项目名称Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““attendance_item””中列““项目名称””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableattendance_item.项目名称Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 字段名() As String
            Get
                Try 
                    Return CType(Me(Me.tableattendance_item.字段名Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““attendance_item””中列““字段名””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableattendance_item.字段名Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 计时单位() As String
            Get
                Try 
                    Return CType(Me(Me.tableattendance_item.计时单位Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““attendance_item””中列““计时单位””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableattendance_item.计时单位Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Property 备注() As String
            Get
                Try 
                    Return CType(Me(Me.tableattendance_item.备注Column),String)
                Catch e As System.InvalidCastException
                    Throw New System.Data.StrongTypingException("表““attendance_item””中列““备注””的值为 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableattendance_item.备注Column) = value
            End Set
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is项目名称Null() As Boolean
            Return Me.IsNull(Me.tableattendance_item.项目名称Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set项目名称Null()
            Me(Me.tableattendance_item.项目名称Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is字段名Null() As Boolean
            Return Me.IsNull(Me.tableattendance_item.字段名Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set字段名Null()
            Me(Me.tableattendance_item.字段名Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is计时单位Null() As Boolean
            Return Me.IsNull(Me.tableattendance_item.计时单位Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set计时单位Null()
            Me(Me.tableattendance_item.计时单位Column) = System.Convert.DBNull
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.tableattendance_item.备注Column)
        End Function
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub Set备注Null()
            Me(Me.tableattendance_item.备注Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0")>  _
    Public Class attendance_itemRowChangeEvent
        Inherits System.EventArgs
        
        Private eventRow As attendance_itemRow
        
        Private eventAction As System.Data.DataRowAction
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New(ByVal row As attendance_itemRow, ByVal action As System.Data.DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Row() As attendance_itemRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property Action() As System.Data.DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class