Fazendo um Sistema de LOGIN

Então é o seguinte :

Primeiro vc cria o 'form' com os campos (edits) login e senha e um botao :P ;
No click desse botao vc vai chamar uma funcão ;
Vc vai criar uma query passando como parametro o login e senha ;
Depois da validacão, chama o que vc quiser ;


function ValidaUser(login, senha : string) : boolean ;
Begin
nome da query.Close;
nome da query.ParamByName('LOGIN').AsString := login;
nome da query.ParamByName('SENHA').AsString := senha;
nome da query.Open;
if .recordCount<>0 then
Result := True;
end;

// No click do botao chama a funcao

if ValidaUser(.text,.text) then
"acao desejada";




Se não souber o SQL da Query, la vai o codigo :

"Select * From Where nome= :LOGIN and senha= :SENHA"

Fazendo um Sistema de LOGIN

É facil. É o seguinte :

Primeiro vc cria o 'form' com os campos (edits) login e senha e um botao;
No click desse botao vc vai chamar uma funcão;
Vc vai criar uma query passando como parametro o login e senha ;
Depois da validacão, chama o que vc quiser;


function ValidaUser(login, senha : string) : boolean ;
Begin
.Close;
.ParamByName('LOGIN').AsString := login;
.ParamByName('SENHA').AsString := senha;
.Open;
if .recordCount<>0 then
Result := True;
end;

// No click do botao chama a funcao

if ValidaUser(.text,.text) then
"acao desejada";

Se não souber o SQL da query, la vai o codigo :

"Select * From Where nome= :LOGIN and senha= :SENHA"