login cuando el programa se inicia

[[Lepe]]

Hay muchas formas, yo lo hago en Projects--> view Source;

Código Delphi [-]
uses
  Forms,
  Controls,
  MOVE in 'MOVE.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
  var login:TForm2;
begin
  Application.Initialize;
  // crear datamodules necesarios para poder acceder a las consultas
  login := TForm2.Create(nil);

  if login.ShowModal = mrok then
  begin
    Application.CreateForm(TForm1, Form1);

    Application.Run;
  end
  else
    Application.Terminate;
end.

en la ventana de login, en el evento OnClose, debes poner Action := caFree; para que se libere al cerrarlo.

La ventana login tendrá 2 botones, uno para comprobar el nombre y contraseña y el otro para salir.

Si el usuario y contraseña existe, en la ventana de login pones
login.ModalResult := mrOk y si no, lo pones a mrCancel.

Un saludo

[papote654]

Fijate este es un codigo q yo lo utilizo mucho y me resulta de lo mas bien espero te sirva.

en el evento onclick del boton aceptar.

if tabla1.findkey(edit1.text:='USUARIO') and tabla2.findkey(edit2.text:='CONTRASEÑA') = true then
begin
form1.hide;
form2.showmodal;
end
else
showmessage('contraseña incorrecta');
edit2.setfocus;

suerte!!