RE:CREAR UNA VENTANA DE LOGIN PARA MI APLICACION
Pues es q habria varias formas dependiendo de como tengas estructura tu aplicacion, una podria ser por ejemplo:
Tienes una aplicacionx con un frame tal vez de inicio, creas 1 variable global /(tipo byte para guardar 1 cuando el password sea correcto y 0 cuando sea incorrecto).
Haces tu pantalla de login con dos entryes uno para el usuario y otro para el password y en el boton aceptar pones el siguiente codigo.
IF Loc:Usuario = 'USUARIO' and Loc:Password = 'PASSWORD
Glo:Entrar = 1
ELSE
Glo:Entrar = 0
CYCLE
END
POST(EVENT:CloseWindow)
El usuario u password pueden ser fijos o puedes tener un archivo encriptado donde los guardes. En donde esta el CYCLE puedes contar el numero de intentos y salir cuando sean 3, etc.
Esta pantalla de login debe tener la propiedad MODAL para q no te deje avanzar hasta q la cierres.
La mandas llamar en el embed Open Window de la ventana principal asi:
PANTALLALOGIN
IF GLo:Entrar = 0
MESSAGE('No tiene permitido el acceso al sistema.')
POST(EVENT:CloseWindow)
END