FiveTech Software tech support forums

Code: Select all  Expand view

Tables( oMain, oCard:oBodyCard, nInd, "SimpleAccessData", { 1, 2, 3, 4, 6 }, 1, "100%", "2.0vh", , , "table-responsive-00025", {}, "GET"  ) }
 

Code: Select all  Expand view

Function Tables( oMain, oParent, nInd, cTable, aCols, nColKey, nW, nHF, nLen, lOrder, cId2, aCols2, cType )
   hb_default( @cTable, "SimpleAccessData" )     // id html element table
   hb_default( aCols, { 1, 2, 3, 4, 6 } )
   hb_default( @nColKey, 1 )
   hb_default( @cId2, "table-responsive-00025" )
   hb_default( @lOrder, .T. )
   hb_default( @aCols2, {} )
   hb_default( @oParent, oCard:oBodyCard )
   hb_default( @nHF, "2.3vh" )
   hb_default( @cType, "POST" )

   oTable1 := TTableData():New( , oMain, , oParent, , .F. )
   WITH OBJECT oTable1
      :SetSourceTable( cType, "adosql.prg", cTable, aCols, nColKey, cId2, aCols2 )   // adosql.prg: harbour code return json
      :SetPageLenght( nLen )
      :SetOrdering( lOrder )
      :SetScrollCollapse( .t. )

      :SetSizeFont( nHF )
      :SetFamFont( "Roboto" )
      :SetColor( "#FFFFF0", )
      cStr := :Activate( "tabledata1", , , nInd, .F. )
   END
 

cnavarro wrote:Yes, I have also had a function for years to make an html table from a data source (array), but for me it is essential that privacy is maintained. That is the reason for using AJAX and that when you see "Source code" on a web page, you do not see the data contained in the table

Antonio Linares wrote:
> A function AP_xbrowse (), AP_recordEdit (), AP_Login() would be ideal

I fully agree with you

Code: Select all  Expand view

//  {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}

#include {% TWebInclude() %}

function main()

    local o, oCol, oBrw
    local aRows     := {}   
    local cLoren    := "Lorem Ipsum is simply dummy text of the printing and typesetting industry." 
       
    Aadd( aRows, { 'id' => 'A1', 'name' => 'Charly Aubia' , 'married' => .T., 'qty' => 12, 'date' => '2020-01-01', 'memory' => 'Hola' } )
    Aadd( aRows, { 'id' => 'ZZ', 'name' => 'Only name defined !'})
    Aadd( aRows, { 'id' => 'A2', 'name' => 'Maria de la O', 'married' => .F., 'qty' =>  7, 'date' => '2020-01-02', 'memory' => cLoren } )
    Aadd( aRows, { 'id' => 'A3', 'name' => 'John Kocinsky', 'married' => .F., 'qty' => 23, 'date' => '2020-01-03', 'memory' => '' } )   
    Aadd( aRows, { 'id' => 'A4', 'name' => 'Anne Clark'   , 'married' => .T., 'qty' =>100, 'date' => '2020-01-04', 'memory' => 'Test memory' } )   
    Aadd( aRows, { 'id' => 'A5', 'name' => 'Daniel Clark' , 'married' => .T., 'qty' =>  0, 'date' => '2020-01-05', 'memory' => 'Ep!' } )   
    Aadd( aRows, { 'id' => 'A6', 'name' => 'Rod Steward'  , 'married' => .F., 'qty' => 98, 'date' => '2020-01-06', 'memory' => 'Baby Jean' } ) 
    Aadd( aRows, { 'id' => 'A7', 'name' => 'Ally McPerson', 'married' => .F., 'qty' => 72, 'date' => '2020-01-07', 'memory' => '' } )   
    Aadd( aRows, { 'id' => 'A8', 'name' => 'Bruce Polest' , 'married' => .F., 'qty' => 13, 'date' => '2020-01-08', 'memory' => 'Memory...' } ) 
    Aadd( aRows, { 'id' => 'A9', 'name' => 'James Stewart', 'married' => .T., 'qty' => 84, 'date' => '2020-01-09', 'memory' => '' } )   
    Aadd( aRows, { 'id' => 'A10','name' => 'Sens Lange'   , 'married' => .F., 'qty' => 53, 'date' => '2020-01-10', 'memory' => '' } )   

    DEFINE WEB oWeb TITLE 'xBrowse' TABLES INIT
   
    DEFINE FORM o

        HTML o INLINE '<h3>Basic xBrowse</h3><hr>'     
       
    INIT FORM o        
       
        DEFINE BROWSE ID 'ringo' DATA aRows OF o
   
    END FORM o 
   
retu nil

Code: Select all  Expand view

    INIT FORM o        
       
        xBrowse( o, 'ringo', aRows )
   
    END FORM o