CHAP IV :
REALISATION
Toute oeuvre faite par un homme sans fruit n'est que perte de
temps. Comme nous vous avions déjà présenté dans
tous les chapitres précédents qui n'étaient juste qu'un
tremplin ; nous connaissons déjà le nouveau système
d'information, nous avons encore pris connaissance des matériels
à utiliser pour l'utilisation de notre application. Dans ce
présent chapitre, nous allons passer à la visualisation des
différentes interfaces qui font parties de l'application et qui seront
à chaque fois devant l'utilisateur final.
PRESENTATION DU MENU GENERAL
251673600Ce menu présente la première interface
de notre application juste après lancement.
Après avoir fait un click sur le premier menu
« CREATION », on aura une interface qui se présente
de la manière ici-bas :
251674624
Ici on procède à l'enregistrement du nouveau
client, et après saisie, on fait un click sur le bouton
« Enregistrer » pour enregistrement dans
la base de données. Et ce bouton présente pour code
source :
Private Sub Enregistrer_Click()
If Len(Text1 + Text2 + Text3 + Text4 + Text5 + Text6)
< 1 Then
Dim Message
Message = MsgBox("Aucune donnée saisie,
enregistrement ignoré", 48, "Message")
Else
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset!codcli = Text1.Text
Adodc1.Recordset!Ncli = Text2.Text
Adodc1.Recordset!Prencli = Text3.Text
Adodc1.Recordset!sexe = Text4.Text
Adodc1.Recordset!Etatciv = Text5.Text
Adodc1.Recordset!adress = Text6.Text
Adodc1.Recordset!categorie = Text7.Text
Adodc1.Recordset!accompagne = Text8.Text
Adodc1.Recordset.Update
End If
Text1 = " "
Text2 = ""
Text3 = " "
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text1.SetFocus
End Sub
Si nous ne voulons pas continuer l'enregistrement, nous avons
prévu un bouton qui pourra nous servir de libérer les zones de
texte ; il se nomme « Annuller ». Il
a pour code source :
Private Sub Annuler_Click()
Text1 = " "
Text2 = ""
Text3 = " "
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text1.SetFocus
End Sub
« Quitter » nous permet
juste de quitter la création d'un nouveau client.
Au deuxième menu
« CONSULTATION », nous aurons à
consulter tous les clients enregistrés. Et il se présente comme
suit :
251675648
La commande
« RECHERCHER » permet de rechercher les
informations sur le client dont le code est saisi dans le champ
« code client ».
Private Sub Command3_Click()
sql = "select*from Tclient where codcli='" &
Trim(Text1) & "'"
Set Tclient = cnn.OpenRecordset(sql, dbOpenDynaset, 0,
dbOptimistic)
If Tclient.EOF = True Then
MsgBox("Le code client n'est pas reconnu par le
système", vbCritical )
Text1 = ""
Exit Sub
End If
Text2 = Tclient!Ncli
Text3 = Tclient!prencli
Text4 = Tclient!sexe
Text5 = Tclient!Etatciv
Text6 = Tclient!adress
Text7 = Tclient!categorie
Text8 = Tclient!accompagne
Text9 = Tfact!datentr
Text10 = Tfact!datesort
Text11 = Tfact!Nbrejrs
Text12 = Tfact!Prixjrs
Text13 = Tfact!Montant
End If
End Sub
La commande « SUPPRIMER »
supprime un enregistrement, il a pour code source :
Private Sub Supprimer_clic()
Adodc1.Recordset.Find codcli =
"text1.text"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset!codcli = Text1.Text
Adodc1.Recordset!Ncli = Text2.Text
Adodc1.Recordset!Prencli = Text3.Text
Adodc1.Recordset!sexe = Text4.Text
Adodc1.Recordset!Etatciv = Text5.Text
Adodc1.Recordset!adress = Text6.Text
Adodc1.Recordset!categorie = Text7.Text
Adodc1.Recordset!accompagne = Text8.Text
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
End If
End Sub
Enfin « CANCEL » pour
quitter la consultation et retourner au menu général de notre
application.
Et pour aider nos utilisateurs à se retrouver devant
cette application, nous avons prévu une petite documentation qui
s'appelle « help » dans le menu ( ?).
Voici quelques interfaces :
251678720
251677696
251679744
251676672
Code source :
- Private Sub Savoirplus_clic()
Label2.Visible = True
End Sub
- Private Sub Ucommades_clic()
Label3.Visible = True
Label2.Visible = False
End Sub
- Private Sub Misàjour_clic()
Label4.Visible = True
Label3.Visible = False
End Sub
Après appuis sur n'importe quelle commande à
côté, vous trouverez les informations sur l'usage du logiciel de
gestion des clients.
A présent nous voici au terme de notre application et
nous pensons que même en dehors des utilisateurs de notre application,
même nos lecteurs ont eu aussi l'image de la manière dont
fonctionne notre logiciel de gestion des clients.
| 
