Sub btnSignIn_Click
If editUsername.Text = "" Or editPassword.Text = "" Then
ToastMessageShow("username or password data is missing!",True)
Log("username or password data is missing")
Return
End If
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("check_user", Array As String(editUsername.Text, editPassword.Text))
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then ' Call to jRDC2 server was successful
req.HandleJobAsync(j,"req")
Wait For (req) req_Result(res As DBResult)
If res.Rows.Size > 0 Then ' One or more records have been returned
StartActivity(Main)
ToastMessageShow("Login Successful",True)
Log("User successful Login!")
Else ' No records were returned
ToastMessageShow("Please Register as new user",True)
Log("Please Register as new user")
End If
Else ' Something went wrong with the call to the jRDC2 server
Log("Something went wrong!!!!!!")
Log("Error: " & j.ErrorMessage)
End If
j.Release
End Sub