Protótipo de um weaver para programação orientada a aspectos em ...

7 8 : ; < = > < @ A B C < ; > D > C G I K L B M D O < Q R @ S T < >7/ 2 3DMTaskMan.qryAutentica + (- 1. / 0 *0 + 5 *7 8 : ; < = > < @ A B C < ; > D > C G I K L B M D O < Q V < X7Quadro 4: Método SQLDelete antes do processo de weaving& ( ) * + , & *TClientes.SQLDelete(vId: Integer);%* . / 0 -/ 2 3DMTaskMan.SqlQuery + (- 1. / 0 *Close;Sql.Clear;Sql.Add(’Delete from CLIENTE Where CL_CODIGO = :CL_CODIGO’);ParamByName(’CL_CODIGO’).AsInteger := vID;ExecSql;* 0 + 5* 0 + 5Quadro 5: Método SQLDelete após o processo de weaving& ( ) * + , & *TClientes.SQLDelete(vId: Integer);%* . / 0 -Close;Sql.Clear;Sql.Add(’Select count(*) from DIREITO_USUARIO’);Sql.Add(’Where IDUSUARIO = :IDUSUARIO and OPERACAO = :OPERACAO’);Sql.Add(’ and TABELA = :TABELA’);ParamByName(’IDUSUARIO’).AsInteger := giCodUsuario;ParamByName(’OPERACAO’).AsInteger := 3; //1=Insert, 2=Update,3=DeleteParamByName(’TABELA’).AsInteger := Self.NomeTabela;ExecSQL;UFields[0].AsInteger = 0 2 3 * 0/Raise Exception.Create('Você não tem permissão para essaatividade. ' + Chr(13) +'Entre em contato com o seu superior.');/ 2 3DMTaskMan.SqlQuery + (- 1. / 0 *Close;Sql.Clear;Sql.Add('Delete from CLIENTE Where CL_CODIGO = :CL_CODIGO');ParamByName('CL_CODIGO').AsInteger := vID;ExecSql;* 0 + 5* 0 + 5Conforme definido no advice AutenticaDelete do tipo before, o códigonele contido foi inserido no método interceptado, antes das instruções que já estavam aliimplementadas.4. ConclusõesConsiderando a proposta e as vantagens da programação orientada a aspectos, ossoftwares desenvolvidos com essas técnicas tendem a serem mais flexíveis, melhorandoa manutenibilidade e reusabilidade, pois a implementação dos interesses transversaisfica encapsulada em módulos fisicamente separados do restante do código. Dessa forma,cada componente terá apenas código específico da implementação de seu negócio,permitindo uma melhor evolução do software.