FiveTech Software tech support forums

Code: Select all

 /*
	FUNCION ESTATICA SoliAcces()
	Dialogo que validar las cuentas de usuarios para ingresar al sistema
*/	
STATIC FUNCTION SoliAcces()

	LOCAL oDClave, oBrush, oGet[2]

	MEMVAR oApp

	oApp:cUsuario := SPACE(10) 
	oApp:cClave   := SPACE(6)
   oApp:lLogID   := .F.
   
   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.)

	oApp:aDerechos = DerechUser( oApp:cUsuario )

	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
 

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

&&----------------------------------------------------------------------------&&

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
}