reference.vb

数据库学习的绝好例子简单的数据库经典入门

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

Option Strict Off
Option Explicit On

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

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 2.0.50215.44.
'
Namespace TimeSheetsWS
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="ReportsSoap", [Namespace]:="http://www.wrox.com/TimeSheetsWS/Reports")>  _
    Partial Public Class Reports
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Private TimeSheetsDueOperationCompleted As System.Threading.SendOrPostCallback
        
        Private TimeSheetsSubmittedOperationCompleted As System.Threading.SendOrPostCallback
        
        Private TimeSheetsMTDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private TimeSheetsQTDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private TimeSheetsYTDOperationCompleted As System.Threading.SendOrPostCallback
        
        Private useDefaultCredentialsSetExplicitly As Boolean
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = Time_Tracker.Settings.Default.Time_Tracker_TimeSheetsWS_Reports
            If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
                Me.UseDefaultCredentials = true
                Me.useDefaultCredentialsSetExplicitly = false
            Else
                Me.useDefaultCredentialsSetExplicitly = true
            End If
        End Sub
        
        Public Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set
                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true)  _
                            AndAlso (Me.useDefaultCredentialsSetExplicitly = false))  _
                            AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
                    MyBase.UseDefaultCredentials = false
                End If
                MyBase.Url = value
            End Set
        End Property
        
        Public Shadows Property UseDefaultCredentials() As Boolean
            Get
                Return MyBase.UseDefaultCredentials
            End Get
            Set
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = true
            End Set
        End Property
        
        '''<remarks/>
        Public Event TimeSheetsDueCompleted As TimeSheetsDueCompletedEventHandler
        
        '''<remarks/>
        Public Event TimeSheetsSubmittedCompleted As TimeSheetsSubmittedCompletedEventHandler
        
        '''<remarks/>
        Public Event TimeSheetsMTDCompleted As TimeSheetsMTDCompletedEventHandler
        
        '''<remarks/>
        Public Event TimeSheetsQTDCompleted As TimeSheetsQTDCompletedEventHandler
        
        '''<remarks/>
        Public Event TimeSheetsYTDCompleted As TimeSheetsYTDCompletedEventHandler
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.wrox.com/TimeSheetsWS/Reports/TimeSheetsDue", RequestNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", ResponseNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function TimeSheetsDue(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TimeSheetsDue", New Object() {ManagerID, WeekEndingDate})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsDueAsync(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date)
            Me.TimeSheetsDueAsync(ManagerID, WeekEndingDate, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsDueAsync(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date, ByVal userState As Object)
            If (Me.TimeSheetsDueOperationCompleted Is Nothing) Then
                Me.TimeSheetsDueOperationCompleted = AddressOf Me.OnTimeSheetsDueOperationCompleted
            End If
            Me.InvokeAsync("TimeSheetsDue", New Object() {ManagerID, WeekEndingDate}, Me.TimeSheetsDueOperationCompleted, userState)
        End Sub
        
        Private Sub OnTimeSheetsDueOperationCompleted(ByVal arg As Object)
            If (Not (Me.TimeSheetsDueCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent TimeSheetsDueCompleted(Me, New TimeSheetsDueCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.wrox.com/TimeSheetsWS/Reports/TimeSheetsSubmitted", RequestNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", ResponseNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function TimeSheetsSubmitted(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TimeSheetsSubmitted", New Object() {ManagerID, WeekEndingDate})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsSubmittedAsync(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date)
            Me.TimeSheetsSubmittedAsync(ManagerID, WeekEndingDate, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsSubmittedAsync(ByVal ManagerID As System.Guid, ByVal WeekEndingDate As Date, ByVal userState As Object)
            If (Me.TimeSheetsSubmittedOperationCompleted Is Nothing) Then
                Me.TimeSheetsSubmittedOperationCompleted = AddressOf Me.OnTimeSheetsSubmittedOperationCompleted
            End If
            Me.InvokeAsync("TimeSheetsSubmitted", New Object() {ManagerID, WeekEndingDate}, Me.TimeSheetsSubmittedOperationCompleted, userState)
        End Sub
        
        Private Sub OnTimeSheetsSubmittedOperationCompleted(ByVal arg As Object)
            If (Not (Me.TimeSheetsSubmittedCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent TimeSheetsSubmittedCompleted(Me, New TimeSheetsSubmittedCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.wrox.com/TimeSheetsWS/Reports/TimeSheetsMTD", RequestNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", ResponseNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function TimeSheetsMTD(ByVal ManagerID As System.Guid) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TimeSheetsMTD", New Object() {ManagerID})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsMTDAsync(ByVal ManagerID As System.Guid)
            Me.TimeSheetsMTDAsync(ManagerID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsMTDAsync(ByVal ManagerID As System.Guid, ByVal userState As Object)
            If (Me.TimeSheetsMTDOperationCompleted Is Nothing) Then
                Me.TimeSheetsMTDOperationCompleted = AddressOf Me.OnTimeSheetsMTDOperationCompleted
            End If
            Me.InvokeAsync("TimeSheetsMTD", New Object() {ManagerID}, Me.TimeSheetsMTDOperationCompleted, userState)
        End Sub
        
        Private Sub OnTimeSheetsMTDOperationCompleted(ByVal arg As Object)
            If (Not (Me.TimeSheetsMTDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent TimeSheetsMTDCompleted(Me, New TimeSheetsMTDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.wrox.com/TimeSheetsWS/Reports/TimeSheetsQTD", RequestNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", ResponseNamespace:="http://www.wrox.com/TimeSheetsWS/Reports", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function TimeSheetsQTD(ByVal ManagerID As System.Guid) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TimeSheetsQTD", New Object() {ManagerID})
            Return CType(results(0),System.Data.DataSet)
        End Function