Fórum Filtrar registros #389297
25/10/2010
Fala aí galerinhaa!
Preciso muito saber como fazer uma pesquisa por período.!
ex:
Num movimento de caixa, eu quero saber os valores diários de um determinado período de
dias, onde o usuário escolhe a data inicial e a final:
# data inicial = 01/10/2010 & data final = 20/10/2010
(sendo que essas datas são obtidas atraves do componente datetimepicker )
o usuário ao clicar no botão de " pesquisar ", aparece no dbgrid, todos os registros da tabela que
possuem data entre esse período.
Como eu devo fazer isso ?? Não to conseguindo de jeito nenhum encontrar solução para isso.
p.s: infelizmente eu uso delphi 4 , e trabalho com Ttable [bancod e dados é o database desktop]!!
Preciso da ajuda de vocês pessoal.
Beijinhos!!
Atenciosamente.
Posts
A ordem da rotina abaixo (Mes, Dia e Ano), depende de qual banco de dados você utiliza.
function SQLData(Data: TDate): string;
var
Mes, Dia, Ano: Word;
begin
DecodeDate( Data, Ano, Mes, Dia );
Result := QuotedStr( IntToStr(Mes) + '/' + IntToStr(Dia) + '/' + IntToStr(Ano) );
end;
SQL :=
' SELECT' +
' *' +
' FROM' +
' TABELA' +
' WHERE' +
' CampoData BETWEEN ' + SQLData( DateTimePickerInicial.Date ) + ' AND ' + SQLData( DateTimePickerFinal.Date );
Espero ter colaborado.
25/10/2010
Yuli Chrysostomo
cara, na verdade eu to fazendo um projeto final no colégio .. e preciso terminar o meu
sistema para conseguir ser aprovada. Mas ainda sou iniciante e pra dizer
sinceramente pra ti, eu não entendi mt bem a lógica do seu código..
Se você puder me explicar, onde eu devo colocar o código e tal..eu agradeceria mt. rs.
E desculpe o incomodo.
Veja se assim você entende:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtnFiltrar: TBitBtn;
Table1: TTable;
procedure BitBtnFiltrarClick(Sender: TObject);
private
function SQLData(Data: TDate): string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.SQLData(Data: TDate): string;
var
Mes, Dia, Ano: Word;
begin
DecodeDate( Data, Ano, Mes, Dia );
Result := QuotedStr( IntToStr(Mes) + '/' + IntToStr(Dia) + '/' + IntToStr(Ano) );
end;
procedure TForm1.BitBtnFiltrarClick(Sender: TObject);
begin
Table1.Filtered := False;
Table1.Filter := 'CampoData >= ' + SQLData( DateTimePickerInicial.Date ) +
' AND CampoData >= ' + SQLData( DateTimePickerFinal.Date );
Table1.Filtered := True;
end;
end.Espero ter colaborado.
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
26/10/2010
Yuli Chrysostomo
beleza cara, mas onde eu vou mostrar o resultado da pesquisa ??
queria mostrar em algum lugar.. pra uma melhor visualização;
qual componente devo usar ??
valeu!!
