Formulario de login!!

[DarkByte]

Leonard, prueba a encerar tu código en las etiqueta [ Delphi ] [ / Delphi ] (sin espacios), verás que tiene mejor presentación.

Así quedaría tu codio con dichas etiquietas:

Código Delphi [-]
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.

Código Delphi [-]
 private
{ Private declarations }
Acceso : Boolean;
public
{ Public declarations }
Property Tiene_Acceso : Boolean Read Acceso Write Acceso;
end;

Código Delphi [-]
 if Mdatos.T_UsuarioClave_Usuario.Value = Clave_Usuario.Text
Then Tiene_Acceso := True;

Tampoco estaría mal que identases tu código.

[MITOPE]

Amigos Disculpen que me meta en su conversacion, pero tambien necesitaba algo asi , probe y me funciono , lo que no se es que poner en el boton cancelar del formulario login, solo trabajo con el principal y el form del login

begin
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmIngreso, FrmIngreso);
FrmIngreso.ShowModal;
if FrmIngreso.TieneAcceso then
Application.Run
else
Application.Terminate;
end;
end.

En el boton cancelar puse esto pero me sale un error 'EAcces violation....'

Begin
Acceso := False;
Close;
end;

el error me sale justo despues de ejecutar correctamente el comando 'Application.Terminate', cuando se ubica en el End..como que quisiera ejecutar algo mas...que no se que es , no se si me pueden ayudar

[[eduarcol]]

mira primero que todo, utiliza por favor las etiquetas para encerrar el codigo:

yo cambiaria algunas lineas de tu codigo algo asi:

Código Delphi [-]
begin
   Application.Initialize;
   Application.CreateForm(TFrmPrincipal, FrmPrincipal);
   Application.CreateForm(TFrmIngreso, FrmIngreso);
   if FrmIngreso.ShowModal = mrOk then
      Application.Run;
   Application.Terminate;
end.

y el boton cancelar la propiedad modal result le das mrCancel

por supuesto en el de aceptar cuando asignesel valor a la variable tiene accesocambia esa linea por ModalResult := mrOk, listo

[__cadetill]

te aconsejo te leas este hilo. En él se explicó como funciona el tema del loggin

[MITOPE]

Gracias Amigo , Ya Funciono Con Tu Ayuda...!!

Saludos..