Bonsoir à tous.

Comment utiliser un 'DataModule'?

Créer tout d'abord une nouvelle application.
Ensuite on ajoute un "DataModule" qu'on l'intègre à l'application par: Source/Ajouter une unité à la clause uses...

Sur la fiche principale 'Form1', on ajoute un IBConnection1 et un SqlTransation1 et on définie: DataBase: IBConnection1 et Action:CaCommit.
Sur le 'DataModule', on ajoute toutes les SqlQueries que l'application utilise et on définie leurs Sqls, leur Database:Form1.IBConnection1
et leur Transaction: Form1.Transation1.

En ajoute les codes suivants.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.IBConnection1BeforeConnect(Sender: TObject);
Var  AppPath,DataPath : String ;
begin
AppPath := ExtractFilePath(Application.ExeName) ;  //chemin complet de l'application .
DataPath := AppPath+'DATABASE\REGISTRE.GDB';      //chemin complet de la base de données.
IBConnection1.DatabaseName:=DataPath ;
end;   
 
 
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
SqlQuery1.Active:=True ;
................................. ;
SqlQueryn.Active:=True ;
end;
Ainsi les SqlQueries sont prêtes à êtres utilisées.
Une fois exécuté, L'application fonctionne dans n'importe quel dossier.

merci.