Automação de Queries

Fonte: www.activedelphi.com.br

Desenvolvendo um sistema para uma clínica escola de psicologia, identifiquei que, apesar de o sistema estar bem avançado, estava cheio de códigos de manipulação de query repetidos, e por isso resolvi mudar esta situação. A solução, você confere abaixo

Os códigos eram todos parecidos, como abaixo:

  with dm.query do

  begin

    close;

    sql.Clear;

    sql.Add('select * from tabela where campo = valor');

    open;

  end;

Então fiz uma procedure que com uma linha faz tudo isso:

class procedure Tdm.qrcon(componente: Tadoquery; tabela, campo, valor: string; 

  operacao: integer);

begin

  case operacao of

    //seleciona tudo

    1: with componente do

      begin

        close;

        sql.Clear;

        sql.Add('select * from ' + tabela);

        open;

      end;

    2: with componente do

      begin

        close;

        sql.Clear;

        sql.Add('select * from ' + tabela + ' where ' + campo + 

                ' = ' + quotedstr(valor));

        open;

      end;

    3: with componente do

       begin

        close;

        sql.Clear;

        sql.Add('delete from ' + tabela + ' where ' + campo + ' = ' + valor);

        execsql;

       end;

  else

    MessageBox(0, 'Erro de parametro de consulta.' + #13#10 + 

                  '          Contate o CPD.', 

                  'Erro de parametro de consulta.', MB_ICONSTOP or MB_OK);

  end;

end;