Code: Select all
#include "FiveWin.ch"
function Main()
LOCAL oDClave, oBrush, oGet[2]
MEMVAR oApp
PUBLIC oApp:= TMyApp()
oApp:cUsuario := SPACE(10)
oApp:cClave := SPACE(6)
oApp:lLogID := .F.
oApp:Color2007 := nRGB( 191, 219, 255 )
DEFINE BRUSH oBrush COLOR oApp:Color2007
DEFINE DIALOG oDClave RESOURCE "DLG_ACCESO" HELPID 2 ;
BRUSH oBrush TRANSPARENT
REDEFINE GET oGet[1] VAR oApp:cUsuario ID 2 OF oDClave UPDATE PICTURE "@!"
REDEFINE GET oGet[2] VAR oApp:cClave ID 3 OF oDClave UPDATE PICTURE "@!"
ACTIVATE DIALOG oDClave CENTERED ;
ON INIT AccToolBar( oDClave ) VALID ( oBrush:End(), .T.)
RETURN oApp:lLogID
/*
FUNCION ESTATICA AccToolBar()
Agrega la barra de herramientas al dialogo
*/
STATIC FUNCTION AccToolBar( oDClave )
LOCAL oBar
DEFINE BUTTONBAR oBar SIZE 35, 35 DIALOG oDClave 2007
DEFINE BUTTON OF oBar NAME "Clave" TOOLTIP "Validar datos" ;
ACTION IF( ValidaClave(), oDClave:End(), .T. )
DEFINE BUTTON OF oBar NAME "Salir" TOOLTIP "Salir" ;
ACTION oDClave:End() GROUP
RETURN NIL
/*
FUNCION ESTATICA ValidaClave( cUsuario, cClave, oGet )
Donde:
- cUsuario ID del usuario
- cClave Clave del usuario
- oGet Incluye el objeto de los Get´s
Funcion que valida los datos del Get de codigo de Gastos
*/
STATIC FUNCTION ValidaClave()
LOCAL lValRet := .F., cMy_User, cMy_Clave
MEMVAR oApp, oData_Odbc
IF !EMPTY( oApp:cClave )
lValRet := .T.
ELSE
lValRet := .F.
MsgStop( "Nombre de Usuario o clave no valida" , "Atención" )
ENDIF
oApp:lLogID := lValRet
RETURN lValRet
/*
CLASE TMyApp
Datos de configuracion del sistema que seran publicos
*/
CLASS TMyApp
DATA cUsuario INIT "SUPERVISOR"
DATA cClave INIT "Max"
DATA lLogID INIT .F.
DATA Color2007 INIT 0
ENDCLASS
&&----------------------------------------------------------------------------&&
PROCEDURE AppSys && XBase++ requirement
RETURN
&&----------------------------------------------------------------------------&&
y lo que es el archivo RC es el siguiente :
Code: Select all
/*
contab.rc
produced by Borland Resource Workshop
*/
1 24 "WindowsXP.Manifest"
#include "..\..\fwh\include\winapi.ch"
Clave BITMAP "bitmaps/clave.bmp"
Salir BITMAP "bitmaps/salir.bmp"
DLG_ACCESO DIALOG 61, 100, 95, 72
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "ID Usuario"
FONT 8, "Tahoma"
{
EDITTEXT 2, 39, 36, 46, 12, WS_BORDER | WS_TABSTOP
EDITTEXT 3, 39, 51, 46, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP
LTEXT "Usuario", -1, 10, 38, 28, 10
LTEXT "Clave", -1, 10, 53, 24, 10
}
