FoxPro/Visual FoxPro - Formulario de Ingreso no funciona

   
Vista:

Formulario de Ingreso no funciona

Publicado por William  (2 intervenciones) el 02/08/2008 23:34:26
Estimados he creado un formulario de ingreso para seguridad de mi aplicacion
pero al ingresar me aparece el cuadro de dialogo con la base de datos para seleccionar la tabla de usuarios del sistema, pueden darme una mano ?.. gracias por anticipado

el codigo
==============
SET EXACT ON
public sw
sw=.f.
v1=allt(thisform.text1.value)
v1=thisform.encriptar(v1,1)
v2=allt(thisform.text2.value)
v2=thisform.encriptar(v2,1)
IF EMPTY(V1) OR EMPTY(V2) THEN
=messagebox("Introduzca usuario y clave")
RETURN
endif
IF (con<3 and sw=.f.) THEN
locate for login=v1
IF FOUND() THEN
LOCATE FOR password1=v2
if found() then
VUSUARIO=THISFORM.TEXT1.VALUE
VNIVEL=NIVEL
ELSE
_SCREEN.CAPTION="SISTEMA - COPIA LIMITADA [[ALMACEN # "+ALLT(STR(VALMACEN))+" ]]"
ENDIF
do form presentacion
sw=.t.
RELEASE THISFORM
ELSE
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT2.SETFOCUS
=MESSAGEBOX("Clave incorrecta")
con=con+1
endif
else
=MESSAGEBOX("Usuario incorrecto")
con=con+1
endif

IF CON=3 THEN
CON=0
THISFORM.RELEASE
set sysmenu to defa
clear events
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Formulario de Ingreso no funciona

Publicado por Mauricio (1368 intervenciones) el 02/08/2008 23:54:35
Willian, debes abrir una tabla que supongo que es donde tienes el usuario y su clave, no veo donde la abres. A eso se debe el cuadro de dialogo.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Formulario de Ingreso no funciona

Publicado por HELDER MARTINEZ (710 intervenciones) el 04/08/2008 17:25:10
DEBES ABRIR O SELECCIONAR UNA TABLA

POR EJEMPLO;

SELECT TU_TABLA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar