Estou com um problemao, eu quero fazer uma consulta do contrato pela
Data REajuste Contrato.
Tipo quero do dia 18/04/2007 ate o 19/07/2007.
Nao estou conseguindo. ta muito complicado.
por ultimo estou tentando este codigo:
procedure Tfcliente.SpeedButton6Click(Sender: TObject);
var
resp:string;
begin
fdm.Query1.SQL.Add('select * from dbcliente');
st:='';
IF fdm.query1['DataReajusteContrato']<> null then
st := fdm.query1['DataReajusteContrato'];
if inputquery('Filtrar DataReajuste','Entre com a data, ou "T"
para todos em ordem alfabética:',st) then begin
with fdm.query1 do begin
close;
sql.clear;
if uppercase(st)='T' then
sql.add ('select * from tbcliente order by
DataReajusteContrato')
else
fdm.tbcliente.Filtered:=False;
Edit1.Text:=ST;
ShowMessage(edit1.Text);
fdm.tbcliente.Filter := 'DataReajusteContrato >='+
QuotedStr(FormatDateTime('dd/mm/yyyy',StrToDate(Edit1.Text))) + 'and
DataReajusteContrato <='+QuotedStr(FormatDateTime
('dd/mm/yyyy',StrToDate(edit3.Text)));
resp:=fdm.tbcliente.FieldByName
('DataReajusteContrato').Text;
sql.add ('select * from tbcliente where
DataReajusteContrato =' + QuotedStr(resp));
open;
end;
tipo := 'DataReajusteContrato';
THackDBGrid(DBGrid1).FixedCols := 9;
end;
formatarsqlexecute(self);
end.
