B4J Tutorial [Web][SithasoDaisy5] Designing Forms with the Abstract Designer

'Static code module
Sub Process_Globals
    Private BANano As BANano        'ignore
    Private app As SDUI5App            'ignore
    Private btnCancel As SDUI5Button
    Private btnSave As SDUI5Button
    Private cboQualification As SDUI5Select
    Private chkAgree As SDUI5CheckBox
    Private chkBreakfast As SDUI5CheckBoxGroup
    Private fpImage As SDUI5FileInput
    Private gsActivities As SDUI5GroupSelect
    Private pgTasks As SDUI5Progress
    Private rdGender As SDUI5RadioGroup
    Private rgSalary As SDUI5Range
    Private rtService As SDUI5Rating
    Private txtdob As SDUI5TextBox
    Private txtfirstname As SDUI5TextBox
    Private txtlastname As SDUI5TextBox
    Private txtPersonalDetails As SDUI5TextArea
End Sub


Sub Show(MainApp As SDUI5App)
    app = MainApp
    BANano.LoadLayout(app.PageView, "validationview")
    pgIndex.UpdateTitle("Validation")
End Sub


Private Sub btnSave_Click (e As BANanoEvent)
    'begin validation of components
    app.ResetValidation
    'validate each of the elements
    app.Validate(txtfirstname.IsBlank)
    app.Validate(txtlastname.IsBlank)
    app.Validate(txtdob.IsBlank)
    app.Validate(chkBreakfast.IsBlank)
    app.Validate(gsActivities.IsBlank)
    app.Validate(rdGender.IsBlank)
    app.Validate(rgSalary.IsBlank)
    app.Validate(rtService.IsBlank)
    app.Validate(cboQualification.IsBlank)
    app.Validate(txtPersonalDetails.IsBlank)
    app.Validate(chkAgree.IsBlank)
    app.Validate(fpImage.IsBlank)
  
'    app.Validate(txtEmail.IsBlank)
'    app.Validate(txtTelephone.IsBlank)
'    app.Validate(txtAddress.IsBlank)
'    app.Validate(radGender.IsBlank)
    'check the form status
    If app.IsValid = False Then
        app.ShowToastError("Please specify all required information!")
        Return
    End If
    '
    Dim rec As Map = CreateMap()
    rec.Put("firstname", txtfirstname.Value)
    rec.Put("lastname", txtlastname.Value)
    rec.Put("date_of_birth", txtdob.Value)
    rec.Put("breakfast", chkBreakfast.Value)
    rec.Put("activities", gsActivities.Value)
    rec.Put("gender", rdGender.Value)
    rec.Put("salary", rgSalary.Value)
    rec.Put("rate_service", rtService.Value)
    rec.Put("qualification", cboQualification.Value)
    rec.Put("personal_details", txtPersonalDetails.Value)
    rec.Put("agree", chkAgree.Checked)
    rec.Put("profile_image", fpImage.GetFile)
    Log(rec)
End Sub

Private Sub btnCancel_Click (e As BANanoEvent)
  
End Sub