Utilisation de Module de données
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:
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.8-)
merci.