Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports kemet.Never.DA
Imports kemet.Never.BL
Imports System.Data.SqlClient
Imports System.Data
?
' To allow this Web Service to be called from script,using ASP.NET AJAX,uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
??? Inherits System.Web.Services.WebService
??? Private _DBTrans As kemet.Never.DA.DBTransaction
??? Private _BL As kemet.Never.BL.Query
??? Private _connectionString As String = ""
?
??? <WebMethod()> _
??? Public Function HelloWorld() As String
??????? Return "Hello World"
??? End Function
??? 'Public Sub New(ByVal connectionString As String)
??? '??? _connectionString = connectionString
??? 'End Sub
??? <WebMethod()> _
??? Public Function Binding(ByVal r As re) As DataSet
??????? _connectionString = r.connec
??????? ' "Data Source=LDBYYQ3R1MYSQLTEST;? Initial Catalog=MES_TRANS_MCD; User ID=sa; PassWord=admin; Persist Security Info=False;"
??????? _DBTrans = New kemet.Never.DA.DBTransaction("",_connectionString)
??????? _BL = New kemet.Never.BL.Query(_DBTrans)
??????? Dim resultDS As New DataSet
??????? Try
??????????? resultDS = _BL.GetJobInfo2("FPI162236TMW3N")
??????????? Return resultDS
??????? Catch ex As Exception
??????????? Throw ex
??????? End Try
??? End Function
??? 'Public Sub New()
??? '??? MyBase.New()
??? '??? InitialLizeComponet()
??? 'End Sub
??? 'Private components As System.ComponentModel.IContainer
??? '<System.Diagnostics.DebuggerStepThrough()> Private Sub InitialLizeComponet()
??? '??? components = New System.ComponentModel.Container()
??? 'End Sub
??? 'Protected Overrides Sub Dispose(ByVal disposing As Boolean)
??? '??? If disposing Then
??? '??????? If Not (components Is Nothing) Then
??? '??????????? components.Dispose()
??? '??????? End If
??? '??? End If
??? '??? MyBase.Dispose(disposing)
??? 'End Sub
End Class
Public Class re
??? Public pn As String
??? Public job As String
??? Public connec As String
End Class
