Form De Login

[fraudinha]

criei um form de login q se eu fechar ele o form principal é liberado sem o ususario ter logado como faço para se ue fechar o form de login a plicação termine se o ussuario não se logar?

[Vivendo&Aprendendo]

No evento onclose do form de login coloque:

Application.terminate;

Acho que ira resolver seu problema

falou V&A

[Kikonanet]

Olá,

Se o usuário não se logar você pode usar o seguinte comando para encerrar a aplicação.

Application.Terminate;

qualquer coisa posta ae.

Abs.

Kiko

[fraudinha]

pus o seguinte código no close do formulario login:

procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if DataModule1.ADODataSet1.Eof=false then

Application.Terminate;

action:=cafree;

end;

tudo bem o problema do alt+f4 que quando fechava o form de login ia para o form principal resolveu mas agora o click do ok não funciona mais ou seja mesmo q o login esteja certo ele não abre o form principal ficando só no form login o q está errado?

[Vivendo&Aprendendo]

Posta o seu código ai ...

falou

[fraudinha]

código form login:

procedure Tfrmlogin2.Button1Click(Sender: TObject);

begin

DataModule1.ADODataSet1.Close;

DataModule1.ADODataSet1.CommandText:='SELECT * FROM login WHERE USUARIO=:senha AND SENHA=:senha';

DataModule1.ADODataSet1.Parameters[0].Value:=edit1.Text;

DataModule1.ADODataSet1.Parameters[1].Value:=edit2.Text;

DataModule1.ADODataSet1.Open;

if DataModule1.ADODataSet1.Eof then

ShowMessage('Usuário ou senha invalidos')

end;

procedure Tfrmlogin2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if DataModule1.ADODataSet1.Eof=true then

Application.Terminate

else

begin

Application.CreateForm(TfrmPrincipal,frmPrincipal);

frmPrincipal.Show;

end;

end;

procedure Tfrmlogin2.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

código form evento on show principal:

procedure TfrmPrincipal.FormShow(Sender: TObject);

begin

frmlogin2:=Tfrmlogin2.Create(self);

frmlogin2.ShowModal;

frmlogin2.Release;

end;

end.

[Kikonanet]

procedure Tfrmlogin2.Button1Click(Sender: TObject);

begin

DataModule1.ADODataSet1.Close;

DataModule1.ADODataSet1.CommandText:='SELECT * FROM login WHERE USUARIO=:senha AND SENHA=:senha';

DataModule1.ADODataSet1.Parameters[0].Value:=edit1.Text;

DataModule1.ADODataSet1.Parameters[1].Value:=edit2.Text;

DataModule1.ADODataSet1.Open;

if DataModule1.ADODataSet1.Eof then

ShowMessage('Usuário ou senha invalidos')

end;

if  DataModule1.ADODataSet1.Eof then
     ShowMessage('Usuário ou senha invalidos')

Cadê o comando de chamar o form Principal ou fechar o form Login?

Abs.

Kiko