basic4android delphi

接上一篇  basic4android 使用库下载地址：http://pan.baidu.com/share/link?shareid=2345909338&uk=3993363350

 

main

 

Sub Globals
'These global variables will be redeclared each time the activity is created.
'这里声明的变量只能在此模块使用!
Dim my_kbmMW_client As TkbmMWClient

End Sub
Sub Process_Globals
'These global variables will be declared once when the application starts.
'这里声明的变量能被所有模块使用!
Dim sdata As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
'使用可视化界面设计工具设计了界面后,请不要忘记用下面的方法加载你设计的界面(参数是界面文件的名字) o70078汉化 QQ172259743:
Activity.LoadLayout("Main")


End Sub

 

Sub Button1_Click
Try
my_kbmMW_client.Connect("192.168.1.16",3000)
Dim args(1) As String
args(0)="这里写上你要查的内容"
sdata="结果为"&my_kbmMW_client.SendRequest ("borland","","SELECT",args) ' borland 是你的delphi 那边的接口， SELECT 是delphi 的一个参数
StartActivity(GETSelect)
Msgbox("查询成功","")

第二个页面  GETSelect

 

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
Dim SV As ScrollView
Dim Header As Panel
Dim Footer As Panel
Dim Table As Panel
Dim NumberOfColumns, RowHeight, RowHeight_1, ColumnWidth, ColumnWidth_1 As Int
Dim HeaderColor, LineColor, CellColor, FontColor, HeaderFontColor As Int
Dim ColLineWidth, RowLineWidth As Int
Dim FontSize As Float
Type RowCol (Row As Int, Col As Int)
Dim Alignment As Int
Dim SelectedRow As Int
Dim SelectedRowColor As Int
: SelectedRowColor=Colors.LightGray

'Table settings
HeaderColor = Colors.Gray
NumberOfColumns = 4 'will be overwritten when loading from CSV file.
ColLineWidth = 1dip
RowLineWidth = 1dip
RowHeight_1 = 30dip
RowHeight=RowHeight_1+RowLineWidth
LineColor = Colors.Black
CellColor = Colors.White
FontColor = Colors.Black
HeaderFontColor = Colors.White
FontSize = 14
Alignment = Gravity.CENTER 'change to Gravity.LEFT or Gravity.RIGHT for other alignments.

End Sub

Sub Activity_Create(FirstTime As Boolean)
SV.Initialize(0)
' SV.Color=Colors.Transparent
SV.Panel.Color=Colors.Black
Table = SV.Panel
Table.Color = LineColor
Activity.AddView(SV, 1%x, 10%y, 99%x, 80%y)

ColumnWidth = SV.Width / NumberOfColumns
ColumnWidth_1 = ColumnWidth-ColLineWidth
SelectedRow = -1

loadxinxi(Main.sdata)

End Sub

Sub loadxinxi(s As String)
Dim JSON As JSONParser
Dim Master As Map
Dim records As List

Dim XINXI As Map

Dim recordcount As String


ClearAll

Dim h(4) As String
h(0)="序号"
h(1)="姓名"
h(2)="学院"
h(3)="个人"

NumberOfColumns = h.Length
ColumnWidth = SV.Width / NumberOfColumns 'update the columns widths
ColumnWidth_1 = ColumnWidth-ColLineWidth
SetHeader(h)
JSON.Initialize(s)
'Master = JSON.NextObject
'records=Master.Get("topics")
records = JSON.NextObject
'records=Master.Get("topics")


Dim data(4) As String
For i=0 To records.Size-1
Dim row() As String
XINXI=records.Get(i)
data(0)=XINXI.Get("bm")
data(1)=XINXI.get("mc")
data(2)=XINXI.get("xm")
data(3)=XINXI.get("lx")

row =data
AddRow(row)
Next
recordcount=Master.Get("totalCount")
h(0)="合计"
h(1)=recordcount
h(2)=""
h(3)=""
SetFooter(h)
Activity.Title="职工信息"

End Sub

Sub Cell_Click
Dim rc As RowCol
Dim l As Label
Dim l0 As Label
l = Sender
rc = l.Tag
SelectRow(rc.Row)
l0=GetView(rc.Row,0)
'activity.Title = "Cell clicked: (" & rc.Row & ", " & rc.Col & l0.Text &")"
'myxh=l0.Text


End Sub

Sub Header_Click
Dim l As Label
Dim col As Int
l = Sender
col = l.Tag
Activity.Title = "Header clicked: " & col
End Sub

Sub SelectRow(Row As Int)
'remove the color of previously selected row
If SelectedRow > -1 Then
For col = 0 To NumberOfColumns - 1
GetView(SelectedRow, col).Color = CellColor
Next
End If
SelectedRow = Row
For col = 0 To NumberOfColumns - 1
GetView(Row, col).Color = SelectedRowColor
Next
End Sub

'Returns the label in the specific cell
Sub GetView(Row As Int, Col As Int) As Label
Dim l As Label
l = Table.GetView(Row * NumberOfColumns + Col)
Return l
End Sub

'Adds a row to the table
Sub AddRow(Values() As String)
If Values.Length <> NumberOfColumns Then
Log("Wrong number of values.")
Return
End If
Dim lastRow As Int
lastRow = NumberOfRows
For i = 0 To NumberOfColumns - 1
Dim l As Label
l.Initialize("cell")
l.Text = Values(i)
l.Gravity = Alignment
l.TextSize = FontSize
l.TextColor = FontColor
l.Color=Colors.White
Dim rc As RowCol
rc.Initialize
rc.Col = i
rc.Row = lastRow
l.Tag = rc
Table.AddView(l, ColumnWidth * i, RowHeight * lastRow, ColumnWidth_1, RowHeight_1)
Next
Table.Height = NumberOfRows * RowHeight
End Sub

'Set the headers values
Sub SetHeader(Values() As String)
If Header.IsInitialized Then Return 'should only be called once
Header.Initialize("")
For i = 0 To NumberOfColumns - 1
Dim l As Label
l.Initialize("header")
l.Text = Values(i)
l.Gravity = Gravity.CENTER
l.TextSize = FontSize
l.Color = HeaderColor
l.TextColor = HeaderFontColor
l.Tag = i
Header.AddView(l, ColumnWidth * i, 0, ColumnWidth_1, RowHeight_1)
Next
Activity.AddView(Header, SV.Left, SV.Top - RowHeight, SV.Width, RowHeight)
End Sub

Sub SetFooter(Values() As String)
If Footer.IsInitialized Then Return 'should only be called once
Footer.Initialize("")
For i = 0 To NumberOfColumns - 1
Dim l As Label
l.Initialize("footer")
l.Text = Values(i)
l.Gravity = Gravity.CENTER
l.TextSize = FontSize
l.Color = HeaderColor
l.TextColor = HeaderFontColor
l.Tag = i
Footer.AddView(l, ColumnWidth * i, 0, ColumnWidth_1, RowHeight_1)
Next
Activity.AddView(Footer, SV.Left, SV.Top+SV.Height, SV.Width, RowHeight)
End Sub

Sub NumberOfRows As Int
Return 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 String
Return GetView(Row, Col).Text
End Sub

'Clears the table
Sub ClearAll
For i = Table.NumberOfViews -1 To 0 Step -1
Table.RemoveViewAt(i)
Next
Table.Height = 0
SelectedRow = -1
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

Catch
Msgbox("无法链接","")
End Try
End Sub

 

 

可能写得不够好， 如果不懂 者 可以 参考 ： http://www.51delphi.com  、 http://www.cnblogs.com/xalion

转载于:https://www.cnblogs.com/-long/p/3189155.html