function Txalionsrv.datatojson(intablename: string): string;
varalljson: ISuperObject;datajson: ISuperObject;recordjson: ISuperObject;totalcount: string;starti, endi, i: integer;
beginalljson := TSuperObject.Create(stobject);cx.sql.clear;cx.sql.add('select count(*) from (' + intablename + ')');trycx.Open;excepton E:Exception dobeginresult:='数据库打开错误!'+e.Message;exit;end;end;totalcount := cx.fields[0].AsString;if totalcount > '0' thenbegindatajson := TSuperObject.Create(starray);with cx dobeginsql.clear;sql.Add(' select * from ( '+intablename+' )');tryOpen;exceptresult:='数据库打开错误!2';exit;end;while not eof dobeginrecordjson := TSuperObject.Create(stobject);for i := 0 to fields.Count - 1 dobeginrecordjson.s[fields[i].FieldName] := fields[i].AsString;end;datajson.o[''] := recordjson;recordjson := nil;next;end;end;alljson.o['topics'] := datajson;alljson.s['totalCount'] := totalcount;datajson := nil;end;result := alljson.AsJSon();alljson := nil;end;function Txalionsrv.Performgetdata(ClientIdent:TkbmMWClientIdentity; const Args:array of Variant):Variant;
beginresult:=datatojson(args[0]);
end;function Txalionsrv.ProcessRequest(const Func: string;const ClientIdent: TkbmMWClientIdentity;const Args: array of Variant): Variant;varAFunc:string;
beginAFunc:=UpperCase(Func);if AFunc='SUMALL' thenResult:=Performsumall(ClientIdent,Args)else if AFunc='GETIMG' thenResult:=Performgetimg(ClientIdent,Args)else if AFunc='GETDATA' thenresult:=Performgetdata(ClientIdent,Args)end;

'Activity module
Sub Process_Globals'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.Dim  sdata As String
End SubSub Globals'These global variables will be redeclared each time the activity is created.'These variables can only be accessed from this module.Dim SimpleClient As TkbmMWClientDim Ip As EditTextDim Port As EditTextDim mLog As EditText
End SubSub Activity_Create(FirstTime As Boolean)Activity.LoadLayout("Main")Ip.Text = "192.168.1.215"Port.Text = "3000"
End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End SubSub ConnectBtn_ClickSimpleClient.Connect(Ip.Text,Port.Text)
End Sub
Sub SendBtn_ClickDim args(2) As Stringargs(0)="select Xh,Xm,yanglaoxy,yanglaogr from rssj"sdata=SimpleClient.SendRequest ("xalion_srv","","GETDATA",args)StartActivity(bmxinxi)
End Sub

