autocad.vb

系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP Professional SP2 (English Version) 开发环境:Visual Studio .NET

        Public Function SubPaper(ByVal dsPaper As System.Data.DataSet, ByVal Answers As String, ByVal SID As String) As Boolean
            Dim results() As Object = Me.Invoke("SubPaper", New Object() {dsPaper, Answers, SID})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginSubPaper(ByVal dsPaper As System.Data.DataSet, ByVal Answers As String, ByVal SID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SubPaper", New Object() {dsPaper, Answers, SID}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndSubPaper(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://mse.ujn.edu.cn/autocad/exam/SavePaper", RequestNamespace:="http://mse.ujn.edu.cn/autocad/exam", ResponseNamespace:="http://mse.ujn.edu.cn/autocad/exam", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function SavePaper(ByVal dsPaper As System.Data.DataSet, ByVal SID As String) As Boolean
            Dim results() As Object = Me.Invoke("SavePaper", New Object() {dsPaper, SID})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginSavePaper(ByVal dsPaper As System.Data.DataSet, ByVal SID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SavePaper", New Object() {dsPaper, SID}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndSavePaper(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://mse.ujn.edu.cn/autocad/exam/SubDrawing", RequestNamespace:="http://mse.ujn.edu.cn/autocad/exam", ResponseNamespace:="http://mse.ujn.edu.cn/autocad/exam", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function SubDrawing(<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary")> ByVal FileData() As Byte, ByVal FileName As String, ByVal SID As String) As Boolean
            Dim results() As Object = Me.Invoke("SubDrawing", New Object() {FileData, FileName, SID})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginSubDrawing(ByVal FileData() As Byte, ByVal FileName As String, ByVal SID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SubDrawing", New Object() {FileData, FileName, SID}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndSubDrawing(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://mse.ujn.edu.cn/autocad/exam/RegionExam", RequestNamespace:="http://mse.ujn.edu.cn/autocad/exam", ResponseNamespace:="http://mse.ujn.edu.cn/autocad/exam", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function RegionExam(ByVal SID As String) As Boolean
            Dim results() As Object = Me.Invoke("RegionExam", New Object() {SID})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginRegionExam(ByVal SID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("RegionExam", New Object() {SID}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndRegionExam(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://mse.ujn.edu.cn/autocad/exam/ValidateMonitor", RequestNamespace:="http://mse.ujn.edu.cn/autocad/exam", ResponseNamespace:="http://mse.ujn.edu.cn/autocad/exam", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function ValidateMonitor(ByVal Name As String, ByVal Password As String) As Boolean
            Dim results() As Object = Me.Invoke("ValidateMonitor", New Object() {Name, Password})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginValidateMonitor(ByVal Name As String, ByVal Password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("ValidateMonitor", New Object() {Name, Password}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndValidateMonitor(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://mse.ujn.edu.cn/autocad/exam/CreatPaper", RequestNamespace:="http://mse.ujn.edu.cn/autocad/exam", ResponseNamespace:="http://mse.ujn.edu.cn/autocad/exam", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
        Public Function CreatPaper(ByVal EID As Integer) As Boolean
            Dim results() As Object = Me.Invoke("CreatPaper", New Object() {EID})
            Return CType(results(0), Boolean)
        End Function

        '<remarks/>
        Public Function BeginCreatPaper(ByVal EID As Integer, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CreatPaper", New Object() {EID}, callback, asyncState)
        End Function

        '<remarks/>
        Public Function EndCreatPaper(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), Boolean)
        End Function
    End Class

    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://mse.ujn.edu.cn/autocad/exam")> _
    Public Class StudentInfo

        '<remarks/>
        Public SID As String

        '<remarks/>
        Public Name As String

        '<remarks/>
        Public Sex As String

        '<remarks/>
        Public Team As String

        '<remarks/>
        Public Mayor As String

        '<remarks/>
        Public Department As String

        '<remarks/>
        Public CardID As String
    End Class

    '<remarks/>
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://mse.ujn.edu.cn/autocad/exam")> _
    Public Class ExamInfo

        '<remarks/>
        Public EID As Integer

        '<remarks/>
        Public SID As String

        '<remarks/>
        Public StartDateTime As Date

        '<remarks/>
        Public EndDateTime As Date

        '<remarks/>
        Public IsExamed As Boolean
    End Class
End Namespace