Bonjour à tous,

J'ai une application Delphi qui utilise plusieurs DataModule (composants IBX avec Interbase 6.0). Cette appli étant destinée à être installée chez différents clients, l'emplacement de la base de données doit donc être paramétrable.

J'aimerais connaître votre avis avant de mettre en oeuvre :

D'après votre expérience, quelle est la meilleure façon de paramétrer le composant IBDatabase dans ce contexte ?

Pour aller un peu plus loin, j'ai pensé à faire ceci :
l'événement OnCreate de chaque fiche utilisant un Datamodule initialise ce dernier de la façon suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
if not Assigned(DataModule7) then DataModule7:= TDataModule7.Create(self);
  RecupBDD(ParamAppli.PathBDD);
et chaque DataModule comporte cette procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Procedure RecupBDD(BDD : string);
var Reponse : word;
begin
 try
   DataModule4.IBDatabase.DatabaseName := BDD;
 except
  Reponse:=MessageDlg('Bases de données non trouvées.'+ #10+#13 +
               'Arrêt de l''application', mtError, [mbAbort], 0);
  halt;
 end ;
end;
La variable BDD est récupérée dans le fichier INI de l'application.

Qu'en pensez-vous ?

Merci de votre aide.