Login Diferente en VFP

Acceso al Sistema

Este programa te ilustrará de como poder realizar un programa el cual te permita controlar el acceso al sistema sin que ninguna persona el cual no  este autorizada pueda entrar al sistema.

En el programa podrás notas la creación de una pequeña tabla en el cual se han añadido tres(3) usuarios para realizar la prueba.

En el método Load crearemos la tabla de usuario e indexamos la tabla por el campo nombre.

SET SAFETY off

CREATE TABLE usuario(codi_ID integer (4) AUTOINCR,nombre c(15),clave c(15))

INSERT INTO usuario(nombre,clave) VALUES ("ADMIN","123")

INSERT INTO usuario(nombre,clave) VALUES ("USUARIO1","456")

INSERT INTO usuario(nombre,clave) VALUES ("USUARIO2","789")

INDEX on nombre TAG nombre OF usuario

Observa como en la parte en la cual se crea la tabla creamos el campo codi_ID de tipo entero y le agregamos la palabra AUTOINCR el cual incrementará el campo en 1 cada vez que grabemos un registro nuevo sin necesidad de realizar un insert into con el nombre del campo. 

En el evento init deberás colocar lo siguiente :

thisform.container1.Width =SYSMETRIC(1)

thisform.container1.Top=SYSMETRIC(2)-650

thisform.container1.marca.Visible =.f.

thisform.container1.text1.Value =""

thisform.container1.text2.Value =""

En el Command en el evento click colocaremos las siguientes instrucciones :

Select usuario

Go Top

Set Index To usuario Order nombre

Seek Padr(xusuario, 15, " ")

If Found() .And. (Alltrim(xclave)==Alltrim(clave)) &&&.Or. Alltrim(xclave)==Alltrim(cla_usu)) .Or. xusuario=="ADMIN" .And. Alltrim(xclave)==Alltrim(cla_usu)

If Alltrim(nombre)==Alltrim(xusuario)

Wait Window "Bienvenido al Sistema..." At 12,50 Timeout 3

*Aca colocarías el bombre del formulario principal

*do form principal

Thisform.Release

Endif

Else

Messagebox("Error: Usuaurio no Identificado",0+64,"Alerta")

Endif

Un usuario puede hacer el login a un sistema para obtener acceso y puede hacer el log out o log off 

cuando no se precisa mantener el acceso.

Podrás realizar los cambios necesarios para poderlo ajustar a tus necesidades.

En el link de abajo te estaré dejan el link de descarga del programa de Mediafire.