-1-

SOMMAIRE
Chapitre 1 : Introduction Delphi7...........................................................................................................4
Leon1 : Delphi7, gnralits ......................................................................................................................5
Leon2 : Les premiers pas...........................................................................................................................9
TP1 : Jeu de couleurs .....................................................................................................................................9
TP2 : Calcul de la moyenne .........................................................................................................................11
TP3 : Calcul du factoriel ..............................................................................................................................12
TP4 : Chargement dune image ...................................................................................................................13
Leon3 : Avancer plus ...............................................................................................................................14
TP1 : Interface des couleurs.........................................................................................................................14
TP2 : Lancement dun excutable partir dune fiche Delphi ...................................................................16
TP3 : Les commentaires ..............................................................................................................................16
TP4 : La manipulation de linterface par clavier .........................................................................................17
Leon4 : Messages, Multimedia et autres ...............................................................................................18
TP1 : Les messages de dialogue ..................................................................................................................18
TP2 : Les fichiers multipedia.......................................................................................................................19
TP3 : Les animations ...................................................................................................................................19
TP4 : Les boucles de temps .........................................................................................................................20
TP5 : Dessiner une fonction.........................................................................................................................20
TP6 : Barre de progression ..........................................................................................................................20
Leon5 : Menu principal et barres doutils ............................................................................................21
TP1 : Le menu principal ..............................................................................................................................21
TP2 : Les barres doutils ..............................................................................................................................22
Leon6 : La programation des bases de donnes....................................................................................23
TP1 : Cration dun alias de base de donnes..............................................................................................23
TP2 : Cration dune table ...........................................................................................................................24
TP3 : Connexion et affichage dune base de donnes dans une fiche Delphi .............................................25
TP4 : Les champs calculs et les boucles dans une BD (exemple : facture) ...............................................25
TP5 : Les champs calculs et les boucles dans une BD (exemple : Bulletin) .............................................28
TP6 : Le DBNavigateur ...............................................................................................................................29
Leon7 : Les index secondaires et leurs utilisation .................................................................................30
TP1 : La cration des index secondaires......................................................................................................30
TP2 : Le trie dune table .............................................................................................................................31
TP3 : le filtrage dune table ........................................................................................................................32
TP4 : la recherche simple dans une table ....................................................................................................33
TP5 : les relations maitre-detail ..................................................................................................................33
Leon8 : Introduction aux requetes SQL ...............................................................................................35
Prsentation generale ..................................................................................................................................35
TP1 : Les requetes SQL les plus utilises ...................................................................................................36
TP2 : La consultation par des requetes parametres....................................................................................38
TP3 : Les graphes.........................................................................................................................................39
Leon9 : Les tats dimpression ...............................................................................................................40
Introduction .................................................................................................................................................40
TP1 : imprimer les enregistrements dune table (liste des produits) ...........................................................41
Leon10 : Delphi est un RAD....................................................................................................................43
TP1 : une fiche simple dimpression dune table ........................................................................................43
TP2 : Une fiche simple de connexion et daffichage et dimpression dune table .....................................44
TP3 : Une fiche maitre-detail entre deux tables ..........................................................................................45
TP4 : TP Exemplaire ..................................................................................................................................45
-2-
Chapitre 2 : Logiciel gestion commerciale...............................................................................................46
Prparation du Logiciel ...............................................................................................................................47
Fiche Menu .................................................................................................................................................48
Fiche Produit................................................................................................................................................50
Fiche Client .................................................................................................................................................52
Fiche Fournisseur ........................................................................................................................................54
Fiche Facture Achat ....................................................................................................................................56
Fiche Facture Vente ....................................................................................................................................61
Fiche Consultation Achats ..........................................................................................................................67
Fiche Consultation Ventes ..........................................................................................................................69
Fiche Statistiques Reglement.......................................................................................................................71
Fiche Mot de Passe .....................................................................................................................................72
Fiche Protection ...........................................................................................................................................73
Fiche Archivage ..........................................................................................................................................74
Fiche Inventaire ..........................................................................................................................................75
Fiche Cloture ...............................................................................................................................................77
Fiche propos ............................................................................................................................................79

Chapitre 3 : Logiciel gestion scolarit......................................................................................................80

Prparation du Logiciel ...............................................................................................................................81
Fiche Menu .................................................................................................................................................82
Fiche Etudiant ..............................................................................................................................................83
Fiche Matire ..............................................................................................................................................87
Fiche Professeur ..........................................................................................................................................90
Fiche Spcialit ...........................................................................................................................................92
Fiche Bulletin ..............................................................................................................................................94
Fiche Consultation Etudiant ........................................................................................................................99
Fiche Statistiques des tudiants ................................................................................................................100
Fiche Impression........................................................................................................................................103
Fiche Mot de Passe ...................................................................................................................................105
Fiche Protection .........................................................................................................................................106
Fiche Archivage ........................................................................................................................................107
Fiche Cloture .............................................................................................................................................108
Fiche propos ..........................................................................................................................................109

Chapitre 4 : Trucs & astuces .................................................................................................................111

Crer une installation .................................................................................................................................112
Conception des fichiers help pour les logiciels..........................................................................................114
Le skin Data ..............................................................................................................................................115

Annexe ......................................................................................................................................................117
Les composants de base (Proprits et venements) ...................................................................................118

-3-
-4-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 1 : DELPHI7, GNRALITS

1- INTRODUCTION
Delphi est un environnement de programmation visuel orient objet permettant de dvelopper des
applications sous Windows. Il reprsente la suite logique de la famille turbo Pascal avec ses nombreuses versions
(prcisment le pascal objet). Delphi est un outil moderne, puissant, faisant appel une conception visuelle des
applications, la programmation oriente objet, une bibliothque de composants trs riche (la VCL: Visual
Components Library), aux fichiers DLL (Dynamic Link Library) et API (Application Programming Interface) de
Windows; Delphi se classe comme lun des meilleurs environnement de dveloppement rapide des applications
(RAD) dans le monde informatique.

Delphi, cest aussi un produit qui volue avec le temps. Chaque nouvelle version possde son lot de
nouveauts. Voici les versions successives :
- Delphi 1 est le premier environnement pascal RAD sous Windows 3.11 (visuel).
- Delphi 2 marque le passage au mode 32 bits avec Windows 95.
- Delphi 3 supporte dj les Active X, ainsi que laide la saisie dynamique.
- Delphi 4 propose les tableaux dynamiques.
- Delphi 5 ouvre laccs natif aux bases de donnes ADO et interbase.
- Delphi 6 introduit dbExpress et les composants portables de la CLX.
Et en fin, Delphi 7, Delphi 8 et rcemment Delphi 2006 et 2007 qui sont sans doute les versions les plus enrichies de
toute lhistoire du produit.

2- ENVIRONNEMENT DELPHI
Dmarrage de Delphi
Vous pouvez dmarrer Delphi de plusieurs faons :
Double-cliquer sur licne Delphi (si vous avez cr un raccourci).
Choisir Programmes
Borland Delphi 7
Delphi 7 dans le menu Dmarrer de Windows.
Choisir Excuter dans le menu Dmarrer de Windows, puis entrer Delphi32.
Double-cliquer sur [Link] dans le rpertoire Delphi\Bin.

LEDI
Lorsque vous dmarrez Delphi pour la premire fois, vous voyez apparatre quelques-uns des principaux
outils proposs dans lEDI (environnement de dveloppement intgr). Dans Delphi, lEDI comprend des barres
doutils, des menus, la palette de composants, linspecteur dobjets, larborescence dobjets, lditeur de code,
lexplorateur de code, le gestionnaire de projet et bien dautres outils.
La vue arborescente de lobjet La barre des menus et les barres doutils
affiche une reprsentation permettent daccder tout un ensemble de La palette de composants contient
hirarchique des relations parent fonctions qui vous aident crire vos applications. des composants (visuels ou non)
enfant des composants. prts tre utiliss dans vos
projets, regroupes par familles
(pages onglets). Cest la VCL
de Delphi.

Lditeur de code, ou lunit,

permet dafficher et de modifier le
code source de votre application.
La saisie du code source est
assiste (semi-automatique).
Le concepteur de fiche contient
une fiche vierge pour dmarrer
la conception de linterface
utilisateur de votre application.
Cest le support des composants
utiliss. Une application peut
comporter plusieurs fiches
(fentres). La bascule fiche/unit
se fait par la touche F12
Linspecteur dobjets permet de
Lexplorateur de code montre les
changer des proprits et dutiliser le
classes, variables et routines de
gestionnaire dvnements de lobjet
votre unit et vous permet de
slectionn. On affiche linspecteur
naviguer rapidement.
dobjet par F11 ou ENTREE
-5-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

Les barres doutils de Delphi permettent un accs rapide aux oprations et aux commandes les plus
utilises. La plupart des oprations accessibles dans les barres doutils se retrouvent dans les menus droulants.

De nombreuses oprations possdent des quivalents clavier ainsi que des boutons dans la barre doutils.
Lorsquun raccourci clavier est disponible, il est toujours inscrit ct de la commande dans le menu droulant.

Voir la liste des units Excuter (F9) Tout enregistrer (Le projet et les
(Ctrl +F12) fichiers associs)
voir la liste des fiches Ajouter un fichier au Enregistrer (enregistrer uniquement la
(Shift + F12) projet fiche actuelle)
Basculer Unit/Fiche Retirer un fichier du Ouvrir un fichier (fiche ou projet)
(F12) projet
Nouvelle Fiche Ouvrir un projet Nouveau (fentre de choix:
Application, console, fiche, etc.)

Linspecteur dobjet
Chaque composant possde des attributs spcifiques (proprits, vnements et mthodes) vous
permettant de contrler votre application. Utilisez linspecteur dobjets pour dfinir des proprits de conception,
crer des gestionnaires dvnements, filtrer la visibilit des proprits et des vnements, ce qui tablira le lien
entre lapparence visuelle de votre application et le code qui la fait sexcuter.

Vous pouvez changer la manire dont un composant saffiche (proprits) et se comporte (vnements)
dans votre application en utilisant linspecteur dobjets. Lorsquun composant est slectionn sur la fiche, ses
proprits et ses vnements sont affichs dans linspecteur dobjets.

Larborescence dobjets, linspecteur

dobjets et le concepteur de fiche
fonctionnent ensembles. Quant vous
cliquez sur un objet de votre fiche, la
focalisation change la fois dans
larborescence et dans linspecteur
dobjets et rciproquement.

Appuyez sur ALT-SHIFT-F11 pour

passer la focalisation larborescence
dobjets.

Utiliser cette liste droulante pour

slectionner un objet. Si un objet est
slectionn, les membres de sa classe
(proprits et vnements )seront affichs.

Slectionnez une proprit et changez sa

valeur dans la colonne de droite.

-6-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

3- NOTIONS DE PROJET DELPHI ET DE SES FICHIERS

