Como hago la Validación al acceso del sistema

Tengo problemas con el acceso al sistema ya que no me deja validar que la clave sea la misma que la del nomb de usuario con el cual entra, lo único que logro hacer que si encuentra ambas en la bd entre pero no las hago coincidir osea usuario y clave de bd = al usuario y clave que introduce... Este es el código que uso:como hago porque intente con el like y tampoco...
SELECT usuario
 SET ORDER TO NOMBREU
 if .not.empty (thisform.text1.value)and .not.empty (thisform.text2.value)
   seek alltrim (thisform.text1.value)
   if found()
    ***esto no me lo hace***if (thisform.text2.value=usuario.claveu) 
    SELECT usuario
    SET ORDER TO claveu
    seek alltrim (thisform.text2.value)
    if found()   
     thisform.release()
     n=usuario.nivelu
     fecha_acceso=thisform.text4.value
     hora_acceso=time()
     usuario_acceso=thisform.text1
     messagebox("Bienvenido al Sistema SICESIPASQ",64,"Verificación de Acceso")
     do form "C:\sicesipasq\FORMS\bienvenida.scx"
     do "C:\sicesipasq\MENUS\menú.mpr"

1 respuesta

Respuesta
1
Perdón por la tardanza en responder, no había tenido acceso a Internet.
Intenta con algo similar a:
With ThisForm
  If !Empty(.text1.Value) And !Empty(.text2.Value)
    SELECT usuario
    Set Order To nombreu
    Seek Alltrim( .text1.value )
    If !Eof() And .text2.value == usuario.claveu
      .Release
      n = usuario.nivelu
      fecha_acceso = .text4.Value
      hora_acceso = Time()
      usuario_acceso = .text1.Value
      MessageBox( "Bienvenido al Sistema SICESIPASQ", 64, "Verificación de Acceso")
      Do Form bienvenida
      Do menú. Mpr
    EndIf
  EndIf
EndWith

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

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

Cuadro de textos

Espero que estés bien, mi pregunta es como trabajar con los cuadro de texto de visual foxpro para asignarle valores o algoritmos; por ejemplo en un formulario que contiene un valor como cuota inicial y otro cuota final como hago para que en el campo...
1 respuesta

Buscar datos en una tabla

Nuevamente yo haciendo una consulta. Tengo una Tabla y un Formulario; En la Tabla están los campos "Usuario" y "Contraseña". En el Formulario tengo dos (2) Textos y un botón de comando. Bueno la cuestión es que deseo ingresar en el Text1 el "Usuario"...
1 respuesta

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

Set focus no me funciona

Te agradecería mucho si me puedes ayudar con esta duda: Tengo un formulario que contiene 4 cuadros de texto: código, nit, nombre y dirección. Lo que necesito es que cuando este posicionado en código, los tres cuadros siguientes se desactiven, y que...
1 respuesta

Mostrar datos de Tabla en Combobox según condición

Recurro nuevamente a tu saber, pero antes van mis disculpas por la pregunta que a primera instancia parecería que ya fue constestada por ahí. Ahora, tengo un formulario con 3 Textbox's y 1 Combobox además de una Tabla "Datos.DBF" La Tabla "Datos.DBF"...
1 respuesta

Comando locate en foxpro

Estoy iniciando en foxpro antes usaba visual basic. USE "C:\Documents and Settings\Administrador\Mis documentos\Visual FoxPro Projects\usuarios.dbf" rpassword=thisform.text1.Text Locate for clave = rpassword IF FOUND() then MESSAGEBOX("Bienvenido(a)...
2 respuestas

Sumar Cifras De Dos o más Textboxs

Quisiera saber cual es la manera de proceder para sumar las cifras (números) contenidos en dos textbox. Tengo el text1 y el text2 en un form. Como hago para sumar los números que introduzca en estos, ¿En un tercer textbox (text3)? De antemano Muchas...
1 respuesta