FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index mod_harbour PROBANDO
Posts: 17
Joined: Tue Aug 25, 2020 10:05 PM
PROBANDO
Posted: Wed Sep 09, 2020 11:19 PM
Buenas

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 (fw): Select all Collapse
//  {% 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


¿Como puedo indicar que el Get de la contraseña no se vea lo que se teclea?

y por otro lado al pulsar sobre el Boton no ejecuta lo puesto en <action>.

¿Hay documentacion de tWeb para mod_harbour?

Gracias
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: PROBANDO
Posted: Thu Sep 10, 2020 02:30 PM
PGO,

¿Como puedo indicar que el Get de la contraseña no se vea lo que se teclea?


Clausula TYPE --> GET ID 'Pass' VALUE "" GRID 12 PLACEHOLDER 'Introduzca su Cóntraseña...' LABEL 'Contraseña' TYPE 'password' OF o

Los type que s epueden utilizar son los standard html5 -> https://www.w3schools.com/tags/att_input_type.asp

y por otro lado al pulsar sobre el Boton no ejecuta lo puesto en <action>.


<action> es una funcion Javascript. Revisa ejemplo tutor2.prg

¿Hay documentacion de tWeb para mod_harbour?


No. Pendiente de realizar. Si quieres conocer los parámetros revisa los ejemplos o el fichero de preprocesado tweb.ch
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 17
Joined: Tue Aug 25, 2020 10:05 PM
Re: PROBANDO
Posted: Thu Sep 10, 2020 03:49 PM

Gracias por tus aclaraciones,

Un Saludo

Continue the discussion