reportes
hola mis queridos amigos,
tengo un problema con un reporte, este es el cogido
procedure TReporte_Docente_Asistencia.BitBtn2Click(Sender: TObject);
begin
inherited;
IF le_id01.Text<>''
then
begin
fmRptDocControl.ADOQuery1.Close;
fmRptDocControl.ADOQuery1.Parameters[0].Value := le_id01.text;
fmRptDocControl.ADOQuery1.Parameters[1].:= DateTimePicker1.DateTime;
fmRptDocControl.ADOQuery1.Open;
fmRptDocControl.ADOQuery2.close;
fmRptDocControl.ADOQuery2.Parameters[0].Value := le_id01.Text;
fmRptDocControl.ADOQuery2.Parameter[1].Value :=DateTimePicker1.DateTime;
fmRptDocControl.ADOQuery2.Open;
fmRptDocControl.QuickRep1.Preview;
end
else
showmessage('Le falta campos');
end;
|