Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
TableView1.Initialize("TableView1")
MainForm.RootPane.AddNode(TableView1, 0, 0, 0, 0)
MainForm.RootPane.SetAnchors(TableView1, 0, 0,0, 0) 'fill the screen
reqManager.Initialize(Me, "http://127.0.0.1:17178/rdc")
GetAnimal("test")
End Sub
Sub GetAnimal(Name As String)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_animal"
cmd.Parameters = Array As Object(Name)
reqManager.ExecuteQuery(cmd, 0, Null)
End Sub
'the server side sql is
sql.select_animal=SELECT name, image, pkey FROM animal where name ?