www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all | Expand
Tables( oMain, oCard:oBodyCard, nInd, "SimpleAccessData", { 1, 2, 3, 4, 6 }, 1, "100%", "2.0vh", , , "table-responsive-00025", {}, "GET" ) }
Code: Select all | Expand
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
. When you load the data via Ajax, you can also see the data...Antonio Linares wrote:
> A function AP_xbrowse (), AP_recordEdit (), AP_Login() would be ideal
I fully agree with you
Code: Select all | Expand
// {% 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
INIT FORM o
xBrowse( o, 'ringo', aRows )
END FORM o