B4J Tutorial [BANanoVuetifyAD3] Create Professional Looking Vuetify WebSites & WebApps with BANano

Sub loadlogs
    'read the transactions logs using php
    dtLogs.UpdateLoading(True)
    'clear the contents
    dtLogs.Reload(home.NewList)
    'use php to read the log files and load to a table
    Dim php As BANanoPHP
    php.Initialize("", False)
    'read the file contents
    Dim strContents As String = banano.Await(php.FileReadWait(tranLog))
    'convert file to list
    Dim recs As List = BANanoShared.StrParse(CRLF, strContents)
    'split each line
    Dim logsc As List
    logsc.Initialize
    Dim logCnt As Int = 0
    For Each logentry As String In recs
        logentry = logentry.Trim
        If logentry = "" Then Continue
        logCnt = logCnt + 1
        Dim record As List = BANanoShared.StrParse("~~", logentry)
        Dim nrec As Map = CreateMap()
        nrec.Put("id", logCnt)
        nrec.Put("filename", record.Get(0))
        nrec.Put("section", record.Get(1))
        nrec.Put("action", record.Get(2))
        nrec.Put("result", record.Get(3))
        nrec.Put("pickdate", BANanoShared.DateNow)
        nrec.Put("picktime", BANanoShared.TimeNow)
        logsc.Add(nrec)
    Next
    dtLogs.Reload(logsc)
    dtLogs.UpdateLoading(False)
End Sub

dim lst As List = dtTable.GetSelected

private Sub dtProperties_deleteall_click (e As BANanoEvent)
    'get the selected records from the data-table
    Dim selRecords As List = dtProperties.GetSelected
    Log(selRecords)
    For Each rec As String In selRecords
        Log(rec)
    Next
End Sub

dtProperties_deleteall_click (e As BANanoEvent)

sub dtProperties_customaction (item As Map)
End Sub

Public COLUMN_DATE As String = "date"
    Public COLUMN_TEXT As String = "text"
    Public COLUMN_ICON As String = "icon"
    Public COLUMN_CHECKBOX As String = "checkbox"
    Public COLUMN_NONE As String = ""
    Public COLUMN_TIME As String = "time"
    Public COLUMN_DATETIME As String = "datetime"
    Public COLUMN_IMAGE As String = "image"
    Public COLUMN_MONEY As String = "money"
    Public COLUMN_NUMBER As String = "number"
    Public COLUMN_FILESIZE As String = "filesize"
    Public COLUMN_CHIP As String = "chip"
    Public COLUMN_EDIT As String = "edit"
    Public COLUMN_DELETE As String = "delete"
    Public COLUMN_ACTION As String = "action"
    Public COLUMN_SWITCH As String = "switch"
    Public COLUMN_AVATARIMG As String = "avatarimg"
    Public COLUMN_AVATARTXT As String = "avatartxt"
    Public COLUMN_AVATARICON As String = "avataricon"
    Public COLUMN_RATING As String = "rating"
    Public COLUMN_LINK As String = "link"
    Public COLUMN_LINK1 As String = "link1"
    Public COLUMN_PROGRESS_CIRCULAR As String = "progresscircular"
    Public COLUMN_PROGRESS_LINEAR As String = "progresslinear"
    Public COLUMN_SAVE As String = "save"
    Public COLUMN_CANCEL As String = "cancel"
    Public COLUMN_BUTTON As String = "button"
    Public COLUMN_COMBOBOX As String = "combo"
    Public COLUMN_AUTOCOMPLETE As String = "autocomplete"
    Public COLUMN_TEXTFIELD As String = "textfield"
    Public COLUMN_TEXTAREA As String = "textarea"
    Public COLUMN_SELECT As String = "select"
    Public COLUMN_RAG_SMILEY As String = "ragsmiley"
    Public COLUMN_RAG_CIRCLE As String = "ragcircle"
    Public COLUMN_UP_DOWN As String = "updown"
    Public COLUMN_REACTION As String = "reaction"
    Public COLUMN_GENDER As String = "gender"

  Public COLUMN_RAG_SMILEY As String = "ragsmiley"
    Public COLUMN_RAG_CIRCLE As String = "ragcircle"
    Public COLUMN_UP_DOWN As String = "updown"
    Public COLUMN_REACTION As String = "reaction"
    Public COLUMN_GENDER As String = "gender"

