Delphipage

Présentation

Ce programme reprend la base de données créer précédemment ainsi que la table construite. Il reprend également les exemples vus précèdemment. Votre deuxième programme est un annuaire.

Voici à ce que ressemblera le programme :

Conception graphique du programme

Pour commencer, créer une nouvelle application en Delphi.
Mettez la propriété "Position" à "poScreenCenter" de la form. Mettez également la propriété "BorderStyle" à "bsSingle" ainsi que la propriété "biMaximize" à "False" de la form.

Choisir la base de données

Insérez le composant TTable de l'onglet "AccèsBD" de la palette de composant de Delphi.
Il faut maintenant choisir la base de données. On prendra la base de données "STANDARD1" que l'on a crée précédemment.
Tout d'abord, mettez la propriété "DataBaseName" du composant Table1 à "STANDARD1".
Ensuite, mettez également la propriété "TableName" de ce même composant à "exemple.dbf".
Mettez la propriété "Active" de ce composant à "True".

En effectuant ces opérations, nous avons sélectionné la base de données et la table.

Mettre l'interface entre les composants visuels et le composant TTable

On a besoin des composants visuels de l'onglet "ContrôleBD"de la palette de composants de Delphi.
On a donc besoin du composant TDataSource qui sert d'interface entre les composants visuels et le composant Table1 (TTable).

Insérez le composant TDataSource de l'onglet "AccèsBD" de la palette de composants de Delphi.
Mettez sa propriété "DataSet" à "Table".

Relier les composants visuels à la table

Ajoutez un composant TQuery de l'onglet "AccèsBD".
Mettez la propriété "DataSet" du composant TDataSource à "Table1".

Ajoutez aussi un composant TGroupBox, quatre composants TLabel, quatre composants TDBEdit et sept composants TButton. Disposez ces composants comme l'image ci-dessus.
Ensuite, mettez la propriété "DataSource" des composants DBEdit1, DBEdit2, DBEdit3, DBEdit4 et Query1 à "DataSource1".

Relier les différents champs de la table aux composants visuels

Pour faciliter la compréhension, voici un tableau récapitulant tous ce qu'il faut effectuer sur la propriété "DataField" des composants TDBEdit :

Composant	Propriété	Valeur
DBEdit1	DataField	Nom
DBEDit2	DataField	Prenom
DBEDit3	DataField	Telephone
DBEdit4	DataField	Adresse

Il faut maintenant mettre la propriété "Caption" des quatre labels à leurs valeurs.

Gestion des enregistrements

Pour ajouter une personne, on utilise l'instruction "INSERT" du langage SQL.

procedure TForm1.Button1Click(Sender: TObject);
begin
//Ajouter une personne
Query1.SQL.Clear;
Query1.SQL.Add('INSERT into exemple (Nom, Prenom, Adresse, Telephone) values (:ParNom, :ParPrenom, :ParAdresse, :ParTelephone)');
Query1.ParamByName('ParNom').AsString:=DBEdit1.Text;
Query1.ParamByName('ParPrenom').AsString:=DBEdit2.Text;
Query1.ParamByName('ParTelephone').AsString:=DBEdit3.Text;
Query1.ParamByName('ParAdresse').AsString:=DBEdit4.Text;
Query1.ExecSQL;
end;

"Query1.SQL.Clear" efface le contenu de la stringlist.
"Query1.ExecSQL" exécute l'instruction SQL.

Pour supprimer une personne, on utilise l'instruction "DELETE" du langage SQL.

procedure TForm1.Button2Click(Sender: TObject);
Var Reponse:string;
begin
//Supprimer une personne
Reponse:=InputBox('Supprimer une personne','Nom de la personne :','');
Query1.SQL.Clear;
Query1.SQL.Add('DELETE from exemple WHERE Nom=:Rep');
Query1.ParamByName('Rep').AsString:=Reponse;
Query1.ExecSQL;
end;

Pour modifier les informations d'une personne, on utilise l'instruction "UPDATE" du langage SQL.

procedure TForm1.Button3Click(Sender: TObject);
begin
//Modifier une personne
Query1.SQL.Clear;
Query1.SQL.Add('UPDATE exemple SET Prenom=:ParPrenom, Adresse=:ParAdresse, Telephone=:ParTelephone WHERE Nom=:ParNom');
Query1.ParamByName('ParNom').AsString:=DBEdit1.Text;
Query1.ParamByName('ParPrenom').AsString:=DBEdit2.Text;
Query1.ParamByName('ParTelephone').AsString:=DBEdit3.Text;
Query1.ParamByName('ParAdresse').AsString:=DBEdit4.Text;
Query1.ExecSQL;
end;

Pour la navigation, on utilise la méthode "Prior" qui va à l'enregistrement précèdent et la méthode "Next" qui va à l'enregistrement suivant.

procedure TForm1.Button4Click(Sender: TObject);
begin
Table1.Prior; //Personne précédente
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Next; //Personne suivante
end;

Pour rechercher une personne, on utilise la recherche globante avec "Locate".

procedure TForm1.Button6Click(Sender: TObject);
Var Reponse:string;
begin
//Rechercher une personne
Reponse:=InputBox('Rechercher une personne','Nom de la personne :','');
if Table1.Locate('Nom',Reponse, [loCaseInsensitive])=False then
ShowMessage('La personne n''a pas été trouvée.');
end;

Pour quitter le programme, on utilise la procédure "Close" qui ferme la form.

procedure TForm1.Button7Click(Sender: TObject);
begin
Close; //Quitter
end;

Base de données	[ 24-08-2002 ]
Exemple d'annuaire en base de données (vous devez créer un alias avec l'administrateur BDE). Télécharger : [8 Ko] [ bdprogramme2.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/