CHAPITRE IV : REALISATION DE L'APPLICATION
IV.1 DEFINITION
Une application est un ensemble des données
consignées sur une sur une base et les mécanismes permettant de
manipuler ces données, d'où c'est un ensemble d'interfaces ou
formulaires permettant aux utilisateurs du système d'information(SI) de
pouvoir interagir avec les données.
IV.2 CHOIX DU LANGAGE DE PROGRAMMATION
Un langage de programmation ou langage informatique est un
langage destinée à décrire l'ensemble d'actions
consécutives qu'un ordinateur doit exécuter. Il est ainsi une
manière pratique pour nous les humains de donner les instructions
à un ordinateur.
Pour notre travail nous proposons d'utiliser le langage de
programmation BASIC sous son environnement Microsoft Visual Studios dans sa
version 6.0 parce que c'est le langage maitrisé jusque-là.
IV.3 CHOIX DU SGBD
Le système de gestion des bases de données
(S.G.B.D) utilisé dans notre travail est Microsoft ACCESS 2010. La
pensée qui nous a poussée à choisir ce S.G.B.D est qu'il
est facile à utiliser et il est à portée de main ainsi que
son occupation de l'espace mémoire ne pas trop exagéré.
IV.4 PRESENTATION DES INTERFACES
60
INTERFACE D'ACCEUILLE
MENU PRINCIPAL
61
PRODUITS
CODES
AJOUTER UN PRODUIT
Private Sub Ajouter_Click() Adodc1.Refresh
With Adodc1.Recordset
.AddNew
.Fields("numprod") = Text1.Text .Fields("nomprod") = Text2.Text
.Fields("natprod") = Text3.Text .Fields("numlot") = Text4.Text
.Fields("numemb") = Text5.Text .Update
End With
|
MsgBox "Enregistrement reussit", vbInformation,
"Enregistrement"
|
|
Text1.Text =
|
""
|
|
Text2.Text =
|
""
|
|
Text3.Text =
|
""
|
|
Text4.Text =
|
""
|
|
Text5.Text =
|
""
|
|
End Sub
|
|
62
MODIFIER UN PRODUIT
Private Sub modifier_Click()
With Adodc1.Recordset
!numprod = Text1.Text
!nomprod = Text2.Text
!natprod = Text3.Text
!numlot = Text4.Text
!numemb = Text5.Text
End With
MsgBox "La modification a ete effectuee avec succes!",
vbInformation,
"Modification"
End Sub
CODE DE SUPPRESSION D'UN PRODUIT
Private Sub Supprimer_Click ()
If MsgBox("Voullez-vous vraiment supprimer l'enregistrement?",
vbYesNo +
vbQuestion, "Suppresion!") = vbYes Then
With Adodc1.Recordset
.Delete
If .EOF Then
.MovePrevious
End If
End With
End If
End Sub
63
| 
