Buscar por:

Exemplo: autenticação - login

Código

Procedure TForm1.Button1Click(Sender: TObject);

begin

{if (edit2.Text = Dm.ClientDataSet1SENHA.Value) and

   (edit1.text = dm.ClientDataSet1USUARIO.Value)

   then

showmessage(' senha certa. ')

else

Showmessage(' Senha Errada, Tente Novamente. ');

memo1.Lines.Add('O usuario '+edit1.text+' entro no horario tal');

memo1.Lines.SaveToFile('backup.txt');

}

user := edit1.text;

senha := edit2.text;

dm.SQLDATASET1.CommandText := 'SELECT * FROM usuarios WHERE usuario="' + user + '" AND senha="' + senha + '" and ATIVO=1';

dm.SQLdataset1.active := true;

if dm.sqldataset1.FieldValues['usuario'] = user then

begin

showmessage(' ok ');

dm.sqldataset1.Active := false;

end

else

showmessage(' nao deu');

dm.SQLDataSet1.Active := false;

end;

end.