'for smiles & circles
    Public const RAG_RED As Int = 1
    Public const RAG_AMBER As Int = 2
    Public const RAG_GREEN As Int = 3
    Public const RAG_UNKNOWN As Int = 4        ' not for smileys
    '
    Public const REACT_LIKE As Int = 1
    Public const REACT_LOVE As Int = 2
    Public const REACT_HAHA As Int = 3
    Public const REACT_WOW As Int = 4
    Public const REACT_SAD As Int = 5
    Public const REACT_ANGRY As Int = 6
    '
    Public const KPI_UP As Int = 1
    Public const KPI_DOWN As Int = 2
    '
    Public const GENDER_F As Int = 1
    Public const GENDER_M As Int = 2

vuetify.OnCreated("startheartbeat", Null)

Sub startheartbeat
    'start the heartbeat to save the session state
    vuetify.StartHeartBeat(True, 5000)
End Sub

vuetify.OnCreated("startheartbeat", Null)
vuetify.OnDestroyed("stopheartbeat", Null)

Sub startheartbeat
    Log("pgIndex.startheartbeat every 5 seconds...")
    'start the heartbeat to save the session state
    vuetify.StartHeartBeat(True, 5000)
End Sub

Sub stopheartbeat
    Log("pgIndex.stopheartbeat...")
    vuetify.StopHeartBeat
End Sub

pgIndex.ReadSession

Sub pagecreated
    Log($"${name}.startheartbeat, every 5 seconds..."$)
    home.StartHeartBeat(False, 5000)

etc

Sub stopheartbeat
    Log($"${name}.stopheartbeat..."$)
    home.StopHeartBeat
End Sub

'clear any existing parameters
 usersDS.CLEAR_PARAMETERS
 'add the parameter types
 usersDS.ADD_PARAMETER_STRING(username)
 'execute the query
 usersDS.CUSTOM_QUERY("getuserbyname", $"SELECT * FROM users where username = ?"$)

Private Sub usersDS_Done (Action As String, Success As Boolean, Response As String, Error As String, affectedRows As Int, Result As List)
    loginDialog.OkLoading = False
    Log(Result)
    Log(Error)
 
    If Success And Response = usersDS.RESULT_SUCCESS Then
        'we have a success, will execute next lines
    Else
        vuetify.ShowSwalError("The operation could not be executed, please try again!")
         Return
    End If

    Select Case Action
        Case "getuserbyname"
    Case "B"
    Case "C"
    End Select
End Sub

'add a string parameter, these will translate to [s = string, i = integer, d = double,  b = blob]
public Sub ADD_PARAMETER_STRING(fldName As String)
    qparameters.Put(fldName, "s")
    bUsesParameters = True
End Sub

'add an integer parameter, these will translate to [s = string, i = integer, d = double,  b = blob]
public Sub ADD_PARAMETER_INTEGER(fldName As String)
    qparameters.Put(fldName, "i")
    bUsesParameters = True
End Sub

'add an integer parameter, these will translate to [s = string, i = integer, d = double,  b = blob]
public Sub ADD_PARAMETER_DOUBLE(fldName As String)
    qparameters.Put(fldName, "d")
    bUsesParameters = True
End Sub

'add an integer parameter, these will translate to [s = string, i = integer, d = double,  b = blob]
public Sub ADD_PARAMETER_BLOB(fldName As String)
    qparameters.Put(fldName, "b")
    bUsesParameters = True
End Sub

Private Sub usersDS_getuserbyname (Success As Boolean, Response As String, Error As String, affectedRows As Int, Result As List)
    loginDialog.OkLoading = False
    Log(Result)
    Log(Error)
    
    If Success And Response = usersDS.RESULT_SUCCESS Then
        'we have a success, will execute next lines
    Else
        vuetify.ShowSwalError("The operation could not be executed, please try again!")
         Return
    End If
End Sub

    Vuetify.SwalPosition = "top-end"
    Vuetify.SwalTimer = 2000

Public const SWAL_TOP As String = "top"
    Public const SWAL_TOP_START As String = "top-start"
    Public const SWAL_TOP_END As String = "top-end"
    Public const SWAL_CENTER As String = "center"
    Public const SWAL_CENTER_START As String = "center-start"
    Public const SWAL_CENTER_END As String = "center-end"
    Public const SWAL_BOTTOM As String = "bottom"
    Public const SWAL_BOTTOM_START As String = "bottom-start"
    Public const SWAL_BOTTOM_END As String = "bottom-end"