Discussion :

[FOCUS77]

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.

[gvasseur58]

Bonjour,

Merci pour cette FAQ. Cependant, il faudrait préciser qu'il s'agit d'un usage particulier avec IBConnection et IBTransaction et certains OS genre XP, donc non généralisable. Si j'utilise une base de données avec W7, W8 ou encore Linux je ne pourrai pas toujours utiliser le répertoire où se trouve l'application pour y stocker des données pour des raisons de droits d'accès.