L'application :

Dans ce tutoriel vous allez voir comment créer une base de données et comment créer une table. Lier la base de données à la stringgrid. Ajouter, supprimer, modifier les données via la stringgrid.

Comment faire ?

Lancer Delphi RadStudio puis créez une application multipériphérique.

FDConnection1 :

Dans la palette FireDAC, placer un composant FDConnection sur la fiche.

Paramètres :

Double clic sur FDCconnection1 : ID du pilote : SQLite Paramètre Database : cliquez sur l'icône fichier, cherchez le dossier où votre base de données sera créée. Dans Nom de fichier, donnez un nom à votre base suivi de l'extension .sdb puis cliquez sur Ouvrir. Paramètre LockingMode : sélection comme valeur "Normal". Cliquer sur Tester. Si tout se passe bien, un message apparait : "Connexion établie avec succès." Cliquer sur Ok pour fermer l'éditeur de connexion FireDAC. Dans L'inspecteur D'objets FDCconnection1, mettre LoginPrompt sur False.

FDQuery1 :

Dans la palette FireDAC, placer un composant TFDQuery sur la fiche.

Paramètres :

Double clic sur FDQuery1. Dans l'éditeur de requêtes FireDAC, commande SQL, écrivez ou copier coller la requête ci-dessous pour créer une table ici dans l'exemple "TableContacts".

CREATE TABLE IF NOT EXISTS TableContacts
(
NOM VARCHAR(50) PRIMARY KEY NOT NULL,
PRENOM VARCHAR(30),
TEL VARCHAR(30),
MAIL VARCHAR(50)
);

Cliquez sur Exécuter si rien ne se passe. Votre commande SQL est bien exécutée. Cliquer sur OK pour fermer l'éditeur de requêtes FireDAC.

StringGrid1 :

Depuis la palette Grille, placer un StringGrid sur la fiche. Cliquez droit sur StringGrid1 puis cliquez sur lier visuellement… Le concepteur LiveBindings apparait.

concepteur LiveBindings :

Cliquer sur Expert LiveBindings (baguette magique) du concepteur LiveBindings.

Expert LiveBindings Etape 1 :

Cochez la case "Créer une source de données" puis cliquez sur Suivant.

Expert LiveBindings Etape 2 :

Sélectionner la classe FireDAC puis cliquer sur Suivant.

Expert LiveBindings Etape 3 :

Sélectionner Composant de connexion "FDConnection1", Type de la commande "Table", texte de la commande "TableContacts". Cliquez sur Tester la commande, un message vous informe si le test de commande a réussi. Cliquez sur Ok puis Suivant.

Expert LiveBindings Etape 4 :

Cochez la case "Ajouter un navigateur de source de données". Cliquez sur Terminer pour fermer l'Expert LiveBindings.

Concepteur LiveBindings :

Sur le concepteur LiveBindings, cliquer sur l'étoile du "StringGrid1" et relier-la à l'étoile du "BindSourceTableContacts". Les champs de notre table ont été ajoutés à notre StringGrid1 (NOM, PRENOM, TEL, MAIL). Et pour finir, fermer le concepteur LiveBindings. Pour faire plus propre sur la fiche, placer le NavigatorBindSourceTableContacts Align "Bottom" et placer le StringGrid1 Align "Client".

Les fonctions :

Pour ajouter un champ, cliquer sur le bouton "+". Remplir les champs (NOM, PRENOM, TEL, MAIL).

Pour enregistrer les champs, cliquer sur le bouton Valider.

Si vous voulez utiliser votre application sur un autre ordinateur, votre application ne trouvera pas votre base de données.

Comment faire ?

Créer un répertoire BDD dans le répertoire de votre application. Placer votre base de données dans le répertoire BDD.
Dans Propriétés FDConnection1, mettre Connected sur False.

Code :

procedure TForm1.FormCreate(Sender: TObject);
begin
   FDConnection1.Params.Values['Database'] := ExtractFilePath(ParamStr(0))+'\BDD\ExempleBdd.sdb';
   FDConnection1.Connected := True;
   FDTableTableContacts.Active := true;
end;

Si notre page vous a plu, n’oubliez pas de la partager :