'Activity module
Sub Process_Globals'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.End SubSub Globals'These global variables will be redeclared each time the activity is created.'These variables can only be accessed from this module.Dim SV As ScrollViewDim Header As PanelDim Footer As PanelDim Table As PanelDim NumberOfColumns, RowHeight, RowHeight_1, ColumnWidth, ColumnWidth_1 As IntDim HeaderColor, LineColor, CellColor, FontColor, HeaderFontColor As IntDim ColLineWidth, RowLineWidth As IntDim FontSize As FloatType RowCol (Row As Int, Col As Int)Dim Alignment As IntDim SelectedRow As IntDim SelectedRowColor As Int        : SelectedRowColor=Colors.LightGray'Table settingsHeaderColor = Colors.GrayNumberOfColumns = 4 'will be overwritten when loading from CSV file.ColLineWidth = 1dipRowLineWidth = 1dipRowHeight_1 = 30dipRowHeight=RowHeight_1+RowLineWidthLineColor = Colors.BlackCellColor = Colors.WhiteFontColor = Colors.BlackHeaderFontColor = Colors.WhiteFontSize = 14Alignment = Gravity.CENTER 'change to Gravity.LEFT or Gravity.RIGHT for other alignments.
End SubSub Activity_Create(FirstTime As Boolean)SV.Initialize(0)
'    SV.Color=Colors.TransparentSV.Panel.Color=Colors.BlackTable = SV.PanelTable.Color = LineColorActivity.AddView(SV, 1%x, 10%y, 99%x, 80%y)ColumnWidth = SV.Width / NumberOfColumnsColumnWidth_1 = ColumnWidth-ColLineWidthSelectedRow = -1loadxinxi(Main.sdata)
End SubSub loadxinxi(s As String)Dim JSON As JSONParserDim Master As MapDim records As ListDim XINXI As MapDim recordcount As StringClearAllDim h(4) As Stringh(0)="序号"h(1)="姓名"h(2)="学院"h(3)="个人"NumberOfColumns = h.LengthColumnWidth = SV.Width / NumberOfColumns 'update the columns widthsColumnWidth_1 = ColumnWidth-ColLineWidthSetHeader(h)JSON.Initialize(s)Master = JSON.NextObjectrecords=Master.Get("topics")Dim data(4) As StringFor i=0 To records.Size-1Dim row() As StringXINXI=records.Get(i)data(0)=XINXI.Get("XH")data(1)=XINXI.get("XM")data(2)=XINXI.get("YANGLAOXY")data(3)=XINXI.get("YANGLAOGR")row =dataAddRow(row)Nextrecordcount=Master.Get("totalCount")h(0)="合计"h(1)=recordcounth(2)=""h(3)=""SetFooter(h)Activity.Title="职工信息" End SubSub Cell_ClickDim rc As RowColDim l As LabelDim l0 As Labell = Senderrc = l.TagSelectRow(rc.Row)l0=GetView(rc.Row,0)'activity.Title = "Cell clicked: (" & rc.Row & ", " & rc.Col & l0.Text &")"myxh=l0.TextEnd SubSub Header_ClickDim l As LabelDim col As Intl = Sendercol = l.TagActivity.Title = "Header clicked: " & col
End SubSub SelectRow(Row As Int)'remove the color of previously selected rowIf SelectedRow > -1 ThenFor col = 0 To NumberOfColumns - 1GetView(SelectedRow, col).Color = CellColorNextEnd IfSelectedRow = RowFor col = 0 To NumberOfColumns - 1GetView(Row, col).Color = SelectedRowColorNext
End Sub'Returns the label in the specific cell
Sub GetView(Row As Int, Col As Int) As LabelDim l As Labell = Table.GetView(Row * NumberOfColumns + Col)Return l
End Sub'Adds a row to the table
Sub AddRow(Values() As String)If Values.Length <> NumberOfColumns ThenLog("Wrong number of values.")ReturnEnd IfDim lastRow As IntlastRow = NumberOfRowsFor i = 0 To NumberOfColumns - 1Dim l As Labell.Initialize("cell")l.Text = Values(i)l.Gravity = Alignmentl.TextSize = FontSizel.TextColor = FontColorl.Color=Colors.WhiteDim rc As RowColrc.Initializerc.Col = irc.Row = lastRowl.Tag = rcTable.AddView(l, ColumnWidth * i, RowHeight * lastRow, ColumnWidth_1, RowHeight_1)NextTable.Height = NumberOfRows * RowHeight
End Sub'Set the headers values
Sub SetHeader(Values() As String)If Header.IsInitialized Then Return 'should only be called onceHeader.Initialize("")For i = 0 To NumberOfColumns - 1Dim l As Labell.Initialize("header")l.Text = Values(i)l.Gravity = Gravity.CENTERl.TextSize = FontSizel.Color = HeaderColorl.TextColor = HeaderFontColorl.Tag = iHeader.AddView(l, ColumnWidth * i, 0, ColumnWidth_1, RowHeight_1)NextActivity.AddView(Header, SV.Left, SV.Top - RowHeight, SV.Width, RowHeight)
End SubSub SetFooter(Values() As String)If Footer.IsInitialized Then Return 'should only be called onceFooter.Initialize("")For i = 0 To NumberOfColumns - 1Dim l As Labell.Initialize("footer")l.Text = Values(i)l.Gravity = Gravity.CENTERl.TextSize = FontSizel.Color = HeaderColorl.TextColor = HeaderFontColorl.Tag = iFooter.AddView(l, ColumnWidth * i, 0, ColumnWidth_1, RowHeight_1)NextActivity.AddView(Footer, SV.Left, SV.Top+SV.Height, SV.Width, RowHeight)
End SubSub NumberOfRows As IntReturn Table.NumberOfViews / NumberOfColumns
End Sub'Sets the value of the given cell
Sub SetCell(Row As Int, Col As Int, Value As String)GetView(Row, Col).Text = Value
End Sub'Gets the value of the given cell
Sub GetCell(Row As Int, Col As Int) As StringReturn GetView(Row, Col).Text
End Sub'Clears the table
Sub ClearAllFor i = Table.NumberOfViews -1 To 0 Step -1Table.RemoveViewAt(i)NextTable.Height = 0SelectedRow = -1
End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End Sub