Filtrar dbgrid conforme data do mes

Delphi

21/10/2005

Boa tarde amigos, usando um maskedit, um dbgrid e um button se eu digitar uma data qualquer tipo 01/10/1960 no dbgrid filtra o periodo referente ao mes 10 nao importando o ano, mais tem como em vc de eu digitar num maskedit 01/10/1960 digitar dentro de um edit somente 10 e dentro do dbgrid me mostrar todos os dados referente ao mes 10 nao importando o ano?

Eis o codigo que eu uso para funçao acima:
procedure TForm1.Button1Click(Sender: TObject);
begin
QUERY1.ACTIVE:=TRUE;
with Query1 DO
begin
close;
sql.clear;
sql.add(´select * from DPFUNCS´);
sql.add(´ WHERE Extract(Month FROM FAD) = :mes´);
Parambyname(´mes´).asinteger := StrToInt(FormatDateTime(´MM´,StrToDate(maskEDIT1.text)));
open;
end;
end;

Agora quero saber se tem como fazer isso apenas com um edit digitando o mes 10

Desde ja agradeço a ajuda de todos
Obrigado
Adriano


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Martins

Martins

21/10/2005

Tenta assim:

begin
  Query1.Active:= True;
    with Query1 do
     begin
       close;
       sql.clear;
       sql.add(´select * from Clients´);
       sql.add(´ WHERE Extract(Month FROM Date_Open) = :mes´);
       Parambyname(´mes´).asinteger := StrToInt(Edit1.Text);
       open;
     end;


é só digitar o mês no edit e clicar no botão ou vc pode colocar no OnKeyPress ficando assim:

begin
 if key = #13 then
  begin
  Key:=0;
  Query1.Active:= True;
    with Query1 do
     begin
       close;
       sql.clear;
       sql.add(´select * from Clients´);
       sql.add(´ WHERE Extract(Month FROM Date_Open) = :mes´);
       Parambyname(´mes´).asinteger := StrToInt(Edit1.Text);
       open;
     end;
  end;


Boa Sorte!!!


GOSTEI 0
Adriano_servitec

Adriano_servitec

21/10/2005

Valeu amigo, que vergonha a minha era tao simples so tinha que tirar isso:
FormatDateTime(´MM´,StrToDate

Obrigado
Abraços
T+


GOSTEI 0
Martins

Martins

21/10/2005

Valeu amigo, que vergonha a minha era tao simples so tinha que tirar isso: FormatDateTime(´MM´,StrToDate Obrigado Abraços T+


:D Acontece, manda ver aí no seu projeto.

Boa Sorte!!!


GOSTEI 0
Bruno Belchior

Bruno Belchior

21/10/2005

existe também essa:
ParamByName(´Mes´).AsInteger := MonthOf(StrToDate(MskEdtData.Text));



GOSTEI 0
POSTAR