Buscar por:

SQL Genérica

Código

Se você não usa os componentes da Zeos Library, substitutua TZReadOnlyQuery pelo TQuery do Delphi.

class procedure TfrmCadastroPadrao.qrycostumizada(Componente: TZReadOnlyQuery; Tabela, Campo, Valor, Ordem: string; Operacao: integer);

begin

  Componente.DisableControls;

  with Componente do

  begin

    Close;

    SQL.Clear;

    SQL.Add('SELECT * FROM '+tabela);

    SQL.Add(' WHERE '+Campo;)

    case operacao of

      0: SQL.Add(' LIKE '+QuotedStr(Valor+'%'));     // Iniciado por

      1: SQL.Add(' LIKE '+QuotedStr('%'+Valor));     // Terminado por

      2: SQL.Add(' = '   +QuotedStr(Valor));         // Igual a

      3: SQL.Add(' LIKE '+QuotedStr('%'+Valor+'%')); // Que contenha

    end;

    SQl.Add('ORDER BY '+Ordem);

    Open;

    if RecordCount = 0 then MensagemDeAvisoH('Sua consulta retornou zero linha(s)');

  end;

  Componente.EnableControls;

end;