Qué tienes hecho?
Lo básico serían los siguientes pasos:
Si usas un archivo con la configuración de conexión .ini, lo que primero se hace es leer cada elemento del archivo. Lo cual se hace utilizando la función:
ProfileString('NOMREARCHIVO.INI', '[ENCABEZADO]', 'ELEMENTO', '')
SQLCA.Database=
SQLCA.DBParm=
SQLCA.LogID='usuarioconexion'
SQLCA.LogPass='abracadabra'
CONNECT;
If SQLCA.SQLCode = -1 Then
...
Una vez que has conectado a la base de datos solamente buscas si existe el usuario en la tabla que has definido:
Select 1
Into :li_Usuario_Existe
Where cod_usuario = :ls_cod_usuario;
If li_Usuario_Existe = 1 Then
...
Cuál es el problema específico que tienes?
Si mal no recuerdo los la ventana W_Logon sólo trae lo necesario pero falta el código para establecer la conexión.
No recuerdo los detalles, pero si tienes pregunta más específicas te podría ayudar.
Saludos.
