Sub Process_Globals
Private MainForm As Form
Private b1 As Button
Private t1 As TextField
Type TwoLines (First As String, Second As String)
Private b2 As Button
Private COUNTRIES_LIST = "countries_list", COUNTRY_POPULATION = "country_population" As String
Private TV1 As TableView
Private TX1 As TextField
Private TX2 As TextField
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Main") 'Load the layout file.
MainForm.Show
End Sub
Sub b1_Action
ExecuteRemoteQuery("SELECT NAME, PHONE FROM PHONES WHERE NAME LIKE'%" & t1.Text & "%' ORDER BY NAME" , COUNTRIES_LIST)
End Sub
Sub b2_Action
MainForm.Close
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://www.xxxxx.com/xxxxxxxxxx.php", Query)
End Sub
Sub JobDone(Job As HttpJob)
Dim res As String
Dim parser As JSONParser
If Job.Success Then
parser.Initialize(res)
Select Job.JobName
Case COUNTRIES_LIST
Dim COUNTRIES As List
COUNTRIES = parser.NextArray 'returns a list with maps
TV1.SetColumns(Array As String("PHONE", "NAME"))
For i = 0 To COUNTRIES.Size - 1
Dim m As Map
m = COUNTRIES.Get(i)
Dim tl As TwoLines
tl.First = m.Get("PHONE")
tl.Second = m.Get("NAME")
TV1.Items.Add(Array As Object(tl.First, tl.Second))
Next
End Select
End If
Job.Release
End Sub
Sub jobdone_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim res As String
res = Response.GetString("UTF8")
End Sub