Delphi dicas

Exemplo: autenticação - login

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.

por : Daniel Frantz