storedproceduresdemodataset.designer.vb

vb.net写的存储过程示例适用于初学者

            If (Not (Me.tableGetEmployeesByName) Is Nothing) Then
                Me.tableGetEmployeesByName.InitVars
            End If
        End If
        Me.tableGetFirstNames = CType(MyBase.Tables("GetFirstNames"),GetFirstNamesDataTable)
        If (initTable = true) Then
            If (Not (Me.tableGetFirstNames) Is Nothing) Then
                Me.tableGetFirstNames.InitVars
            End If
        End If
        Me.relationFK_Employees_Employees = Me.Relations("FK_Employees_Employees")
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub InitClass()
        Me.DataSetName = "StoredProceduresDemoDataSet"
        Me.Prefix = ""
        Me.Namespace = "http://tempuri.org/StoredProceduresDemoDataSet.xsd"
        Me.EnforceConstraints = true
        Me.tableEmployees = New EmployeesDataTable
        MyBase.Tables.Add(Me.tableEmployees)
        Me.tableGetCountryNames = New GetCountryNamesDataTable
        MyBase.Tables.Add(Me.tableGetCountryNames)
        Me.tableGetEmployees = New GetEmployeesDataTable
        MyBase.Tables.Add(Me.tableGetEmployees)
        Me.tableGetEmployeesByName = New GetEmployeesByNameDataTable
        MyBase.Tables.Add(Me.tableGetEmployeesByName)
        Me.tableGetFirstNames = New GetFirstNamesDataTable
        MyBase.Tables.Add(Me.tableGetFirstNames)
        Me.relationFK_Employees_Employees = New System.Data.DataRelation("FK_Employees_Employees", New System.Data.DataColumn() {Me.tableEmployees.EmployeeIDColumn}, New System.Data.DataColumn() {Me.tableEmployees.ReportsToColumn}, false)
        Me.Relations.Add(Me.relationFK_Employees_Employees)
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeEmployees() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeGetCountryNames() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeGetEmployees() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeGetEmployeesByName() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Function ShouldSerializeGetFirstNames() As Boolean
        Return false
    End Function
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
        If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
            Me.InitVars
        End If
    End Sub
    
    <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
    Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
        Dim ds As StoredProceduresDemoDataSet = New StoredProceduresDemoDataSet
        Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
        Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
        xs.Add(ds.GetSchemaSerializable)
        Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
        any.Namespace = ds.Namespace
        sequence.Items.Add(any)
        type.Particle = sequence
        Return type
    End Function
    
    Public Delegate Sub EmployeesRowChangeEventHandler(ByVal sender As Object, ByVal e As EmployeesRowChangeEvent)
    
    Public Delegate Sub GetCountryNamesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetCountryNamesRowChangeEvent)
    
    Public Delegate Sub GetEmployeesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetEmployeesRowChangeEvent)
    
    Public Delegate Sub GetEmployeesByNameRowChangeEventHandler(ByVal sender As Object, ByVal e As GetEmployeesByNameRowChangeEvent)
    
    Public Delegate Sub GetFirstNamesRowChangeEventHandler(ByVal sender As Object, ByVal e As GetFirstNamesRowChangeEvent)
    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"),  _
     System.Serializable(),  _
     System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>  _
    Partial Public Class EmployeesDataTable
        Inherits System.Data.DataTable
        Implements System.Collections.IEnumerable
        
        Private columnEmployeeID As System.Data.DataColumn
        
        Private columnLastName As System.Data.DataColumn
        
        Private columnFirstName As System.Data.DataColumn
        
        Private columnTitle As System.Data.DataColumn
        
        Private columnTitleOfCourtesy As System.Data.DataColumn
        
        Private columnBirthDate As System.Data.DataColumn
        
        Private columnHireDate As System.Data.DataColumn
        
        Private columnAddress As System.Data.DataColumn
        
        Private columnCity As System.Data.DataColumn
        
        Private columnRegion As System.Data.DataColumn
        
        Private columnPostalCode As System.Data.DataColumn
        
        Private columnCountry As System.Data.DataColumn
        
        Private columnHomePhone As System.Data.DataColumn
        
        Private columnExtension As System.Data.DataColumn
        
        Private columnPhoto As System.Data.DataColumn
        
        Private columnNotes As System.Data.DataColumn
        
        Private columnReportsTo As System.Data.DataColumn
        
        Private columnPhotoPath As System.Data.DataColumn
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Sub New()
            MyBase.New
            Me.TableName = "Employees"
            Me.BeginInit
            Me.InitClass
            Me.EndInit
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Friend Sub New(ByVal table As 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
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
            MyBase.New(info, context)
            Me.InitVars
        End Sub
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property EmployeeIDColumn() As System.Data.DataColumn
            Get
                Return Me.columnEmployeeID
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property LastNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnLastName
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property FirstNameColumn() As System.Data.DataColumn
            Get
                Return Me.columnFirstName
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property TitleColumn() As System.Data.DataColumn
            Get
                Return Me.columnTitle
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property TitleOfCourtesyColumn() As System.Data.DataColumn
            Get
                Return Me.columnTitleOfCourtesy
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property BirthDateColumn() As System.Data.DataColumn
            Get
                Return Me.columnBirthDate
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property HireDateColumn() As System.Data.DataColumn
            Get
                Return Me.columnHireDate
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property AddressColumn() As System.Data.DataColumn
            Get
                Return Me.columnAddress
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property CityColumn() As System.Data.DataColumn
            Get
                Return Me.columnCity
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property RegionColumn() As System.Data.DataColumn
            Get
                Return Me.columnRegion
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property PostalCodeColumn() As System.Data.DataColumn
            Get
                Return Me.columnPostalCode
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property CountryColumn() As System.Data.DataColumn
            Get
                Return Me.columnCountry
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property HomePhoneColumn() As System.Data.DataColumn
            Get
                Return Me.columnHomePhone
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property ExtensionColumn() As System.Data.DataColumn
            Get
                Return Me.columnExtension
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property PhotoColumn() As System.Data.DataColumn
            Get
                Return Me.columnPhoto
            End Get
        End Property
        
        <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public ReadOnly Property NotesColumn() As System.Data.DataColumn
            Get
                Return Me.columnNotes
            End Get
        End Property