reference.vb

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

        '''<remarks/>
        Public Overloads Sub TimeSheetsQTDAsync(ByVal ManagerID As System.Guid)
            Me.TimeSheetsQTDAsync(ManagerID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsQTDAsync(ByVal ManagerID As System.Guid, ByVal userState As Object)
            If (Me.TimeSheetsQTDOperationCompleted Is Nothing) Then
                Me.TimeSheetsQTDOperationCompleted = AddressOf Me.OnTimeSheetsQTDOperationCompleted
            End If
            Me.InvokeAsync("TimeSheetsQTD", New Object() {ManagerID}, Me.TimeSheetsQTDOperationCompleted, userState)
        End Sub
        
        Private Sub OnTimeSheetsQTDOperationCompleted(ByVal arg As Object)
            If (Not (Me.TimeSheetsQTDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent TimeSheetsQTDCompleted(Me, New TimeSheetsQTDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.wrox.com/TimeSheetsWS/Reports/TimeSheetsYTD", 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 TimeSheetsYTD(ByVal ManagerID As System.Guid) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TimeSheetsYTD", New Object() {ManagerID})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsYTDAsync(ByVal ManagerID As System.Guid)
            Me.TimeSheetsYTDAsync(ManagerID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub TimeSheetsYTDAsync(ByVal ManagerID As System.Guid, ByVal userState As Object)
            If (Me.TimeSheetsYTDOperationCompleted Is Nothing) Then
                Me.TimeSheetsYTDOperationCompleted = AddressOf Me.OnTimeSheetsYTDOperationCompleted
            End If
            Me.InvokeAsync("TimeSheetsYTD", New Object() {ManagerID}, Me.TimeSheetsYTDOperationCompleted, userState)
        End Sub
        
        Private Sub OnTimeSheetsYTDOperationCompleted(ByVal arg As Object)
            If (Not (Me.TimeSheetsYTDCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent TimeSheetsYTDCompleted(Me, New TimeSheetsYTDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        Public Shadows Sub CancelAsync(ByVal userState As Object)
            MyBase.CancelAsync(userState)
        End Sub
        
        Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
            If ((url Is Nothing)  _
                        OrElse (url Is String.Empty)) Then
                Return false
            End If
            Dim wsUri As System.Uri = New System.Uri(url)
            If (((wsUri.Port >= 1024)  _
                        AndAlso (wsUri.Port <= 5000))  _
                        AndAlso (String.Compare(wsUri.Host, "localHost", true) = 0)) Then
                Return true
            End If
            Return false
        End Function
    End Class
    
    '''<remarks/>
    Public Delegate Sub TimeSheetsDueCompletedEventHandler(ByVal sender As Object, ByVal e As TimeSheetsDueCompletedEventArgs)
    
    '''<remarks/>
    Partial Public Class TimeSheetsDueCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    Public Delegate Sub TimeSheetsSubmittedCompletedEventHandler(ByVal sender As Object, ByVal e As TimeSheetsSubmittedCompletedEventArgs)
    
    '''<remarks/>
    Partial Public Class TimeSheetsSubmittedCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    Public Delegate Sub TimeSheetsMTDCompletedEventHandler(ByVal sender As Object, ByVal e As TimeSheetsMTDCompletedEventArgs)
    
    '''<remarks/>
    Partial Public Class TimeSheetsMTDCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    Public Delegate Sub TimeSheetsQTDCompletedEventHandler(ByVal sender As Object, ByVal e As TimeSheetsQTDCompletedEventArgs)
    
    '''<remarks/>
    Partial Public Class TimeSheetsQTDCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
    
    '''<remarks/>
    Public Delegate Sub TimeSheetsYTDCompletedEventHandler(ByVal sender As Object, ByVal e As TimeSheetsYTDCompletedEventArgs)
    
    '''<remarks/>
    Partial Public Class TimeSheetsYTDCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs
        
        Private results() As Object
        
        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        
        '''<remarks/>
        Public ReadOnly Property Result() As System.Data.DataSet
            Get
                Me.RaiseExceptionIfNecessary
                Return CType(Me.results(0),System.Data.DataSet)
            End Get
        End Property
    End Class
End Namespace