Relatório com intervalo de datas
26/10/2009
0
procedure Tfrmrelpaciente.SpeedButton1Click(Sender: TObject);
var
inicio, fim :string;
begin
if DateTimePicker2.Date < DateTimePicker1.Date Then
begin
Application.MessageBox('Intervalo de datas inválido, a data inicial é maior que a data final!', 'Aviso',
MB_ICONWARNING +0);
DateTimePicker2.Date := DateTimePicker1.Date;
end
else
inicio:= datetostr(datetimepicker1.Date);
fim:= datetostr(datetimepicker2.Date);
dmprincipal1.qconsultagrup.Close;
dmprincipal1.qconsultagrup.SQL.Clear;
dmprincipal1.qconsultagrup.SQL.Text:= 'SELECT COD_PAC, NOM_PAC, CPF_PAC, DT_CAD_PAC, DT_NASC_PAC FROM PACIENTE WHERE DT_CAD_PAC between :pinicial and :pfinal Order by NOM_PAC ASC';
dmprincipal1.qconsultagrup.Parameters.ParamByName('pinicial').Value := strtodate(inicio);
dmprincipal1.qconsultagrup.Parameters.ParamByName('pfinal').Value := strtodate(fim);
dmprincipal1.qconsultagrup.Open;
frmrelanual.QRelatorio.Preview
end;
No formulario QuickReport o dataset é a tabela o a Query? e os QDBRText?
Pois tanto faz ser um como outro. No formulario aparece somente um registro e recordcount acusa 5 registros.
Abraços Carlos
Carlos Leonel
Posts
28/12/2009
Evaristo Neto
[]´s
Evaristo
28/12/2009
Perivaldo Martins
Clique aqui para fazer login e interagir na Comunidade :)