Programa de inicio en foxpro

hola amigo como puedo hacer para que mi formulario de inicio poder seleccionar un mas de un un usuario nada más entra en el primer usuario.

en el text1 tengo el siguiente código en el evento valid

SE LE usuario
*_screen.fondo.picture = fondo
GO TOP
SET INDEX TO usuario ORDE 1
*SET INDEX TO ci tag
IF !empty(THISFORM.TEXT1.VALUE)
SEEK (alltrim(THISFORM.TEXT1.VALUE))
IF FOUND()
* _screen.fondo.picture = usuario.fondo
WAIT WINDOW AT 10,20 " Cargando... SISTEMA ADM L.C" TIMEOUT 2
thisform.Refresh
RELEASE thisform
* set class to XXX.VCX
* A1=createobject("PP")
* A1.dock(-0)
* A1.show
*SET PATH TO sys(5)+sys(2003)+"\prgs\"
DO BARRA
SET PATH TO sys(5)+sys(2003)+"\prgs\"
SET PATH TO sys(5)+sys(2003)+"\forms\"
SET EXACT OFF
ELSE
WAIT WINDOW AT 12,10 "Clave de Acceso/password Incorrecto...!" Nowait
THISFORM.TEXT1.VALUE=""
intentos=intentos+1
IF intentos>=5
thisform.text1.Enabled= .F.
thisform.banner1.texto.Caption="Demasiados intentos[F1]"
thisform.refresh
thisform.command1.Click
thisform.command1.Click
thisform.command1.Click
thisform.command1.Click
endif
ENDIF
ENDIF &&Fin de empty

y en el evento init del formulario

PUBLIC intentos
STORE 0 TO intentos

tengo una tabla usuario

ci carácter 10 nombre carácter 50 dirrecion carácter 50 teléfono carácter 10

gracias de antemano

1 Respuesta

Respuesta
1

¿Pero a que te refieres con que puede ingresar un solo usuario? ¿Te sale algún mensaje o que mismo no te permite hacer? Porque veo tu código y pues no veo nada raro

solo me elige un solo usuario osea si le ingreso otra clave de otro usuario no lo elige

entonces intenta en vez de usar el seek usa un locate for alltrim(ci) == alltrim(thisform.text1.value)

El resto iría igual, asumo que el campo ci es donde esta la clave sino pues le ubicas el campo donde se guarda la clave, ahí te debería funcionar sino me comentas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar tabla y mostrar resultado en grilla

Tengo que hacer un formulario en donde tengo un textbox y una grilla, cuando ingreso el nombre de un cliente en el text tengo que filtrar una tabla y mostrar todos los registros coincidentes en la grilla.
1 respuesta

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta

Busqueda CON SEEK

Programadores requiero de su ayuda, he creado un indice con mis campos sede+dtoc(fecha de ingreso)+cod_cli, el primero y el segundo son de tipo char, entonces cuando presiono guardar quiero que busque en la tabla si los registros son iguales y que el...
2 respuestas

Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación, 1ero en el Init del form SELECT agregarymodificar SET ORDER to CÓDIGO && CÓDIGO GO bott thisform.txtCodigo.value=agregarymodificar.código+1 thisform.refresh y luego en el click...
1 respuesta

Comparar dos cadenas

Tengo un form de validación que usa la tabla usuario y no puedo comparar el valor del campo usuario con el del text1. Aunque coincida el usuario no entra al if: do while !eof() if usuario = thisform.text1.value Messagebox("Entre al if") Endif Skip Enddo
1 respuesta

Usar set filter

Molestándote una vez más, y si quiero usar set filter, ¿Cómo debo hacer las cosas?, porque en el order me acuerdo que era así, pero en VFp 6.0 no me acepta el additive después del filter, ni antes del set filter, ni en medio, lo que quiero hacer es...
1 respuesta

Programa de inicio

Javier aquí preguntando de nuevo quisiera saber si me puedes mandar un ejemplo de crear un prg de inicio para los formularios y cerrar completamente tablas form y cerrar todo los formularios que se encuentra en memoria y los cursores al mismo tiempo
1 respuesta

Usuario y Contraseña validar

Quiero hacer un proyecto pero para poder acceder a ello tenque hacer un formulario login donde me pida el nombre de usuario y contraseña para ppoder acceder al formulario principal y que el nombre de usuario y contraseña que de guardado para cada...
1 respuesta

Vfp en red

Si tengo que desarrollar una aplicación que ingresan diferentes usuarios con contraseña, desde terminales a la Bd que esta en un servidor, si no puede pasar que varios usuarios estén actualizando al mismo tiempo una tabla, pero si que uno este...
1 respuesta

Trabajar en red

TEngo un program de captacion de comprobantes de diarios, y tengo dos maquinas en red, quiero que mi programa hecho en visual foxpro 9, se pueda ejecutar desde ambas maquinas y se almacene en una sola, si me puede decir como hacer esto, las dos...
1 respuesta