#Region Project Attributes
#MainFormWidth: 500
#MainFormHeight: 500
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim reqManager As DBRequestManager
Dim TableView1 As TableView
End Sub
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://XX.XX.XX.XX:17178/rdc")
GetCostumer("a1")
End Sub
Sub GetCostumer(test As String)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "selectCustomers"
'cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd, 0,Null)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success = False Then
Log("MAl: " & Job.ErrorMessage)
Else
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
reqManager.PrintTable(result)
reqManager.FillTableView(result, TableView1)
MainForm_Resize(MainForm.Width, MainForm.Height)
End If
End If
Job.Release
End Sub
Sub MainForm_Resize (Width As Double, Height As Double)
For i = 0 To TableView1.ColumnsCount - 1
TableView1.SetColumnWidth(i, (Width - 10dip)/ TableView1.ColumnsCount)
Next
End Sub