Fórum selecionar Datas #186210
04/10/2003
0
Oi pessoal do FORUM, essa é a 1ª que estoumandando uma mesagem pra ca.
Bem Minha dúvida é a seguinte, tenho uma tabela onde ficam cadastradas todo meu movimento de caixa, mas eu queria tirar relatorios regulares utilizando o compodenten datetimerpiker para dizer quando começa e quando termina a buca.
Espero q tenham entendido minha dúvida e obrigado.
Bem Minha dúvida é a seguinte, tenho uma tabela onde ficam cadastradas todo meu movimento de caixa, mas eu queria tirar relatorios regulares utilizando o compodenten datetimerpiker para dizer quando começa e quando termina a buca.
Espero q tenham entendido minha dúvida e obrigado.
Jonatassimoes
Curtir tópico
+ 0
Responder
Posts
04/10/2003
Mmtoor
Var
Inicio: String;
Final: String;
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
query1.Close;
query1.SQL.Clear;
query1.SQL.Text := ´SELECT * FROM c8 WHERE c3 >=:pInicial and c3<=:pFinal and c8=:cartão ORDER BY c3 ASC´;
query1.ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
query1.ParamByName(´pFinal´).AsDateTime := StrToDate(Final);
Query1.ParamByName(´cartão´).AsString := ´cartão´;
query1.Prepare;
query1.Open;
dbgrid1.SetFocus;
end;
Inicio: String;
Final: String;
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
query1.Close;
query1.SQL.Clear;
query1.SQL.Text := ´SELECT * FROM c8 WHERE c3 >=:pInicial and c3<=:pFinal and c8=:cartão ORDER BY c3 ASC´;
query1.ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
query1.ParamByName(´pFinal´).AsDateTime := StrToDate(Final);
Query1.ParamByName(´cartão´).AsString := ´cartão´;
query1.Prepare;
query1.Open;
dbgrid1.SetFocus;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)