1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| var
report: IReport;
application: TApplication;
begin
//ouverture du report
report := application.OpenReport('C:\...\report.rpt' ,crOpenReportByTempCopy);
report.DiscardSavedData;
//modification de la procédure liée au report
TADOCommandText1.CommandText := 'ALTER PROCEDURE ..... '
TADOCommandText1.Execute;
//comme dans CR, 'Vérifier la base de données'
report.Database.Verify
//c'est cela qui fait afficher le prompt
//passage de paramètres
report.ParameterFields.GetItemByName('@numero_promotion','').AddCurrentValue(num_promotion);
report.ParameterFields.GetItemByName('@semestre','').AddCurrentValue(semestre);
//pour afficher le report
CRViewer1.ReportSource:=FormEtat.report;
CRViewer1.ViewReport;
end; |
Partager