'Activity module
Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
LoadDbList
End Sub
Sub LoadDbList
ExecuteRemoteQuery("SELECT Nome,Tipologia,Citta,Strada,Tel,ID FROM Fornitori ","r1" )
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://localhost/ServiceApp.php", Query)
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Select Job.JobName
Case "r1"
Msgbox("Connessione effettuata","info")
Case "r2"
End Select
Else
Log(Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub