#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
#Macro: Title, Export B4XPages, ide://run?File=%B4X%\Zipper.jar&Args=%PROJECT_NAME%.zip
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Dim dbName As String = "studentapp.db"
Public SQL1 As SQL
Private Phones As EditText
Private Names As EditText
Private Classr As EditText
Private Button2 As Button
Dim paydetail As Paycodes
Public DbSql As B4XMainPage
End Sub
Private Sub InitializeDatabase
Try
Dim userData As Map
userData.Initialize
userData.Put("id", DBUtils.DB_INTEGER)
userData.Put("regno", DBUtils.DB_TEXT)
userData.Put("Name", DBUtils.DB_TEXT)
userData.Put("Class", DBUtils.DB_TEXT)
userData.Put("Stream", DBUtils.DB_TEXT)
userData.Put("Paycode", DBUtils.DB_TEXT)
userData.Put("account", DBUtils.DB_TEXT)
userData.Put("date_fetched", DBUtils.DB_TEXT)
If File.Exists(xui.DefaultFolder, dbName) = False Then
DbSql.SQL1.Initialize(xui.DefaultFolder, dbName, True)
DBUtils.CreateTable(DbSql.SQL1, "students", userData, "id")
Log("DB Created Successfully")
DBUtils.CreateTable(DbSql.SQL1, "DBVersion", CreateMap("version": DBUtils.DB_INTEGER), "")
Log("DB Version: " & DBUtils.GetDBVersion(DbSql.SQL1))
Else
DbSql.SQL1.Initialize(xui.DefaultFolder, dbName, True)
Log("Database already exists")
End If
Catch
Log("InitializeDatabase Error: " & LastException.Message)
End Try
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
DbSql.SQL1.Initialize(xui.DefaultFolder, dbName, True)
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
DbSql = B4XPages.MainPage
B4XPages.SetTitle(Me, "Dashboard")
paydetail.Initialize
'pgSingle.Initialize
B4XPages.AddPage("idAdd",paydetail)
'B4XPages.AddPage("idSingle",pgSingle)
InitializeDatabase
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
End Sub
Private Sub Button2_Click
B4XPages.ShowPage("idAdd")
End Sub