reference.vb

一个管理系统

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.3705.288
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Data
Imports System.Diagnostics
Imports System.Runtime.Serialization
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml
Imports System.Xml.Serialization

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.0.3705.288.
'
Namespace DataWS
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="DataServiceSoap", [Namespace]:="http://tempuri.org/")>  _
    Public Class DataService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Dim urlSetting As String = System.Configuration.ConfigurationSettings.AppSettings("TaskVision.DataWS.DataService")
            If (Not (urlSetting) Is Nothing) Then
                Me.Url = String.Concat(urlSetting, "")
            Else
                Me.Url = "http://localhost/taskvisionws/dataservice.asmx"
            End If
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetProjects", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetProjects(ByVal ticket As String) As DataSetProjects
            Dim results() As Object = Me.Invoke("GetProjects", New Object() {ticket})
            Return CType(results(0),DataSetProjects)
        End Function
        
        '<remarks/>
        Public Function BeginGetProjects(ByVal ticket As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetProjects", New Object() {ticket}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetProjects(ByVal asyncResult As System.IAsyncResult) As DataSetProjects
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),DataSetProjects)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetTasks", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetTasks(ByVal ticket As String, ByVal projectID As Integer) As DataSetTasks
            Dim results() As Object = Me.Invoke("GetTasks", New Object() {ticket, projectID})
            Return CType(results(0),DataSetTasks)
        End Function
        
        '<remarks/>
        Public Function BeginGetTasks(ByVal ticket As String, ByVal projectID As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetTasks", New Object() {ticket, projectID}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetTasks(ByVal asyncResult As System.IAsyncResult) As DataSetTasks
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),DataSetTasks)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/UpdateTasks", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function UpdateTasks(ByVal ticket As String, ByVal projectID As Integer, ByVal dsTasks As DataSetTasks) As DataSetTasks
            Dim results() As Object = Me.Invoke("UpdateTasks", New Object() {ticket, projectID, dsTasks})
            Return CType(results(0),DataSetTasks)
        End Function
        
        '<remarks/>
        Public Function BeginUpdateTasks(ByVal ticket As String, ByVal projectID As Integer, ByVal dsTasks As DataSetTasks, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("UpdateTasks", New Object() {ticket, projectID, dsTasks}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndUpdateTasks(ByVal asyncResult As System.IAsyncResult) As DataSetTasks
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),DataSetTasks)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetLookupTables", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetLookupTables(ByVal ticket As String) As DataSetLookupTables
            Dim results() As Object = Me.Invoke("GetLookupTables", New Object() {ticket})
            Return CType(results(0),DataSetLookupTables)
        End Function
        
        '<remarks/>
        Public Function BeginGetLookupTables(ByVal ticket As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetLookupTables", New Object() {ticket}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetLookupTables(ByVal asyncResult As System.IAsyncResult) As DataSetLookupTables
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),DataSetLookupTables)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetProjectHistory", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetProjectHistory(ByVal ticket As String, ByVal projectID As Integer) As DataSetProjectHistory
            Dim results() As Object = Me.Invoke("GetProjectHistory", New Object() {ticket, projectID})
            Return CType(results(0),DataSetProjectHistory)
        End Function
        
        '<remarks/>
        Public Function BeginGetProjectHistory(ByVal ticket As String, ByVal projectID As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetProjectHistory", New Object() {ticket, projectID}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetProjectHistory(ByVal asyncResult As System.IAsyncResult) As DataSetProjectHistory
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),DataSetProjectHistory)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/InsertProject", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function InsertProject(ByVal ticket As String, ByVal projectName As String, ByVal projectDescription As String) As Integer
            Dim results() As Object = Me.Invoke("InsertProject", New Object() {ticket, projectName, projectDescription})
            Return CType(results(0),Integer)
        End Function
        
        '<remarks/>
        Public Function BeginInsertProject(ByVal ticket As String, ByVal projectName As String, ByVal projectDescription As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("InsertProject", New Object() {ticket, projectName, projectDescription}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndInsertProject(ByVal asyncResult As System.IAsyncResult) As Integer
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Integer)
        End Function
    End Class
    
    <Serializable(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Diagnostics.DebuggerStepThrough(),  _
     System.ComponentModel.ToolboxItem(true)>  _
    Public Class DataSetProjectHistory
        Inherits DataSet
        
        Private tableProjectHistory As ProjectHistoryDataTable
        
        Public Sub New()
            MyBase.New
            Me.InitClass
            Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
        End Sub
        
        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New
            Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)),String)
            If (Not (strSchema) Is Nothing) Then
                Dim ds As DataSet = New DataSet
                ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
                If (Not (ds.Tables("ProjectHistory")) Is Nothing) Then
                    Me.Tables.Add(New ProjectHistoryDataTable(ds.Tables("ProjectHistory")))
                End If
                Me.DataSetName = ds.DataSetName
                Me.Prefix = ds.Prefix
                Me.Namespace = ds.Namespace
                Me.Locale = ds.Locale
                Me.CaseSensitive = ds.CaseSensitive
                Me.EnforceConstraints = ds.EnforceConstraints
                Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
                Me.InitVars
            Else
                Me.InitClass
            End If
            Me.GetSerializationData(info, context)
            Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
        End Sub
        
        <System.ComponentModel.Browsable(false),  _
         System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)>  _
        Public ReadOnly Property ProjectHistory As ProjectHistoryDataTable
            Get
                Return Me.tableProjectHistory
            End Get
        End Property
        
        Public Overrides Function Clone() As DataSet
            Dim cln As DataSetProjectHistory = CType(MyBase.Clone,DataSetProjectHistory)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function ShouldSerializeTables() As Boolean
            Return false
        End Function
        
        Protected Overrides Function ShouldSerializeRelations() As Boolean
            Return false
        End Function
        
        Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
            Me.Reset
            Dim ds As DataSet = New DataSet
            ds.ReadXml(reader)
            If (Not (ds.Tables("ProjectHistory")) Is Nothing) Then
                Me.Tables.Add(New ProjectHistoryDataTable(ds.Tables("ProjectHistory")))
            End If
            Me.DataSetName = ds.DataSetName
            Me.Prefix = ds.Prefix
            Me.Namespace = ds.Namespace
            Me.Locale = ds.Locale
            Me.CaseSensitive = ds.CaseSensitive
            Me.EnforceConstraints = ds.EnforceConstraints
            Me.Merge(ds, false, System.Data.MissingSchemaAction.Add)
            Me.InitVars
        End Sub
        
        Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
            Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
            Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
            stream.Position = 0
            Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
        End Function
        
        Friend Sub InitVars()
            Me.tableProjectHistory = CType(Me.Tables("ProjectHistory"),ProjectHistoryDataTable)
            If (Not (Me.tableProjectHistory) Is Nothing) Then
                Me.tableProjectHistory.InitVars
            End If
        End Sub
        
        Private Sub InitClass()
            Me.DataSetName = "DataSetProjectHistory"
            Me.Prefix = ""
            Me.Namespace = "http://tempuri.org/DataSetProjectHistory.xsd"
            Me.Locale = New System.Globalization.CultureInfo("en-US")
            Me.CaseSensitive = false
            Me.EnforceConstraints = true
            Me.tableProjectHistory = New ProjectHistoryDataTable
            Me.Tables.Add(Me.tableProjectHistory)
        End Sub
        
        Private Function ShouldSerializeProjectHistory() As Boolean
            Return false
        End Function
        
        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
        
        Public Delegate Sub ProjectHistoryRowChangeEventHandler(ByVal sender As Object, ByVal e As ProjectHistoryRowChangeEvent)
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class ProjectHistoryDataTable
            Inherits DataTable
            Implements System.Collections.IEnumerable
            
            Private columnTaskHistoryID As DataColumn
            
            Private columnTaskID As DataColumn
            
            Private columnProjectID As DataColumn
            
            Private columnModifiedBy As DataColumn