quarta-feira, 29 de abril de 2009

Localizar no dbgrid entre datas


NO EVENDO ONCLICK DO BOTÃO COLOQUE:
ps: lembre que o DBGrid estar associado ao datasource,
para que apareça o resultado esperado.


var Inicio: String;
Final: String;
begin
If DateTimePicker2.Date <>=:pInicial and DATA<=:pFinal ORDER BY DATA';
DM.IBQuery1.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
DM.IBQuery1.ParamByName('pFinal').AsDateTime := StrToDate(Final);
DM.IBQuery1.Prepare;
DM.IBQuery1.Open;
end;
Label1.Caption := 'Total de Registros Localizados: ' + IntToStr(DM.IBQuery1.RecordCount)
end;

Nenhum comentário:

Política Privacidade adicoaraci suervisores

Política Privacidade A sua privacidade é importante para nós. É política do adicoaraci supervisor respeitar a sua privacidade em relação a q...