Ejemplo visual fox

BIENVENIDOS AL SISTEMA INTEGRAL SIABA.

[pic][pic]

Como vemos para ingresar a este sistema inicialmente me mostrara una clave de usuario y password por cada operador a fin de dar mayor seguridad y en el tercer intento si no ingresa sacarlo del sistema.

en el evento click del boton aceptar se coloco las siguientes variables a fin de dar mas rapidez y control al ingreso tal como se muestraemn la parte superior.

#DEFINE WAITMESS7_LOC "Creando la Tabla de Enlace"
#DEFINE WAITMESS6_LOC "Bienvenido al sistema "+alltrim(thisformset.form1.text1.value)
SET DATE BRITISH
SET CENTURY ON
SET BELL ON
set skip of menu _msysmenu .T.
SET SYSMENU TO
SET EXCLU OFF
set talk off
set echo off
set date british
set centu on
SET MULTILOCKS OFF
SET SKIP OF MENU _MSYSMENU .T.thisformset.form1.text1.value=" "
Open database SIABA
Selec login
LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORMset.form2.txtUserName.Value))
IF FOUND() AND ALLTRIM(login) == ALLTRIM(THISFORMset.form2.txtPassword.Value) AND FLAG_ESTAD="1"
THISFORM.Release
RELEASE WINDOW
thisformset.form1.image7.picture="10.jpg"
THISFORM.REFRESH
=MESSAGEBOX("Bienvenidos al Sistema INTEGRAL ",14,"SIABA Versión9.0")
SET SKIP OF MENU _MSYSMENU .F.
thisformset.form1.text1.value=login.userid
set skip of menu _msysmenu .F.
DO CASE
CASE LOGIN.CARGO="SUPERVISOR"
Do SIABAUNICO.MPR
CASE LOGIN.CARGO="ADMINISTRADOR"
Do ADMINISTRADOR.MPR
CASE LOGIN.CARGO="OPERADOR"
Do OPERADOR.MPR
CASE LOGIN.CARGO="CONSULTOR"
Do CONSULTOR.MPR
ENDCASE
WAIT WINDOW NOWAIT WAITMESS6_LOC
ELSEthisformset.form1.text3.value=thisformset.form1.text3.value+1
if thisformset.form1.text3.value=3
=messagebox("Usted No esta permitido El sistema se comprimira...",11,"Lo lamentamos mucho")
quit
endif
WAIT WINDOW "QUE PENA..."TIMEOUT(0.1)
if thisformset.form1.text3.value=1
thisformset.form1.image7.picture="11.jpg"
=messagebox("Te Queda Solamente 02 intentos",11,"Que penita....Lo lamentamos mucho")
endif
ifthisformset.form1.text3.value=2
thisformset.form1.image7.picture="12.jpg"
=messagebox("Te Queda Solamente 01 intento",11,"Si Fallas en este Intento el Sistema Cerrara")
endif
ENDIF
THISFORM.REFRESH

Aprovecho para dar un apoyo y repaso sobre un programa de inicio el cual se ejecutara el sistema, cuya programacion y funciones hace que se conecte con la base de datos del sql

clea all
clearh=SQLConnect("Regis001")
*? SQLExec(h, 'Select * from Names')

donde REGIS001 es el nombre de la BD en SQL y la conectividad.

Dentro de las opciones del menu movimiento encontramos a la opcion de EMISION DE PECOSAS, el cual aplicare funciones tales como entorno sql y GRID, tal como se muestra a continuacion.

Como se observa el formulario debe de quedar tal se muestra en la parte superior,donde se uso controles GRID, listados y otros, los cuales tenemos que explicar paso a paso.

[pic][pic]

AHORA HEMOS DE TENER UN EJEMPLO DE JNA PECOSA LLENA EN LINEAS ABAJO TAL COMOS EMUESTRA.

[pic][pic]

Dentro del boton NUEVA GUIA en el evento click se coloco las siguientes variables, a fin de brindar una ayuda de accesos a los usuarios

Select numera
Locate Foralltrim(numera.tipdoc)="PECOSAS"
If Found()
thisform.text3.value=numera.inician
Endif
Select cierre
Locate for Cierre.anio=year(date())
If found()
=messagebox("Este Año ya Cerro su ejercicio...",11,"SIABA SEGURIDAD")
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
thisform.optiongroup4.enabled=.f.
thisform.image1.enabled=.t.
thisform.image1.visible=.t.
Else
thisform.text2.enabled=.t.thisform.text3.enabled=.t.
thisform.optiongroup4.enabled=.t.
thisform.image1.enabled=.f.
thisform.image1.visible=.f.
Endif
thisform.text27.value=1
thisform.combo1.value="DRL DIRECCION REGIONAL LIMA"
thisform.text6.value=" "
thisform.text7.value=" "
thisform.text30.value=0
thisform.text8.value=" "
thisform.combo2.value=" "
thisform.optiongroup3.option1.value=0
thisform.optiongroup3.option2.value=0...