Formulário Padrão Para Filtragem

[Lucianorw]

Ola,

Primeiramente gostaria de agradecer sua atencao por visitar este tópico.

Gostaria de desenvolver um form para ser usado como filtro para relatórios e formulários, mas não sei nem por onde comecar, a ideia eu tenho, mas sou novato no assunto.

Seria mais ou menos no estilo clipper (já muito em sistemas gerados pelo gaspro), onde tem varios tipos de filtro q você quer, exemplo:

>

>=

<

<=

<>

>= e <=

onde

comeca

termina

Pois, creio q com isto ficaria bem interessante e pratico.

E tb, como implementar isto.

Se você souber de algum site q tenha isto como exemplo e puder me indicar, ficaria muito agradecido.

Grato

Luciano

d7+fb1.5+dbexpress

[bolomaster]

não entendi muito bem o que você ta querendo não, mas vamos ai tipo esta unit que vou postar é de um formulario onde nos fazemos uma pesquisa. por nome .. pra e podemos organizar a pesquisa por ordem alfabetica ou por ordem numerica (codigo do cliente) ok

unit ConForn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, db,DBCtrls, Grids, DBGrids;

type
  TfrmConForn = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn3: TBitBtn;
    btnOrdem: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure btnOrdemClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConForn: TfrmConForn;

implementation

uses dados;

{$R *.DFM}


procedure TfrmConForn.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TfrmConForn.btnOrdemClick(Sender: TObject);
begin
  if btnOrdem.caption = '&Numérica' then
  begin
    dtmdados.tCadForn.indexfieldnames := 'Codigo';
  btnOrdem.caption := '&Alfabética';
  end
  else
  begin
     dtmdados.tCadForn.indexfieldnames := 'NomeFant';
     btnOrdem.caption := '&Numérica';

end;

end;

procedure TfrmConForn.Edit1Change(Sender: TObject);
begin
dtmdados.tcadforn.locate('Nomefant',edit1.text,
 [lopartialkey , locaseinsensitive]);

end;

end.

Abraços e espero que o ajude