Problemas formulario acceso
Buenos días tengo un inconveniente al desarrollar un formulario de
acceso a una aplicación en foxpro, el código lo extraje de una guía que
encontré en internet.
El problema es el siguiente estoy realiando todos los pasos que
allí se me indican y me aparece el mensaje NO EXISTEN USUARIOS, que
esta contenplado dentro del código ademas indica que no encuentra
C:\clasefoxusuarios.dbf, cuando en realidad debe buscar la tabla
usuarios.dbf solamente
cree una carpeta donde se almacena la tabla cías(compañías) y
usuarios y el formulario acceso necesito por favor que me corrija el
error que presenta este código
Este código pertenece al botón aceptar de la aplicación
* verificar informacion ingresada por el usuario
select cias
CodCia = alltrim(thisform.mCodigo.value)
seek CodCia
if found()
* verificar existencia en la tabla usuarios
mTabla = alltrim(cias.directorio)+"usuarios.dbf"
if! File(mTabla)
wait window "No Existen Usuarios" nowait
release thisform
Cancel
Endif
* Abrir tabla de usuarios de la cia ingresada
se le 2
use &mTabla order tag codigo
CodUsua = alltrim(thisform.mUsuario.value)
seek CodUsua
if found()
* Verificar clave
mclave = alltrim(thisform.mclave.value)
if alltrim (usuarios.clave) = mclave
*dejar entrar
wait window "Puede entrar al Sistema" nowait
release thisform
else
wait window "Clave Incorrecta" nowait
endif
else
* no existe usuario
wait window "Usuario no existe" nowait
endif
else
wait window "Compañia no Existe" nowait
endif
ESTE CODIGO PERTENECE AL FORMULARIO.INIT
set echo off
set talk off
set date to mdy
*enrutar al directorio base de la aplicacion
set default to c:\clasefox
public CodCia, NomCia, DirCia, CodUsua
CodCia = space (2)
NomCia = space (50)
DirCia = space (100)
CodUsua = space (10)
* tabla de las compañias
use cias order tag codigo
Por favor requiero su ayuda y sino me envía un modelo de formulario
para accesar a un sistema, lo que sucede en este caso es que el
programador quiere darle inteligencia al sistema que el mismo ubique la
ruta donde están las tablas, pero creo que tiene un error en la
programación. Gracias por su ayuda
acceso a una aplicación en foxpro, el código lo extraje de una guía que
encontré en internet.
El problema es el siguiente estoy realiando todos los pasos que
allí se me indican y me aparece el mensaje NO EXISTEN USUARIOS, que
esta contenplado dentro del código ademas indica que no encuentra
C:\clasefoxusuarios.dbf, cuando en realidad debe buscar la tabla
usuarios.dbf solamente
cree una carpeta donde se almacena la tabla cías(compañías) y
usuarios y el formulario acceso necesito por favor que me corrija el
error que presenta este código
Este código pertenece al botón aceptar de la aplicación
* verificar informacion ingresada por el usuario
select cias
CodCia = alltrim(thisform.mCodigo.value)
seek CodCia
if found()
* verificar existencia en la tabla usuarios
mTabla = alltrim(cias.directorio)+"usuarios.dbf"
if! File(mTabla)
wait window "No Existen Usuarios" nowait
release thisform
Cancel
Endif
* Abrir tabla de usuarios de la cia ingresada
se le 2
use &mTabla order tag codigo
CodUsua = alltrim(thisform.mUsuario.value)
seek CodUsua
if found()
* Verificar clave
mclave = alltrim(thisform.mclave.value)
if alltrim (usuarios.clave) = mclave
*dejar entrar
wait window "Puede entrar al Sistema" nowait
release thisform
else
wait window "Clave Incorrecta" nowait
endif
else
* no existe usuario
wait window "Usuario no existe" nowait
endif
else
wait window "Compañia no Existe" nowait
endif
ESTE CODIGO PERTENECE AL FORMULARIO.INIT
set echo off
set talk off
set date to mdy
*enrutar al directorio base de la aplicacion
set default to c:\clasefox
public CodCia, NomCia, DirCia, CodUsua
CodCia = space (2)
NomCia = space (50)
DirCia = space (100)
CodUsua = space (10)
* tabla de las compañias
use cias order tag codigo
Por favor requiero su ayuda y sino me envía un modelo de formulario
para accesar a un sistema, lo que sucede en este caso es que el
programador quiere darle inteligencia al sistema que el mismo ubique la
ruta donde están las tablas, pero creo que tiene un error en la
programación. Gracias por su ayuda
1 respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
Prueba lo siguiente:
1) Crea una tabla Usuarios con los siguientes campos Código C(10), Nombre C(40)
2) Indexa por Codigo, SET INDEX TO codigo TAG codigo Additive
3) Ingresa la información que consideres necesaria
4) Crea un Formulario con un TextBox, un CommandButton
5) En el Click del CommandButton coloca
<span style="white-space: pre;"> </span>IF !SEEK(This.parent.Text1.value,"usuarios","codigo")
<span style="white-space: pre;"> </span>messageBox("Codigo no existe")
<span style="white-space: pre;"> </span>RETURN
<span style="white-space: pre;"> </span>ENDIF
<span style="white-space: pre;"> </span>Messagebox("USUARIO "+usuario.nombre)
Me olvidaba al formulario asígnale la tabla en el entorno de datos
y en el init del formulario coloca
SET CENTURY ON
SET DELETE ON
SET MULTILOCKS ON
SET NEAR ON
SET LOCK OFF
SET ECHO OFF
SET ESCAPE OFF
SET EXACT OFF
SET EXCLUSIVE OFF
SET NOTIFY OFF
SET STATUS BAR OFF
SET TALK OFF
SET DATE BRITISH
SET CLOCK STATUS
SET REPROCESS TO 5
SET REFRESH TO 5,5
SET ODOMETER TO 11
SET BLOCKSIZE TO 64
Es algo simple espero que sea de mayor utilidad que el ejemplo que te dieron
1) Crea una tabla Usuarios con los siguientes campos Código C(10), Nombre C(40)
2) Indexa por Codigo, SET INDEX TO codigo TAG codigo Additive
3) Ingresa la información que consideres necesaria
4) Crea un Formulario con un TextBox, un CommandButton
5) En el Click del CommandButton coloca
<span style="white-space: pre;"> </span>IF !SEEK(This.parent.Text1.value,"usuarios","codigo")
<span style="white-space: pre;"> </span>messageBox("Codigo no existe")
<span style="white-space: pre;"> </span>RETURN
<span style="white-space: pre;"> </span>ENDIF
<span style="white-space: pre;"> </span>Messagebox("USUARIO "+usuario.nombre)
Me olvidaba al formulario asígnale la tabla en el entorno de datos
y en el init del formulario coloca
SET CENTURY ON
SET DELETE ON
SET MULTILOCKS ON
SET NEAR ON
SET LOCK OFF
SET ECHO OFF
SET ESCAPE OFF
SET EXACT OFF
SET EXCLUSIVE OFF
SET NOTIFY OFF
SET STATUS BAR OFF
SET TALK OFF
SET DATE BRITISH
SET CLOCK STATUS
SET REPROCESS TO 5
SET REFRESH TO 5,5
SET ODOMETER TO 11
SET BLOCKSIZE TO 64
Es algo simple espero que sea de mayor utilidad que el ejemplo que te dieron
Ok gracias por responder voy a probar y cualquier cosa me comunico mediante otra pregunta, pero quisiera que me aclararas si esto hace lo mismo que el código que te escribí, gracias
Lo que hace es buscar en la tabla el código digitado en el textbox, si lo encuentra muestra el nombre caso contrario indica error, es lo mismo que el formulario de prueba
Ok gracias por tu ayuda y colaboración pero eso que me indicas ya lo se realizar, aquí según el autor de la guía se trata de que la pantalla de bienvenida valide el código, el usuario y la clave para luego dar acceso al sistema pero el problema se presenta porque el código que el incorpora debe ubicar el directorio donde se encuentra la tabla en este caso usuarios.dbf y luego buscar en un campo (directorio) la ruta (c:\clasefox), pero da un mensaje de error que no se encuentra c:\clasefoxusuarios.dbf
en este codigo es donde se presenta el problema
mTabla = alltrim(cias.directorio)+"usuarios.dbf"
y por ejemplo el declara dircia como public y luego escribe
dircia = "c:\clasefox"
despues hace un llamdo mTabla = dircia + "usuario.dbf"
Y esto da el mismo error que te explique en la parte de arriba, no se encuentra c:\clasefoxusuarios.dbf yo creo que es un error en el código que esta concatenando texto y no busca la ruta especifica.
Necesito por favor tu ayuda en este tema y disculpa tantas preguntas pero tengo que desarrollar un sistema. Gracias
en este codigo es donde se presenta el problema
mTabla = alltrim(cias.directorio)+"usuarios.dbf"
y por ejemplo el declara dircia como public y luego escribe
dircia = "c:\clasefox"
despues hace un llamdo mTabla = dircia + "usuario.dbf"
Y esto da el mismo error que te explique en la parte de arriba, no se encuentra c:\clasefoxusuarios.dbf yo creo que es un error en el código que esta concatenando texto y no busca la ruta especifica.
Necesito por favor tu ayuda en este tema y disculpa tantas preguntas pero tengo que desarrollar un sistema. Gracias
Prueba colocando mTabla=Dircia+"\"+"usuario.dbf"
