Como cerrar el formulario de acceso al sistema

Estoy aprendiendo a programar, tengo un 1º formulario que controla el ingreso de usuarios, si la clave es correcta abre el 2º formulario donde está el menú principal, mis preguntas son:
¿Cómo hago para cerrar el formulario de acceso a usuarios, una vez ingresado al formulario del menu principal?
El 1º formulario tiene showwindows =2 y lo establecí en el administrador de proyectos como principal, porque necesito hacerlo ejecutable, el 2º formulario tiene showwindows =2 porque es donde está el menú, ¿es correcto trabajar de esta forma?
Gracias por la ayuda prestada.

2 respuestas

Respuesta
1
Si, lo que haces es correcto. De hecho es cuestión de gustos.
Lo único que te queda por hacer es decir en el primer formulario form1 (en el botón, o donde lo hayas estipulado):
Thisform. Release
do form form2
Hola experto, estoy llamando el segundo formulario desde un botón probé lo que me indicaste y no me funciono.
Muéstrame lo que tienes en el botón "login" o "aceptar" en tu form1
busca los usuarios y las claves en una tabla
IF thisform.usuario.Value = RTRIM(usuario.nombre) AND thisform.txtcla.Value = rtrim(usuario.clave)
    SEEK thisform.usuario.value        
    tipou = tipo                          && variable para controlar en el menu el tipo usuario
    thisform.release
    DO FORM "principal"
ELSE
    MESSAGEBOX("Clave Incorrecta",0+48,"Error")
    thisform.txtcla.Value =""
    thisform.txtcla.SetFocus
Endif
Sugiero lo siguiente:
1. No pongas "do form principal" en el botón de tu form1.
2. Y crea una nueva variable de tipo pública que puedas inicializar en 0 ó 1, dependiendo de si el usuario logró entrar (1) ó no pueda entrar (contraseña incorrecta por tanto valor 0).
3. Crea un prg y defínelo en tu proyecto como principal ó punto de inicio. Escribe allí algo como esto:
*-* PRG Principal
Public VarPublica as integer
varPublica=0
DO FORM form1
READ EVENTS        
IF varPublicar=1
    DO FORM form2.scx
    READ EVENTS
ENDIF
4. El botón de tu form1 quedaría así:
IF thisform.usuario.Value = RTRIM(usuario.nombre) AND thisform.txtcla.Value = rtrim(usuario.clave)
    SEEK thisform.usuario.value        
    tipou = tipo                          && variable para controlar en el menu el tipo usuario
    varPublica=1    
    thisform.release
    clear events    
ELSE
    MESSAGEBOX("Clave Incorrecta",0+48,"Error")
    varPublica=0
    thisform.txtcla.Value =""
    thisform.txtcla.SetFocus
Endif
Me avisas.
Respuesta
1
Primera pregunta
Thisform. Release
No bueno si debe de ser thisform. Release, la verdad es que yo así lo ago, por ejemplo donde tu abres el otro formulario lo que tienes que hacer es
Por ejemplo
if calve_acceso = "hola"
         do form segundo_formulario
         Thisform. Release
Endif
Eso debe de ir algo así

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formulario de nivel superior

Mi aplicación arranca con un formulario de nivel superior con menu. Dependiendo de la opción de menu elegida aparece un nuevo formulario dentro del principal. Bien el problema me surge cuando nada más cargar el formulario principal hago un do form a...
2 respuestas

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

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

Acceso a base de datos compartida

Disculpa, porque muchas veces cuando abrimos una base de datos con shared para que sea compartida sale, ¿Acceso denegado a la base de datos dbc? Después cambiando o quizás volviendo a poner lo mismo ese error desaparece y se ejecuta bien.. ¿Cuál es...
1 respuesta

Config.fpw

¿Cómo se crea un archivo config. Fpw en foxpro 9.0...? Estoy tratando de realizar un ejecutable y me dicen que coloque un código en este archivo pero ni siquiera se que es eso...
2 respuestas

Ejecución del programa inicial

Te planteo mi consulta, arme una pequeña aplicación que lo único que hace es consultar una tabla que contiene los internos de una oficina. En un form puse una grid y un textbox en donde se ingresa el nombre. En la grid se van filtrando los usuarios a...
1 respuesta

No puedo crear ejecutable en visual foxpro 6

He creado un ejecutable en visual foxpro 6, pero solo funciona dentro de visualfoxpro, he copiado las librerías y he creado el ejecutable en la carpeta donde se ejecutara mi programa y se ejecuta y se cierra, se ejecuta bien cuando en lugr de crear...
2 respuestas

Control de Formularios

Quiero controlar el acceso a mi sistema a través de un programa .prg Digamos principal. Prg y desde este programa llamar a 2 formularios antes de entrar al menú principal de mi aplicación. A través del primer formulario voy a controlar la ruta en...
1 respuesta

Informes vfp 6

Tengo más de mil registros en una tabla. En un formulario mustros dichos registros, pero lo que necesito es que cuando encuentre el registro que necesito, pinche un botón y me muestre el informe de solo ese registro. ¿Cómo lo hago?. Lo otro, es...
4 respuestas

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