Sub Process_Globals
Dim xSQL As SQL
Dim xCursor As Cursor
End Sub
Sub Globals
Dim DetailLabel As Label
Dim BackButton As Button
Dim NextButton As Button
Dim Counter As Int
Dim RecordsList As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
RecordsList.Initialize
If File.Exists(File.DirDefaultExternal, "test.db") = False Then
File.Copy(File.DirAssets, "test.db", File.DirDefaultExternal, "test.db")
End If
If FirstTime Then
xSQL.Initialize(File.DirDefaultExternal, "test.db", True)
End If
DetailLabel.Text = "Number of records: " & xSQL.ExecQuerySingleResult("SELECT count(*) FROM Records")
End Sub