FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
With RvProject1 do  
try  
  Open;  
  SetParam('MONPARAMDATE','24/03/2006');  
finally  
  Close;  
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TFrmAffaire.btnImprimerRapportClick(Sender: TObject); 
  
const  
 cstRVddvAffaires = MonDriverDataView; 
 cstRVAffaires    = RapportAffaire; 
  
var 
 MonDataView: TRaveDriverDataView; 
  
begin 
 With FrmPrincipale.RvRapports do 
 begin 
  Open; 
   // Commentaire pour l'application DelphiCodeToDoc 
  /// @Comment Recherche un composant DriverDataView et modifie le SQL dynamiquement 
  MonDataView:=ProjMan.FindRaveComponent(cstRVddvAffaires,nil) as TRaveDriverDataView; 
  MonDataView.Query:='Select * From Matable Where [Etat] > 0 '+ GetClauseOrderBy(Self.Orderby); 
 end; 
  FrmPrincipale.ExecuteRapport(cstRVAffaires); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With RvSystem1 do 
begin 
   // Indique que la destination de l'état sera un fichier 
   DefaultDest    := rdFile; 
   // Empêche l'affichage de la boite de dialogue 
   SystemSetups   := SystemSetups - [ssAllowSetup]; 
   // Indique que l'on veut imprimer un PDF; 
   // pour les autres formats, il suffit de remplacer RvRenderPDF1  
   //par RvRenderHtml1 ou RvRenderRTF1 
   RenderObject   := RvRenderPDF1;  
   DoNativeOutput := false; 
   // Il est nécessaire d'indiquer le chemin et le nom du fichier que l'on va générer 
   OutputFileName := ExtractFilePath(Application.exeName) + 'MonFichierPdf.pdf'; 
end; 
  
// l'exécution de l'état est nécessaire si l'on veut que le fichier soit généré. 
RvProject1.ExecuteReport('Report1');

1
2
3
4
5
6
7
8
/// Nom de la base ACCESS 
  cstNomBase = 'MaBase.mdb'; 
  
   /// Chaîne de connexion ADO à construire avec le nom de la base Access 
  cstADOConnexion = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Mode=Share Deny None;Persist Security Info=False'; 
  
  /// Nom du DataBase(RaveReport) comportant une chaîne de connexion à modifier dynamiquement 
  cstRVdbMaBaseIO = 'BaseAccess';

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var 
  maBase: TRaveDatabase; 
  
begin 
  FNomBase:=cstNomBase; 
  FApplicationPath:=ExtractFilePath(Application.ExeName); 
... 
 With RvRapports do 
 begin 
  Open; 
   // Renseigne la chaîne de connexion du composant d'accès aux données des rapports d'impression 
  MaBase:=ProjMan.FindRaveComponent(cstRVdbMaBaseIO,nil) as TRaveDataBase; 
   // AuthRun est de type TRaveDBAuth 
  MaBase.AuthRun.Datasource:= Format(cstADOConnexion,[NomDeBaseAccess]); 
 end;