Un projet est l'tat non compil d'une application (Application = Logiciel). Chaque projet compil devient une
application. Un projet se compose d'un certain nombre de fichiers. Une sage habitude est de consacrer
compltement un rpertoire (dossier) chaque application qu'on souhaite programmer (chaque projet). Ce rpertoire
contiendra tous les fichiers constituant le projet (le nombre de fichiers augmentera au fur et mesure que le projet
s'toffera).

Un projet non compil (c'est--dire avant sa transformation en logiciel), contient ces fentres ( l'tat non
compiles galement) : les fiches, cest la partie visuelle dune application. Cette fiche, lors de la compilation du
projet en application, sera transforme en fentre.

A chaque fiche est adjointe une (et une seule) unit, c'est--dire un texte crit en langage Pascal, qui
contiendra tout ce qui se rapporte cette fiche : ce qu'elle contient (boutons, menus, ), ce qui doit se passer dans
certaines situations (lorsqu'on clique sur un bouton par exemple), et encore bien d'autres choses.

Chaque fiche est stocke dans un fichier comportant l'extension 'DFM' (exemple : [Link] ).
Chaque unit est stocke dans un fichier comportant l'extension 'PAS' (exemple : [Link] ).

La fiche et son unit associe portent le mme nom (mais pas la mme extension) (Delphi ne demande ce
nom denregistrement qu'une seule fois et l'utilise automatiquement pour l'unit et la fiche, ainsi vous n'avez aucun
risque de vous tromper). Par exemple, si une fiche est stocke dans le fichier nomm [Link] , son unit
associe sera stocke dans le fichier nomm [Link] . voire la figure suivante :

Figure : la nomination des fches & units

Il est galement possible d'utiliser des units qui n'ont pas de fiche associe. Ceci est utile par exemple pour
rassembler des morceaux de programme qui n'ont aucun rapport avec une quelconque fiche. Le fichier qui contient
cette unit porte l'extension 'PAS', comme s'il avait une fiche associe, mais il n'en a pas : il n'y a pas de fichier
nomm identiquement, mais avec l'extension 'DFM'.

Un projet sous Delphi est constitu d'un fichier-projet (portant l'extension 'DPR'), d'units et de fiches.
Chaque fiche a son unit correspondante, mais certaines units n'ont pas, comme on l'a vu ci-dessus, de fiche
associe (il y a toujours au moins autant d'units que de fiches dans un projet, et souvent plus). Pensez en outre
donner des noms descriptifs, ou au moins significatifs lors des enregistrements des units ou des fiches (Ainsi,
[Link] est un bien mauvais choix !).

Lors de la compilation du projet (transformation en application), d'autres fichiers seront crs : des fichiers
DCU (fichiers portant l'extension 'DCU', essayez de vous habituer ces abus de langage). Ces fichiers sont la forme
compile des fichiers de mme nom qui portent les extensions 'PAS' et 'DFM' : un 'PAS' (avec son 'DFM' associ s'il
y en a un) est transform en 'DCU' lors de la compilation. Un fichier 'EXE' est enfin cr si la compilation atteint son
terme (si tous les fichiers 'DCU' ont pu tre crs). Ce fichier est nomm avec le mme nom de base que celui du
fichier projet (fichier DPR).

Le schma ci-dessous reprsente la transformation d'un projet en application, avec les lments que vous
devez dsormais connatre. Ce projet comporte deux fiches (avec les units associes) ainsi qu'une unit seule :

-7-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

Figure : un projet Delphi, du source lexecution.

Lors des enregistrements successifs d'un projet, d'autres fichiers avec des extensions ~DP, ~DF, ~PA, ~DC,
~DPR, ~DFM, ~PAS, ~DCU sont crs : ce sont des copies de sauvegarde (des versions plus anciennes) des
fichiers portant le mme nom, sans le signe tilde (~)

Exemple : optionsaffich.~PA est une copie de sauvegarde de [Link] .

Enfin, d'autres fichiers ayant le mme nom que le fichier projet (celui qui porte l'extension DPR) mais avec
l'extension .RES, .OPT, .CFG, .DOF, .DSK, .DSM sont crs dans certaines circonstances. Vous n'avez pas vous
souciez de ces fichiers.

Le tableau suivant donne une liste aussi complte que possible des fichiers pouvant tre rencontrs dans le
rpertoire d'un projet Delphi :

Extension du fichier Description et Commentaires

DPR (Delphi PRoject) Contient l'unit principale du projet

PAS (PAScal) Contient une unit crite en Pascal. Peut avoir un .DFM correspondant

(Delphi ForM : fiche Delphi) Contient une fiche (une fentre). Le .PAS correspondant
contient toutes les informations relatives au fonctionnement de cette fiche, tandis que le
DFM .DFM contient la structure de la fiche (ce qu'elle contient, sa taille, sa position, ). Sous
Delphi 5, les .DFM deviennent des fichiers texte qu'il est possible de visualiser et de
modifier. La mme manipulation est plus dlicate mais possible sous Delphi 2 4.

(Delphi Compiled Unit : Unit compile Delphi)

DCU
Forme compile et combine d'un .PAS et d'un .DFM optionnel

Tous les fichiers dont l'extension commence par ~ sont des fichiers de sauvegarde,
~???
pouvant tre effacs pour faire place propre.

Fichier excutable de l'application. Ce fichier est le rsultat final de la compilation et

EXE fonctionne sous Windows exclusivement. Pour distribuer le logiciel, copier ce fichier est
souvent suffisant.

(RESsource)
RES Fichier contenant les ressources de l'application, tel son icne. Ce fichier peut tre dit
avec l'diteur d'images de Delphi. Ces notions seront abordes plus loin dans ce guide.
DOF
Fichiers d'options : suivant les versions de Delphi, ces fichiers contiennent les options du
DSK
projet, les options d'affichage de Delphi pour ce projet, ...
CFG

-8-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 2 : LES PREMIERS PAS

TP 1 : JEU DE COULEURS
Interface

tapes :
Inserer le premier bouton dans la fiche comme suite :

1 Clic sur le composant Button

2 Clic dans la fiche sur la place ou on veut inserer ce bouton

Ecrire dans la proprit caption le nom apparant de ce boutton (exemple : Bleu)

3

-9-
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

Remarque de base
Pour simplifier la prsentation des tapes de cration des interfaces des exemples suivants, on prsente les
objets insrer sur une fiche par un tableau contenant : les noms des composants, leurs proprits manipuler
(dans leurs inspecteurs dobjets) et enfin les valeurs donner ces proprits.

Donc, ltape prcdente peut tre prsente comme suite :

1-insrer les composants suivants de la palette Standard :

Composant Proprit Valeur
Button1 Caption bleu
Button2 Caption rouge
Button3 Caption vert

2-double clique sur le bouton1 (Bleu) et crire dans la procdure :

[Link]:=CLBlue;

Une Valeur adquate pour la

proprit (cl : veut dire couleur)

Une de ses proprits

ou mthodes

Le nom de lobjet

Remarque
Si vous crivez :
Form1.

Delphi, grce son assistant de saisie semi-automatique, vous propose la liste des membres (proprits et
mthodes) de la classe saisie (Form1), et on peut soit choisir dans liste la proprit ou mthode voulue, ou taper
les premires lettres de llment voulu (exemple : co pour ecrire color) et lorsquil sera slectionn dans la liste
on tape Entre pour que Delphi lcrit dans linstruction.

3- taper F12 pour revenir la fiche et double clique sur le bouton2 (Rouge) et crire dans la procdure :
[Link]:=CLRed;
4- taper F12 pour revenir la fiche et double clique sur le bouton3 (Vert) et crire dans la procdure :
[Link]:=CLGreen;

5- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.
- 10 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 2 : CALCUL DE LA MOYENNE
Interface

tapes :

1-insrer les composants suivants de la palette Standard :

Composant Proprit Valeur

Edit1 text
Edit2 text
Edit3 text
Label1 Caption Devoir
Label2 Caption Composition
Label3 Caption Moyenne
Button1 Caption Calcul

2- double clique sur le bouton1 (calcul) et crire dans la procdure :

[Link]:= floattostr ((strtofloat ([Link]) + strtofloat ([Link]))/3);
3- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

Remarque 1:
1- le casting=changement de type =conversion de type (strtofloat, floattostr, inttostr, strtoint .)
2- une autre solution possible ( crire dans la procdure du bouton1 calcul)
(Supprimer le begin et end de la procdure et coller tous le code source suivant)

Var dev,comp,moy :real ;

Begin
dev:= strtofloat([Link]);
comp:= strtofloat([Link]);
moy:= (dev+comp)/3;
[Link]:= floattostr(moy);
End ;

Remarque 2 :
Le Casting = cest aussi la conversion de type dans une affectation ou un test.

Exemple:
[Link] :=floattostr((strtofloat([Link]) + strtofloat([Link]))/3) ;
If strtofloat([Link])<10 then
Showmessage(tudiant ajourn)
Else
Showmessage(tudiant admis) ;

- 11 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP3 : CALCUL DU FACTORIEL

Interface:

tapes
1-insrer les composants suivants de la palette standard:

Composant Proprit Valeur

Edit1 Text
Edit2 Text
Label1 Caption Nombre
Label2 Caption Factoriel
Button1 Caption Calcul

2-double clique sur le bouton1 (calcul) et crire dans la procdure :

(Supprimer le begin et end de la procdure et coller tous le code source suivant)

var a,b,fact :integer;

Begin
a:= strtoint([Link]);
if a>=0 then
begin
fact:=1;
for b:=1 to a do
fact:=fact*b;
[Link]:= inttostr (fact);
End
Else
Showmessage ('pas de factoriel pour un nombre ngatif');
end;

3- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

- 12 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP4 : CHARGEMENT DUNE IMAGE

Interface:

tapes
1- insrer un composant image de la palette supplment .
2- choisir dans son inspecteur dobjet la proprit :

Clic ici

3- dans la fenetre qui saffiche, on clic sur le bouton :

Pour chercher limage voulue dans le disque dur.

3- dans la nouvelle fenetre, et aprs avoir selectioner limage voulue on clic sur le bouton :

Ensuite sur le bouton :

4- pour que limage occupe toute la surface de son cadre on modifie sa proprit :
Clic ici pour choisir la valeur True

5- pour que limage sagrandie si elle a une taille plus petite que la surface de son cadre on modifie sa proprit :
Clic ici pour choisir la valeur True

Aussi modifier sa proprit :

Clic ici pour choisir la valeur alClient

Pour que cette image aucupe tous lespace de la fenetre actuelle.

- 13 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 3 : AVANCER PLUS

TP1 : INTERFACE DE COULEURS

Interface :

tapes :
Partie1 :
1- insrer les composants suivants de la palette standard:

Composant Proprit Valeur

Radiobutton1 Caption Bleu
Radiobutton2 Caption Rouge
Radiobutton3 Caption Vert

2- double clique sur le Radiobutton1 (Bleu) et crire dans la procdure :

[Link]:=clblue;

3- taper F12 et double clique sur le Radiobutton2 (ROUGE) et crire dans la procdure :
[Link]:=clred;

4- taper F12 et double clique sur le Radiobutton3 (Vert) et crire dans la procdure :
[Link]:=clgreen;

5- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

Partie 2 :
1- insrer un composant Label1 (palette standard) et ecrire dans sa proprit caption : couleur.
2- insrer un composant Combobox1 (palette standard) et ecrire sa proprit text : (vide).
3- clique sur le composant Combobox1 et dans son inspecteur dobjet on choisit la proprit :

Clique ici pour crire les lements de la liste

Et dans la fentre qui saffiche on crit les lments de la liste ligne par ligne (bleu, rouge, vert) comme suite :

A la fin, clic sur ce bouton pour fermer la fenetre

- 14 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

4- double clique sur le Combobox1 et crire dans la procdure (attention au lettres majuscules):
If [Link]=Bleu then
[Link]:=clblue;
if [Link]=Rouge then
[Link]:=clred;
if [Link]=Vert then
[Link]:=clgreen;
5- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

Partie 3 :
1- insrer un composant button1 (palette standard) et crire dans sa proprit caption : couleur.

2- insrer un composant popupmenu1 (palette standard), cest un menu contextuel qui saffiche lors du clique
par le bouton droit de la sourie sur un composant li ce menu.
3- double clique sur le popupmenu1, une fentre ddition du menu contextuel saffiche :

Clic sur la case dun lment

du menu contextuel 1

2 crire le titre de cet

lment du menu

3 Clic sur la case suivante pour

ecrire les lments suivants

De cette faon, on crit les elments suivant :

A la fin fermer la fentre de lediteur de menu.

4- double clique sur le Popupmenu1 et double clique sur llment Bleu et crire dans la procdure :
[Link]:=clblue ;
Et taper F12 pour revenir la fiche.

5- double clique sur le popupmenu1et double clique sur llment Rouge et crire dans la procdure :
[Link]:=clred ;
Et taper F12 pour revenir la fiche.
6- double clique sur le popupmenu1et double clique sur llment Vert et crire dans la procdure :
[Link]:=clgreen ;
Et taper F12 pour revenir la fiche.

7-dans la fiche clique sur le bouton1 (couleur) et dans son inspecteur dobjet choisir la proprit :

Clic ici pour choisir le menu : PopupMenu1

Cette proprit assure que si on clique par le bouton droit de la sourie sur le Bouton1 le popupmenu1 saffiche.
8- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

- 15 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

Partie 4 :
1-insrer un composant Colordialog1 (palette Dialogues).
2-insrer un composant button2 (palette standard) et sa proprit caption
choix de couleur.
3-Double clique sur le composant bouton2 et crire :

[Link];
[Link]:=[Link];

4- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

Remarque :
Delphi propose des boites de dialogues divers pour contrler et enrichir dinterface des applications par des API et
des DLL Windows ; ces boites figurent dans la palette des composants dans longlet dialogues; par exemple :
Fontdialog : choix du font des composants de linterface (la police du traitement de texte).
Colordialog : choix de la couleur des composants de linterface.
Opendialog : donne la boite de dialogue Windows douverture des fichiers
Savedialog : donne la boite de dialogue Windows denregistrement des fichiers.
Finddialog : recherche une chane de caractres dans un texte.
Replacedialog : recherche et remplacement dune chane de caractre par une autre dans un texte.
Printdialog : permet la configuration de limprimante en cas dimpression des tats.
Nb : pour afficher une boite de dialogue quelconque on crit : [Link] ;

Exemple : [Link] ;

Chaque boite de dialogue a une proprit spciale qui donne la possibilit de manipuler le rsultat
daffichage de cette boite ; exemple : la couleur choisie dans la boite de dialogue Colordialog sera mise dans la
proprit color de ce composant et on peut lutiliser sur une fiche comme suite :

[Link] :=[Link] ;

TP2 : LANCEMENT DUN LOGICIEL (EXCUTABLE) PARTIR DUNE FICHE DELPHI

Pour lancer une application partir de Delphi (exemple : une calculatrice) on procde comme suite:
1- on insre un button1 dans une fiche delphi.
2- double clique sur ce bouton et crire dans la procdure :

WinExec([Link],sw_show) ;

Remarque1:
Sw : show window (une fonction daffichage des fentres).
Show : afficher.
Winexec : windows xcution

Remarque 2 :
Si Delphi ne reconnais pas le logiciel (Delphi ne reconnais que les logiciels installs par dfaut avec
linstallation de Windows) on doit crire le chemin complet de ce logiciel.

Exemple : lancement du Microsoft word :

WinExec(C:\Program Files\Microsoft Office\Office\[Link],sw_show) ;

TP3 : LES COMMENTAIRES

Les commentaires se placent entre accolades (pour un commentaire en plusieurs lignes), ou

parenthses et toiles (pour commenter en plusieurs lignes) ou derrire 2 slaches (pour commenter en une
seule ligne).

Exemple :
{Ceci est un commentaire}
(*Ceci est un autre commentaire*)
// Tout ce qui suit et jusqu la fin de ligne est aussi un commentaire

- 16 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP4 : LA MANIPULATION DE LINTERFACE PAR CLAVIER

Interface

tapes :
1-insrer les composants suivants de la palette Standard comme suite :
Composant Proprit Valeur
Edit1 text
Edit2 text
Edit3 text
Label1 Caption Devoir
Label2 Caption Composition
Label3 Caption Moyenne

2- clique sur le composant Edit1 et choisir son vnement

Et crire dans sa procdure : Double clique ici

If key = vk_return then
Begin
If (strtofloat([Link])<0)or(strtofloat([Link])>20) then
Showmessage('note de devoir incorrecte')
else
[Link];
End;
3- tapez F12 et clique sur le composant Edit2 et choisir son vnement
Et crire dans sa procdure :
Double clique ici
If key = vk_return then
Begin
If (strtofloat([Link])<0)or(strtofloat([Link])>40) then
Showmessage('note de composition incorrecte')
Else
Begin //Pour calculer la moyenne en ne gardant que deux chiffres aprs la virgule on crit :
[Link]:= floattostr (round((strtofloat ([Link]) + strtofloat ([Link]))/3*100)/100 );
[Link];
End;
End;
4- tapez F12 et clique sur le composant Edit3 et choisir son vnement
If key = vk_f10 then
Begin
[Link];
[Link];
[Link];
[Link];
End;
5- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.
Remarque1 :
Key = touche (cest lune des touches du clavier).
vk = value key (valeur de la touche tape).
Return = retour la ligne (donc : vk_return = la touche entre)
Setfocus = donner la main pour travailler par clavier (donc : mettre le curseur du clavier sur un composant)
[Link] = mettre le curseur du clavier sur le composant edit1.
Remarque2 :
Lvnement prfr pour programmer les touches (frappes) du clavier est : onkeydown
- 17 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 4 : MESSAGES, MULTIMEDIA

TP1 : LES MESSAGES DE DIALOGUE

Delphi propose 2 types de messages de dialogue :
1-les messages simples :
Cest un message dinformation
Exemple

- Linstruction qui appelle ce message est :

Showmessage(bonjour tous le monde) ;
- on peut insrer un bouton de la palette standard et double clique sur ce dernier et crire linstruction au-dessus.

2-les messages avec options :

Exemple :

Messagedlg ( voulez vous quitter le logiciel , Mtconfirmation, [Mbyes, Mbno] , 0)

Message De Le texte du message MT=Message MB=Message Numro du fichier

Dialogue (Cest un choix libre) Type Button Daide
Les types de messages possibles :
Mtconfirmation = Confirmation
Mtinformation = Information
Mterror = Erreur
Mtwarning = Avertissement
Les boutons des messages possibles :
mbYes = Un bouton avec le texte "Oui".
mbNo = Un bouton avec le texte "Non".
mbOK = Un bouton avec le texte "OK".
mbCancel = Un bouton avec le texte "Annuler".
mbAbort = Un bouton avec le texte "Abandonner".
mbRetry = Un bouton avec le texte "Ressayer".
mbIgnore = Un bouton avec le texte "Ignorer".
mbAll = Un bouton avec le texte "Tous".
mbNoToAll = Un bouton avec le texte "Non tout".
mbYesToAll = Un bouton avec le texte "Oui tout".
mbHelp = Un bouton avec le texte "Aide".
Le Numro du fichier daide
0 = pas de fichier daide

Exemple :
If Messagedlg (voulez vous quitter le logiciel , mtconfirmation, [mbyes, mbno, mbcancel] ,0) =mryes then
[Link]
Else
Showmessage(vous pouvez continuer ) ;

- 18 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 2: LES FICHIERS MULTIMDIA

Interface :

tapes :
1- insrer le composant : mediaplayer1 (palette systme).
2- modifier sa proprit :

3-dans sa proprit :

Et choisir le fichier vido : C:\program files\borland\delphi5\demos\coolstuf\[Link].

Et clique sur

4-lancer lxcution et clique sur le bouton

Remarque
On peut lancer automatiquement le mediaplayer par un double clic sur un bouton et crire dans sa procdure :
[Link] ;
Dans ce cas on doit cacher le mediaplayer par la modification de sa proprit :

Remarque :
Les fichiers son de Windows sont dans le chemin : C:\windows\media

TP3 : LES ANIMATIONS

Interface :

tapes :
1- insrer un composant Animate1 (palette win32)
2- choisir le type danimation utiliser dans sa proprit :

3- pour voir lanimation on modifie la proprit

4- rpter les tapes 2 et 3 pour voir les autres animations.

- 19 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 4 : LES BOUCLES DE TEMPS

Interface :

tapes :
1- insrer un composant Timer1 (palette systme)
2- insrer un composant Label1 (palette standard)
3- double clique sur le composant Timer1 et crire dans la procdure :
[Link] :=timetostr(time)
4- Lancer lxcution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche.

TP 5 : DESSINER UNE FONCTION

Interface :

tapes :
1- insrer un composant Timer1 (palette systme)
2- double clique sur ce composant et crire dans la procdure :
[Link] (i*15, trunc(sin(i)*15)+100);
I:=i+1 ;
3- en haut de lunit on trouve la partie des variables globales comme suite :
Var form1 :tform ;
I :integer ; //insrer la dclaration dune variable globale
Implementation
4- lancer lxcution
Remarques:
1- le dessin sur cran se fait en pixel (Picture Element) donc pour avoir un dessin visible il faut amplifier les
coordonnes (x,y),en plus il faut dcaler le dessin vers le milieu de la fiche par lajout de 100 pixels aux coordonnes
(y) comme suite :
[Link] (i*15, trunc(sin(i)*15)+100);
2- le composant Timer a une proprit intressante : Interval
(On peut donner dans cette proprit la frquence de rptition du Timer)
3- le canvas est une feuille transparente sur chaque fiche Delphi qui aide dessiner des graphes.

TP 6 : BARRE DE PROGRESSION
Interface :

tapes :
1- insrer un composant Timer1 de la palette Systme et modifier sa proprit : interval
50.
2- insrer un composant ProgressBar1 de la palette Win32 et modifier ses proprits :

3- Double clique sur le timer1 et crire dans sa procdure :

[Link]:=[Link]+1;
4- Lancer lxcution pour voir la progression dans cette barre.

- 20 -
 Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 5 : MENU PRICIPAL, BARRES DOUTILS

TP 1 : LE MENU PRINCIPAL
Interface :

tapes :
1- insrer de la palette standard le composant Mainmenu1

2- double clique sur le composant Mainmenu1 et crire les lments du menu dans leurs proprits caption

3- pour faire une ligne de sparation on crit dans la proprit "caption" le caractre "-"
4- pour chaque lment du menu on choisit une lettre et on crit avant elle le symbole "&" pour assurer un raccourci
clavier :
Exemple : &Edition
Edition
Donc : on tape le raccourci clavier Alt+E pour voir le menu Edition.
5- pour choisir un raccourci Clavier quelconque on slectionne un lment du menu et dans la proprit

on choisit le raccourci adquat (exemple : Ctrl + N pour llment Nouveau du menu).

6- pour insre un sous menu dans un lment du menu :
On clique sur cet lment et on tape les touches clavier : CTRL +  et on crit les lments du sous menu.
7- pour insre des icnes dans les lments du menu ou insre le composant "imagelist1" (palette "Win 32")
Et double clique sur ce composant "imagelist1"
Et clique sur le bouton

Et choisir une image dans le chemin : c:\program files\fichiers communs\borland shared\images\buttons

Et clique sur
Ensuite sur
Et rpter Ajouter pour tous les autres images et enfin clique sur

Ensuit clique sur le composant "Mainmenu1" et choisir dans sa proprit :

Enfin : double clique sur " MainMenu1" et pour chaque lment du menu on choisit une image par sa proprit :

- 21 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 2 : LES BARRES DOUTILS

Interface :

La barre doutils contient les lments les plus utiliss du menu principal.
tapes :
1- insrer de la palette "Win 32" le composant "Toolbar1"
2- clique droit sur ce composant et choisir : "Nouveau bouton"

Pour chaque fois quon veux inserer un nouveau bouton, et on clic sur "Nouveau sparateur" sparer les groupes
de boutons.

3- clique sur le composant "toolbar1" en vitant ses boutons et modifier sa proprit

Et cela pour que les boutons se gonflent lors du passage du pointeur de la sourie au dessus et se dgonflent
aprs.
4- Pour faire la liaison entre "imagelist1" et "toolbar1" ou clique sur toolbar1
Et on choisit dans sa proprit

5- Pour modifier limage de change bouton du Toolbar1 on clique sur ce bouton et on choisit son image par sa
proprit :

6- pour expliquer le rle de chaque bouton du Toolbar1 on clique sur ce bouton on crit lxplication adquate dans
la proprit :

7- pour voir lxplication de ce bouton on choisit dans sa proprit :

- 22 -
 Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 6 : LA PROGRAMMATION DES BASES DE DONNEES

Dfinitions :
BD : Une base de donnes relationnelle est un ensemble de tables lies et gres par un SGBD (Systme de
Gestion des Bases de Donnes).
Table : cest une structuration de donnes sous forme de champs et denregistrements.

Lenvironnement de programmation Delphi donne la possibilit de se connecter presque tous les SGBD
disponibles sur le march.

TP 1 : CRATION DUNE ALIAS DE BASE DE DONNES

Delphi propose un module base de donnes pour simplifier la cration des alias de BD.
Pour accder au module BD (nomm aussi BDE : Borland Database Engine) on choisit dans le menu
Delphi :
Outils
module base de donnes.

un alias est un chemin logique qui localise et donne la possibilit daccs la BD. Un alias reprsente une base de
donnes ainsi que les informations de configuration de cette dernire.

Pour crer un nouveau alias on procde comme suite :

 Dans le menu du BDE on choisit : outils
gestionnaires dalias.

Ensuite dans la fenetre de gestionnaire des alias on procede comme suite :

Ecrire le nom du
nouveau Alias
3
Choisir le type
1 du nouveau
Alias ( Public)

Clic sur le
bouton OK 4
Clic sur le bouton
2
Nouveau

Enfin, et dans la fenetre qui saffiche :

Clique sur Oui pour enregistrer cet

alias avec les alias publics. 5

- 23 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 2 : CRATION DUNE TABLE

1- Dans le menu BDE on choisit : fichier
nouveau
table.
Ensuite On choisit le SGBD par dfaut paradox 7 et clique sur ok.

On crit la structure de la table suivante :

Double clic ici, ou

tapez nimporte
quelle touche
clavier pour crer
un index primaire

Pour enregistrer, on clique sur le bouton 1

Ensuite, et dans la fentre suivante on enregistre la table produit comme suite :

4 Clic sur
enregistrer

3 crire le nom
de la table
(produit)
2
Choisir lAlias

- 24 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 3 : CONNEXION ET AFFICHAGE DUNE BASE DE DONNES DANS UNE FICHE

 insrer de la palette BDE le composant Table1 et manipuler ses proprits :

Choisir notre alias

Choisir la table

Activer la connexion la table

 Pour afficher notre table on doit insrer de la palette Accesbd le composant datasource1 et choisir
dans sa proprit :

 Insrer de la palette Contrlebd le composant Dbgrid1 et choisir dans sa proprit :

TP 4 : LES CHAMPS CALCULES ET LES BOUCLES DANS UNE BD (TP FACTURE)

Interface :

tapes :
1- Dans le module base de donnes (BDE) :
a- On commence par la cration dun nouveau alias nomm "tp_facture" (Voir les tapes du TP1) :
b- Dans cet alias on crera la table suivante :

Champ type taille index

Code I *
Designation A 20
Quantite N
prix $

c- On enregistre cette table dans notre alias "tp_facture" sous le nom : produit .

2- Dans une fiche Delphi on insre les composants suivants :

Palette Composant Proprit Valeur
BDE Table1 Databasename Tp_facture
Tablename Produit
Active True
AccesBD Datasource1 Dataset Table1
ControleBD Dbgrid1 Datasource Datasource1
Standard Label1 Caption Montant
Edit1 Text
Button1 Caption Calcul

3- Pour introduire le champ calcul Total dans la table produit on procde comme suite :
 On double clique sur le composant table1, et dans la petite fenetre blache qui saffiche :

- 25 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

1
Clic droit 2
sur la petite
Clic sur
fentre
Ajouter des champs

Clic droit
sur la petite
fentre

Clic sur Ok

3 5
Clic sur :
Nouevau
champ

crire le nom du nouveau

champ calcul : Total

Choisir le type du champ Femer

calcul : Currency la petite
Fenetre
7 9

Clic sur : OK

- 26 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

4- Dans linspecteur dobjet du table1 on lance la procdure de lvnement : Oncalcfield

1
Clic sur vnement

2
Double Clic Ici

Et on crit dans la procdure :

[Link](total).ascurrency := [Link](quantite).asfloat *
[Link](prix).ascurrency ;

5- Tapez F12 et pour calculer le montant global de ces produits on double clique sur le Bouton1 et on crit
dans sa procdure : (Supprimer le begin et end de la procdure et coller tous le code source suivant)

var somme : real;

begin
somme := 0;
[Link]; // se pointer vers le premier enregistrement de la table
while not([Link]) do // tanque on a pas arriver la fin de la table
begin
somme := somme + [Link]('total).ascurrency; // cumul des totaux
[Link]; // passer lenregistrement suivant.
end;
[Link] := floattostr(somme); // afficher le cumul des totaux dans le comosant edit1
end ;

6- Lancez lexcution.
Remarque :
La syntaxe dcriture dun champ dune table est comme suite :

[Link](nom-du-champ).astype-du-champ

Exemples :
[Link]('total).ascurrency
[Link]('nom).asstring
[Link]('date_naissance).asdate
[Link]('quantite).asfloat

- 27 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP 5 : LES CHAMPS CALCULES ET LES BOUCLES DANS UNE BD (TP BULLETIN)

Interface :

tapes :
1- Dans le module base de donnes (BDE) :
 On commence par la cration dun nouveau alias nomm "scolarit (voire Tp1)
 Dans cet alias on crera la table "bulletin" suivante :
Champ type taille index
Numro i *
Matire A 20
Devoir N
Composition N
Coefficient i

 On enregistre cette table dans notre alias "scolarit" sous le nom : bulletin .
2- Dans une fiche Delphi insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarit
Tablename bulletin
Active True
AccesBD Datasource1 Dataset Table1
ControleBD Dbgrid1 Datasource Datasource1
Standard Label1 Caption Moyenne gnrale
Edit1 Text
Button1 Caption Calcul
Label2 Caption Rsultat
Edit2 Text

3- Pour introduire les champs calculs Moyenne_20 et Moy_coef dans la table bulletin on procde
comme suite :
 On double clique sur le composant table1
 Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
 Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
 Ensuite : on crit le nom du champ
Moyenne_20, on choisit le type du champ
float et on clique sur
Ok.
 Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
 Ensuite : on crit le nom du champ
Moy_coef, et on choisit le type du champ
float et on clique sur Ok.
 Ensuite : on ferme la petite fentre on clique sur le composant table1 et dans son inspecteur dobjet on
clique sur longl vnements .
 Ensuite : on double clique droite de lvnement oncalcfields et on crit dans la procdure :

[Link]('moyenne_20').asfloat:= ([Link]('devoir').asfloat+
[Link]('composition').asfloat)/3;
[Link]('moy_coef').asfloat:= [Link]('moyenne_20').asfloat*
[Link]('coefficient').asinteger;

- 28 -
 Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

4- Pour afficher la moyenne gnrale et le rsultat de ce bulletin on double clique sur le bouton "calcul" et on
crit dans la procdure : (Supprimer le begin et end de la procdure et coller tous le code source suivant)
var som_moy , mg : real;
som_coef : integer;
begin
som_moy := 0;
som_coef := 0;
[Link];
while not([Link]) do
begin
som_moy := som_moy + [Link]('moy_coef').asfloat;
som_coef := som_coef + [Link]('coefficient').asinteger;
[Link]
end;
mg := som_moy / som_coef;
Mg := round(mg*100)/100 ;
[Link] := floattostr(mg);
if mg <10 then
[Link] := 'tudiant ajourn'
else
[Link] := 'tudiant admis';
end;

Remarque :
 Pour contrler le format daffichage des nombres rels (champs de type float) dans une BD (limiter le
nombre de chiffres aprs la virgule) on procde comme suite :
 double clique sur le composant table1 .
 clique sur le champ formater (pour nous on va manipuler les deux champs moyenne_20 et
moy_coef)
 crire dans sa proprit :

(# Reprsente un chiffre, donc le format ##.## reprsente 2 chiffres avant et aprs la virgule)

TP6 : LE DBNAVIGATOR
Un DBNavigateur Contient tous les oprations de base sur une source de donnes (table ou requte)

Actualiser laffichage des donnes : [Link] ;

Annuler les modifications : [Link] ;

Enregistrer les modifications : [Link] ;

Modifier les donnes : [Link] ;

Supprimer lenregistrement courant : [Link] ;

Ajouter un nouveau enregistrement : [Link] ;

Aller au dernier enregistrement : [Link] ;

Aller lenregistrement suivant : [Link] ;

Aller lenregistrement prcdant : [Link] ;

Aller au premier enregistrement : [Link] ;
tapes :
- On insre le composant DBNavigator1 de la palette contrleBD.
- Pour le connecter une source de donnes on choisit dans sa proprit :

Pour afficher lxplication (sous forme dinfo-bulls) de chaque bouton du DBNavigateur1 on choisit dans sa
proprit :
- 29 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 7 : LES INDEX SECONDAIRES ET LEURS UTILISATIONS

TP1 : LA CRATION DES INDEX SECONDAIRES

1- dans le Module base de donnes crez la table suivante :
Champ type taille index
code I *
designation A 20
Quantite N
prix $

1- Avant denregistrer cette table et Pour insrer des index secondaires pour chaque champ on procde
comme suite :

1
Choir dans la liste :
Index secondaires

2
Clic sur le bouton :
Dfinir

Clic sur le 3
champ
indexer
4
Clic Ici
(le champ
passera
droite)

5
Clic sur
Ok

6 crire le nom de lindex

7 secondaire (exemple : c1)
Clic sur
Ok
- 30 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

 Rpter les oprations : 2, 3, 4,5 ,6 ,7 pour les autres champs de la tables

On peut proposer par exemple les noms dindex secondaires comme suite :
Designation : c2
Quantite : c3
Prix : c4

2- A la fin on aura laffichage suivant :

Clic sur enregistrer, et choisir

da la fenetre denregistrement :
** Alias : DbDemos
Table : Produit

TP2 : LE TRIE DUNE TABLE

Clic ici pour trier la table par lun des champs.

(Dans cet affichage la table est trie par le
champ quantit)

1- dans une fiche Delphi insrer les composants suivants :

Palette Composant Proprit Valeur
BDE Table1 Databasename dbdemos
Tablename produit
Active True
AccesBD Datasource1 Dataset Table1
ControleBD Dbgrid1 Datasource Datasource1
2- pour faire le trie de la table produit :
Clique sur le composant dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de son vnement ontitleclick et on introduit le code source suivant :
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;

2- Lancer lxcution par F9 ; si on clique sur un entte de colonne (un champ) dans le DbGrid1, cette table
sera trie automatiquement par ce champ.

- 31 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP3 : LE FILTRAGE DUNE TABLE

Le filtrage est une technique trs

utile pour faire une recherche
rapide dans les BD.
chaque fois quon crit une
(des) lettre (s), seulement les
enregistrements contenant des
dsignations (noms) commenant
par cette (ces) lettre (s).
Si on supprime toutes les lettres,
tous les enregistrements de la
table safficheront.

Pour faire le filtrage :

1- Garder linterface du Tp2 et insrer un composant Edit1 et effacer sa proprit text
2- Insrer un composant Label1 et crire dans sa proprit : Caption
filtrage.
3- Pour faire le filtrage par le champ designation double clique sur ce Edit1 (gnration de la procdure
onchange ) et crire le code source suivant :
4-
if [Link] <> then
begin
[Link];
[Link] :=true ;
[Link] :=[designation]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;

Remarque :
Dans une base de donnes on peut voir des fichiers avec les extensions suivantes:
*.db : c'est une table (sa structure (champs) et son contenu (enregistrements)).
*.px : c'est un index primaire (cl d'une table)
*.xg0,*.xg1,. ,*.yg0,*.yg1,. : les index secondaires d'une table.

Rappel :
Dans une application delphi (logiciel) on peut voir des fichiers avec les extensions suivantes :
*.dpr : Delphi project : c'est l'unit principale qui represente le projet (le logiciel).
*.pas : Pascal : c'est une unit.
*.dfm : Delphi Form: c'est une fiche.
*.dcu : Delphi compiled unit : c'est une unit compile
*.exe : Executable : c'est le fichier xcutable du logiciel.

- 32 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP4 : LA RECHERCHE SIMPLE DANS UNE TABLE

- Pour faire la recherche simple:

1- garder linterface du Tp3 et insrer un composant Edit2 et effacer le contenu de sa proprit text
2- insrer un composant Label2 et crire dans sa proprit : caption
chercher.
3- insrer un composant Button1 et crire dans sa proprit : caption
lancer la recherche.
4- double clique sur ce Button1 et crire dans sa procdure le code source suivant :

[Link]:='c2'; // lindex du champ objet de la recherche (designation).

[Link] ; // prparation de la recherche dans la table produit.
[Link](designation).asstring :=[Link] ; // la valeur rechercher dans ce champ.
[Link] ; // lancer la recherche.

Remarque1 :
Delphi propose une autre instruction plus simple pour faire la recherche sur une base de donnes comme suite :

[Link] :=c2 ;
[Link]([[Link]]); // Cette instruction remplace les trois instructions prcedantes.

Remarque2 :
Pour avoir une ligne de slection permanente dans le Dbgrid1 qui indique lenregistrement rsultat de la recherche :
- On clique gauche de la proprit + Options du dbgrid1 (xactement sur la case +).
- Choisir dans la sous proprit : DGRowSelect
true.
- Choisir dans la sous proprit : DGAlwaysShowSelection
true.

Quelques explications:
Eof : end of file : c'est la fin d'une table.
Bof : Begin of file : c'est le dbut d'une table.
#39 : c'est le code ASCII de l'apostrophe ' .

TP5 : LES RELATIONS MAITRE-DETAIL

1- Dans le BDE crer la table suivante :

Champ type taille index
Code_grp i *
designation A 10
spcialit A 20
- 33 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

On enregistre cette table dans notre alias "dbdemos" sous le nom : groupe .
2- Dans le BDE (module base de donnes) crer la table suivante :
Champ type taille index
Code_etud I *
Nom A 20
prnom A 20
Date_nais D
Lieu_nais A 25
Code_grp i
Avant denregistrer cette table insrer un index secondaire pour le champ code_grp (cl trangre) comme suite :
 On choisit en haut et droite de la fentre dans la liste des choix : proprits de la table
index secondaires.
 On clique sur le bouton Dfinir.
 On clique sur le champ code_grp dans la liste gauche.
 On fait passer ce champ droite par le bouton
.
 On clique sur le bouton OK et on propose un nom lindex secondaire de ce champ, exemple : c6
 On enregistre cette table dans notre alias "dbdemos" sous le nom : etudiant .
3- Dans une fiche Delphi insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename dbdemos
Tablename groupe
Active True
AccesBD Datasource1 Dataset Table1
ControleBD Dbgrid1 Datasource Datasource1
BDE Table2 Databasename dbdemos
Tablename etudiant
Active True
AccesBD Datasource2 Dataset Table2
ControleBD Dbgrid2 Datasource Datasource2
3- Pour que la table etudiant soit lie par une relation matre-dtail (pre-fils) avec la table groupe
(La table groupe
matre (pre), la table etudiant
dtail (fils)) on procde comme suite :
On clique sur le composant table2 etudiant, et on choisit dans sa proprit : mastersource
datasource1.
Ensuite : dans sa proprit masterfield on clique sur le petit bouton et on suit les tapes suivantes :

1
Choisir lindex secondaire c6

2
Slectionner les deux champs code_grp

3
Clic sur Ajouter

4
Enfin clic sur Ok

Le rsultat sera comme suite : si on choisit un groupe dans le dbgrid1 on aura seulement les tudiants de ce groupe
qui saffichent dans le dbgrid2.

- 34 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 8 : INTRODUCTION AUX REQUETES SQL

PRSENTATION GNRALE
1-Dfinition :
Le langage SQL (Structured Query Langage) est un langage universel de cration, de gestion et
dinterrogation des bases de donnes. SQL est integr dans plusieurs langages de programmation.

2- Les sous langages du SQL

Le SQL se subdivise en diffrents langages :
2.1- Langage de description des donnes (DDL : Data Definition Language) :
Permettant la dfinition des lments d'une base de donnes, Celui-ci comprend trois commandes qui permettent
ladministration dune base de donnes, ces commandes de base sont :
CREATE Cration de tables ou dindex
ALTER Modification de tables ou dindex
DROP Suppression de tables ou dindex

2.2- Langage de manipulation des donnes (DML : Data Manipulation Language) :

Permettant la manipulation et lextraction des donnes. Celui-ci comprend les commandes qui permettent les mises
jour des donnes dune table, ces commandes de base sont :
INSERT Insertion de nouvelles lignes dans une table
UPDATE Mise jour de certains champs dune ligne dans une table
DELETE Suppression des lignes inutiles dans une table

2.3- Langage de contrle des donnes (DCL : Data Control Language) :

Permettant la gestion des droits d'accs aux donnes et des transactions (en cas de programmation sous rseau).
GRANT Attribution de droits d'accs
REVOKE Suppression de droits d'accs
COMMIT Prise en compte des dernires transactions pour une mise jour des donnes
ROLLBACK Suppression des dernires transactions et restauration des anciennes donnes

2.4- Langage dinterrogation des donnes (DQL : Data Query Language).

Bien que ne comprenant quune seule commande SELECT, celle-ci tant la plus utilise car si le
peuplement dune base de donnes est une tape importante, les diffrentes requtes pour lextraction des donnes
reprsentent autant dtapes importantes pour tous type dutilisation :
SELECT Extraction des donnes par projection, par slection, avec restriction, par groupement

Exemple 1 :
CREATE DATABASE Commerce;
START DATABASE Commerce;
CREATE TABLE client (Numero SMALLINT, nom CHAR(30), prenom CHAR(30), adresse CHAR(50), telephone
CHAR(15));
STOP DATABASE;

Ici nous venons de crer une base de donnes Commerce (ligne 1).
On ouvre ensuite cette base de donnes (ligne 2).
On y cre une table de nom Client, qui contient 5 colonnes.(ligne 3)
On ferme la base de donne (ligne 4)

Exemple 2 :
INSERT INTO Client VALUES (1,'MOHAMED','Amine','Stif',036-84-46-68);
Ici, on insere un nouveau enregistrement dans la table client ayant pour valeur de champs les donnes mentionnes.

UPDATE Client SET prenom='Redha', adresse='Alger' WHERE nom='MOHAMEDI';

Cette requere SQL modifie le pnom et ladresse du client nomm MOHAMEDI par les valeurs mentionnes.

DELETE FROM Client WHERE numero=15;

Cette requete supprime lenregistrement (le client) numero 15.

- 35 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP1 : LES REQUETES SQL LES PLUS UTILISES

1- Syntaxe simple :
Soit la table produit (code, designation, quantite_stock, prix_unit, type_produit)
On veut slectionner tous les champs et enregistrements de cette table
Syntaxe :
select *
from produit

Pour executer ce script on insere un composant Query (palette accsBD) et on manipule ses proprits :

On test le fonctionnement de ce script

SQL. Avant de rendre cette proprit
3 True, ce composant compile ce script
SQL et ne donne pas true que si la
requete a une syntaxe juste.

1 On se connecte notre Alias.

2 On ecrit le script SQl dans cette proprit.

Remarque :
Select : slectionne un ou plusieurs champs en mentionnant leurs noms (* veut dire tous les champs)
On peut aussi Introduire les champs calculs en donnant leurs noms et la formule de calcul.
From : dcide la source de donnes slectionner (la table source de donnes).
Where : donne un ou plusieurs critres de slection des enregistrements.

2- requte avec critre de slection :

Si on veut slectionner que les produits qui ont une quantit de stock suprieur 10, on crit :
select *
from produit
where type_produit = consommables

Donc : la clause where donne la possibilit dintroduire un critre de slection qui sera gnralement une
comparaison dun champ une valeur de mme type.

3- requte avec paramtre :(requte dynamique) :

Si on veut que la valeur du critre de slection soit variable :
Exemple : chaque fois on donne une valeur et on slectionne les quantits suprieures cette valeur donc on doit
avoir une variable qui contiendra chaque fois une valeur diffrente :
Syntaxe :
select *
from produit
where type_produit = :c

Remarque1:
- le paramtre ici est nomm C et les deux points qui le prcde indiquent que cest un paramtre.
- le paramtre en suite doit avoir un type adquat (compatible au type du champ utilis dans la comparaison). On
donne un type au paramtre par la proprit :

- 36 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

1
Clic Ici

4 3
2 Fermer la
petite Choisir le
Clic sur le type du
fenetre
paramatere paramatere

Remarque2:
Il faut choisir aprs un vnement adquat pour donner une valeur au paramtre par les instructions suivantes :
[Link] ;
[Link]('c').asstring:=[Link];
[Link]:=true;
Pour cela on peut inserer un composant Combobox1 (palette standart) et ecrire dans sa proprit Items les valeurs :
materiel, consommables, meuble. Ensuite on double clic sur ce composant et on introduit le code source precedant.

4- les requtes contenant des champs calculs :

On peut introduire un champs calcul dans une requte en le mentionnant dans la partie select avec les champs
fixe. Et cela en donnant le nom du champ prcd de la formule qui le calcul.
Exemple : on veut calculer le prix total de chaque produit savoir sa quantit_stock.
Syntaxe :
Select code, designation, quantite_stock, prix_unit, (quantite_stock * prix_unit)as Total
From produit

5- les requtes des statistiques :

On peut prparer une table contenant par exemple les type des produits (exemple : materiel, consommables,
meuble) et avoir comme rsultat de la requte des donnes prtes a tre reprsenter par un graphe des statistiques
de russite.
Syntaxe:
Select type_produit, count(type_produit) as nombre
From produit
Group by type_produit

- 37 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP2 : LA CONSULTATION PAR DES REQUTES PARAMTRES

1- dans le module base de donnes crer la table suivante :

Champ type taille index

Code_etud I *
Nom A 20
Prnom A 20
Section A 15
On enregistre cette table dans notre alias "dbdemos" sous le nom : etudiant2007 .

2- dans une fiche Delphi insrer les composants suivants :

Palette Composant Proprit Valeur

BDE Query1 Databasename dbdemos
Select *
SQL From etudiant2007
Where section = :sec
params Sec
datatype  ftstring
Active True
AccesBD Datasource1 Dataset Query1
ControleBD Dbgrid1 Datasource Datasource1
Standard Label1 caption Choisir une section
Combobox1 text
A
Items B
C

3- Double clique sur le Combobox1 et crire dans sa procdure :

[Link] ;
[Link](sec).asstring :=[Link] ;
[Link]:=true;

4- lancer lxcution et choisir dans le Combobox1 la section que vous voulez afficher ses tudiants.

- 38 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP3 : LES GRAPHES

1- Garder la table etudiant2007 du TP2 :

2- Dans une fiche Delphi insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Query1 Databasename dbdemos
Select section , count(section) as nombre
SQL From etudiant2007
Group by section
Active True

3- insrer de la palette controleBD le composant Dbchart1 et procder comme suite :

 Double clique sur ce composant

1 Clic sur le bouton Ajouter 2 Choisir le type du graphe Sectoriel

3 Clic sur Ok

4 Choisir Longls Srie

5 Choisir longls Source de donnes

6 Choisir dans la liste DataSet

7 Choisir dans la liste Query1

8 Choisir le champ alphanumerique

9 Choisir le champ numerique

10 Enfin clic que Fermer

- 39 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 9 : LES TATS DIMPRESSION

INTRODUCTION
Les versions Delphi qui ont prcd Delphi7 ont proposs les composants Quickreport pour imprimer les donnes.
On prsentera maintenant les tapes dinstallation des composants quickreport en Delphi7.

Installation des composants Quickreport en Delphi7 :

Choisir dans le menu Delphi : Composant
Installer des packets.

1
Clic ici

2
Clic sur le bouton Ajouter

Clic sur Ok
5

3
Choisir lunit : [Link]

4
Clic sur Ouvrir

- 40 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP1 : Imprimer les enregistrements dune Table (Liste des produits)

Procds :
1- insrer un composant Quickrep1 (de la palette Qreport) sur la fiche.
2- La source de donnes imprimer sera la table produit, Donc insrer de la palette BDE le composant Table1
et dans son inspecteur dobjet on manipule ses proprits :

Choisir notre alias

Choisir la table

Activer la connexion la table

3- on slectionne le composant Quickrep1 pos sur la fiche pour avoir son inspecteur dobjet et on manipule dans
ce dernier les proprits comme suite :
- pour modifier la taille daffichage de la page dimpression quickrep1 on crit dans la proprit :

- on ouvre la proprit Bands en cliquant sur licne + son gauche

Clic Ici

- on doit mettre true les sous proprits suivantes :

Hascolumnheader : bande denttes de colonnes.

Hasdetail : pour avoir une bande de dtail (cette

bande a une caractristique spciale de se
rpter suivant le nombre denregistrements).

Hastitle : pour avoir une bande de titre dtat.

- on largi la hauteur de la bande de titre dtat.

4- dans la palette des composants du Qreport on insre autant de composants Qrlabel ncessaire dans la
bande titre pour bien reprsenter lorganisme propritaire de ltat (socit, commerant ); ces composants
contiendront des textes explicatives dans leurs proprits Caption.
5- Dans la bande entte des colonnes on insre des composants Qrlabel reprsentant par le texte de leur proprit
Caption le nom des colonnes imprimer (code, designation, quantit).
6- Dans la bande dtail on insre toujours de la palette Qreport des composants QrDbText qui seront
positionnes respectivement juste en dessous des composants Qrlabel de la bande entte de colonnes(un par
un).
7- chaque composant Qrdbtext sera li un champ de la table produit imprimer et suivant le Caption du Qrlabel
au dessus. La liaison du Qrdbtext avec le champ se fait :
- on se pointant par sa proprit DataSet la table produit.

- on se pointant par sa proprit DataField au champ adquat.

8- en fin noubliez pas de lier le composant Quickrep1 lui mme la table produit. Cela se fait en cliquant sur ce
composant en vitant les bandes et dans son inspecteur dobjet on se pointe par la proprit dataset la table
produit.
9- Pour previsualiser notre tat on crit dans la procdure dun bouton (son caption sera : previsualiser )
linstruction :
[Link] ;
10- Pour imprimer notre tat on crit dans la procdure dun bouton (son caption sera : imprimer ) linstruction :
[Link] ;

11- Pour encadrer les champs de letat dimpression on utilise le composant Qrshape et on le contrle par :
Ctrl +  : deplacer le composant selectionn gauche.
Ctrl +  : deplacer le composant selectionn droite.
Ctrl +  : deplacer le composant selectionn vers le haut.
Ctrl +  : deplacer le composant selectionn vers le bas.
Shift +  : reduire le composant selectionn gauche.
Shift +  : agrandir le composant selectionn droite.
Shift +  : reduire le composant selectionn vers le haut.
Shift +  : agrandir le composant selectionn vers le bas.
- 41 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

Remaque : pour mettre le cadre (QRShape) en arrire plan et voir les autres composants ( QRLabal, QREdit) on doit
cliquer par le bouton droit de la sourie sur ce cadre et choisir dans le menu contextuel :
Options de contrle
mettre en arrire plan.

Clic par le bouton

Droit de la sourie sur
ltat dimpression en
vitant les bandes et
les composants

Clic sur Prvisualiser

Ltat sous sa forme

dimpression

- 42 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

LEON 10 : DELPHI EST UN RAD

TP1 : UNE FICHE SIMPLE DIMPRESSION DUNE TABLE

Delphi est un RAD (Rapide Application Dveloppement) et propose des assistants qui aident la cration dune
grande varit de fiches.
Pour la cration dune fiche dimpression (image suivante) on procde comme suite :

1. Dans le menu Delphi on choisit : Fichier
Nouveu
Autre ..

2. Dans la boite de dialogue qui saffiche on choisit longlet affaires et dans ce dernier on choisit licne
expert quick report et on clique sur le bouton Ok.
3. Dans lassistant qui saffiche on clique en bas sur le bouton lancer lexpert.

1
Choisir lalias de la base de donnes
2
Choisir la table imprimer

3
Faire passer tous les champs droite
pour les imprimer tous (si on veux
imprimer quelques champs seulement,
on les fait passer un par un par le bouton
plus haut > )
4
la fin on ferme la petite fentre

- 43 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP2 : UNE FICHE SIMPLE DE CONNEXION ET DAFFICHAGE ET DIMPRESSION DUNE TABLE

1- Pour crer cette fiche on procde comme suite :

 Dans le menu Delphi on choisit : fichier
nouveau
 Dans la boite de dialogue qui saffiche on choisit longls affaires et dans ce dernier on choisit licne
expert fiche base de donnes et clique sur le bouton Ok.
 Dans lassistant qui saffiche on choisit dans la premire tape le type de la fiche :
Crer une fiche simple
 Clique sur le bouton Suite.
 Choisir dans la liste lecteur ou nom de lalias notre alias scolarit
 Clique sur la table tudiant et clique sur Suivant et clique sur le bouton >> et clique sur Suivant.
 Clique sur loption dans une grille et clique sur Suivant.
 Enfin clique sur loption fiche seulement et clique sur Terminer
2- Clique sur le composant dbgrid1 et choisir dans sa proprit align
none, et rduire la taille de ce
dbgrid vers le bas; et clique sur le composant table1 et modifier sa proprit : Active
true.
3- Double clique sur le composant table1 et clique droit sur la petite fentre et clique sur ajouter tous les
champs
4- Glisser les champs un par un vers lspace libre en haut de notre fiche.
5- Clique sur la nouvelle fiche en vitant le clic sur lun de ses composants et crire dans sa proprit :
name
fiche_etudiant.
Ensuite, clique sur (menu Delphi) : fichier
enregistrer, et nommer lunit : etudiant.
6- On doit maintenant prparer limpression de la liste des tudiants comme suite :
 Choisir dans le menu Delphi : fichier
nouveau et clique dans la fentre qui saffiche sur longl
affaires .
 Clique sur llment : expert quickreport et clique sur Ok.
 Clique sur le bouton lancer lexpert , et choisir lalias scolarit et la table etudiant .
 Clique sur le bouton >> qui fait passer tous les champs vers la droite pour les imprimer tous et clique sur
Ok.
 Clique sur la nouvelle fiche en vitant le clic sur le composant quickrep1 et crire dans sa proprit :
name
fiche_etat_etudiant.
Ensuite, clique sur (menu Delphi) : fichier
enregistrer, et nommer lunit : etat_etudiant.
7- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_etudiant et on clique sur Ok.
Ensuite, et pour une impression bien prsente des tudiants on insre un composant popupmenu (palette
standard).
Ensuite, on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer .
Ensuite, on ferme la petite fentre du popupmenu et on insre de la palette supplment le composant
speedubutton1 et on clique sur ce composant qui reprsente limpression et dans son inspecteur dobjet
on choisit dans sa proprit popupmenu llment popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure :
fiche_etat_etudiant.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on
double clique sur llment imprimer et on crit dans sa procdure :
fiche_etat_etudiant.[Link] ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_etudiant et la fiche_etat_etudiant et on doit cliquer sur Oui pour
chaque demande de confirmation.
- 44 -
Apprendre Delphi7 par lexemple Chapitre 1 : Introduction Delphi7

TP3 : UNE FICHE MAITRE-DETAIL ENTRE DEUX TABLES

Pour la cration de cette fiche on procde comme suite :

1. dans le menu Delphi on choisit : fichier
nouveau
2. dans la boite de dialogue qui saffiche on choisit longlet affaires et dans ce dernier on choisit
licne expert fiche base de donnes et clique sur le bouton Ok .
3. dans lassistant qui saffiche on choisit dans la premire tape le type de la fiche :
Crer une fiche matre/dtail, ensuite clique sur le bouton Suite.
4. choisir dans la liste lecteur ou nom dalias lalias de notre table matre afficher (exemple :
dbdemos).
5. On choisit la table dans la liste (exemple : groupe), ensuite clique sur le bouton Suite.
6. On clique sur le bouton >> pour faire passer tous les champs droite (pour les afficher tous) et
clique sur Suite
7. Clique sur loption : dans une grille et clique sur Suite
8. Choisir dans la liste lecteur ou nom dalias lalias de notre table dtail afficher (exemple :
dbdemos).
9. On choisit la table dans la liste (exemple : etudiant), ensuite clique sur le bouton Suite.
10. On clique sur le bouton >> pour faire passer tous les champs droite (pour les afficher tous) et
clique sur Suite
11. Clique sur loption : dans une grille et clique sur Suite
12. Ensuite : on choisit dans la liste en haut lindex disponible c6
13. Ensuite : on choisit gauche le champ code_grp et droite le champ code_grp .
14. Ensuite : clique sur le bouton ajouter ensuite sur le bouton Suite.
15. On fin sur le bouton Terminer

TP4 : TP EXEMPLAIRE

1- choisir dans le menu Delphi : fichier
nouvelle application.

(Si Delphi demande lenregistrement de lancienne application on clique sur Non )
2-supprimer la fiche vierge propose par dfaut dans cette nouvelle application par :
Le menu Delphi : projet
supprimer une fiche, et clique sur Ok
3- prparer une fiche BD simple en utilisant les tapes du TP2 et nommer cette fiche fiche_liste .
4- prparer une fiche dimpression en utilisant les tapes du TP1 pour imprimer la mme table choisie dans
la fiche_liste et nommer cette fiche fiche_etat_liste .
5- insrer en haut de la fiche_liste deux boutons de la palette standard.
Button1
Caption
Previsualiser.
Button2
Caption
Imprimer.
6- double clique sur le button1 et crire dans sa procdure :
fiche_etat_liste.[Link] ;
7- double clique sur le button2 et crire dans sa procdure :
fiche_etat_liste.[Link] ;
8- compiler par Ctrl + F9 et clique sur Oui pour faire la liaison entre les deux fiches et lancer lxcution par
F9.

- 45 -
- 46 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

PREPARATION DU LOGICIEL :
1- crer dans le lecteur C du disque dur un nouveau dossier nomm : commerce (pour stocker le logiciel).
2- crer dans le dossier commerce 2 autres dossiers nomms : base (pour stocker la BD) et source (pour stocker le
code source)
3- lancer le BDE de Delphi par : (le menu Delphi) outils
module base de donnes.
4- crer un nouveau alias pour notre logiciel par : (le menu BDE) outils
gestionnaire dalias
Ensuite : cliquer sur loption : afficher seulement les alias publics
Ensuite : cliquer sur le bouton : nouveau
Ensuite : crire dans : Alias de la base : commerce
Chemin daccs : c:\commerce\base
Ensuite cliquer sur Ok
En fin cliquer sur Oui pour que cet alias soit un alias public.

Remarque
On peut fixer cet alias comme alias de travail par dfaut au cour du dveloppement de notre logiciel et cela par le
choix de cet alias dans le menu du module base de donnes : fichier
rpertoire du travail.
(Le BDE se pointera automatiquement sur cet alias chaque accs au module BD)

5- crer dans cet alias les tables suivantes, noubliez pas de les enregistrer dans lalias commerce
Table: client Table : facture_achat Table : produit
Champ Type Taille index Champ Type Taille index Champ Type Taille index
Code_c i * Numero_a i * Reference i *
Nom_c A 20 Date_achat d Designation A 20
Prenom_c A 20 Reglement_a A 10 Qte_stock n
Adresse_c A 30 code_four i Prix_achat $
Telephone_c A 15 Table : facture_vente Prix_vente $
RC_c A 15 Champ Type Taille index Tva n
AI_c A 15 Numero_v i * Table : inventaire
IF_c A 15 Date_vente d Champ Type Taille Index
Table: fournisseur Reglement_v A 10 Numero_i i *
Champ Type Taille index code_cli i Date_inventaire d
Code_f i * Table : ligne_vente dure A 10
Nom_f A 20 responsable A 20
Prenom_f A 20 Champ Type Taille Index Table : ligne_inventaire
Adresse_f A 30 Num_vente i * Champ Type Taille Index
Telephone_f A 15 Ref_prod i * Num_inv i *
RC_f A 15 Qte_vente n Ref_prod i *
AI_f A 15 Table : ligne_achat Qte_theorique n
IF_f A 15 Champ Type Taille index Qte_reelle n
Num_achat i * Table protection
Ref_prod i * Champ Type Taille index
Qte_achat n Password A 20 *

MCD CORRESPONDANT (cest seulement une partie du MCD rel et complet de la gestion commerciale) :

Fournisseur Facture_achat Inventaire

Code_f Numero_a Ligne_achat Ligne_inv Numero_i
Achat Qte_achat Qte_theorique
1.n Qte_reelle
1.n 1.1 1.n 1.n 1.n
Produit
Reference

Client Facture_vente 1.n

1.n 1.1 1.n
Code_c Numero_v
Ligne_vente
Vente
Qte_vente

- 47 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

FICHE MENU

1- Retournez lenvironnement Delphi et choisir dans le menu : Fichier
nouvelle application.

Ensuite : insrer dans la fiche de ce nouveau projet (ce nouveau logiciel) un composant mainmenu1
Ensuite : double clique sur ce composant et insrer le menu principal suivant :
Fichier Edition Consultation Statistiques Outils ?
Produit Facture achat Achats Rglements Inventaire Aide
Client Facture vente Ventes Archivage A propos
Fournisseur Protection
Cloture
Quitter

 Chaque fiche (ainsi que son unit) dans le logiciel doit tre nomme par un nom significatif. pour notre fiche
actuelle (le menu gnral du projet) on procde comme suite :
Cliquer sur cette fiche (viter le composant mainmenu1) et dans son inspecteur dobjet crire dans la proprit :
name
fiche_menu.
Cliquer dans le menu Delphi sur : fichier
enregistrer sous, et dans le dossier c:\commerce\source on nomme
lunit : menu .
Cliquer dans le menu Delphi sur : fichier
enregistrer le projet sous, et nommer le projet : commerce (toujours dans
c:\commerce\source )
2- insrer un composant ToolBar1 (palette win32).
Ensuite : clique droit sur ce composant et choisir nouveau bouton ou nouveau sparateur
Ensuite : rpter le clic droit pour insrer 15 boutons qui reprsentent les lments du menu principal du logiciel;
Et 6 sparateurs pour les grands lments du menu (fichier, dition, consultation, )
Ensuite : insrer un composant imagelist1 (palette win32)
Ensuite : double clique sur ce composant et clique sur le bouton Ajouter pour choisir la gamme des images de notre
logiciel dans le chemin : C:\program files\fichiers communs\borland shared\images\buttons
Ensuite : aprs le choix de 15 images adquates aux 15 boutons on clique sur Ok
Ensuite : clique sur le mainmenu1 et dans son inspecteur dobjet choisir dans la proprit :
Images
imagelist1
Ensuite : double clique sur le mainmenu1 et chaque lment de ce menu sera li une image adquate par sa
proprit : imageindex
Enfin : fermer la petite fentre du menu et clique sur le composant toolbar1 et pour affecter des images ses
boutons choisir dans sa proprit : Images
imagelist1.
(Chaque bouton du toolbar1 peut avoir une image adquate par le choix de cette image dans la proprit
imageindex de ce bouton).
3- pour expliquer le rle de chaque bouton on clique sur ce dernier on crit dans sa proprit : Hint lxplication
voulue, ensuite et pour voir cette xplication on choisit dans la proprit : showHint
true
Programmation du sous menu : Quitter
Double clique sur le composant mainmenu1 et double clique sur son lment quitter (du sous menu fichier)
Ensuite : crire dans la procdure : close;
Ensuite : dans la fiche_menu, double clique droite de son vnement onclosequery et crire dans sa procdure :
if messagedlg('voulez vous quitter le logiciel?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
canclose:=true;
[Link];
end
else
canclose:=false;

- 48 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Rsultat:
Cette technique assure laffichage de la fentre de confirmation de sortie du logiciel pour nimporte quel type de
tentative de fermeture du logiciel :
- le menu : fichier
quitter.
- Par clavier en utilisant les touches : Alt + F4
- En cliquant sur la case fermer X en haut et droite de la fentre.

4- Pour que la fiche menu occupe tous lspace de lcran lors du lancement de lxcution du logiciel :
- Clique sur cette fiche_menu (viter de cliquer sur lun de ses composants).
- Choisir dans sa proprit : Window state
wsmaximized
5- Enregistrer notre travail par le menu Delphi : fichier
tout enregistrer.

Remarques :
1- Pour lier chaque bouton de la barre doutils Toolbar1 une fiche on clique sur ce bouton et on choisit dans son
vnement onclick la procdure qui appelle la fiche correspondante (faites ce travail la fin du logiciel).
2- Lorsquon lance lxcution de notre logiciel la fiche menu apparat automatiquement la premire puisque elle est
la fiche principale dans notre logiciel, mais si cette fiche na pas t lance la premire donc elle nest pas considre
comme fiche principale et on doit corriger cette faute par le choix dans le menu Delphi : projet
options, et on choisit
dans la liste : Fiche principale
fiche_menu et clique sur Ok.
3- dans le menu principal :

La partie fichier: sert reprsenter les tables permanentes (produit, clients, fournisseur) qui se ressemble
cot programmation.

Une table permanente est une table qui lors de larchivage de notre BD pour le passage une nouvelle
anne dactivit, ses donnes ne seront pas vids (conservent les mmes donnes pour le nouvel an)

La partie dition : sert reprsenter les mouvements entre les tables permanentes. (bien sur les mouvements
sont reprsents sous formes de tables de mouvement (facture_achat et ligne_achat par exemple)
Une table mouvement aprs son archivage (aprs copiage de son contenu dans un autre emplacement mmoire
comme rserve) doit tre vide pour commencer une nouvelle anne dactivit.

Limage de larrire plan :

1- insrer un composant image1 de la palette supplment .
2- dans sa proprit picture on clique sur le bouton Charger et chercher limage voulue.
(Exemple du chemin de limage : C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color)
3- Enfin clique sur Ouvrir ensuite sur Ok
4- pour que limage occupe toute la surface de son cadre on modifie sa proprit : Autosize
true.
5- pour que limage sagrandie si elle une taille plus petite que la surface de son cadre on modifie sa proprit :
Stretch
true. Aussi modifier sa proprit : align
alClient.

Les abrviations du domaine commercial :

HT : prix Hors Taxe.
TVA : la Taxe sur la Valeur Ajout.
TTC : le montant Tous Taxes Comprise.
RC : le numro du Registre de Commerce
AI : le numro de lArticle dImposition
IF : le numro de lIdentification Fiscale.

- 49 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

LA FICHE PRODUIT

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom de la fiche : fiche_produit .
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\commerce\source nommer
lunit : produit
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Commerce
Tablename Produit
Active True
Accesbd Datasource1 Dataset Table1
Contrlebd Dbgrid1 Datasource Datasource1
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
BDE Query1 databasename Commerce
Sql Select sum(qte_stock*prix_achat)as montant_stock from produit
Active True
Standard Label1 Caption Filtrage
Edit1 Text
3- Double clique sur le query1 et clique droit sur la petite fentre et clique sur ajouter tous les champs.
Ensuite : clique sur le champ montant_stock et glisser ce dernier vers le bas de notre fiche.
4- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[designation]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;
5- On tape la touche F12 (retour la fiche), et pour faire le trie de la table produit : clique sur le composant
dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code source suivant :
// Une table est trie automatiquement selon son index actuel (primaire ou secondaire)
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;
If [Link] = 4 then
[Link] :=c5 ;
If [Link] = 5 then
[Link] :=c6 ;

- 50 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Remarque importante :
Le trie et le filtrage dans une table ne russissent que si on a dfini des index secondaires sur chaque champ tri ou
filtr.
Pour insrer des index secondaires dans les champs de la table produit il faut que cette table ne soit pas en cours
dutilisation donc sa proprit : active
false.
Aussi la requte query1 doit tre : active
false, puisque elle aussi utilise la table produit.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias commerce et la
table produit .
Ensuite : on clique dans le menu du BDE sur table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ reference, c2 pour le champ
designation,etc.)
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement Delphi.
Enfin : on ractive les deux composants table1 et query1 par leurs proprits : active
true.
6- on renforce cette fiche par des champs calculs pour chaque enregistrement de la table produit et cela
comme suite :
On double clique sur le composant table1
Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : total et on choisit le type du champ : currency et on clique sur ok.
Ensuite : on clique sur le composant table1 et dans son inspecteur dobjet on clique sur longl vnements .
Ensuite : on double clique droite de lvnement oncalcfields et on crit dans la procdure :
[Link](total).ascurrency := [Link](qte_stock).asfloat *
[Link](prix_achat).ascurrency ;
[Link];
[Link]:=true;
// Pour que la requte prend en considration les dernires donnes saisies (rafrachir les calculs de la requte).
7- on va maintenant prparer limpression de la liste des produits comme suite :
On choisit dans le menu Delphi : fichier
nouveau, et on clique dans la fentre qui saffiche sur longl affaires .
Ensuite : on clique sur llment : expert quickreport et on clique sur ok.
Ensuite : on clique sur le bouton lancer lexpert et on choisit lalias commerce et la table produit .
Ensuite : clique sur le bouton >> qui fait passer tous les champs droite pour les imprimer tous et clique sur
Terminer.
Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom de cette fiche qui sera fiche_etat_produit .
Ensuite : on clique sur : (menu Delphi) fichier
enregistrer, et dans le dossier : c:\commerce\source on nomme
lunit : etat_produit.
8- on tape Shift + F12 pour afficher la liste des fiches du logiciel et on choisit la fiche fiche_produit et on
clique sur ok.
Ensuite : et pour une impression bien prsente des produits on insre un composant popupmenu1 (palette
standard).
Ensuite : on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer dans
leurs proprits caption.
Ensuite : on ferme la petite fentre du popupmenu1 et on clique sur le composant speedbutton1 qui
reprsente limpression et dans son inspecteur dobjet on choisit dans sa proprit popupmenu llment
popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure : fiche_etat_produit.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on double
clique sur llment imprimer et on crit dans sa procdure : fiche_etat_produit.[Link] ;
9- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment produit (du sous menu
fichier)
Ensuite : on crit dans la procdure : fiche_produit.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_produit et on doit cliquer sur oui pour cette demande de
confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_produit et la fiche_etat_produit et
on doit cliquer sur oui aussi pour cette demande de confirmation.
Remarques :
1- Pour que la fiche produit se place au milieu de lecran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_produit et on clique sur Ok.
- 51 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
Remarque importante :
Dans le cas des champs de type montaire (prix_achat, prix_vente, total ), on peut modifier le symbole montaire
(La monais : Da, $, , .) et cela en suivant les tapes :
- On lance la fentre panneau de configuration de Windows par :
Le bouton dmarrer
paramtre
panneau de configuration
- dans cette fentre on double clique sur : options rgionales et linguistiques
- clique sur le bouton personnaliser
- clique en haut sur la page : symbole montaire
- choisir ou crire dans la liste symbole montaire le symbole voulu (gnralement Da)
(Si le symbole Da ne figure pas dans la liste, donc il faut lcrire)
- Enfin clique sur Ok ensuite Ok
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)
LA FICHE CLIENT

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_client .
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\commerce\source nommer
lunit : client
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Commerce
Tablename client
Active True
Accesbd Datasource1 Dataset Table1
Contrlebd Dbgrid1 Datasource Datasource1
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
Standard Label1 Caption Filtrage
Edit1 text

3- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[nom_c]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;
- 52 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

4- On tape la touche F12, et pour faire le trie de la table client : clique sur le composant dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code source suivant
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;
If [Link] = 4 then
[Link] :=c5 ;
If [Link] = 5 then
[Link] :=c6 ;
Remarque:
Pour insrer des index secondaires dans les champs de la table client il faut que cette table ne soit pas en cours
dutilisation donc sa proprit : active
false.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias commerce et la
table client .
Ensuite : on clique dans le menu du BDE sur table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ code_c, c2 pour le champ
nom_c,etc.)
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement Delphi.
Enfin : on ractive le composant table1 par sa proprit : active
true.
5- On doit maintenant prparer limpression de la liste des clients comme suite :
On choisit dans le menu Delphi : fichier
nouveau, et on clique dans la fentre qui saffiche sur longl affaires .
Ensuite : on clique sur llment : expert quickreport et on clique sur ok .
Ensuite : on clique sur le bouton lancer lexpert, et on choisit lalias commerce et la table client .
Ensuite : on clique sur le bouton >> qui fait passer tous les champs droite et on clique sur Terminer.
Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom fiche_etat_client cette fiche.
Ensuite : on clique sur : (menu Delphi) fichier
enregistrer, et dans le dossier : c:\commerce\source on nomme
lunit : etat_client.
6- On tape Shift + F12 pour afficher la liste des fiches et on choisit la fiche fiche_client et on clique sur Ok.
Ensuite : et pour une impression bien prsente des clients on insre un composant popupmenu (palette standard).
Ensuite : on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer dans
leurs proprits caption.
Ensuite : on ferme la petite fentre du popupmenu et on clique sur le composant speedbutton1 qui reprsente
limpression et dans son inspecteur dobjet on choisit dans sa proprit popupmenu llment popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure : fiche_etat_client.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on double
clique sur llment imprimer et on crit dans sa procdure : fiche_etat_client.[Link] ;
7- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment client (du sous menu
fichier)
Ensuite : on crit dans la procdure : fiche_client.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_client et on doit cliquer sur oui pour cette demande de
confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_client et la fiche_etat_client et on
doit cliquer sur oui aussi pour cette demande de confirmation.
Remarques :
1- Pour que la fiche client se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_client et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)
- 53 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

LA FICHE FOURNISSEUR

1- Choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_fournisseur .
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\commerce\source nommer
lunit : fournisseur
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Commerce
Tablename fournisseur
Active True
Accesbd Datasource1 Dataset Table1
Contrlebd Dbgrid1 Datasource Datasource1
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
Standard Label1 Caption Filtrage
Edit1 text
3- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure
(onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[nom_f]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;
4- On tape la touche F12 (retour la fiche), et pour faire le trie de la table fournisseur : clique sur le
composant dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code source
suivant (Une table est trie automatiquement selon sont index actuel (primaire ou secondaire) et on suppose que
les index secondaires existes dj pour chaque champ) :
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;
If [Link] = 4 then
[Link] :=c5 ;
If [Link] = 5 then
[Link] :=c6 ;

- 54 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Remarque:
Pour insrer des index secondaires dans les champs de la table fournisseur il faut que cette table ne soit pas en
cours dutilisation donc sa proprit : active
false.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias commerce et la
table fournisseur.
Ensuite : on clique dans le menu du BDE sur table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ code_f, c2 pour le champ
nom_f,etc.)
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement Delphi.
Enfin : on ractive le composant table1 par sa proprit : active
true.

5- On doit maintenant prparer limpression de la liste des fournisseurs comme suite :

On choisit dans le menu Delphi : fichier
nouveau, et on clique dans la fentre qui saffiche sur longl affaires .
Ensuite : on clique sur llment : expert quickreport et on clique sur Ok.
Ensuite : on clique sur le bouton lancer lexpert, et on choisit lalias commerce et la table fournisseur .
Ensuite : on clique sur le bouton >> qui fait passer tous les champs droite et on clique sur Terminer.
Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom fiche_etat_fournisseur cette fiche.
Ensuite : on clique sur :(menu Delphi) fichier
enregistrer, et dans le dossier : c:\commerce\source on nomme
lunit : etat_fournisseur.
6- on tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_fournisseur et on
clique sur Ok.
Ensuite : et pour une impression bien prsente des fournisseurs on insre un composant popupmenu (palette
standard).
Ensuite : on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer dans
leurs proprits caption.
Ensuite : on ferme la petite fentre du popupmenu et on clique sur le composant speedbutton1 qui reprsente
limpression et dans son inspecteur dobjet on choisit dans sa proprit popupmenu llment popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure : fiche_etat_fournisseur.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on double
clique sur llment imprimer et on crit dans sa procdure : fiche_etat_fournisseur.[Link] ;
7- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment fournisseur (du sous
menu fichier)
Ensuite : on crit dans la procdure : fiche_fournisseur.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_fournisseur et on doit cliquer sur oui pour cette demande
de confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_fournisseur et la
fiche_etat_fournisseur et on doit cliquer sur oui aussi pour cette demande de confirmation.

Remarques :
1- Pour que la fiche fournisseur se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_fournisseur et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

- 55 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

FICHE FACTURE ACHAT

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_facture_achat.
Ensuite : choisir dans le menu Delphi:fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
facture_achat
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Commerce
Tablename Facture_achat
Active True
Table2 Databasename Commerce
Tablename Fournisseur
Active True
Table3 Databasename Commerce
Tablename ligne_achat
Active True
Table4 Databasename Commerce
Tablename Produit
Active True
Datasource1 Dataset Table1
Accesbd Datasource2 Dataset Table2
Datasource3 Dataset Table3
controlebd Dbgrid1 Datasource Datasource3
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
BDE Query1 databasename Commerce
Sql Select
sum(qte_achat*prix_achat)as HT,Sum(qte_achat*prix_achat*tva)as total_tva,
Sum (qte_achat*prix_achat*(1+tva)) as TTC from produit, ligne_achat
Where (reference = ref_prod) and (num_achat = :p)
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
controlebd dbnavigator datasource Datasource1

3- Double clique sur le composant table1.

Ensuite : clique droit sur la petite fentre et clique dans le menu contextuel sur: ajouter tous les champs.
Ensuite : glisser les champs de la table facture_achat un par vers le haut de la fiche, la fin fermer la petite fentre.
Ensuite : supprimer le composant dbedit3 qui reprsente le champ rglement et le remplacer par le
composant dbcombobox1 de la palette controlebd et modifier les proprits de ce dbcombobox1 comme
suite :
Datasource
datasource1
Datafield
rglement
Items
clique sur le petit bouton
crire : cheque, espece, credit (chaque lment dans une ligne)
fermer la
fentre.
Ensuite : supprimer le composant dbedit4 qui reprsente le champ code_four et le remplacer par le
composant dblookupcombobox1 (palette controlebd ) et modifier les proprits de ce dblookupcombobox1
comme suite :
Datasource
datasource1 Datafield
code_four Listsource
datasource2
Listfield
code_f; nom_f Keyfield
code_f
- 56 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

4- Pour mettre le curseur du clavier automatiquement dans le dbedit1 pour faciliter la saisie du numro de la
facture on clique sur le composant table1 et dans son inspecteur dobjet double clique droite de son
vnement afterinsert on crit dans sa procdure :
[Link] ;
- ensuite on peut contrler la manipulation du clavier par :
- clique sur le composant dbedit1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur le composant dbedit2.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur le composant dbcombobox1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;

5- Pour masquer le format daffichage de la date_achat :

- on double clique sur le composant table1
- dans la petite fentre on clique sur le champ date_achat
- on clique sur le petit bouton de sa proprit editmask
- on clique dans la liste droite de la fentre sur llment date longue1 et on clique sur Ok
- on ferme la petite fentre et la date_achat sera masque par le format __/__/__
6- pour faire une liaison maitre-detail entre la table matre facture_achat , et la table dtaille ligne_achat :
On clique sur le composant table3 ligne_achat , et choisir dans sa proprit : mastersource  datasource1.
Ensuite : dans sa proprit masterfield on clique sur petit bouton.
Ensuite : on choisit dans la liste gauche le champ num_achat et droite le champ numero_a .
Ensuite : clique sur le bouton ajouter ensuite sur le bouton Ok.
7- on peut renforcer cette fentre par les champs calculs comme suite :
On double clique sur le composant table3 ligne_achat .
Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : designation et on choisit le type du champ : string et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : prix_achat et on choisit le type du champ : currency et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : tva et on choisit le type du champ : float et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : total et on choisit le type du champ : currency et on clique sur Ok.
A la fin : on ferme la petite fentre.
Ensuite : on clique sur le composant table3 (ligne_achat) et dans son inspecteur dobjet on clique sur longl
vnement
Ensuite : on double clique droite de lvnement oncalcfield et on crit dans la procdure :
[Link] ;
[Link] ; // prparation de la recherche du produit qui a la reference tape
[Link](reference).asinteger := [Link](ref_prod).asinteger ;
If [Link] then // si le produit existe, on introduit sa designation, prix, tva, et on calcul le total
Begin
[Link](designation).asstring:= [Link](designation).asstring;
[Link](prix_achat).ascurrency:= [Link](prix_achat).ascurrency ;
[Link](tva).asfloat:= [Link](tva).asfloat;
[Link](total).ascurrency:=[Link](qte_achat).asfloat*
[Link](prix_achat).ascurrency;
End;
// On profite loccasion pour passer une valeur au paramtre notre requte query1
[Link];
[Link](p).asinteger :=[Link](numero_a).asinteger ;
[Link]:=true;

8- on tape F12 pour retourner la fiche et on double clique sur le composant query1 .
Ensuite : clique doit sur la petite fentre et clique dans le menu contextuel sur : ajouter tous les champs .
Ensuite : glisser les champs de la requte facture un par un vers le bas de la fiche, la fin fermer la petite fentre.
9- pour que la facture affiche son montant ttc en lettres on procde comme suite :

- 57 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

On insre un composant Button1 (palette standard) et dans sa proprit : caption on crit : conversion.
Ensuite : on insre un composant Label (palette standard) et supprimer le contenu de sa proprit caption
Ensuite : on double clique sur le composant Bouton1 et on crit dans sa procdure : (Supprimer son begin et end
et coller tous le code source suivant)

var chaine1,chaine:string; if c=0 then chiffre(p1);

p,nombre,q,DEC:integer; if c=1 then decimale(p1);
N,n1:real; if c=7 then
procedure decimale(var p3:integer); begin
begin chaine:=chaine+ ' Soixante'; p1:=p-60;
if p3=10 then chaine:=chaine+ ' Dix'; decimale(p1);
if p3=11 then chaine:=chaine+ ' Onze'; end;
if p3=12 then chaine:=chaine+ ' Douze'; if c=9 then
if p3=13 then chaine:=chaine+ ' Treize'; begin
if p3=14 then chaine:=chaine+ ' Quatorze'; chaine:=chaine+ ' Quatre Vingt'; p1:=p1-80;
if p3=15 then chaine:=chaine+ ' Quinze'; decimale(p1);
if p3=16 then chaine:=chaine+ ' Seize'; end; end;
if p3=17 then chaine:=chaine+ ' Dix Sept';
if p3=18 then chaine:=chaine+ ' Dix Huit'; {Programme principal}
if p3=19 then chaine:=chaine+ ' Dix Neuf'; var abc:real;
end; begin
procedure chiffre(var p2:integer); chaine:=' ';
begin n:=[Link]('ttc').asfloat;
if p2=1 then chaine:=chaine+ ' Un'; nombre:=trunc(n);
if p2=2 then chaine:=chaine+ ' Deux'; abc:=int(n*100);
if p2=3 then chaine:=chaine+ ' Trois'; dec:=trunc(abc) mod 100;
if p2=4 then chaine:=chaine+ ' Quatre'; if nombre>=1000000000 then
if p2=5 then chaine:=chaine+ ' Cinq'; begin
if p2=6 then chaine:=chaine+ ' Six'; p:=nombre div 1000000000;
if p2=7 then chaine:=chaine+ ' Sept'; nombre:=nombre-p*1000000000;
if p2=8 then chaine:=chaine+ ' Huit'; if p<>0 then
if p2=9 then chaine:=chaine+ ' Neuf'; begin
end; mille(p); chaine:=chaine+ ' Milliard';
procedure mille(var p1:integer); end; end;
var c:integer; {milliards}
begin if nombre>=1000000 then
c:=p1 div 100; begin
if c=1 then chaine:=chaine+ ' Cent'; p:=nombre div 1000000;
if c=2 then chaine:=chaine+ ' Deux Cent'; nombre:=nombre-p*1000000;
if c=3 then chaine:=chaine+ ' Trois Cent'; if p<>0 then
if c=4 then chaine:=chaine+ ' Quatre Cent'; begin
if c=5 then chaine:=chaine+ ' Cinq Cent'; mille(p); chaine:=chaine+ ' Million';
if c=6 then chaine:=chaine+ ' Six Cent'; end; end;
if c=7 then chaine:=chaine+ ' Sept Cent'; {milliers}
if c=8 then chaine:=chaine+ ' Huit Cent'; if nombre>=1000 then
if c=9 then chaine:=chaine+ ' Neuf Cent'; begin
p1:=p1-c*100; c:=p1 div 10; p:=nombre div 1000; nombre:=nombre-p*1000;
if c=2 then begin chaine:=chaine+ ' Vingt'; if p<>1 then
p1:=p1-c*10; chiffre(p1); begin
end; mille(p); chaine:=chaine+ ' Mille';
if c=3 then begin chaine:=chaine+ ' Trente'; end else
p1:=p1-c*10; chaine:=chaine+ 'mille';
chiffre(p1);end; end;
if c=4 then begin chaine:=chaine+ ' Quarante'; {simple}
p1:=p1-c*10; if (0<=nombre) and (nombre<1000) then
chiffre(p1);end; begin
if c=5 then begin chaine:=chaine+ ' Cinquante'; p:=nombre; mille(p);
p1:=p1-c*10; end;
chiffre(p1);end; chaine:=chaine+ ' dinars' +' et';
if c=6 then begin chaine:=chaine+ ' Soixante'; begin q:=dec; mille(q);
p1:=p1-c*10; IF q=0 THEN chaine:=chaine+ ' Zero CTS'
chiffre(p1);end; Else chaine:=chaine+ ' CTS'
if c=8 then begin chaine:=chaine+ ' Quatre Vingt'; end;
p1:=p1-c*10; {chaine:=chaine+ ' dinars' +' et'+chaine1+' CTS';}
chiffre(p1);end; [Link]:=chaine; end;
- 58 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

10- le dbgrid1 affiche le champ num_achat (de la table ligne_achat) qui contient bien sr le mme numro
de la facture_achat actuelle (puisque il ya une liaison matre_dtail entre la table ligne_achat et la table facture_achat
par leurs champs communs num_achat et numero_a), donc ce champ rptera pour tous les enregistrements du
dbgrid1 le mme numro de facture, il vaut mieux alors de ne pas afficher ce dernier dans le dbgrid1 . pour
supprimer ce champ :
- double clic sur le dbgrid1 .
- clic en haut de la petite fentre sur le bouton ajouter tous les champs
- supprimer le champ num_achat et fermer la petite fentre.
(Le champ num_achat ne sera pas supprim de la table ligne_achat mais seulement il ne sera pas affich)
11- pour prparer limpression de notre facture_achat on procde comme suite :
On insre une nouvelle fiche notre logiciel par le choix dans le menu Delphi de : fichier
nouvelle fiche.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_etat_facture_achat .
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
etat_facture_achat.
Ensuite : on insre dans cette fiche un composant quickrep1 de la palette qreport .
Ensuite : on tape F12 et en haut de lunit on crit dans la liste uses le nom facture_achat et on compile Ctrl+F9
pour assurer la liaison entre la fiche_facture_achat et la fiche_etat_facture_achat.
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
Ensuite : dans linspecteur dobjet du quickrep1 on crit dans la proprit : zoom
70
Ensuite : dans linspecteur dobjet du quickrep1 on choisit dans la proprit : dataset
fiche_facture_achat.table3
Ensuite: choisir dans sa proprit Bands: hastitle
true; hascolumnheader
true; hasdetail
true; hassummary
true.
Ensuite : on insre les composants suivants de la palette qreport sur les bandes de ce quickrep1 comme suite:

bande Composant Proprit valeur

Titre qrlabel1 caption socit de commerce multiple
(agrandir la hauteur qrlabel2 caption Facture achat
de cette bande) qrlabel3 caption numero
qrdbtext1 dataset fiche_facture_achat.table1
datafield Numero_a
Qrlabel4 caption Date achat
Qrdbtext2 dataset fiche_facture_achat.table1
datafield Date_achat
Qrlabel5 caption reglement
Qrdbtext3 dataset fiche_facture_achat.table1
datafield Reglement_a
Qrlabel6 caption fournisseur
Qrdbtext4 dataset fiche_facture_achat.table2
datafield Nom_f
Entte de colonnes Qrlabel7 caption Reference
Qrlabel8 caption Designation
Qrlabel9 caption Qte achat
Qrlabel910 caption Prix unite
Qrlabel11 caption Tva
Qrlabel12 caption total
- 59 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Detail Qrdbtext5 dataset fiche_facture_achat.table3

datafield reference
Qrdbtext6 dataset fiche_facture_achat.table3
datafield designation
Qrdbtext7 dataset fiche_facture_achat.table3
datafield Qte_achat
Qrdbtext8 dataset fiche_facture_achat.table3
datafield Prix_achat
Qrdbtext9 dataset fiche_facture_achat.table3
datafield tva
Qrdbtext10 dataset fiche_facture_achat.table3
datafield total
Resum Qrlabel13 caption HT
(agrandir la hauteur Qrdbtext11 dataset fiche_facture_achat.query1
de cette bande) datafield HT
Qrlabel14 caption TOTAL TVA
Qrdbtext12 dataset fiche_facture_achat.query1
datafield TOTAL_TVA
Qrlabel15 caption TTC
Qrdbtext13 dataset fiche_facture_achat.query1
datafield TTC
Qrlabel16 caption Arrtez la prsente facture la somme de
Qrlabel17 caption

Remarque :
On peut utiliser les composants Qrshape de la palette Qreport pour encadrer les champs des tables
(composants qrdbtext ) et leurs enttes de colonnes (composants qrlabel ) pour avoir ensuite des tables
encadres dans notre tat dimpression. Les tapes sont :
- insrer dans la bande entte de colonnes des composants Qrshape pour chaque
qrlabel de cette bande pour les encadrer.
- Le qrshape au dbut cache le qrlabel qui va lencadrer, donc on clique sur chaque
qrshape par le bouton doit de la sourie et on choisit dans le menu contextuel mettre en
arrire plan .
- Pour bien contrler la position des qrshape on utilise les touches :
Ctrl +  ou les autre touches de flches.
- Pour bien contrler la taille des qrshape on utilise les touches :
Shift +  ou les autre touches de flches.
- on presse sur la touche Shift et par sourie on clique sur tous les qrshape de la bande
entte de colonnes et en fin on lache la touche Shift et on tape les touches Ctrl + C pour
copier ces cadres.
- On clique sur la bande detail et on tape Ctrl + V pour coller les cadres dans cette bande.
- On dplace ces cadres par les touches Ctrl +  et on clique sur ces cadres par le bouton
droit de la sourie et on clique sur mettre en arrire plan .
Ensuite : on tape Shift + F12 et on affiche la fiche fiche_facture_achat
Ensuite : et pour une impression bien prsente de la facture on insre un composant popupmenu (palette standard).
Ensuite : on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer dans
leurs proprits caption.
Ensuite : on ferme la petite fentre du popupmenu et on clique sur le composant speedbutton1 qui reprsente
limpression et dans son inspecteur dobjet on choisit dans sa proprit popupmenu llment popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure :
Fiche_etat_facture_achat.[Link] := [Link] ; // qrlabel17 reoit le TTC en lettres.
Fiche_etat_facture_achat.[Link] ;

Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on double
clique sur llment imprimer et on crit dans sa procdure :
Fiche_etat_facture_achat.[Link] := [Link] ;
Fiche_etat_facture_achat.[Link] ;

12- lorsquon enregistre les modifications dans notre table1 (facture_achat) par le bouton enregistrer du
dbnavigator1, on doit ajouter les quantits_achat la quantit du stock. On programme cela par le choix du
composant table1 et dans la procdure de son vnement afterpost on crit :

- 60 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

[Link] ;
while not([Link]) do
begin
[Link] ; // prparation de la recherche
[Link](reference).asinteger := [Link](ref_prod).asinteger ;
If [Link] then
Begin
[Link]; //prparation de la modification
[Link](qte_stock).asfloat:=[Link](qte_stock).asfloat+
[Link](qte_achat).asfloat;
[Link];
End;
[Link];
End;

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer
13- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment facture achat (du sous
menu Edition)
Ensuite : on crit dans la procdure : fiche_facture_achat.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_facture_achat et on doit cliquer sur oui pour cette demande
de confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_facture_achat et la
fiche_etat_facture_achat et on doit cliquer sur oui aussi pour cette demande de confirmation.

Remarques :
1- Pour que la fiche facture achat se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel : - On tape : Shift + F12 et on clique sur la fiche_facture_achat et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter

2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.

 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE FACTURE VENTE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_facture_vente.
Ensuite : choisir dans le menu Delphi:fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
facture_ vente

- 61 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

2- Insrer les composants suivants :

Palette Composant Proprit Valeur

BDE Table1 Databasename Commerce
Tablename Facture_vente
Active True
Table2 Databasename Commerce
Tablename client
Active True
Table3 Databasename Commerce
Tablename Ligne_vente
Active True
Table4 Databasename Commerce
Tablename Produit
Active True
Datasource1 Dataset Table1
Accesbd Datasource2 Dataset Table2
Datasource3 Dataset Table3
controlebd Dbgrid1 Datasource Datasource3
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
BDE Query1 databasename Commerce
Sql Select
sum(qte_vente*prix_vente)as HT,Sum(qte_vente *prix_vente*tva)as total_tva,
Sum (qte_vente*prix_vente*(1+tva)) as TTC from produit, ligne_vente
Where (reference = ref_prod) and (num_vente = :p)
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
controlebd dbnavigator datasource Datasource1

3- Double clique sur le composant table1.

Ensuite : clique droit sur la petite fentre et clique dans le menu contextuel sur: ajouter tous les champs .
Ensuite : glisser les champs de la table facture_vente un par vers le haut de la fiche, la fin fermer la petite fentre.
Ensuite : supprimer le composant dbedit3 qui reprsente le champ rglement et le remplacer par le
composant dbcombobox1 de la palette controlebd et modifier les proprits de ce dbcombobox1 comme
suite :
Datasource
datasource1
Datafield
rglement
Items
clique sur le petit bouton et crire : cheque, espece, credit (chacun dans une ligne) et fermer la fentre.
Ensuite : supprimer le composant dbedit4 qui reprsente le champ code_cli et le remplacer par le composant
dblookupcombobox1 (palette controlebd) et modifier les proprits de ce dblookupcombobox1 comme suite :
Datasource
datasource1
Datafield
code_cli
Listsource
datasource2
Listfield
code_c; nom_c
Keyfield
code_c

4- Pour mettre le curseur du clavier automatiquement dans le dbedit1 pour faciliter la saisie du numro de la
facture on clique sur le composant table1 et dans son inspecteur dobjet double clique droite de son
vnement : afterinsert on crit dans sa procdure :
[Link] ;
- ensuite on peut contrler la manipulation du clavier par :
- clique sur le composant dbedit1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur le composant dbedit2.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur le composant dbcombobox1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;

- 62 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

5- Pour masquer le format daffichage de la date_vente :

- on double clique sur le composant table1
- dans la petite fentre on clique sur le champ date_vente
- on clique sur le petit bouton de sa proprit editmask
- on clique dans la liste droite de la fentre sur llment date longue1 et on clique sur Ok
- on ferme la petite fentre et la date_vente sera masque par le format __/__/__

6- pour faire une liaison maitre-detail entre la table matre facture_vente , et la table dtaille ligne_vente :
On clique sur le composant table3 ligne_vente , et choisir dans sa proprit : mastersource  datasource1.
Ensuite : dans sa proprit masterfield on clique sur petit bouton.
Ensuite : on choisit dans la liste gauche le champ num_vente et droite le champ numero_v .
Ensuite : clique sur le bouton ajouter ensuite sur le bouton Ok.

7- on peut renforcer cette fentre par les champs calculs comme suite :
On double clique sur le composant table3 ligne_vente .
Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : designation et on choisit le type du champ : string et on clique sur Ok .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : prix_vente et on choisit le type du champ : currency et on clique sur Ok .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : tva et on choisit le type du champ : float et on clique sur Ok .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : total et on choisit le type du champ : currency et on clique sur Ok .
A la fin : on ferme la petite fentre.
Ensuite : on clique sur le composant table3 (ligne_vente) et dans son inspecteur dobjet on clique sur longl
vnement
Ensuite : on double clique droite de lvnement oncalcfield et on crit dans la procdure :

[Link] ;
[Link] ;
[Link](reference).asinteger := [Link](ref_prod).asinteger ;
If [Link] then
Begin
[Link](designation).asstring:= [Link](designation).asstring;
[Link](prix_vente).ascurrency:= [Link](prix_vente).ascurrency ;
[Link](tva).asfloat:= [Link](tva).asfloat;
[Link](total).ascurrency:=[Link](qte_vente).asfloat*
[Link](prix_vente).ascurrency;
End;
// On profite loccasion pour passer une valeur au paramtre notre requte query1
[Link];
[Link](p).asinteger :=[Link](numero_v).asinteger ;
[Link]:=true;

8- on tape F12 pour retourner la fiche et on double clique sur le composant query1 .
Ensuite : clique doit sur la petite fentre et clique dans le menu contextuel sur : ajouter tous les champs .
Ensuite : glisser les champs de la requte facture un par un vers le bas de la fiche, la fin fermer la petite fentre.

9- pour que la facture affiche son montant ttc en lettres on procde comme suite :
On insre un composant Button1 (palette standard) et dans sa proprit : caption on crit : conversion.
Ensuite : on insre un composant Label (palette standard) et supprimer le contenu de sa proprit caption
Ensuite : on double clique sur le composant Bouton1 et on crit dans sa procdure : (Supprimer son begin et end
et coller tous le code source suivant)

- 63 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

if c=0 then chiffre(p1);

var chaine1,chaine:string; if c=1 then decimale(p1);
p,nombre,q,DEC:integer; if c=7 then
N,n1:real; begin
procedure decimale(var p3:integer); chaine:=chaine+ ' Soixante';
begin p1:=p-60; decimale(p1);end;
if p3=10 then chaine:=chaine+ ' Dix'; if c=9 then
if p3=11 then chaine:=chaine+ ' Onze'; begin
if p3=12 then chaine:=chaine+ ' Douze'; chaine:=chaine+ ' Quatre Vingt';
if p3=13 then chaine:=chaine+ ' Treize'; p1:=p1-80; decimale(p1);
if p3=14 then chaine:=chaine+ ' Quatorze'; end; end;
if p3=15 then chaine:=chaine+ ' Quinze'; {Programme principal}
if p3=16 then chaine:=chaine+ ' Seize'; var abc:real;
if p3=17 then chaine:=chaine+ ' Dix Sept'; begin
if p3=18 then chaine:=chaine+ ' Dix Huit'; chaine:=' ';
if p3=19 then chaine:=chaine+ ' Dix Neuf'; n:=[Link]('ttc').asfloat;
end; nombre:=trunc(n);
procedure chiffre(var p2:integer); abc:=int(n*100);
begin dec:=trunc(abc) mod 100;
if p2=1 then chaine:=chaine+ ' Un'; if nombre>=1000000000 then
if p2=2 then chaine:=chaine+ ' Deux'; begin
if p2=3 then chaine:=chaine+ ' Trois'; p:=nombre div 1000000000;
if p2=4 then chaine:=chaine+ ' Quatre'; nombre:=nombre-p*1000000000;
if p2=5 then chaine:=chaine+ ' Cinq'; if p<>0 then
if p2=6 then chaine:=chaine+ ' Six'; begin
if p2=7 then chaine:=chaine+ ' Sept'; mille(p); chaine:=chaine+ ' Milliard';
if p2=8 then chaine:=chaine+ ' Huit'; end; end;
if p2=9 then chaine:=chaine+ ' Neuf'; {milliards}
end; if nombre>=1000000 then
procedure mille(var p1:integer); begin
var c:integer; p:=nombre div 1000000;
begin nombre:=nombre-p*1000000;
c:=p1 div 100; if p<>0 then
if c=1 then chaine:=chaine+ ' Cent'; begin
if c=2 then chaine:=chaine+ ' Deux Cent'; mille(p); chaine:=chaine+ ' Million';
if c=3 then chaine:=chaine+ ' Trois Cent'; end; end;
if c=4 then chaine:=chaine+ ' Quatre Cent'; {milliers}
if c=5 then chaine:=chaine+ ' Cinq Cent'; if nombre>=1000 then
if c=6 then chaine:=chaine+ ' Six Cent'; begin
if c=7 then chaine:=chaine+ ' Sept Cent'; p:=nombre div 1000;
if c=8 then chaine:=chaine+ ' Huit Cent'; nombre:=nombre-p*1000;
if c=9 then chaine:=chaine+ ' Neuf Cent'; if p<>1 then
p1:=p1-c*100; c:=p1 div 10; begin
if c=2 then begin mille(p); chaine:=chaine+ ' Mille';
chaine:=chaine+ ' Vingt'; end else
p1:=p1-c*10; chiffre(p1); end; chaine:=chaine+ 'mille';
if c=3 then begin end;
chaine:=chaine+ ' Trente'; {simple}
p1:=p1-c*10; chiffre(p1);end; if (0<=nombre) and (nombre<1000) then
if c=4 then begin begin
chaine:=chaine+ ' Quarante'; p:=nombre; mille(p);
p1:=p1-c*10; chiffre(p1);end; end;
if c=5 then begin chaine:=chaine+ ' dinars' +' et';
chaine:=chaine+ ' Cinquante'; begin q:=dec; mille(q);
p1:=p1-c*10; chiffre(p1);end; IF q=0 THEN
if c=6 then begin chaine:=chaine+ ' Zero CTS'
chaine:=chaine+ ' Soixante'; Else
p1:=p1-c*10; chiffre(p1);end; chaine:=chaine+ ' CTS'
if c=8 then begin end;
chaine:=chaine+ ' Quatre Vingt'; {chaine:=chaine+ ' dinars' +' et'+chaine1+' CTS';}
p1:=p1-c*10; chiffre(p1);end; [Link]:=chaine;
end;

- 64 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

10- le dbgrid1 affiche le champ num_vente (de la table ligne_vente) qui contient bien sr le mme numro
de la facture_vente actuelle (puisque il ya une liaison matre_dtail entre la table ligne_vente et la table
facture_vente par leurs champs communs num_vente et numero_v), donc ce champ rptera pour tous les
enregistrements du dbgrid1 le mme numro de facture, il vaut mieux alors de ne pas afficher ce dernier dans
le dbgrid1 . pour supprimer ce champ :
- double clic sur le dbgrid1 .
- clic en haut de la petite fentre sur le bouton ajouter tous les champs
- supprimer le champ num_vente et fermer la petite fentre.
(Le champ num_vente ne sera pas supprim de la table ligne_vente mais seulement il ne sera pas affich)

11- pour prparer limpression de notre facture_vente on procde comme suite :

On insre une nouvelle fiche notre logiciel par le choix dans le menu Delphi de : fichier
nouvelle fiche.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_etat_facture_vente .
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
etat_facture_vente.
Ensuite : on insre dans cette fiche un composant quickrep1 de la palette qreport .
Ensuite : on tape F12 et en haut de lunit on crit dans la liste uses le nom facture_vente et on compile Ctrl+F9
pour assurer la liaison entre la fiche_facture_vente et la fiche_etat_facture_vente.
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
Ensuite : dans linspecteur dobjet du quickrep1 on crit dans la proprit : zoom
70
Ensuite : dans linspecteur dobjet du quickrep1 on choisit dans la proprit : dataset
fiche_facture_vente.table3
Ensuite :choisir dans sa proprit Bands: hastitle
true; hascolumnheader
true; hasdetail
true; hassummary
true.
Ensuite : on insre les composants suivants de la palette qreport sur les bandes de ce quickrep1 comme suite:

bande Composant Proprit valeur

Titre qrlabel1 caption socit de commerce multiple
(agrandir la hauteur qrlabel2 caption Facture vente
de cette bande) qrlabel3 caption numero
qrdbtext1 dataset fiche_facture_vente.table1
datafield Numero_v
Qrlabel4 caption Date vente
Qrdbtext2 dataset fiche_facture_vente.table1
datafield Date_vente
Qrlabel5 caption reglement
Qrdbtext3 dataset fiche_facture_vente.table1
datafield Reglement_v
Qrlabel6 caption client
Qrdbtext4 dataset fiche_facture_vente.table2
datafield Nom_c

- 65 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Entte de colonnes Qrlabel7 caption Reference

Qrlabel8 caption Designation
Qrlabel9 caption Qte vente
Qrlabel910 caption Prix unite
Qrlabel11 caption Tva
Qrlabel12 caption total
Detail Qrdbtext5 dataset fiche_facture_vente.table3
datafield reference
Qrdbtext6 dataset fiche_facture_vente.table3
datafield designation
Qrdbtext7 dataset fiche_facture_vente.table3
datafield Qte_vente
Qrdbtext8 dataset fiche_facture_vente.table3
datafield Prix_vente
Qrdbtext9 dataset fiche_facture_vente.table3
datafield tva
Qrdbtext10 dataset fiche_facture_vente.table3
datafield total
Resum Qrlabel13 caption HT
(agrandir la hauteur Qrdbtext11 dataset fiche_facture_vente.query1
de cette bande) datafield HT
Qrlabel14 caption TOTAL TVA
Qrdbtext12 dataset fiche_facture_vente.query1
datafield TOTAL_TVA
Qrlabel15 caption TTC
Qrdbtext13 dataset fiche_facture_vente.query1
datafield TTC
Qrlabel16 caption Arrtez la prsente facture la somme de
Qrlabel17 caption

Remarque :
On peut utiliser les composants Qrshape de la palette Qreport pour encadrer les champs des tables
(composants qrdbtext ) et leurs enttes de colonnes (composants qrlabel ) pour avoir ensuite des tables
encadres dans notre tat dimpression.
Les tapes sont :
- insrer dans la bande entte de colonnes des composants Qrshape pour chaque
qrlabel de cette bande pour les encadrer.
- Le qrshape au dbut cache le qrlabel qui va lencadrer, donc on clique sur chaque
qrshape par le bouton doit de la sourie et on choisit dans le menu contextuel mettre en
arrire plan .
- Pour bien contrler la position des qrshape on utilise les touches :
Ctrl +  ou les autre touches de flches.
- Pour bien contrler la taille des qrshape on utilise les touches :
Shift +  ou les autre touches de flches.
- on presse sur la touche Shift et par sourie on clique sur tous les qrshape de la bande
entte de colonnes et en fin on lache la touche Shift et on tape les touches Ctrl + C pour
copier ces cadres.
- On clique sur la bande dtail et on tape Ctrl + V pour coller les cadres dans cette bande.
- On dplace ces cadres par les touches Ctrl +  et on clique sur ces cadres par le bouton
droit de la sourie et on clique sur mettre en arrire plan .

Ensuite : on tape Shift + F12 et on affiche la fiche fiche_facture_vente

Ensuite : et pour une impression bien prsente de la facture on insre un composant popupmenu (palette standard).
Ensuite : on double clique sur ce composant et on introduit les deux lments previsualiser et imprimer dans
leurs proprits caption.
Ensuite : on ferme la petite fentre du popupmenu et on clique sur le composant speedbutton1 qui reprsente
limpression et dans son inspecteur dobjet on choisit dans sa proprit popupmenu llment popupmenu1 .
Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur
llment previsualiser et on crit dans sa procdure :
Fiche_etat_facture_vente.[Link] := [Link] ;
Fiche_etat_facture_vente.[Link] ;

- 66 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Ensuit : on tape F12 pour retourner la fiche et on double clique sur le composant popupmenu1 et on double
clique sur llment imprimer et on crit dans sa procdure :
Fiche_etat_facture_vente.[Link] := [Link] ;
Fiche_etat_facture_vente.[Link] ;
12- lorsquon enregistre les modifications dans notre table1 (facture_vente) par le bouton enregistrer du
dbnavigator1, on doit supprimer les quantits_vente des quantit_stock. On programme cela par le choix du
composant table1 et dans la procdure de son vnement afterpost on crit :
[Link] ;
while not([Link]) do
begin
[Link] ; // prparation de la recherche
[Link](reference).asinteger := [Link](ref_prod).asinteger ;
If [Link] then
Begin
[Link]; //prparation de la modification
[Link](qte_stock).asfloat:=[Link](qte_stock).asfloat-
[Link](qte_vente).asfloat;
[Link];
End;
[Link];
End;
En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer
13- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment facture vente (du sous
menu Edition)
Ensuite : on crit dans la procdure : fiche_facture_vente.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_facture_vente et on doit cliquer sur oui pour cette demande
de confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_facture_vente et la
fiche_etat_facture_vente et on doit cliquer sur oui aussi pour cette demande de confirmation.

Remarques :
1- Pour que la fiche facture vente se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel :
- On tape : Shift + F12 et on clique sur la fiche_facture_vente et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position  poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier  tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

LA FICHE CONSULTATION ACHATS

1. choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom :
fiche_consultation_achat.
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
consultation_achat
- 67 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

2. insrer les composants suivants :

Palette Composant Proprit Valeur
supplement bitbtn kind bkclose
standard label1 Caption numro facture
edit1 text
BDE Query1 databasename Commerce
Sql Select * from facture_achat Where numero_a = :num
Params Clique sur num et choisir dans la proprit datatype : ftinteger
Active True
Accesbd Datasource1 dataset Query1
Supplement Speedbutton1 glyph (choisir une image)
standard label2 Caption Date dbut
label3 Caption Date fin
win32 datetimepicker1
datetimepicker2
supplement Speedbutton2 glyph (choisir une image)
BDE Query2 databasename commerce
Sql Select * from facture_achat
Where (date_achat >=:debut) and (date_achat <=:fin)
Params Clique sur debut et choisir dans la proprit datatype : ftdate
Clique sur fin et choisir dans la proprit datatype : ftdate
Active True
standard label4 Caption Rglement
combobox1 text
items cheque
espece
credit
Supplement Speedbutton3 glyph (choisir une image)
BDE Query3 databasename commerce
Sql Select * from facture_achat Where reglement_a =:reg
Params Clique sur reg et choisir dans la proprit datatype : ftstring
Active True
Table1 databasename Commerce
tablename Fournisseur
Active True
Accsbd Datasource2 dataset Table1
Standard Label1 caption Fournisseur
controlebd oboxdblookupcomb1 listsource datasource2
listfield code_f ;nom_f
keyfield Code_f
BDE Query4 databasename Commerce
Sql Select * from facture_achat Where code_four =:cod
Params Clique sur cod et choisir dans la proprit datatype : ftinteger
Active True
Supplement Speedbutton4 glyph (choisir une image)
BDE Table2 databasename commerce
tablename Ligne_achat
active true
mastersource datasource1
masterfield Clique sur num_achat et clique sur numero_a et clique sur Ajouter et clique sur Ok
Accesbd datasource3 dataset table2
controlebd dbgrid1 datasource datasource1
dbgrid2 datasource datasource3

3. double clique sur le composant speedbutton1 et crire :

[Link] ;
[Link][0].asinteger :=strtoint([Link]);
[Link] :=true ;
[Link] :=Query1 ;

4. tapez F12 et double clique sur le composant speedbutton2 et crire:

[Link] ;
[Link][0].asdate :=[Link];
[Link][1].asdate :=[Link];
[Link] :=true ;
[Link] :=Query2 ;

- 68 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

5. tapez F12 et double clique sur le composant speedbutton3 et crire:

[Link] ;
[Link][0].asstring :=[Link];
[Link] :=true ;
[Link] :=Query3 ;

6. tapez F12 et double clique sur le composant speedbutton4 et crire:

[Link] ;
[Link][0].asinteger :=strtoint([Link]);
[Link] :=true ;
[Link] :=Query4 ;

7. cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment Achats (du sous menu
Consultation)
Ensuite : on crit dans la procdure : fiche_consultation_achat.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_consultation_achat et on doit cliquer sur Oui pour cette
demande de confirmation.
Remarques :
1- Pour que la fiche consultation achat se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel :
- On tape : Shift + F12 et on clique sur la fiche_consultation_achat et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE CONSULTATION VENTES

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom :
fiche_consultation_vente.
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
consultation_vente
2- insrer les composants suivants :
Palette Composant Proprit Valeur
supplement bitbtn kind bkclose
standard label1 Caption numro facture
edit1 text
BDE Query1 databasename Commerce
Sql Select * from facture_vente Where numero_v = :num
Params Clique sur num et choisir dans la proprit datatype : ftinteger
Active True
Accesbd Datasource1 dataset Query1
Supplement Speedbutton1 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
standard label2 Caption Date dbut
label3 Caption Date fin
win32 datetimepicker1
- 69 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

datetimepicker2
supplement speeddbutton2 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
BDE Query2 databasename commerce
Sql Select * from facture_vente
Where (date_vente >=:debut) and (date_vente <=:fin)
Params Clique sur debut et choisir dans la proprit datatype : ftdate
Clique sur fin et choisir dans la proprit datatype : ftdate
Active True
standard label4 Caption Rglement
combobox1 text
items cheque
espece
credit
Supplement Speedbutton3 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
BDE Query3 databasename commerce
Sql Select * from facture_vente Where reglement_v =:reg
Params Clique sur reg et choisir dans la proprit datatype : ftstring
Active True
Table1 databasename Commerce
tablename client
Active True
Accsbd Datasource2 dataset Table1
Standard Label1 caption client
controlebd dblokupcombbox1 listesource datasource2
listefield code_c;nom_c
keyfield code_c
BDE Query4 databasename Commerce
Sql Select * from facture_vente Where code_cli =:cod
Params Clique sur cod et choisir dans la proprit datatype : ftinteger
Active True
Supplement Speedbutton4 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
BDE Table2 databasename commerce
tablename ligne_vente
active true
mastersource datasource1
masterfield Clique sur num_vente et clique sur numero_v et clique sur Ajouter et clique sur
Ok
AccesBd datasource3 dataset table2
controlebd dbgrid1 datasource cedatasour1
dbgrid2 datasource datasource3

8. double clique sur le composant speedbutton1 et crire :

[Link] ;
[Link][0].asinteger :=strtoint([Link]);
[Link] :=true ;
[Link] :=Query1 ;

9. tapez F12 et double clique sur le composant speedbutton2 et crire:

[Link] ;
[Link][0].asdate :=[Link];
[Link][1].asdate :=[Link];
[Link] :=true ;
[Link] :=Query2 ;

10. tapez F12 et double clique sur le composant speedbutton3 et crire:

[Link] ;
[Link][0].asstring :=[Link];
[Link] :=true ;
[Link] :=Query3 ;

11. tapez F12 et double clique sur le composant speedbutton4 et crire:

[Link] ;
[Link][0].asinteger :=strtoint([Link]);
[Link] :=true ;
[Link] :=Query4 ;

- 70 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

12. cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : double clique sur le mainmenu1 et double clique sur son lment Ventes (sous menu Consultation)
Ensuite : on crit dans la procdure : fiche_consultation_vente.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_consultation_vente et on doit cliquer sur Oui pour cette
demande de confirmation.

Remarques :
1- Pour que la fiche consultation vente se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel : - On tape : Shift + F12 et on clique sur la fiche_consultation_vente et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE STATISTIQUES_REGLEMENT

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele
nom:fiche_statistiques_reglement.
Ensuite:(le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer
lunit:statistiques_reglement

2- Insrer les composants suivants :

Palette Composant Proprit Valeur
BDE Query1 databasename commerce
Sql Select reglement_a, count(reglement_a) as nombre
from facture_achat group by reglement_a
Active True
Query2 databasename commerce
Sql Select reglement_v, count(reglement_v) as nombre
from facture_vente group by reglement_v
Active True
supplement bitbtn kind bkclose
win32 Pagecontrol1

Clique droit sur ce Caption atsReglement des ach

composant et clique sur
nouvelle page
Clique droit sur ce Caption Reglement des ventes
composant et clique sur
nouvelle page

- 71 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

controlebd DBchart1 (Insrer ce composant sur le composant pagecontrole1 dans la page rglement des achats )
(il faut cliquer sur longls lement des achatsreg et cliquer ensuite dans le cadre intrieur de cette page)
Et double clique sur ce composant dbchart1
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query1
Et choisir dans la liste libell llment rglement
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer
controlebd DBchart2 (Insrer ce composant sur le composant pagecontrole1 dans la page rglement des ventes )
(il faut cliquer sur longls rglement des ventes et cliquer ensuite dans le cadre intrieur de cette page)
Et double clique sur ce composant dbchart2
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query2
Et choisir dans la liste libell llment rglement
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer
Remarque :
Pour que la fiche statistiques achats affiche toujours les dernires modifications automatiquement (rafrachissement
automatique des donnes du query1 et query2) : Clique sur la fiche_statistiques_reglement
Dans son inspecteur dobjet double clique droite de lvnement onactivate
Ensuite : crire le code source suivant dans la procdure correspondante :
[Link] ;
[Link] :=true ;
[Link] ;
[Link] :=true ;

3- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment Reglements (du sous
menu statistiques)
Ensuite : on crit dans la procdure : fiche_statistiques_reglement.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_statistiques_reglement et on doit cliquer sur Oui pour cette
demande de confirmation.
Remarques :
1- Pour que la fiche statistique rglement se place au milieu de lcran si on lappel lors du lancement de lxcution
du logiciel : - On tape : Shift + F12 et on clique sur la fiche_statistique_reglement et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- On enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE MOT DE PASSE

1-choisir dans le menu Delphi : fichier
nouveau
dialogue
dialogue de mot de passe.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_passe.
- 72 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit : passe
2- insrer un composant table1 (palette BDE) et manipuler ses proprits :
Databasename
commerce table name
protection active
true.

3- Double clique sur le bouton Ok et crire dans sa procdure :

if [Link]=[Link]('password').asstring then
fiche_menu.showmodal
else
begin
showmessage('mot de passe incorrecte');
[Link];
[Link];
end;

4- double clique sur le Bouton Annuler et crire dans sa procdure : [Link] ;

remarques importantes:
a- Pour que la fiche_passe se lance la premire lors de chaque xcution du logiciel on choisit dans le menu Delphi :
Projet
options
dans longls fiche
dans la liste fiche principale
choisir : fiche_passe
Ok
b- Il faut ajouter les deux units : messages, dialogs, dans la liste uses de lunit passe
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE PROTECTION

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom: fiche_protection .
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit :
protection

2- Insrer les composants suivants :

Palette Composant Proprit Valeur
supplement bitbtn1 kind bkclose
bitbtn2 kind bkok
standard label1 caption eancien mot de pass
edit1 text
passwordchar *
label2 caption nouveau mot de passe
edit2 text
passwordchar *
label3 caption confirmation
edit3 text
passwordchar *
BDE table1 databasename commerce
tablename protection
Active True

- 73 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

3- double clique sur le composant BitBtn2 et crire dans sa procdure:

If [Link] = [Link](password).asstring then
If [Link] = [Link] then
Begin
[Link];
[Link](password).asstring:=[Link];
[Link];
Showmessage( la modification du mot de passe est effectue )
End
Else Showmessage( la confirmation du mot de passe est incorrecte )
Else Showmessage( lancien mot de passe est incorrecte ) ;

4- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment protection (du sous
menu outils)
Ensuite : on crit dans la procdure : fiche_protection.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_protection et on doit cliquer sur Oui pour cette demande de
confirmation.

Remarques :
1- Pour que la fiche protection se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_protection et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche.

FICHE ARCHIVAGE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_archivage .
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
archivage
2- tapez F12 et dans la liste uses de lunit archivage Il faut ajouter lunit : ShellAPI, .
3- tapez F12 pour revenir la fiche et Insrer les composants suivants :

Palette Composant Proprit Valeur

win3.1 FileListBox1 name fichier
Mask *.db
DirectoryListBox1 name driverlist
DriveComboBox1 name driver
Dirlist driverlist
FilterComboBox1 Filelist fichier
filter *.db
supplement BitBtn1 kind bkclose
Speedbutton1 caption archiver
glyph C:\Program Files\Fichiers communs\Borland shared\Images\Buttons\[Link]
standard Label1 caption lecteur

- 74 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

4- Double clique sur le composant speedbutton1 et crire dans sa procdure :

if CopyFolder('c:\commerce\base', [Link]) then
ShowMessage(Archivage effectu avec succs') else
ShowMessage('Archivage non effectu');

5- il faut inserer avant la procedure BitBtn4Click la fonction suivante :

function CopyFolder(FromFld, ToFld: string): boolean;
var fos: TSHFileopStruct;
begin
FillChar(fos, SizeOf(fos),0);
with fos do
begin
wFunc := FO_COPY;
pFrom := PChar(FromFld+#0);
pTo := PChar(ToFld+#0);
fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
end;
Result := ShFileOperation(fos)=0;
end;

6- pour avoir un bon interface on doit cacher les deux composants FileListBox1 et FilterComboBox1comme
suite:
- clique par le bouton droit de la sourie sur le composant : FileListBox1 nomm fichier et choisir dans le menu
contextuel : mettre en arrire plan et mettre ce composant au-dessous du DirectoryListBox1 (driverlist).
- aussi, clique par le bouton droit de la sourie sur le composant : FilterComboBox1 et choisir dans le menu
contextuel : mettre en arrire plan et mettre ce composant au-dessous du DirectoryListBox1 (driverlist).
7- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment archivage (du sous
menu outils)
Ensuite : on crit dans la procdure : fiche_archivage.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_archivage et on doit cliquer sur Oui pour cette demande de
confirmation.
Remarques :
1- Pour que la fiche archivage se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_archivage et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)
 Cette fiche necessite la cration d'un dossier dans disque dur (nomm par exemple : archive2007) qui sera le
dossier ou on va archiver notre base de donnes.

FICHE INVENTAIRE

- 75 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_inventaire.
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:
inventaire
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
supplement bitbtn1 kind bkclose
speedbutton1 caption Preparer
glyph (choisissez une image adquate)
speedbutton2 caption ajuster
glyph (choisissez une image adquate)
BDE Table1 Databasename Commerce
Tablename inventaire
Active True
Accesbd Datasource1 Dataset Table1
Controlebd Dbgrid1 Datasource Dataource1
BDE Table2 Databasename Commerce
Tablename Ligne_inventaire
Active True
Master Source datasource1
Master Field Clique sur num_inv et clique sur numero_i et clique sur Ajouter et clique sur Ok
Accesbd Datasource2 Dataset Table2
Controlebd Dbgrid2 Datasource Dataource2
BDE Table3 Databasename Commerce
Tablename produit
Active True
3- insrer le champ calcul cart qui reprsente la diffrence entre le stock thorique et le stock rel comme
suite :
On double clique sur le composant table2 ligne_inventaire
Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : cart et on choisit le type du champ : float et on clique sur Ok.
Ensuite : on clique sur le composant table2 et dans son inspecteur dobjet on clique sur longls vnements .
Ensuite : on double clique droite de lvnement oncalcfields et on crit dans la procdure :
[Link](ecart).asfloat := [Link](qte_theorique).asfloat
[Link](qte_reelle).asfloat ;

4- on prpare linventaire par un double clic sur le speedbutton1 preparer et on crit dans sa procdure :
(Supprimer le begin et end de la procdure et coller tous le code source suivant)

var trouver : boolean;

begin
[Link];
trouver:=false;
while not([Link]) do
begin
if [Link]('ref_prod').asinteger=[Link]('reference').asinteger then
trouver:=true;
[Link];
end;
if trouver then
showmessage('inventaire deja prepar')
else
begin
[Link];
while not([Link])do
begin
[Link];// on copie les produits de la table produit vers la table ligne_invertaire.
[Link](ref_prod').asinteger:=[Link]('reference).asinteger;
[Link]('qte_theorique').asfloat:=[Link]('qte_stock').asfloat;
[Link];
[Link];
end;
end;
end;

- 76 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

5- aprs avoir saisie les qte_reelle de chaque produit, on ajuste le stock sur ordinateur (la quantite_stock sera
donc la quantit relle) par un double clic sur le speedbutton2 ajuster et on crit dans sa procdure :
[Link];
[Link];
while not([Link])do
begin
[Link];
[Link]('qte_stock').asfloat:=[Link]('qte_reelle').asfloat;
[Link];
[Link];
[Link];
end;
[Link];

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer
6- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment inventaire (du sous
menu outils)
Ensuite : on crit dans la procdure : fiche_inventaire.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_inventaire et on doit cliquer sur Oui pour cette demande de
confirmation.

Remarques :
1- Pour que la fiche inventaire se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_inventaire et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE CLOTURE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_Cloture.
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit: Cloture

2- Insrer les composants suivants :

Palette Composant Proprit Valeur
supplement speedbutton1 caption Vider Table Facture Achat
glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
speedbutton2 caption Vider Table Ligne Achat
glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
speedbutton3 caption Vider Table Facture Vente
glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
speedbutton4 caption Vider Table Ligne Vente
glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
- 77 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

speedbutton5 caption Vider Table Inventaire

glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
speedbutton6 caption Vider Table Ligne Inventaire
glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 kind bkclose
BDE Table1 Databasename Commerce
Tablename Facture_achat
Active True
Table2 Databasename Commerce
Tablename Ligne_achat
Active True
Table3 Databasename Commerce
Tablename Facture_vente
Active True
Table4 Databasename Commerce
Tablename Ligne_vente
Active True
Table5 Databasename Commerce
Tablename Inventaire
Active True
Table6 Databasename Commerce
Tablename ligne_inventaire
Active True
3- double clique sur le speedbutton1 et crire dans sa procdure :
While not ([Link]) do
[Link] ;
showmessage('la table facture achat est vide');
- Tapez F12 pour retourner la fiche.

4- double clique sur le speedbutton2 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table ligne achat est vide');
- Tapez F12 pour retourner la fiche.

5- double clique sur le speedbutton3 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table facture vente est vide');
- Tapez F12 pour retourner la fiche.

6- double clique sur le speedbutton4 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table ligne vente est vide');
- Tapez F12 pour retourner la fiche.

7- double clique sur le speedbutton5 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table inventaire est vide');
- Tapez F12 pour retourner la fiche.

8- double clique sur le speedbutton6 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table ligne inventaire est vide');
- Tapez F12 pour retourner la fiche.

En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer
9- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment Cloture (du sous menu
outils)

- 78 -
Apprendre Delphi7 par lexemple Chapitre 2 : Logiciel Gestion Commerciale

Ensuite : on crit dans la procdure : fiche_cloture.showmodal ;

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_cloture et on doit cliquer sur Oui pour cette demande de
confirmation.
Remarques :
1- Pour que la fiche cloture se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_cloture et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE A PROPOS

1- on peut insrer cette fiche par le menu Delphi :

Fichier
nouveau
fiche
boite a propos
Ok
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom:fiche_apropos.
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\commerce\source nommer lunit:apropos
Ensuite : on crit le texte quon veut dans les labels et modifier la couleur et la taille des labels par leurs proprits
FONT . (Cette fiche est la carte visite du logiciel).

2- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment a propos (du sous
menu ? )
Ensuite : on crit dans la procdure : fiche_apropos.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la
confirmation de la liaison entre la fiche_menu et la fiche_apropos et on doit cliquer sur oui pour cette demande de
confirmation.

Limage de Logo :
1- dans la proprit picture du composant image1 on clique sur le bouton Charger et chercher limage voulue.
(Delphi propose quelques images dans :
C:\Program Files\Fichiers communs\Borland Shared\Images\ Splash\256Color .
2- en fin clique sur Ouvrir ensuite sur Ok
3- pour que limage occupe toute la surface de son cadre on modifie sa proprit : Autosize
true.
4- pour que limage sagrandie si elle a une taille plus petite que la surface de son cadre on modifie sa proprit :
Stretch
true.

- 79 -
- 80 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
PREPARATION DU LOGICIEL
1- crer dans le lecteur C du disque dur un nouveau dossier nomm : scolarite (pour stocker le logiciel).
2- crer dans le dossier scolarite 2 autres dossiers nomms : base (pour stocker la BD) et source (pour stocker le code
source)
3- lancer le BDE de Delphi par : (le menu Delphi) outils
module base de donnes.
4- crer un nouveau alias pour notre logiciel par : (le menu BDE) outils
gestionnaire dalias
Ensuite : clique sur loption : afficher seulement les alias publics
Ensuite : clique sur le bouton : Nouveau
Ensuite : crire dans : Alias de la base : scolarite
Chemin daccs : c:\scolarite\base
Ensuite clique sur Ok
En fin clique sur Oui pour que cet alias soit un alias public.
5- crer dans cet alias les tables suivantes : Noubliez pas de les enregistrer dans lalias scolarite

Table: etudiant Table : matiere Table : resultat

Champ Type Taille index Champ Type Taille index Champ Type Taille index
Code_e i * Reference_m i * Code_etudiant i *
Nom_e A 20 Designation_m a 20 Ref_matiere i *
Prenom_e A 20 Coefficient i Trimestre i *
Date_naissance D Ref_specialite Devoir n
Lieu A 15 Composition n
Adresse A 30 Table : classe Observation a 15
Doublant A 3 Champ Type Taille index
Photo G Ref_classe i * Table protection
Ref_classe i Designation_c a 20 Champ Type Taille index
Table : professeur Ref_Specialite i Password A 20 *
Champ Type Taille index Table : specialite
Code_p i *
Nom_p a 20 Champ Type Taille Index
Prenom_p a 20 Ref_Specialite i *
Diplome a 30 Designation_s a 20
Ref_Matiere i

Etudiant Classe Specialite

1.1 1.n 1.1 1.n
Avoir1 Avoir2

1.n

1.n Resultat
Devoir Contient
Composition
1.n Observation
1.n 1.1
Professeur Matiere
Trimestre
1.1 1.n
Enseigne

- 81 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
FICHE MENU

1- Dans lenvironnement Delphi choisir dans le menu : Fichier
nouvelle application.

Ensuite : insrer dans la fiche de ce nouveau projet (nouveau logiciel) un composant mainmenu
Ensuite : double clique sur ce composant et insrer le menu principal suivant :
Fichier Edition Consultation tats Statistiques Outils ?
tudiant Bulletin tudiants impressions scolarit Archivage A propos
professeur Protection
spcialit Cloture
matire

quitter

 Chaque fiche (ainsi que son unit) dans le logiciel doit tre nomme par un nom significatif. pour notre fiche
actuelle (le menu gnral du projet) on procde comme suite :
Cliquer sur cette fiche (viter le composant mainmenu1) et dans son inspecteur dobjet crire dans la proprit :
name
fiche_menu.
Clique dans le menu Delphi sur: fichier
enregistrer sous, et dans le dossier c:\scolarite\source nommer lunit :
menu.
Clique dans le menu Delphi sur: fichier
enregistrer le projet sous, et nommer le projet : scolarite (dans
c:\scolarite\source)
2- insrer un composant ToolBar (palette win32 ).
Ensuite : clique droit sur ce composant et choisir nouveau bouton ou nouveau sparateur
Ensuite : rpter le clic droit pour insrer 13 boutons qui reprsentent les lments du menu principal du logiciel;
Et 6 sparateurs pour les grands lments du menu (fichier, dition, consultation, )
Ensuite : insrer un composant imagelist (palette win32 )
Ensuite : double clique sur ce composant et clique sur le bouton Ajouter pour choisir la gamme des images de notre
logiciel dans le chemin : C:\program files\fichiers communs\borland shared\images\button
Ensuite : aprs le chois de 13 images adquates aux 13 boutons on clique sur Ok
Ensuite : on clique sur le mainmenu1 et dans son inspecteur dobjet : proprit images
imagelist1
Ensuite : on double clique sur le mainmenu1 et chaque lment de ce menu sera li avec une image adquate par
sa proprit : imageindex
Enfin: on ferme la petite fentre du menu et on clique sur le composant toolbar1 et dans sa proprit :
Images
imagelist1
(Chaque bouton du toolbar1 peut avoir une image adquate par le choix de cette image dans la proprit
imageindex de ce bouton).
3- pour expliquer le rle de chaque bouton on clique sur ce dernier on crit dans sa proprit :
Hint lxplication adquate, ensuite et pour voir cette xplication on choisit dans sa proprit : showHint
true

Remarque :
Pour faire dfiler le nom du logiciel dans cette fiche :
1- on insre un composant timer (palette systeme)
et sa proprit interval = 10
- 82 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
2- on insre un composant Label1
proprit :caption = LOGICIEL GESTION SCOLARITE
proprit : font (essayez de bien traiter le texte).
3- on double clique sur le timer et on crit :
if [Link] > -250 then
[Link]:= [Link]-1
else
[Link] :=700 ;
// Les intervals daffichage du label1 peuvent varier selon la taille dcriture (pas srement entre -250 et 700).
Programmation du sous menu QUITTER
On double clique sur le composant mainmenu1 et double clique sur son lment quitter (du sous menu fichier).
Ensuite : on crit dans la procdure : close;
Ensuite : clique sur la fiche_menu et double clique droite de son vnement onclosequery et crire dans sa
procdure :
if messagedlg('voulez vous quitter le logiciel?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
canclose:=true;
[Link];
end
else
canclose:=false;
Rsultat:
Cette technique assure laffichage de la fentre de confirmation de sortie du logiciel pour nimporte quel type de
tentative de fermeture du logiciel :
- le menu : fichier
quitter.
- Par clavier en utilisant les touches : Alt + F4
- En cliquant sur la case fermer en haut et droite de la fentre.

4- Pour que la fiche menu occupe tous lspace de lcran lors du lancement de lxcution du logiciel :
- On clique sur cette fiche_menu (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : Window state
wsmaximized
5- On enregistre notre travail par le menu Delphi : fichier
tout enregistrer.

Limage de larrire plan :

1- insrer un composant image1 de la palette supplment .
2- dans la proprit Picture sur ce composant image1 on clique sur le bouton Charger et chercher limage voulue.
(Exemple du chemin de limage : C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color)
3- en fin clique sur Ouvrir ensuite sur Ok
4- pour que limage occupe toute la surface de son cadre on modifie sa proprit : Autosize
true.
5- pour que limage sagrandie si elle une taille plus petite que la surface de son cadre on modifie sa proprit :
Stretch
true. Aussi modifier sa proprit : align
alClient.

LA FICHE ETUDIANT

1- Choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_etudiant .

- 83 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
etudiant

2- Insrer de la palette win32 le composant Pagecontrol1

Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption MAJ
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption Consultation
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption Statistiques
3- clique sur longls MAJ du composant pagecontrol1 et insrer dans son cadre intrieur les composants
suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarite
Tablename etudiant
Active True
4- double clique sur le composant table1 et clique droit sur la petite fentre et choisir dans la liste ajouter tous les
champs
5- glisser les champs un par un dans la fiche dans lordre de haut en bas (on peut les slectionner tous et les glisser
en mme temps, cest plus professionnel)
6- Insrer de la palette Supplment 5 composants Speedbutton et crire dans la proprit de chacun
respectivement :
Ajouter Supprimer Modifier Engersitrer Annuler
7- double clique sur le speedbutton1 (ajouter) et crire dans sa procdure :
[Link] ; // [Link] = [Link] + [Link]
cest insrer un nouveau enregistrement en fin de la
table.
[Link] ;
8- tapez F12 et double clique sur le composant speedbutton2 (Supprimer) et crire dans sa procdure :
if messagedlg( voulez vous supprimer cet enregistrement ,mtconfirmation,[mbyes,mbno],0)=mryes then
[Link] ;
9- tapez F12 et double clique sur le composant speedbutton3 (Modifier) et crire dans sa procdure :
[Link] ;
[Link] ;
10- tapez F12 et double clique sur le composant speedbutton4 (Enregistrer) et crire dans sa procdure :
[Link] ;
[Link] ;
11- tapez F12 et double clique sur le composant speedbutton5 (Annuler) et crire dans sa procdure :
[Link] ;
[Link] ;
12- Insrer en haut de cette page un composant DbNavigateur1 de la palette ControleBD .
Ensuite : Choisir dans sa proprit : datasource
datasource1.
Ensuite : choisir dans sa proprit VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true.
13- Pour insrer les images des tudiants dans le champ Photo de la table1 (table etudiant) partir dun fichier
image stock dans le disque dur (gnralement on doit scanner les images des tudiants au paravant) on procde
comme suite :
- insrer de la palette dialogues un composant OpenPictureDialog1.
- Insrer de la palette supplment un composant speedbutton et choisir dans sa proprit
glyph limage : C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
- Double clique sur ce speedbutton et crire dans sa procdure :
[Link];
[Link]([Link]);

14- Pour mettre le curseur du clavier automatiquement dans le dbedit1 pour faciliter la saisie du code de
ltudiant on clique sur le composant table1 et dans son inspecteur dobjet double clique droite de son
vnement : afterinsert on crit dans sa procdure :
[Link] ;
Ensuite on peut contrler la manipulation du clavier et calculer lage de letudiant par :
- insrer un composant label9 droite du dbedit4 et supprimer le texte de sa proprit
caption.
- clique sur le composant dbedit1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur le composant dbedit2.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
- 84 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
If key = vk_return then
[Link] ;
- tapez F12 et clique sur sur le composant Dbedit3.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur sur le composant Dbedit4.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
(Supprimer le begin et end de la procdure et coller tous le code source suivant)
var age : integer ;
begin
If key = vk_return then
Begin
[Link];
[Link];
Age:=trunc(([Link](date_naissance).asdatetime)/365);
[Link]:=inttostr(age)+ ans;
If age <17 then
Showmessage(tudiant mineur);
If age >60 then
Showmessage(tudiant retrt);
[Link] ;
End;
End;
- tapez F12 et clique sur le composant Dbedit5.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur sur le composant Dbedit6.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
- tapez F12 et clique sur sur le composant Dbcombobox1.
- Double clique sur son vnement OnKeyDown et crire dans sa procdure :
If key = vk_return then
[Link] ;
15- clique sur longls Consultation du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :

Palette Composant Proprit valeur

controlebd Dbgrid1 Datasource Datasource1
Supplment Speedbutton6 Caption Previsualiser
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Speedbutton7 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
16- Pour imprimer la liste des tudiants on procde comme suite :
 Dans le menu Delphi on choisit : fichier
nouveau
 Dans la boite de dialogue qui saffiche on choisit longlet affaires et dans ce dernier on choisit licne
expert quick report et clique sur le bouton Ok.
 Dans lassistant qui saffiche on clique sur le bouton lancer lexpert.
 Choisir dans la liste alias ou rpertoire lalias scolarite .
 On choisit dans la liste nom de table la table imprimer (etudiant).
 On clique sur le bouton >> pour faire passer tous les champs droite (pour les imprimer tous).
 Ensuite clique sur le bouton Terminer
17- Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom fiche_etat_etudiant cette fiche.
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
etat_etudiant
18- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_etudiant et on clique sur Ok.
Ensuite : pour programmer la prvisualisation de notre liste on double clique sur le bouton previsualiser et on crit
dans sa procdure : fiche_etat_etudiant.[Link] ;
- 85 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Ensuit : on tape F12 pour retourner la fiche et pour programmer limpression de notre liste on double clique sur le
bouton imprimer et on crit dans sa procdure : fiche_etat_etudiant.[Link] ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_etudiant et la fiche_etat_etudiant et on doit cliquer sur Oui pour cette demande de
confirmation.

16- On ajoute aussi les options du filtrage et du trie dans cette fiche par linsertion des composants suivants (toujours
dans longls consultation) :
Palette Composant Proprit valeur
Standard Label1 Caption Filtrage
Edit1 Text
8- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[Nom_e]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;

17- On tape la touche F12 (retour la fiche), et pour faire le trie de la table etudiant : clique sur le composant dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code source suivant :
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;
If [Link] = 4 then
[Link] :=c5 ;
If [Link] = 5 then
[Link] :=c6 ;
If [Link] = 6 then
[Link] :=c7 ;
If [Link] = 7 then
[Link] :=c8 ;

Remarque importante :
Le trie et le filtrage dans une table ne russissent que si on a dfini des index secondaires sur chaque champ tri ou
filtr.
Pour insrer des index secondaires dans les champs de la table etudiant il faut que cette table ne soit pas en cours
dutilisation, donc sa proprit : active
false.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias scolarite et la
table etudiant .
Ensuite : on clique dans le menu du BDE sur : table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ code_e, c2 pour le champ
nom_e,etc.)

- 86 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

Remarque : le champ photo ne peut pas avoir un index secondaire puisque cest un champ de type graphique (Un
champ de type graphique ne peut tre utilis dans une recherche ou un trie ou un filtrage).
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement Delphi.
Enfin : on ractive le composant table1 par sa proprit : active
true.

18- clique sur longls Statistiques du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :
Palette Composant Proprit Valeur
BDE Query1 databasename scolarite
Sql Select Doublant, count(Doublant) as nombre
from etudiant group by Doublant
Active True
controlebd DBchart1 (Insrer ce composant sur le composant pagecontrole1 dans la page statistiques )
Et double clique sur ce composant dbchart1
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query1
Et choisir dans la liste libell llment doublant
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer
Remarque :
Pour que les statistiques affichent toujours les dernires modifications automatiquement (rafrachissement automatique
des donnes du query1) : Clique sur le composant table1 et Dans son inspecteur dobjet double clique droite de son
vnement afterpost (cet vnement se dclanche automatiquement si on enregistre des donnes sur notre table1).
Ensuite : crire le code source suivant dans la procdure correspondante :
[Link] ;
[Link] :=true ;
19- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment etudiant (du sous menu
fichier)
Ensuite : on crit dans la procdure : fiche_etudiant.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_etudiant et on doit cliquer sur oui pour cette demande de confirmation.
Remarques :
1- Pour que la fiche_etudiant se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_etudiant et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- On enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE MATIERE

- 87 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_matiere .
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
matiere
2- Insrer de la palette win32 le composant Pagecontrol1
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption MAJ
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption Consultation
3- Clique sur longls MAJ du composant pagecontrol1 et insrer dans son cadre intrieur les composants
suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Scolarite
Tablename matiere
Active True
4- double clique sur le composant table1 et clique droit sur la petite fentre et choisir dans la liste ajouter tous
les champs
5- glisser les champs un par un dans la fiche dans lordre de haut en bas (on peut les slectionner tous et les
glisser en mme temps, cest plus professionnel)
6- Insrer de la palette Supplment 5 composants Speedbutton et crire dans la proprit de chacun
respectivement : Ajouter Supprimer Modifier Engersitrer Annuler
7- double clique sur le speedbutton1 (ajouter) et crire dans sa procdure :
[Link] ;
// [Link] = [Link] + [Link]
cest insrer un nouveau enregistrement en fin de la table.
[Link] ;
8- taper F12 et double clique sur le composant speedbutton2 (Supprimer) et crire dans sa procdure :
if messagedlg( voulez vous supprimer cet enregistrement ,mtconfirmation,[mbyes,mbno],0)=mryes then
[Link] ;
9- taper F12 et double clique sur le composant speedbutton3 (Modifier) et crire dans sa procdure :
[Link] ;
[Link] ;
10- taper F12 et double clique sur le composant speedbutton4 (Enregistrer) et crire dans sa procdure :
[Link] ;
[Link] ;
11- taper F12 et double clique sur le composant speedbutton5 (Annuler) et crire dans sa procdure :
[Link] ;
[Link] ;
12- Insrer en haut de cette page un composant DbNavigateur1 de la palette ControleBD .
Ensuite : Choisir dans sa proprit : datasource
datasource1.
Ensuite : choisir dans sa proprit VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true.
13- Clique sur longls Consultation du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :

Palette Composant Proprit valeur

controlebd Dbgrid1 Datasource Datasource1
Supplement Speedbutton6 Caption Previsualiser
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Speedbutton7 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
14- Pour imprimer la liste des matires on procde comme suite :
 Dans le menu Delphi on choisit : fichier
nouveau.
 Dans la boite de dialogue qui saffiche on choisit longlet affaires et dans ce dernier on choisit licne
expert quick report et clique sur le bouton Ok.
 Dans lassistant qui saffiche on clique sur le bouton lancer lexpert.
 Choisir dans la liste alias ou rpertoire lalias scolarite .
 On choisit dans la liste nom de table la table imprimer (matiere).
 On clique sur le bouton >> pour faire passer tous les champs droite (pour les imprimer tous).
 Ensuite clique sur le bouton Terminer
15- Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom fiche_etat_matiere cette fiche.
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
etat_matiere
- 88 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

16- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_matiere et on clique sur Ok.
Ensuite : pour programmer la prvisualisation de notre liste on double clique sur le bouton previsualiser et on crit
dans sa procdure : fiche_etat_matiere.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et pour programmer limpression de notre liste on double clique sur le
bouton imprimer et on crit dans sa procdure : fiche_etat_matiere.[Link] ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_matiere et la fiche_etat_matiere et on doit cliquer sur Oui pour cette demande de
confirmation.
17- On ajoute aussi les options du filtrage et du trie dans cette fiche par linsertion des composants suivants
(toujours dans longls consultation) :
Palette Composant Proprit Valeur
Standard Label1 Caption Filtrage
Edit1 Text
18- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[designation_m]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;
19- On tape la touche F12 (retour la fiche), et pour faire le trie de la table matiere : clique sur le composant
dbgrid1.
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code suivant :
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;

Remarque importante :
Le trie et le filtrage dans une table ne russissent que si on a dfini des index secondaires sur chaque champ tri ou
filtr.
Pour insrer des index secondaires dans les champs de la table matiere il faut que cette table ne soit pas en cours
dutilisation donc sa proprit : active
false.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias scolarite et la table matiere .
Ensuite : on clique dans le menu du BDE sur : table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ reference_m, c2 pour le
champ designation_m,etc.)
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement delphi.
Enfin : on ractive le composant table1 par sa proprit : active
true.
20- Cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : double clique sur le composant mainmenu1 et double clique sur son lment matiere (sous menu fichier)
Ensuite : crire dans la procdure : fiche_matiere.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_matiere et on doit cliquer sur oui pour cette demande de confirmation.

- 89 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Remarques :
1- Pour que la fiche matiere se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_matiere et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE PROFESSEUR

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_professeur .
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
professeur
2- Insrer de la palette win32 le composant Pagecontrol1
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption MAJ
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption Consultation
3- clique sur longls MAJ du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarite
Tablename professeur
Active True
4- double clique sur le composant table1 et clique droit sur la petite fentre et choisir dans la liste ajouter tous
les champs
5- glisser les champs un par un dans la fiche dans lordre de haut en bas (on peut les slectionner tous et les
glisser en mme temps, cest plus professionnel).
6- Insrer de la palette Supplment 5 composants Speedbutton et crire dans la proprit de chacun
respectivement :
Ajouter Supprimer Modifier Engersitrer Annuler
7- double clique sur le speedbutton1 (ajouter) et crire dans sa procdure :
[Link] ;
// [Link] = [Link] + [Link]
cest insrer un nouveau enregistrement en fin de la table.
[Link] ;
8- tapez F12 et double clique sur le composant speedbutton2 (Supprimer) et crire dans sa procdure :
if messagedlg( voulez vous supprimer cet enregistrement ,mtconfirmation,[mbyes,mbno],0)=mryes then
[Link] ;
9- tapez F12 et double clique sur le composant speedbutton3 (Modifier) et crire dans sa procdure :
[Link] ;
[Link] ;
10- tapez F12 et double clique sur le composant speedbutton4 (Enregistrer) et crire dans sa procdure :
[Link] ;
[Link] ;
11- tapez F12 et double clique sur le composant speedbutton5 (Annuler) et crire dans sa procdure :
[Link] ;
[Link] ;

- 90 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
12- Insrer en haut de cette page un composant DbNavigateur1 de la palette ControleBD .
Ensuite : Choisir dans sa proprit : datasource
datasource1.
Ensuite : choisir dans sa proprit VisibleButtons les boutons first, prior, next, last, refresh ; mettre visible= true.

13- clique sur longls Consultation du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :

Palette Composant Proprit valeur

controlebd Dbgrid1 Datasource Datasource1
Supplment Speedbutton6 Caption Previsualiser
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Speedbutton7 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose

14- Pour imprimer la liste des professeurs on procde comme suite :

a- Dans le menu Delphi on choisit : fichier
nouveau
b- Dans la boite de dialogue qui saffiche on choisit longlet affaires et dans ce dernier on choisit
licne expert quick report et clique sur le bouton Ok.
c- Dans lassistant qui saffiche on clique sur le bouton lancer lexpert.
d- Choisir dans la liste alias ou rpertoire lalias scolarite .
e- On choisit dans la liste nom de table la table imprimer (professeur).
f- On clique sur le bouton >> pour faire passer tous les champs droite (pour les imprimer tous).
g- Ensuite clique sur le bouton Terminer
Ensuite : on clique sur cette nouvelle fiche en vitant le clic sur le composant quickrep1 et dans sa proprit
name on donne le nom fiche_etat_professeur cette fiche.
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
etat_ professeur

15- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_professeur et on clique
sur Ok.
Ensuite : pour programmer la prvisualisation de notre liste on double clique sur le bouton previsualiser et on crit
dans sa procdure : fiche_etat_professeur.[Link] ;
Ensuit : on tape F12 pour retourner la fiche et pour programmer limpression de notre liste on double clique sur le
bouton imprimer et on crit dans sa procdure : fiche_etat_professeur.[Link] ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_professeur et la fiche_etat_professeur et on doit cliquer sur Oui pour cette demande de
confirmation.

16- (toujours dans longls consultation) :

Palette Composant Proprit valeur
Standard Label1 Caption Filtrage
Edit1 Text

17- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange) :

if [Link] <> then

begin
[Link] ;
[Link] :=true ;
[Link] :=[nom_p]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;
18- On tape la touche F12 (retour la fiche), et pour faire le trie de la table professeur : clique sur le composant
dbgrid1.

- 91 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Ensuite : dans son inspecteur dobjet on clique sur longls vnements
Ensuite : on double clique droite de lvnement ontitleclick et on introduit le code source suivant :
If [Link] = 0 then
[Link] :=c1 ;
If [Link] = 1 then
[Link] :=c2 ;
If [Link] = 2 then
[Link] :=c3 ;
If [Link] = 3 then
[Link] :=c4 ;
If [Link] = 4 then
[Link] :=c5 ;

Remarque importante :
Le trie et le filtrage dans une table ne russissent que si on a dfini des index secondaires les champs tris ou filtrs.
Pour insrer des index secondaires dans les champs de la table professeur il faut que cette table ne soit pas en cours
dutilisation donc sa proprit : active
false.
Ensuite : on lance le BDE Delphi par : (le menu Delphi) : outils
module base de donnes.
Ensuite : on ouvre la table par : (le menu) fichier
ouvrir
table et on choisit lalias scolarite et la
table professeur.
Ensuite : on clique dans le menu du BDE sur table
restructurer.
Ensuite : on choisit dans la liste des choix proprits de la table loption index secondaires
Ensuite : on clique pour chaque champ sur le bouton Dfinir et on fait passer ce champ droite, on clique sur le
bouton OK et on propose un nom symbolique cet index secondaire (c1 pour le champ code_p, c2 pour le champ
nom_p,etc.)
Ensuite : on clique sur le bouton enregistrer et on retourne lenvironnement delphi.
Enfin : on ractive le composant table1 par sa proprit : active
true.
19- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment professeur (du sous menu
fichier)
Ensuite : on crit dans la procdure : fiche_professeur.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_professeur et on doit cliquer sur oui pour cette demande de confirmation.
Remarques :
1- Pour que la fiche professeur se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_professeur et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE SPECIALITE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_specialite .
- 92 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Ensuite : choisir dans le menu Delphi : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit :
specialite
2- Insrer de la palette win32 le composant Pagecontrol1
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption MAJ &
Consultation
Clique droit sur ce composant et clique sur nouvelle page et crire dans sa proprit caption Statistiques
3- clique sur longls MAJ_Consultation du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarite
Tablename specialite
Active True
Accesbd Datasource1 Dataset Table1
BDE Table2 Databasename scolarite
Tablename classe
Active True
Accesbd Datasource2 Dataset Table2
controlebd Dbgrid1 Datasource Datasource1
Dbgrid2 Datasource Datasource2
Supplement Bitbtn1 Kind Bkclose
4- pour que la table classe soit lie par une relation matre dtail avec la table specialite (la table specialite

matre (pre) et la table classe
dtail (fils)) on procde comme suite :
On dsactive la table classe (active
false) et dans le BDE on insre des index secondaires pour chaque champ de
cette table ( ref_classe
c1, designation_c
c2 , ref_specialit
c3)
Ensuite on retourne la fiche_specialite et on ractive la table classe (active
true).
On clique sur le composant table2 classe , et choisir dans sa proprit : mastersource
datasource1.
Ensuite : dans sa proprit masterfield on clique sur petit bouton .
Ensuite : on choisit dans la liste en haut lindex secondaire c3 (cest lindex du champ ref_specialite de la table
classe)
Ensuite : on choisit gauche le champ ref_specialite et droite le champ ref_specialite.
Ensuite : clique sur le bouton ajouter ensuite sur le bouton Ok .
5- Clique sur longls Statistiques du composant pagecontrol1 et insrer dans son cadre intrieur les
composants suivants :
Palette Composant Proprit Valeur
BDE Query1 databasename scolarite
Sql Select specialite.designation_s, count(ref_classe) as nombre
from specialite, classe
where specialite.ref_specialite = classe.ref_specialite
group by specialite.designation_s
Active True
controlebd DBchart1 (Insrer ce composant sur le composant pagecontrole1 dans la page statistiques )
Et double clique sur ce composant dbchart1
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query1
Et choisir dans la liste libell llment specialite.designation_s
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer

Remarque :
Pour que les statistiques affichent toujours les dernires modifications automatiquement (rafrachissement automatique
des donnes du query1) : Clique sur le composant table1 (specialite) et Dans son inspecteur dobjet double clique
droite de son vnement afterpost
Ensuite : crire le code source suivant dans la procdure correspondante :
[Link] ;
[Link] :=true ;

- 93 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Aussi:
Clique sur le composant table2 (classe) et Dans son inspecteur dobjet double clique droite de son vnement
afterpost
Ensuite : crire le code source suivant dans la procdure correspondante :
[Link] ;
[Link] :=true ;

6- Cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment specialite (du sous menu
fichier)
Ensuite : on crit dans la procdure : fiche_specialite.showmodal ;

Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_specialite et on doit cliquer sur oui .
Remarques :
1- Pour que la fiche_specialite se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_specialite et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats)

FICHE BULLETIN

1- Choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom : fiche_bulletin.
Ensuite : choisir dans le menu Delphi: fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
bulletin
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename Scolarite
Tablename Etudiant
Active True
accesbd Datasource1 Dataset Table1
BDE Table2 Databasename Scolarite
Tablename Resultat
Active True
mastersource Datasource1
masterfield Clique sur code_etudiant gauche et sur code_e droite et sur Ajouter ensuite sur Ok
accesbd Datasource2 Dataset Table2
BDE Table3 Databasename Scolarite
Tablename Matiere
Active True
- 94 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
accesbd Datasource3 Dataset Table3
BDE Table4 Databasename Scolarite
Tablename Professeur
Active True
mastersource Datasource3
masterfield Clique sur Ref_matiere gauche et sur Reference_m droite et sur Ajouter ensuite sur Ok
controlebd Dbgrid1 Datasource Datasource1
Dbgrid2 Datasource Datasource2
Supplement Speedbutton1 Caption Imprimer
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
BDE Query1 databasename Scolarite
Sql select sum((devoir+composition)/3*coefficient)/sum(coefficient) as Moy_Gen
from matiere,resultat
where (ref_matiere =reference_m) and (code_etudiant = :p)
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
controlebd dbnavigator datasource Datasource1
standard Label1 Caption Resultat
Edit1 text

3- on peut renforcer cette fentre par les champs calculs comme suite :
On double clique sur le composant table2 resultat .
Ensuite : on clique droit sur la petite fentre et on clique sur ajouter tous les champs .
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : matiere et on choisit le type du champ : string et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : moy_20 et on choisit le type du champ : float et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : coefficient et on choisit le type du champ : integer et on clique sur Ok.
Ensuite : on clique droit une autre fois sur cette petite fentre et on clique sur nouveau champ .
Ensuite : on crit le nom du champ : moy_coef et on choisit le type du champ : Float et on clique sur Ok.
A la fin : on ferme la petite fentre.
Ensuite : on clique sur composant table2 (resultat) et dans son inspecteur dobjet on clique sur longl
vnement.
Ensuite : on double clique droite de lvnement oncalcfield et on crit dans la procdure :
[Link];
[Link];
[Link]('reference_m).asinteger:=[Link]('ref_matiere').asinteger;
if [Link] then
begin
[Link]('matiere').asstring:=[Link]('designation_m').asstring;
[Link]('coefficient').asinteger:=[Link]('coefficient').asinteger;
[Link]('moy_20').asfloat:=
([Link]('devoir').asfloat+[Link]('composition').asfloat)/3;
[Link]('moy_coef').asfloat:=
[Link]('moy_20').asfloat*[Link]('coefficient').asinteger;
[Link];
[Link]('p').asinteger:=[Link]('code_e').asinteger;
[Link]:=true;
if ([Link]('moy_gen').asfloat >=0) and ([Link]('moy_gen').asfloat <5) then
[Link]:='Blme';
if ([Link]('moy_gen').asfloat >=5) and ([Link]('moy_gen').asfloat <7) then
[Link]:='Avertissement';
if ([Link]('moy_gen').asfloat >=7) and ([Link]('moy_gen').asfloat <10) then
[Link]:='Rien';
if ([Link]('moy_gen').asfloat >=10) and ([Link]('moy_gen').asfloat <12) then
[Link]:='Tableau d''honneur';
if ([Link]('moy_gen').asfloat >=12) and ([Link]('moy_gen').asfloat <14) then
[Link]:='Encouragement';
if ([Link]('moy_gen').asfloat >=14) and ([Link]('moy_gen').asfloat <=20) then
[Link]:='Flicitation';
end;
- 95 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
4- On veut ajouter le nom du professeur dans la table rsultat; mais, on ne peut pas le faire comme champ calcul
puisque une matire a plusieurs enseignants possibles, donc la connaissance (la saisie) de la reference de matire
peut nous faire connatre sa dsignation et son coefficient; mais on ne peut pas connatre le nom de son enseignant
puisque il y a plusieurs possibilits. Dans ce cas et pour plus de souplesse dans la programmation, la mthode de
conception Merise accpte de faire des rdendances. Dans notre cas on va recrer le champ " nom du professeur "
dans la table rsultat pour indiquer l'enseignant de chaque matire et cela en procdant comme suite :
 fermer le logiciel par le menu delphi : fichier
tous fermer; cela assure que la table resultat ne sera pas en
cours d'utilisation.
 lancer le BDE Delphi par : (le menu Delphi) : Outils
Module base de donnes.
 ouvrir la table resultat par : (le menu BDE) Fichier
Ouvrir
table et on choisit lalias scolarite et la
table resultat .
 cliquer dans le menu du BDE sur : table
restructurer.
 Ecrire la fin des champs notre nouveau champ "professeur" avec comme type "A" et taille "20".
 cliquer sur le bouton enregistrer et retourner lenvironnement Delphi.
 Rouvrir le logiciel "scolarit" par le menu Delphi : Fichier
Ouvrir un projet.
 Choisir dans le menu delphi : Fichier
Nouvelle fiche.
 dans linspecteur dobjet de la fiche, crire dans la proprit name le nom : fiche_liste_professeur.
 choisir dans le menu Delphi: fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
liste_professeur.
 insrer dans cette fiche les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarite
Tablename professeur
Active True
Accesbd Datasource1 Dataset Table1
controleBD Dbgrid1 Datasource Datasource1
 Pour avoir une ligne de slection permanente dans le Dbgrid1 qui indique lenregistrement rsultat de la
recherche :
 Cliquer gauche de la proprit + Options du dbgrid1 (xactement sur la case +).
 Choisir dans la sous proprit : DGRowSelect
true.
 Choisir dans la sous proprit : DGAlwaysShowSelection
true.
 Taper Shift + F12 et on retourne la "fiche_bulletin".
 Cliquer sur le composant "dbgrid2" et choisir son vnement "onkeydown" et crire dans sa procdure :
If key = vk_return then
begin
Fiche_liste_professeur.showmodal;// pour afficher la liste des professeurs et en choisir un.
[Link]; // prparer la table rsultat pour crire le nom du professeur.
[Link]('professeur').asstring:= Fiche_liste_professeur.[Link]('nom').asstring;
[Link];
End ;
5- on tape F12 pour retourner la fiche et on double clique sur le composant query1 .
Ensuite : clique doit sur la petite fentre et clique dans le menu contextuel sur : ajouter tous les champs .
Ensuite : glisser le champ moy_gen de la requte vers le bas de la fiche, la fin fermer la petite fentre.
6- le dbgrid2 affiche le champ code_etudiant (de la table resultat) qui contient bien sr le mme code de
ltudiant actuelle (puisque il ya une liaison matre_dtail entre la table resultat et la table etudiant par leurs champs
communs code_etudiant et code_e), donc ce champ rptera pour tous les enregistrements du dbgrid2 le mme
code tudiant, il vaut mieux alors de ne pas afficher ce dernier dans le dbgrid2 . pour supprimer ce champ :
- double clique sur le dbgrid2 .
- clique en haut de la petite fentre sur le bouton ajouter tous les champs
- supprimer le champ code_etudiant et fermer la petite fentre.
(Le champ code_etudiant ne sera pas supprim de la table resultat mais seulement il ne sera pas affich)
7- pour prparer limpression de notre bulletin on procde comme suite :
On insre une nouvelle fiche notre logiciel par le choix dans le menu Delphi de : fichier
nouvelle fiche.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_etat_bulletin .
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
etat_bulletin .
Ensuite : on insre dans cette fiche un composant quickrep1 de la palette qreport .
Ensuite : on tape F12 et en haut de lunit on crit dans la liste uses le nom bulletin et on compile Ctrl+F9 pour
assurer la liaison entre la fiche_bulletin et la fiche_etat_bulletin.

- 96 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
Ensuite : dans linspecteur dobjet du quickrep1 on choisit dans la proprit : dataset
fiche_bulletin.table2
Ensuite : dans linspecteur dobjet de ce composant on crit dans la proprit : zoom
70
Ensuite : choisir dans sa proprit Bands: hastitle
true; hascolumnheader
true; hasdetail
true; hassummary
true.
Ensuite : on insre les composants suivants de la palette qreport sur les bandes de ce quickrep1 comme suite:

bande Composant Proprit valeur

Titre qrlabel1 caption Ministre de lducation nationale
(agrandir la hauteur qrlabel2 caption direction de lducation Stif
de cette bande) Qrlabel3 caption lyce Kirouani
Qrlabel4 caption BULLETIN DE SCOLARITE
Qrlabel5 caption nom
qrdbtext1 dataset fiche_bulletin.table1
datafield Nom_e
Qrlabel6 caption prenom
Qrdbtext2 dataset fiche_bulletin.table1
datafield Prenom_e
Qrlabel7 caption date & lieu de naissance
Qrdbtext3 dataset fiche_bulletin.table1
datafield Date_naissance
Qrlabel8 caption
Qrdbtext4 dataset fiche_bulletin.table1
datafield Lieu
Qrlabel9 caption classe
Qrdbtext5 dataset fiche_bulletin.table1
datafield Ref_classe
Qrlabel10 caption doublant
Qrdbtext6 dataset fiche_bulletin.table1
datafield doublant
Entte de colonnes Qrlabel11 caption Matiere
Qrlabel12 caption Devoir
Qrlabel13 caption composition
Qrlabel14 caption Moy_20
Qrlabel15 caption coefficient
Qrlabel16 caption Moy_coef
Qrlabel17 caption professeur
Qrlabel18 caption observation
- 97 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

Detail Qrdbtext7 dataset fiche_bulletin.table2

datafield Matiere
Qrdbtext8 dataset fiche_bulletin.table2
datafield Devoir
Qrdbtext9 dataset fiche_bulletin.table2
datafield composition
Qrdbtext10 dataset fiche_bulletin.table2
datafield Moy_20
Qrdbtext11 dataset fiche_bulletin.table2
datafield coefficent
Qrdbtext12 dataset fiche_bulletin.table2
datafield Moy_coef
Qrdbtext13 dataset fiche_bulletin.table2
datafield professeur
Qrdbtext14 dataset fiche_bulletin.table2
datafield observation
Resum Qrlabel19 caption Moyenne gnrale
(agrandir la hauteur Qrdbtext15 dataset fiche_bulletin.query1
de cette bande) datafield moy_gen
Qrlabel20 caption Resultat
Qrlabel21 caption
Ensuite : on tape Shift + F12 et on affiche la fiche fiche_bulletin
Ensuite : on double clique sur le bouton imprimer et on crit dans sa procdure :
Fiche_etat_bulletin.[Link] := [Link] ;
Fiche_etat_bulletin.[Link] ; // le bouton imprimer xiste en haut de la fentre de prvisualisation.
En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer

8- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment bulletin (sous menu
Edition)
Ensuite : on crit dans la procdure : fiche_bulletin.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_bulletin et on doit cliquer sur oui pour cette demande de confirmation ; on
recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_bulletin et la fiche_etat_bulletin et on doit cliquer sur
oui aussi pour cette demande de confirmation.

Remarques :
1- Pour que la fiche bulletin se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_bulletin et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter

2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.

Remarque importante:
Pour contrler le format daffichage des nombres rels (champ de type float) dans une BD (limiter le nombre de chiffres
aprs la virgule) on procde comme suite :
- double clique sur le composant table2 .
- clique sur le champ formater (pour nous on va manipuler les deux champs moy_20 et moy_coef)
- crire dans sa proprit :
Display format ##.##
(# Reprsente un chiffre, donc 2 chiffres avant et aprs la virgule)
- Ensuite double clique sur le composant query1 .
- clique sur le champ formater (pour nous on va manipuler le champ moy_gen)
- crire dans sa proprit :
Display format ##.##
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

- 98 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
LA FICHE CONSULTATION ETUDIANT

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom :
fiche_consultation_etudiant.
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
consultation_etudiant
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
supplement bitbtn kind bkclose
standard label1 Caption Choisir la classe
BDE Table1 databasename scolarite
tablename ssecla
active true
Accsbd Datasource1 dataset Table1
controlebd dblookupcombobox1 listesource datasource1
listefield Ref_classe; designation_c
keyfield Ref_classe
BDE Query1 databasename Scolarite
Sql select * from etudiant where ref_classe = :p
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
Accsbd Datasource2 dataset Query1
supplement Speedbutton1 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
standard abell2 Caption Choisir la specialite
BDE Table2 databasename Scolarite
tablename specialite
active true
Accsbd Datasource3 dataset Table2
controlebd dblookupcombobox2 listesource datasource3
listefield Ref_specialite; designation_s
keyfield Ref_specialite
Dbgrid1 datasource Datasource2
supplement Speedbutton2 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
standard label3 Caption Etudiant doublant
Combobox1 text
Items Oui
Non
supplement Speedbutton3 glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
BDE Query2 databasename Scolarite
Sql select *
from etudiant t1,classe t2
where (t1.ref_classe = t2.ref_classe)
and (t2.ref_specialite = :p)
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
Query3 databasename Scolarite
Sql select * from etudiant where doublant = :p
Params Clique sur p et choisir dans la proprit datatype : ftstring
Active True

- 99 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
3- double clique sur le composant speedbutton1 et crire :
[Link];
[Link]('p').asinteger:=[Link]('ref_classe').asinteger;
[Link]:=true;
[Link]:=query1;

4- tapez F12 et double clique sur le composant speedbutton2 et crire:

[Link];
[Link]('p').asinteger:=[Link]('ref_specialite').asinteger;
[Link]:=true;
[Link]:=query2;

5- tapez F12 et double clique sur le composant speedbutton3 et crire:

[Link];
[Link]('p').asstring:= [Link] ;
[Link]:=true;
[Link]:=query3;

6- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : SHIFT + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment etudiant (du sous menu
consultation)
Ensuite : on crit dans la procdure : fiche_consultation_etudiant.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_consultation_etudiant et on doit cliquer sur oui pour cette demande de
confirmation.

Remarques :
1- Pour que la fiche_consultation_etudiant se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel :
- On tape : SHIFT + F12 et on clique sur la fiche_consultation_etudiant et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE STATISTIQUES DES ETUDIANTS

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom:fiche_statistiques_etudiant.
Ensuite:(le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer
lunit:statistiques_etudiant

- 100 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 databasename scolarite
tablename specialite
Active true
Accsbd Datasource1 Dataset Table1
BDE Query1 databasename scolarite
Sql select t1.designation_s,count(t3.code_e)as nombre
from specialite t1, classe t2, etudiant t3
where (t1.ref_specialite = t2.ref_specialite)
and (t2.ref_classe = t3.ref_classe)
group by t1.designation_s
Active True
Query2 databasename scolarite
Sql select t1.designation_c,count(t2.code_e)as nombre
from classe t1, etudiant t2
where (t1.ref_classe = t2.ref_classe)
and(t1.ref_specialite = :p)
group by t1.designation_c
Params Clique sur p et choisir dans la proprit datatype : ftinteger
Active True
Query3 databasename scolarite
Sql select Doublant,count(Doublant)as nombre
from etudiant
group by doublant
Active True
supplement btnbit kind bkclose
win32 Pagecontrol1
Clique droit sur ce composant et Caption Par Specialit
clique sur nouvelle page
Clique droit sur ce composant et Caption Par Groupe
clique sur nouvelle page
Clique droit sur ce composant et Caption Par Resultat
clique sur nouvelle page
Controlebd Dbgrid1(dans la page Par Groupe) Datasource Datasource1
dBchart1 (Insrer ce composant sur le composant pagecontrole1 dans la page Par Specialit )
Et double clique sur ce composant dbchart1
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query1
Et choisir dans la liste libell llment dsignation_s
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer
Controlebd dBchart2 (Insrer ce composant sur le composant pagecontrole1 dans la page Par Groupe)
Et double clique sur ce composant dbchart2
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query2
Et choisir dans la liste libell llment dsignation_c
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer

- 101 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Controlebd dBchart3 (Insrer ce composant sur le composant pagecontrole1 dans la page Par Resultat)
Et double clique sur ce composant dbchart3
Et clique sur longl infrieur srie
Et clique sur le bouton Ajouter
Et clique sur le graphe de la forme sectoriel
Et clique sur le bouton Ok
Et clique sur longl suprieur srie
Et clique sur longl source de donnes
Et choisir dans la liste llment dataset
Et choisir dans la liste dataset llment query3
Et choisir dans la liste libell llment Doublant
Et choisir dans la liste sectoriel llment nombre
A la fin clique sur Fermer

3- Dans lvnement "Afterscroll" du composant table1 on crit :

[Link];
[Link]('p').asinteger:=[Link]('ref_specialite').asinteger;
[Link]:=true;

Remarque :
Pour que la fiche statistiques etudiant affiche toujours les dernires modifications automatiquement (rafrachissement
automatique des donnes du query1 et query2 et query3) : Clique sur la fiche_statistiques_etudiant
Dans son inspecteur dobjet double clique droite de lvnement onactivate
Ensuite : crire le code source suivant dans la procdure correspondante :
[Link] ;
[Link] :=true ;
[Link] ;
[Link] :=true ;
[Link] ;
[Link] :=true ;

4- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment scolarit (sous menu
statistiques)
Ensuite : on crit dans la procdure : fiche_statistiques_etudiant.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_statistiques_etudiant et on doit cliquer sur oui pour cette demande de
confirmation.

Remarques :
1- Pour que la fiche statistique etudiant se place au milieu de lcran si on lappel lors du lancement de lxcution du
logiciel :
- On tape : Shift + F12 et on clique sur la fiche_statistique_etudiant et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter

2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.

 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

- 102 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
FICHE IMPRESSIONS

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom:fiche_liste_etudiant.
Ensuite:(le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit: liste_etudiant
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
BDE Table1 Databasename scolarite
Tablename etudiant
Active True
Accesbd Datasource1 Dataset Table1
controleBD Dbgrid1 Datasource Datasource1
Standard Label1 Caption Filtrage
Edit1 Text
Supplment Speedbutton1 Caption Imprimer certificat scolarite
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Speedbutton2 Caption Imprimer carte etudiant
Glyph C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 Kind Bkclose
3- Pour faire le filtrage on double clique sur le composant edit1 et on crit dans la procdure (onchange):
if [Link] <> then
begin
[Link] ;
[Link] :=true ;
[Link] :=[Nom_e]= + #39 + [Link] + * + #39 ;
[Link] := true ;
end
else
begin
[Link] ;
[Link] := false ;
[Link] := true ;
end ;

- 103 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
4- pour prparer limpression du CERTIFICAT DE SCOLARITE et de la carte etudiant on procde comme suite :
On insre une nouvelle fiche notre logiciel par le choix dans le menu Delphi de : fichier
nouvelle fiche.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_etat_liste_etudiant .
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit:
etat_liste_etudiant .
5- pour imprimer le certificat de scolarite on insre dans cette fiche un composant quickrep1 de la palette
qreport .
Ensuite : on tape F12 et en haut de lunit on crit dans la liste uses le nom liste_etudiant et on compile Ctrl+F9
pour assurer la liaison entre la fiche_liste_etudiant et la fiche_etat_liste_etudiant.
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
Ensuite : dans linspecteur dobjet de ce composant on crit dans la proprit : zoom
70
Ensuite : choisir dans sa proprit Bands: hastitle
true;
Ensuite : on agrandis la largeur de la bande titre et dans cette bande on insre les composants suivants de la palette
qreport :
bande Composant Proprit valeur
Titre qrlabel1 caption Ministre de lducation nationale
qrlabel2 caption direction de lducation Stif
Qrlabel3 caption lyce Kirouani
Qrlabel4 caption CERTIFICAT DE SCOLARITE
Qrlabel5 caption Jatteste, mois le directeur du lyce, que letudiant (e)
Qrlabel6 caption nom
Qrdbtext1 dataset fiche_liste_etudiant.table1
datafield Nom_e
Qrlabel7 caption prenom
Qrdbtext2 dataset fiche_liste_etudiant.table1
datafield Prenom_e
Qrlabel8 caption date & lieu de naissance
Qrdbtext3 dataset fiche_liste_etudiant.table1
datafield Date_naissance
Qrlabel9 caption
Qrdbtext4 dataset fiche_liste_etudiant.table1
datafield Lieu
Qrlabel10 caption A suivi ses tudes cette anne scolaire dans :
Qrlabel11 caption classe
Qrdbtext5 dataset fiche_liste_etudiant.table1
datafield Ref_classe
Qrlabel12 caption Cette attestation nest livre que pour servir ce que de droit
Ensuite : on tape Shift + F12 et on affiche la fiche fiche_liste_etudiant
Ensuite : on double clique sur le bouton imprimer certificat scolarite et on crit dans sa procdure :
Fiche_etat_liste_etudiant.[Link] ;
// le bouton imprimer xiste en haut de la fentre de prvisualisation.
En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer
6- pour imprimer la CARTE TUDIANT on insre dans la fiche_etat_liste_etudiant un composant quickrep2 de la
palette qreport .
Ensuite : dans linspecteur dobjet de ce composant on crit dans la proprit : zoom
70
Ensuite : choisir dans sa proprit Bands: hastitle
true;
Ensuite : on double clique sur ce composant quickrep2
Choisir dans la fentre la liste : taille de papier
taille personnalise
crire : largeur
140 et longueur
100 et clique sur Ok
Ensuite : on agrandis la largeur de la bande titre et dans cette bande on insre les composants suivants :
bande Composant Proprit valeur
Titre qrlabel13 caption Ministre de lducation nationale
Qrlabel14 caption direction de lducation Stif
Qrlabel15 caption lyce Kirouani
Qrlabel16 caption CARTE ETUDIANT
Qrlabel17 caption nom
Qrdbtext6 dataset fiche_liste_etudiant.table1
datafield Nom_e
Qrlabel18 caption prenom
- 104 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

Qrdbtext7 dataset fiche_liste_etudiant.table1

datafield Prenom_e
Qrlabel19 caption date & lieu de naissance
Qrdbtext8 dataset fiche_liste_etudiant.table1
datafield Date_naissance
Qrlabel20 caption
Qrdbtext9 dataset fiche_liste_etudiant.table1
datafield Lieu
Qrlabel21 caption classe
Qrdbtext10 dataset fiche_liste_etudiant.table1
datafield Ref_classe
Qrlabel22 caption photo
Qrdbimage1 dataset fiche_liste_etudiant.table1
datafield photo
Ensuite : on tape Shift + F12 et on affiche la fiche fiche_liste_etudiant
Ensuite : on double clique sur le bouton imprimer carte etudiant et on crit dans sa procdure :
Fiche_etat_liste_etudiant.[Link] ;
// le bouton imprimer xiste en haut de la fentre de prvisualisation.
En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer

Remarque importante :
Pour imprimer la certificat de scolarit ou la carte tudiant de ltudiant en cours (tudiant slectionn) on ne choisit rien
dans la proprit dataset du composant quickrep (ie : cette proprit doit rester vide), cela aura comme rsultat
que ces imprimes concerneront chaque fois ltudiant slectionn.
7- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment impressions (du sous
menu tats)
Ensuite : on crit dans la procdure : fiche_liste_etudiant.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_liste_etudiant et on doit cliquer sur oui pour cette demande de
confirmation ; on recompile par Ctrl + F9 pour faire la liaison aussi entre la fiche_liste_etudiant et la
fiche_etat_liste_etudiant et on doit cliquer sur oui aussi pour cette demande de confirmation.

Remarques :
1- Pour que la fiche liste etudiant se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_liste_etudiant et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE MOT DE PASSE

1-choisir dans le menu Delphi : fichier
nouveau
dialogue
dialogue de mot de passe.
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_passe .
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit : passe
2- insrer un composant table1 (palette BDE) et manipuler ces proprits :
Databasename
scolarite table name
protection active
true.

- 105 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit

3- Double clique sur le bouton Ok et crire dans sa procdure :

if [Link]=[Link]('password').asstring then
fiche_menu.showmodal
else
begin
showmessage('mot de passe incorrecte');
[Link];
//le composant password est un simple composant Edit; donc [Link]; veut dire vider son texte.
[Link];
end;

3- double clique sur le Bouton Annuler et crire dans sa procdure : [Link] ;

Remarques importantes:
a- Pour que la fiche_passe se lance la premire lors de chaque xcution du logiciel on choisit dans le menu Delphi :
Projet
options
dans longls fiche
dans la liste fiche principale
choisir : fiche_passe
Ok
b- il faut ajouter les deux units : messages, dialogs, dans la liste uses de lunit passe
Nb : par fois Delphi rpte quelques units de la partie uses si on crit une nouvelle unit dans cette partie, donc on
doit supprimer les units dupliques si Delphi signal ce problme de rptition aprs la compilation du logiciel.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)

FICHE PROTECTION

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom: fiche_protection .
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit: protection

2- Insrer les composants suivants :

Palette Composant Proprit Valeur
supplement bitbtn1 kind bkclose
bitbtn2 kind bkok
standard label1 caption Ancien mot de passe
edit1 text
passwordchar *
label2 caption Nouveau mot de passe
edit2 text
passwordchar *
label3 caption confirmation
edit3 text
passwordchar *
BDE table1 databasename scolarite
tablename protection
Active True

- 106 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
3- double clique sur le composant BitBtn2 et crire dans sa procdure:
If [Link] = [Link](password).asstring then
If [Link] = [Link] then
Begin
[Link];
[Link](password).asstring:=[Link];
[Link];
Showmessage( la modification du mot de passe est effectue )
End
Else Showmessage( la confirmation du mot de passe est incorrecte )
Else Showmessage( lancien mot de passe est incorrecte ) ;

4- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment protection (du sous menu
outils)
Ensuite : on crit dans la procdure : fiche_protection.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_protection et on doit cliquer sur Oui pour cette demande de confirmation.

Remarques :
1- Pour que la fiche protection se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_protection et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE ARCHIVAGE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_archivage .
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit: archivage

Palette Composant Proprit Valeur

win3.1 FileListBox1 name fichier
Mask *.db
DirectoryListBox1 name driverlist
DriveComboBox1 name driver
Dirlist driverlist
FilterComboBox1 Filelist fichier
filter *.db
supplement BitBtn1 kind bkclose
Speedbutton1 caption archiver
glyph C:\Program Files\Fichiers communs\Borland shared\Images\Buttons\[Link]
standard Label1 caption lecteur

- 107 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
2- tapez F12 et dans la liste uses de lunit archivage Il faut ajouter lunit : ShellAPI, .
3- tapez F12 pour revenir la fiche et Insrer les composants suivants :

4- Double clique sur le composant speedbutton1 et crire dans sa procdure :

if CopyFolder('c:\scolarite\base', [Link]) then
ShowMessage(Archivage effectu avec succs') else
ShowMessage('Archivage non effectu');

5- il faut inserer avant la procedure BitBtn4Click la fonction suivante :

function CopyFolder(FromFld, ToFld: string): boolean;
var fos: TSHFileopStruct;
begin
FillChar(fos, SizeOf(fos),0);
with fos do
begin
wFunc := FO_COPY;
pFrom := PChar(FromFld+#0);
pTo := PChar(ToFld+#0);
fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
end;
Result := ShFileOperation(fos)=0;
end;

6- pour avoir un bon interface on doit cacher les deux composants FileListBox1 et FilterComboBox1comme suite:
- clique par le bouton droit de la sourie sur le composant : FileListBox1 nomm fichier et choisir dans le menu
contextuel : mettre en arrire plan et mettre ce composant au-dessous du DirectoryListBox1 (driverlist).
- aussi, clique par le bouton droit de la sourie sur le composant : FilterComboBox1 et choisir dans le menu
contextuel : mettre en arrire plan et mettre ce composant au-dessous du DirectoryListBox1 (driverlist).

7- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment archivage (du sous menu
outils)
Ensuite : on crit dans la procdure : fiche_archivage.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_archivage et on doit cliquer sur Oui pour cette demande de confirmation.

Remarques :
1- Pour que la fiche archivage se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_archivage et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous les traitements possibles)
 Cette fiche necessite la cration d'un dossier dans disque dur (nomm par exemple : archive2007) qui sera le
dossier ou on va archiver notre base de donnes.

FICHE CLOTURE

1- choisir dans le menu Delphi : fichier
nouvelle fiche.

Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit name le nom: fiche_Cloture.
Ensuite : (le menu Delphi) : fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit: Cloture

- 108 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
2- Insrer les composants suivants :
Palette Composant Proprit Valeur
supplement speedbutton1 caption Vider Table Resultats
yphgl C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons\[Link]
Bitbtn1 kind bkclose
BDE Table1 Databasename scolarite
Tablename resultat
Active True
controleBD Dbgrid1 Datasource Datasource1

3- double clique sur le speedbutton1 et crire dans sa procdure :

While not ([Link]) do
[Link] ;
showmessage('la table resultats est vide');
En fin : on enregistre tous le travail par : (le menu Delphi) : fichier
tout enregistrer

2- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment Cloture (du sous menu
outils)
Ensuite : on crit dans la procdure : fiche_cloture.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_cloture et on doit cliquer sur Oui pour cette demande de confirmation.

Remarques :
1- Pour que la fiche cloture se place au milieu de lcran si on lappel lors du lancement de lxcution du logiciel :
- On tape : Shift + F12 et on clique sur la fiche_cloture et on clique sur Ok.
- On clique sur cette fiche (viter de cliquer sur lun de ses composants).
- On choisit dans sa proprit : position
poScreenCenter
2- on enregistre notre travail par le menu Delphi : fichier
tout enregistrer.
 Lancer lxcution par F9 et tester cette fiche (saisir des donner et vrifier les rsultats de tous les traitements
possibles)

FICHE A PROPOS

1- on peut insrer cette fiche par le menu Delphi :

Fichier
nouveau
fiche
boite propos
Ok
Ensuite : dans linspecteur dobjet de la fiche on crit dans la proprit namele nom:fiche_apropos.
Ensuite : (le menu Delphi): fichier
enregistrer, et dans le dossier c:\scolarite\source nommer lunit: apropos
Ensuite : on crit le texte quon veut dans les label et modifier la couleur et la taille des labels par leurs proprit
FONT . (Cette fiche est la carte visite du logiciel).

2- cette fiche est maintenant prte tre lie avec le menu principal du logiciel comme suite :
On tape les touches : Shift + F12 et on clique sur la fiche_menu et on clique sur Ok.
Ensuite : on double clique sur le composant mainmenu1 et double clique sur son lment a propos (du sous
menu ? )

- 109 -
Apprendre Delphi7 par lexemple Chapitre 3 : Logiciel gestion scolarit
Ensuite : on crit dans la procdure : fiche_apropos.showmodal ;
Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation
de la liaison entre la fiche_menu et la fiche_apropos et on doit cliquer sur oui pour cette demande de confirmation.

Limage de Logo :
1- dans la proprit picture du composant image1 on clique sur le bouton Charger et chercher limage voulue.
(Delphi propose quelques images dans :
C:\Program Files\Fichiers communs\Borland Shared\Images\Splash\256Color .
2- en fin clique sur Ouvrir ensuite sur Ok
3- pour que limage occupe toute la surface de son cadre on modifie sa proprit : Autosize
true.
4- pour que limage sagrandie si elle a une taille plus petite que la surface de son cadre on modifie sa proprit :
Stretch
true.
Lancer lxcution par F9 et tester cette fiche (vrifier les rsultats de tous le traitements possibles)

- 110 -
- 111 -
Apprendre Delphi7 par lexemple Chapitre 4 : trucs & Astuces

CRER UNE INSTALLATION

Lorsque vous commencerez faire des logiciels assez grand, vous aurez srement envie de crer un programme
d'installation (pour tous type de logiciels, qu'il soit ralis en Delphi, en C++ Builder, en Java)
On va montrer comment crer un programme d'installation pour le Logiciel Gestion Commerciale :
1- Tlcharger Inno Setup
Il existe de nombreux outils permettant de crer une installation : InstallShield , Inno Setup
2- Crer une nouvelle installation
Cochez loption : "Create a new script file using the Script Wizard" :

Cliquez sur OK. Ne cochez pas la case, cliquez sur Next,

Vous devez rentrer le nom de votre programme, Choisir le dossier d'installation du programme.
le nom de votre programme avec le numro de version, Laisser cocher la case "Allow user to change the
le nom du crateur ainsi que le site web du programme. application directory". Cela permettra
l'utilisateur de changer le chemin d'installation.

les fichiers empaqueter.

le chemin de l'excutable (le .exe du logiciel).
Donc : c:\commerce\source\[Link] On vous demande le
en-dessous, laisser coche la case : nom du dossier dans le
elle permet de laisser la possibilit l'utilisateur de dmarrer menu dmarrer.
le programme automatiquement la fin de l'installation.
La case "The application doesn't have a main executable file"
ne sera gnralement pas coche. Elle ne sert que pour
les programmes ne possdant pas de .exe principal.
les "Other application files". Vous devez indiquer tous
- 112 -
Apprendre Delphi7 par lexemple Chapitre 4 : trucs & Astuces

les fichiers dont a besoin votre programme pour fonctionner.

( les DLL dont a besoin le programme, les images, les sons etc...)
Allow user to change Start Menu folder name : l'utilisateur peut changer le nom du dossier du menu dmarrer.
Allow user to disable Start Menu folder creation : l'utilisateur peut dsactiver la cration des raccourcis dans le
menu dmarrer.
Create an Internet Shortcut in the Start Menu folder : un lien vers votre site web sera ajout au Menu Dmarrer
Create an Uninstall icon in the Start Menu folder : ajoute une icne de dsinstallation dans le menu dmarrer.
Allow user to create a desktop icon : laisse la possibilit l'utilisateur de crer un raccourci sur le bureau. Allow
user to create a Quick Launch icon : l'utilisateur peut crer un raccourci dans la barre Quick Launch. C'est une barre
de raccourcis situe juste droite du menu Dmarrer.

Les fichiers texte afficher avant et aprs l'installation

(ainsi que la license du programme). Les langues disponibles dans le programme
Vous pouvez indiquer n'importe quel fichier .txt d'installation.
(ou .rtf si vous voulez faire un peu de mise en forme Si vous cochez plusieurs langues, on
comme mettre de la couleur, du gras...). demandera la langue dsire au dbut de Par
exemple, vous pourriez indiquer les bugs connus l'installation.
de votre programme, les amliorations apportes
par la nouvelle version etc.
La partie "License File" sera utile notamment si
vous distribuez votre programme sous
license libre (GNU / GPL) comme a se fait le plus
souvent pour les programmes Open Source.

Le premier champ permet d'indiquer dans quel dossier

devra tre cr le programme d'installation.
Ensuite, on vous demande le nom du programme d'installation. Compiler l'installation, cliquez sur Oui
Le troisime champ permet de choisir un fichier Au bout de quelques secondes,
d'icne (.ico) personnalis pour l'installation. le programme d'installation a t gnr !
le 4me champ permet de protger l'installation
par mot de passe. Seuls ceux qui connaissent
le mot de passe pourront installer votre programme.
La fentre suivante est la dernire :
vous n'avez plus qu' cliquer sur Finish !

- 113 -
 Apprendre Delphi7 par lexemple Chapitre 4 : trucs & Astuces

CONCEPTION DES FICHIERS HELP POUR LES LOGICIELS

On procde en 3 tapes :

I. DANS LEDITEUR DE TEXTE MICROSOFT WORD :

1- On insre le nombre de pages ncessaire notre fichier daide ( savoir le nombre de fiches du logiciel quon
veut xpliquer).
Linsertion dune nouvelle page se fait comme suite :
Choisir dans le menu Word : insertion
saut
saut de page
Ok.
2- On crit en suite dans chaque page l'explication du fonctionnement d'une fiche du logiciel.
3- En haut de chaque page il faut crire un mot cl qui va tre index ensuite par le fichier daide, lindexation se
fait par linsertion dU symbole # pour indexer une page dxplication ( appele Map ) attribue une fiche ou un
message de dialogue.
Donc on suit les tapes suivantes :
 On pose le curseur devant le mot cl dune page choisie :
Exemple : pour la page dexplication de la fiche Client on ecrit dans la premier ligne de la page le titre : Client
ensuite on met le surseul du claveir avant ce mot.
 Dans le menu on choisit : insertion
note de bas de page.
 Une boite de dialogue saffiche ou on crit dans sa zone de texte personnalis le symbole # et on ferme
cette boite par Insrer.
 Le curseur se pointe automatiquement en bas de page prcd par le symbole choisi (#), on crit le mot
identificateur de cette page daide (gnralement a sera le mot cl de la page, donc pour notre exemple on
ecrit Client).
 On rpte ce procd pour toute les pages du fichier daide.
4- On fini lopration en enregistrant ce fichier Word avec format RTF (rich text format) (format text riche).

II. DANS LE COMPILATEUR HCW :

1- Dans cette tape on doit lancer le compilateur [Link] propos par lenvironnement Delphi pour formater et
compiler notre fichier Help (chemin de ce fichier : c:\program files\borland\delphi7\help\tools).
2- On choisit dans son menu : file
new et on choisit le type du fichier Help (pour nous on choisit : Help Project)
Et on donne un nom ce projet (lextension sera par dfaut HLP).
3- Une fentre ddition du Help saffiche et on manipule les Boutons droite comme suite :
 Clique sur le bouton FILE ou on se pointe vers le fichier RTF contenant le texte daide cre en Word et cela
en cliquant sur le bouton ADD (possibilit daddition de plusieurs fichiers daide RFT).
 Clique sur le bouton MAP ou on va indexer les pages dxplication des fiches et messages de dialogue, et
cela en cliquant pour chaque Map sur le bouton ADD et on insre dans la zone Topic ID le mot cl du Map
(lun des mot cls dindexation crit dans les bas de pages en Word quon les a prcd par les symboles #.
Pour notre page dexemple on ecrira : Client) ; et dans la zone Mapped numeric value on insre un numro
de cette page daide (un nombre entier >=1).
 En fin on compile notre fichier en cliquant sur le bouton : SAVE AND COMPILE et notre fichier Help final
sera gnr (il faut que le compilateur indique 0 notes (pas derreurs de compilation)).

III. DANS NOTRE LOGICIEL DELPHI :

1- On fait la liaison entre notre logiciel et notre fichier Help en insrant la commande suivante dans lvnement
oncreate du menu principal :
[Link] :=c:\mes documents\[Link] ;
{En supposant que le fichier Help t enregistr sous le nom [Link] dans le dossier mes documents}.
2- Pour lier un bouton daide une page daide (Map) on crit dans son vnement Onclick :
[Link](help_context,5) ;
//5 est le numro de la page daide (Map) lie ce bouton daide
Cette instruction peut tre utilise aussi dans le menu : ?
Aide.
3- pour lier une fiche sa page help correspendante :
 On clique sur cette fiche en vitant tous ses composants.
 On crit dans sa proprit : helpcontext le numro de sa page daide (exemple 10), cette page (10)
saffichera lors de lxcution du logiciel si on tape dans cette fiche sur la touche F1.
 Aussi on modifi la proprit KeyPreview
true.
4- Pour lier un message dialogue une page daide (Map) on crit ce message comme suite :
Messagedlg(je vous propose un Help, MTinformation, [MBKO], 25) ;
{25 est le numro de page daide (Map) lie ce message de dialogue}

- 114 -
Apprendre Delphi7 par lexemple Chapitre 4 : trucs & Astuces

SKIN DATA
C'est un utilitaire qui aide a modifier l'interface d'un logiciel (amliorer la partie visuelle du logiciel)
- on doit avant telecharher ce composant d'un site web quelconques (plusieurs sites de developpement
proposent ce composant avec une grande varits d'interfaces possible).
- Aprs on doit installer ce composant pour que Delphi pourra l'utiliser (aprs l'installation de ce composant, il
apparat a la fin de la palette des composants comme un objet a inserer dans une fiche du votre
application).
- Il vaut mieu inserer le composant skindata dans la premire fiche lance du logiciel qui sera generalement la
fiche de mot de passe, cela assure la modification de l'interface de tous les autres fiches suivantes.
- Aprs l'insertion de ce composant on choisi le modele d'interface voulu dans sa proprit
- Clic Ici
(on trouve tous les modeles proposs par skindata dans le dossier skins du chamin dinstallation de skindata)
- On suite on choisi dans la proprit :
On lance l'execution et tous le logiciel changera d'interface.

La forme de la fiche
aprs avoir utiliser le
composant SKINDATA

- 115 -
Apprendre Delphi7 par lexemple Chapitre 4 : trucs & Astuces

QUELQUES MODLES

Une fiche avec le

modele STEEL

Une fiche avec le

modele DEEP

Une fiche avec le

modele RealOne

Une fiche avec le

modele MSN

- 116 -
- 117 -
Apprendre Delphi7 par lexemple Annexe

LES COMPOSANTS DELPHI LES PLUS UTILISS

COMPOSANT PROPRIETE EVENEMENTS

STANDARD

Items : (ou bien double clique sur le MainMenu) pour afficher Onclick : pour chaque lment
lditeur du menu principal. du menu principal on
MAINMENU Images : pour lier un composant image (avec sa gamme des introduit dans cet vnement
Cration dun menu icnes) au MainMenu. le code source adquat.
principal Pour chaque lment du menu :
Caption : pour donner un nom llment.
Imageindex : pour lier une image cet lment.
Shortcut : affecter un raccourci clavier cet lment.
Items : (ou double clique sur le PopupMenu) pour afficher Onclick : pour chaque lment
lditeur du menu turbo. du menu turbo on introduit
Images : pour lier un composant image (avec sa gamme des dans cet vnement le code
POPUPMENU
icnes) aux PopupMenu. source adquat.
Cration dun menu
Pour chaque lment du menu :
turbo
Caption : pour donner un nom llment.
Imageindex : pour lier une image cet lment.
Shortcut : affecter un raccourci clavier cet lment.
LABEL Caption : pour donner un nom dinterface au composant. Onclick
claircir linterface Font : pour manipuler le format du texte. Onmousemove.
EDIT Font : pour manipuler le format du texte. Onchange
Zone de saisie Text : reprsente le texte saisie (proprit manipuler) Onkeydown.
Caption : pour donner un nom dinterface au bouton Onclick
BUTTON Font : pour manipuler le format du texte. Onkeydown
Bouton daction Hint : pour introduire le texte daide. Onmousemove
encapsulant un code Showhint : pour afficher le texte daide.
source Popupmenu : assure la liaison avec un PopupMenu.
CHECKBOX Caption : pour donner un texte dinterface au bouton Onclick
Case cocher (choix Checked : contrle ltat (cocher ou dcocher) Onmousemove.
libre)
RADIOBUTTON Caption : pour introduire le texte dinterface. Onclick
Case option (choix Checked : pour voir si le composant est coch ou non Onmousemove.
exclusif)
Items : pour introduire les lments de la liste ligne par ligne. Onchange
COMBOBOX
Text : contient la valeur choisie parmi celles de la liste Onclick
Liste droulante de choix
Onkeydown.

SUPPLEMENT

Kind : choisir le comportement du bouton. Onclick

BITBTN
(bkclose pour fermer une fiche) Onkeydown
Bouton autoprogramm
Onmousemove
Gliph : affecter une image (icne) ce bouton.
SPEEDBUTTON Hint : introduire un texte daide au bouton. Onclick
Bouton daction favoris Showhint : afficher le texte daide Onmousemove

Stretch : la taille de limage sera gale la taille du cadre

IMAGE Autosize : agrandir limage a la taille de son cadre.
Image dariere plan ou Align : limage occupera tous lespace de la fenetre (alclient)
de logo Picture : choisir une image dans le disque dur.

- 118 -
Apprendre Delphi7 par lexemple Annexe

WIN32

Clique par le bouton droite de la sourie sur le composant et Onchange

PAGECONTROL
choisir dans le menu turbo nouvelle page .on clique sur le Onmousemove
Propose des pages
cadre intrieur de chaque page tabsheet et on introduit
onglets
dans sa proprit caption le nom de la page.
Double clique sur le composant et dans la boite de dialogue Onchange
IMAGELIST
qui saffiche on clique sur le bouton ajouter pour insrer
Liste dicnes
une nouvelle image la gamme dj choisie. la fin il faut
introduire dans un menu
supprimer le double flou de chaque image par le bouton
ou une barre doutils.
supprimer .
CommonAVI : cette proprit propose une liste des effets Onstart
ANIMATE
danimation. Onstop
Propose des effets
Active : cette proprit provoque le lancement lanimation
danimation
(active :=true)
Ce composant contrle la date sous forme dun calendrier, la Onchange
DATETIMEPICKER
date choisie sera dans sa proprit date . Onclick
Pointeur vers une date
Onkeydown.
Ce composant se place automatiquement dans la partie haute
(entte) de la fiche, mais on peut manipuler sa position par la
proprit Align . Pour ajouter un nouveau bouton on clique
TOOLBAR
par le bouton droite de la sourie sur ce composant et on choisit Onclick
Cration dune barre
sur le menu turbo llment nouveau bouton , la fin on OnMouseMove.
doutils
fait la liaison entre une gamme dimages prpare dans le
composant imagelist et la barre doutils par sa proprit
images

SYSTEME

Ce composant assure la rptition dune action dans un OnTimer

intervalle de temps fix par la proprit interval . Par le
TIMER
double clic sur ce composant on pourra crer une procdure
Boucle chronologique
Ontimer qui contiendra les instructions rpter
conscutivement.
Filename : cette proprit assure la liaison entre ce composant
et un fichier vido, audio. Quon va utiliser.
MEDIAPLAYER
Devisetype : reprsente le type du fichier multimdia Onclick
Animation multimdia
manipuler. Linstruction qui dclenche leffet multimdia est:
[Link] ;

ACCEESBD

Dataset : reprsente la source de donnes (table, requte SQL OnDataChange

DATASOURCE
) lie avec ce composant. OnUpDateData
Composant intermdiaire
daccs BD

BDE

Databasename : reprsente lalias de la table Beforeopen, Afteropen

TABLE
Tablename : la table manipuler. Beforeedit, Afteredit
Composant daccs une
Name : le nom de programmation de la table. Beforeinsert, Afterinsert
table dune BD
Active :=true pour activer la connexion la BD.
Databasename : lalias de la (les) table(s) quon va manipuler
dans la requte. Beforeopen, Afteropen
QUERY SQL : cette proprit lance une petite fentre ddition du Beforeedit, Afteredit
Requte SQL script SQL de cette requte. Beforeinsert, Afterinsert
Params : pour donner le type de chaque paramtre. ..
Active :=true pour activer la requte.
- 119 -
Apprendre Delphi7 par lexemple Annexe

CONTROLBD

DBGRID Datasouce : cette proprit sera lie avec le composant OnColExit

Affichage de la source de DATASOURCE reprsentant la source de donnes afficher. OntTitleClick
donnes (champs et
enregistrements)
DBNAVIGATEUR Datasouce : cette proprit sera lie avec le composant Beforeaction
Reprsente les DATASOURCE reprsentant la source de donnes onclick
principaux oprations de contrler.
manipulation des BD.
DBEDIT Datasource : reprsente la source de donnes. Onchange
Affiche un champ dune Datafield : reprsente le champ de donnes afficher. Onkeydown.
source de donnes.
DBCOMBOBOX Datasource : reprsente la source de donnes. Onchange
Affiche un champ dune Datafield : reprsente le champ de donnes afficher. Onclick
source de donnes et Items : contient la liste des valeurs proposer introduire Onkeydown.
propose une liste de dans la BD.
valeurs introduire.
DBLOOKUPCOMBOBOX Datasource : reprsente la source de donnes. Onclick
Afficher un champ dune Datafield : reprsente le champ de donnes afficher. Onkeydown.
source de donnes et Listesource : la source des donnes de la liste.
proposer une liste de Listefield : le(s) champ(s) dans la liste
valeurs introduire la Keyfield : le champ quon affichera sa valeur.
BD dune autre source
On double clique sur ce composant et dans la boite de
dialogue qui saffiche on clique sur le bouton ajouter de
longlet srie (infrieur) pour choisir le type de la
DBCHART
reprsentation graphique, et dans longlet srie (suprieur) On OnClick
Reprsentation graphique
choisit dans le sous onglet source de donnes dans la liste OnZoom
dune source de donnes.
llment dataset et on fait la liaison avec notre data
source et on choisit le champ dtiquettes libells et le
champ de quantifications sectorielle

QREPORT

Bands : pour introduire les bandes dans ltat Onpreview

QUICKREP
Dataset : reprsente la source de donnes imprimer Beforeprint
Etat dimpression
Zoom : contrle la taille de ltat la conception
QRLABEL Caption : insertion du texte imprimer (texte fixe). Onprint
Interface de ltat Font : pour manipuler le format du texte imprimer.
QRDBTEXT Datasource : reprsente la source de donnes. Onprint
Imprimer les donnes Datafield : reprsente le champ de donnes afficher.
dun champ dune BD
Ce composant aide encadrer les lments de ltat
QRSHAPE
dimpression pour mieux les prsenter. Sa proprit shape
Formes dencadrement
nous donne le choix du style dencadrement.

DIALOGUES

Ce composant utilise les DLL Windows pour afficher la boite Onclose

OPENDIALOG
de dialogue standard douverture dun fichier. La proprit Onshow
Boite dialogue ouvrir
filename donne le nom et lemplacement du fichier ouvr.
utilise les DLL Windows pour afficher la boite de dialogue Onclose
FONTDIALOG
standard de manipulation de la police dcriture. La proprit Onshow
Boite dialogue police
font donne les paramtres de la police choisie.
utilise les DLL Windows pour afficher la boite de dialogue Onclose
COLORDIALOG
standard de manipulation de la couleur. La proprit color Onshow
Boite dialogue couleur
donne les paramtres de la couleur choisie.

- 120 -