Formulario de login!!

[Leonard]

En mi Caso muestro Una ventana de Dialogo donde el usuario debe mostrar de clave o acceso justo antes de ver el menu principal es decir antes de ejecutar la aplicacion.

Lo hago del siguiente Modo el programa principal coloco lo siguiente

begin
Application.Initialize;
Application.Title := 'Facturacion';
Application.CreateForm(TF_Principal, F_Principal);
Application.CreateForm(TMdatos, Mdatos);
Application.CreateForm(TF_Clave, F_Clave);
F_Clave.ShowModal;
If F_Clave.Tiene_Acceso
Then begin
Application.Run;
End
Else Begin
Mdatos.Conexion_BD.Close;
Application.Terminate;
End
end.

y en el formulario clave le creas las propiedades

private
{ Private declarations }
Acceso : Boolean;
public
{ Public declarations }
Property Tiene_Acceso : Boolean Read Acceso Write Acceso;
end;


y por ultimo en el boton aceptar coloco lo siguiente

if Mdatos.T_UsuarioClave_Usuario.Value = Clave_Usuario.Text
Then Tiene_Acceso := True;



Espero que te sea util..!!