Este é um post disponível para assinantes MVPVideo: Rad Studio 2007-DBX4 e Firebird 2.0-Aplicação comercial de vendas do Inicio ao Fim-Parte 23-Criando método para Carregar o Perfil do usuário
Veja nesta vídeo aula, que poderemos criar novos perfis a qualquer momento e associá-los a um ou mais usuários da aplicação.
Título:
Tempo: 15mim25seg
Resumo: Nesta vídeo aula o autor da continuidade a série sobre D2007 com Tecnologia DBExpress 4 e FireBird 2.0 criando uma aplicação completa. Aqui o autor cria na classe Usuario um dos métodos mais importante desta classe. Trata-se do método responsável por carregar as permissões do usuário de acordo com o perfil a que ele estiver associado. Assim, de acordo com o perfil do usuário os menus serão habilitados ou não dependendo do acesso configurado no banco de dados. Isso torna a aplicação flexível do ponto de vista da segurança uma vez que novos perfis podem ser criados a qualquer momento e associados a um ou mais usuários.
Metodologia de desenvolvimento do exemplo: Este é um exemplo que foca em segurança. O objeto usuario deverá ser capaz e ir ao banco, recuperar as permissões associadas a ele e habilitar ou não os menus. Para isso, no exemplo é aplicado um algoritmo para percorrer tanto as permissões quanto as ações.
Tecnologias utilizadas: RadStudio 2007, FireBird2.0, DBX4
Exemplos construídos: Método para carregar as permissões do usuário.
Palavras chaves: Delphi2007, DBX4, POO.

6 COMENTÁRIOS
Pr := Reader.Value[1].GetAnsiString;
O Delphi 2009 mudou a maneira como nos trabalhamos como string devido ao suporte a caracteres Unicode. Agora isto e um Warnning, não impediu de compilar, impediu ????
Eu vou dar uma olhada aqui para verificar se existe algum metodo novo.
abs !!!
Isso, ele apenas fez um casting implicito devido a nova estrutura do tipo string !!!

Em primeiro lugar obrigado. Bem Delphi 2009 foram criados 4 novos Warning, todos eles dizem respeito a tratamento de String. Isso esta acontecendo pois o Delphi 2009 da total suporte a unicode e usar o metodo GetAnsiString "retiraria" esse suporte uma ves que os caracteres unicodes são de Bytes Duplos.
Isso é apenas um aviso do Delphi, não impede que sua aplicação compile.
Quando as vídeos de OO com padrões de projeto eu ja passei o assunto para meu editor e estou para gravar sim um curso de padroes de OO com projeto em Delphi.
Abraços !!!
Curso(s):
Space do autor

download

4
0
