[كفاح]

PHP كود :

   <WebMethod()>
    Public Function selectLogen(Username As String, Password As String) As DataTable
        Try
            CON = New SqlConnection(ConString)
            Dim da As New SqlDataAdapter("SELECT Count(*) FROM dbo.Users WHERE (UserName LIKE '" & Username & "') AND (Password LIKE '" & Password & "')", CON)
            Dim dt As New DataTable
            dt.TableName = "Users"
            da.Fill(dt)
            Return dt
        Catch ex As Exception
            Throw New SoapException(ex.Message, SoapException.ServerFaultCode, Context.Request.Url.AbsoluteUri)
        End Try
    End Function 


PHP كود :

       If i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows.Count > 0 Then

            Name = i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows(0)(1)
            FiledAdd = i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows(0)(2)
            FiledUpdate = i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows(0)(3)
            FiledSave = i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows(0)(4)
            FiledDelete = i.selectLogen(UsernameTextBox.Text, PasswordTextBox.Text).Rows(0)(5)

            Dim Mainform As New MainFrm2
            Mainform.Show()
            Me.Hide()
        Else
            MessageBox.Show("برجاء التأكد من البيانات", APPLICATIONNAME, MessageBoxButtons.OK, MessageBoxIcon.Error)
            PasswordTextBox.ResetText()
            UsernameTextBox.ResetText()
            UsernameTextBox.Focus()
        End If
    End Sub