Ir para conteúdo
Fórum Script Brasil
  • 0

Formulário Padrão Para Filtragem


Lucianorw

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...