He instalado MOD_HARBOUR, WDO y TWEB.
Con WDO conecto perfectamente con Mysql hago consultas, las muestro, etc.
Pero estoy probando Tweb haciendo una aplicación que pida Usuario y contraseña y verificarlo en una BD de Mysql. El Código es el siguiente:
Code: Select all
// {% LoadHRB( '/lib/wdo/wdo_lib.hrb' ) %} // Loading WDO lib
// {% LoadHrb( 'lib/tweb/tweb.hrb' ) %}
#include {% TWebInclude() %}
*--------------------------------------------------------------------
function main()
local oWeb, o, cStyle:=""
local hParameters := AP_PostPairs()
set epoch to 1950
set date to italian
DEFINE WEB oWeb TITLE 'ACCESO' INIT
TEXT TO cStyle
<style>
.jumbotron{
background: url("images/imagen.jpg") no-repeat center center;
background-size: 100% 100%;
}
</style>
ENDTEXT
?? cStyle
Banner()
define form o ID 'demo'
o:lDessign := .f.
o:cSizing := '' // SM/LG
init form o
ROWGROUP o
GET ID 'User' VALUE "" GRID 12 PLACEHOLDER 'Introduzca su Código...' LABEL 'Usuario' OF o
GET ID 'Pass' VALUE "" GRID 12 PLACEHOLDER 'Introduzca su Cóntraseña...' LABEL 'Contraseña' OF o
end o
ROWGROUP o
BUTTON ID 'btn1' LABEL 'Aceptar' GRID 4 action 'aceptar()' OF o
end o
end form o
return nil
*--------------------------------------------------------------------
function Aceptar()
?? "Ha pulsado Aceptar"
return .t.
*--------------------------------------------------------------------
function Banner()
LOCAL cHtml := ''
TEXT TO cHtml ECHO
<div class="jumbotron">
<div class="container">
</div>
</div>
ENDTEXT
retu nil
y por otro lado al pulsar sobre el Boton no ejecuta lo puesto en <action>.
¿Hay documentacion de tWeb para mod_harbour?
Gracias
