B4J Tutorial [ABMaterial] Dashboard Creation with JustGage

Mashiane · Apr 9, 2017

My ABMTable refresh method...

B4X:

Private Sub LoadProcurementPlan(fromPage As Int)
    'Lets get the component from the page.
    Dim tblProcPlan As ABMTable = page.Component("tblProcPlan")
    CurrentLabels.Initialize
    CurrentValues.Initialize
    'Define list to store the results of the query
    Dim results As List
    Dim resCnt As Int
    Dim resTot As Int
    Dim resMap As Map
    Dim sqlQry As String
    'Read arguments from LocalStorage (if any)
    Dim id As String = ABMShared.SessionStorageRead(page, "ProcurementPlanid")
    'Get the record linked to this record id
    Dim RecordJSON As String = ABMShared.SessionStorageRead(page, id)
    'Convert this record to a map from json
    Dim RecordMap As Map = ABMShared.Json2Map(RecordJSON)
    page.Pause
    'Let's define the qry string
    sqlQry = "select * from ProcurementPlan order by SeqNumber " & Filter & " " & LastSort & " LIMIT " & ((fromPage - 1) * 10) & ", 10"
    'Get connection from current pool if MySQL/MSSQL
    Dim SQL As SQL = ABMShared.SQLGet
    'Get the number of records
    Dim SQL_str As String
    SQL_str = "Select Count(id) As IDS FROM ProcurementPlan " & FilterCount
    Dim NumRecords As Int = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Null)
    'Get the records as a list of maps from the db
    results = ABMShared.SQLExecuteMaps(SQL, sqlQry, Null)
    'Close the connection to the database
    ABMShared.SQLClose(SQL)
    If results.Size = 0 And fromPage > 1 Then
        'we are on a page without any lines
        fromPage = fromPage - 1
        LoadProcurementPlan(fromPage)
        Return
    End If
    tblProcPlan.Clear
    'Loop throught each record read and process it
    resTot = results.size - 1
    For resCnt = 0 To resTot
        'Get the record map
        resMap = results.get(resCnt)
        'Update each table row
        Dim rCellValues As List
        Dim rCellThemes As List
        rCellValues.Initialize
        rCellThemes.Initialize
        Dim id As String = resMap.GetDefault("id", "")
        If id = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(id)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim SeqNumber As String = resMap.GetDefault("seqnumber", "1")
        If SeqNumber = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(SeqNumber)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim FinYear As String = resMap.GetDefault("finyear", "2016/17")
        If FinYear = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(FinYear)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Programme As String = resMap.GetDefault("programme", "")
        ABMShared.SessionStorageSave(page, "programme", Programme)
        If Programme = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Number As Outcome FROM ProgrammesSet Where Id = ?"
            Programme = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Programme))
            rCellValues.Add(Programme)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim ClassOfGoods As String = resMap.GetDefault("classofgoods", "")
        ABMShared.SessionStorageSave(page, "classofgoods", ClassOfGoods)
        If ClassOfGoods = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Description As Outcome FROM ClassOfGoods Where id = ?"
            ClassOfGoods = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(ClassOfGoods))
            rCellValues.Add(ClassOfGoods)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Description As String = resMap.GetDefault("description", "")
        If Description = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(Description)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Resource As String = resMap.GetDefault("resource", "")
        ABMShared.SessionStorageSave(page, "resource", Resource)
        If Resource = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select ResourceName As Outcome FROM Resources Where id = ?"
            Resource = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Resource))
            rCellValues.Add(Resource)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Status As String = resMap.GetDefault("status", "")
        ABMShared.SessionStorageSave(page, "status", Status)
        If Status = "" Then
            rCellValues.Add("{NBSP}")
        Else
            Dim SQL_str As String
            SQL_str = "Select Description As Outcome FROM ProcurementStatus Where id = ?"
            Status = ABMShared.SQLSelectSingleResult(SQL, SQL_str, Array As String(Status))
            rCellValues.Add(Status)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Budget As String = resMap.GetDefault("budget", "0.00")
        If Budget = "" Then
            rCellValues.Add("{NBSP}")
        Else
            '*** Start output format
            Budget = ABMShared.makemoney(Budget)
            '*** End output format
            rCellValues.Add(Budget)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolorr")
        Dim Expenditure As String = resMap.GetDefault("expenditure", "0.00")
        If Expenditure = "" Then
            rCellValues.Add("{NBSP}")
        Else
            '*** Start output format
            Expenditure = ABMShared.makemoney(Expenditure)
            '*** End output format
            rCellValues.Add(Expenditure)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolorr")
        Dim AdvertDate As String = resMap.GetDefault("advertdate", "DateTime.Now")
        If AdvertDate = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(AdvertDate)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim CompletionDate As String = resMap.GetDefault("completiondate", "DateTime.Now")
        If CompletionDate = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(CompletionDate)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim Comment As String = resMap.GetDefault("comment", "")
        If Comment = "" Then
            rCellValues.Add("{NBSP}")
        Else
            rCellValues.Add(Comment)
        End If
        'Add theme to the cell
        rCellThemes.Add("nocolor")
        Dim btnEditProcurementPlan As ABMButton
        btnEditProcurementPlan.InitializeFloating(page, "btnEditProcurementPlan", "mdi-action-visibility", "")
        rCellValues.Add(btnEditProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnDetailProcurementPlan As ABMButton
        btnDetailProcurementPlan.InitializeFloating(page, "btnDetailProcurementPlan", "mdi-action-list", "")
        rCellValues.Add(btnDetailProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnCopyProcurementPlan As ABMButton
        btnCopyProcurementPlan.InitializeFloating(page, "btnCopyProcurementPlan", "mdi-content-content-copy", "")
        rCellValues.Add(btnCopyProcurementPlan)
        rCellThemes.Add("openedit")
        Dim btnDeleteProcurementPlan As ABMButton
        btnDeleteProcurementPlan.InitializeFloating(page, "btnDeleteProcurementPlan", "mdi-action-delete", "")
        rCellValues.Add(btnDeleteProcurementPlan)
        rCellThemes.Add("openedit")
        'Add the row to the table
        tblProcPlan.AddRow("id" & resCnt, rCellValues)
        tblProcPlan.SetRowThemes(rCellThemes)
    Next
    'Update the paginating component
    Dim pager As ABMPagination = page.Component("ProcurementPlanPager")
    If (NumRecords Mod MaxRows > 0) Or (NumRecords = 0) Then
        NumRecords = NumRecords/MaxRows + 1
    Else
        NumRecords = NumRecords/MaxRows
    End If
    pager.SetTotalNumberOfPages(NumRecords)
    pager.SetActivePage(fromPage)
    pager.Refresh
    tblProcPlan.Refresh
    page.Resume
    RefreshOnLoad_jg2048
End Sub

The table is cleared, its records and related records are read from the respective tables and ABMTable updated. Now lets look at the RefreshOnLoad_jg2048 method.

Mashiane · Apr 9, 2017

Refreshing the dashboard justgage is only about updating the value and the max values. These values depend on the captured expenditure and captured budget per record in the ABMTable.

B4X:

Private Sub RefreshOnLoad_jg2048()
    'Read arguments from LocalStorage (if any)
    'Add a spinner to the page
    page.Pause
    'Get connection from current pool if MySQL/MSSQL or SQLite
    Dim jSQL As SQL = ABMShared.SQLGet
    'Get the value
    Dim jgValue As Double = ABMShared.SQLSelectSingleResult(jSQL, "select sum(expenditure) from ProcurementPlan", Null)
    'Get the total
    Dim jgMaxValue As Double = ABMShared.SQLSelectSingleResult(jSQL, "select sum(budget) from ProcurementPlan", Null)
    'Close the connection to the database
    ABMShared.SQLClose(jSQL)
    jg2048.Value = jgValue
    jg2048.MaxValue = jgMaxValue
    jg2048.ABMComp.Refresh
    page.resume
End Sub

So this method does basically that. The value and maxvalues read record from the records in the table and then the JustGage is refreshed. As any of the properties of the JustGage can be changed before a refresh, I had tweaked it a little bit to ensure that such happens.

This dashboard gage does not have a pointer and the values have K and M on them, this was achieved by turning humanfriendly = true.

Ta!

That's all folks...

Mashiane · Apr 9, 2017

These are some variants of the dashboards done using the same approach.

incendio · Aug 30, 2017

Your UI is beautiful while mine is horrible.

How do you make line under the row in table?

alwaysbusy · Aug 30, 2017

This is a property of the table:

B4X:

Dim myTbl As ABMTable
myTbl.Initialize(page, "myTbl", False, False, True, "tblTheme")
myTbl.IsBordered = True
...

incendio · Aug 30, 2017

alwaysbusy said:
This is a property of the table:

B4X:

Dim myTbl As ABMTable myTbl.Initialize(page, "myTbl", False, False, True, "tblTheme") myTbl.IsBordered = True ...

I have used that, but see no line, perhaps it was blend with my table rows color, with is also grey. Will check again, thanks for your help.

B4J Tutorial [ABMaterial] Dashboard Creation with JustGage

Mashiane

Expert

Mashiane

Expert

Mashiane

Expert

incendio

Well-Known Member

alwaysbusy

Expert

incendio

Well-Known Member

Similar Threads