CHAPITRE QUATRIEME :
PROGRAMMATION
IV.
1. Introduction
Dans ce chapitre nous aurons à choisir le logiciel a
utilisé, ses avantages tout en montrant la capture d'écran de
notre application et les instructions utilisées pour l'enregistrement
des données dans la base de données.
IV.2 Choix du logiciel
Un logiciel est un ensemble des règles et des
programmes relatifs au fonctionnement d'un ensemble de traitements de
l'information.(8)
Notre choix est porté sur le langage Visual studio 12
qui est un produit facile à trouver et simple à utiliser. Pour
notre base de données, nous avons porté notre choix sur le
produit de la suite Office de Microsoft, à savoir Microsoft Office
Access 2007 qui est un système de gestion de base de données
(SGBD-R).
IV.3 Avantage du logiciel (Langage) visual studio 12
Le langage Visual studio est à la fois un compilateur
et un interpréteur; il permet par exemple de signaler s'il y'a erreur
sur une ligne avant de passer à la ligne suivante. Ceci permet au
concepteur (programmeur) d'avoir une suite soutenue du bon résultat de
son programme une fois à sa fin. C'est aussi un langage
procédural, une suite interrompue d'activités ayant toujours un
début et une fin.(9)
En tant que langage orienté
objet, il est dit langage événementiel c'est-à-dire que
les contrôles placés sur le formulaire reçoivent du code
permettant ainsi d'exécuter une tâche à l'apparition d'un
fait (click, sortie, ...)
IV. 4. PRESENTATION DES INTERFACES DE
L'APPLICATION
1. PAGE D'ACCUEIL
2. PAGE D'AUTHENTIFICATION DU CAISSIER
3. PAGE D'AUTHENTIFICATION DU FORMATEUR
4. REÇU DE L'APPRENANT
5. FICHE DE L'APPRENANT
6. QUELQUES CODES
a. Code de la page d'accueil :
PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs)
HandlesMyBase.Load
EndSub
PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles
Button3.Click
IfMsgBox("Voulez-vous quitter ?", vbYesNo, "demande") =
vbYesThen
Application.Exit()
EndIf
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles
Button1.Click
Dim mot
mot = CreateObject("sapi.spvoice")
mot.speak("Bienvenue dans l'utilisateur Caissier")
Me.Hide()
Caissier.Show()
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles
Button2.Click
Dim mot2
mot2 = CreateObject("sapi.spvoice")
mot2.speak("Bienvenue dans l'utilisateur formateur")
Me.Hide()
formateur.Show()
EndSub
EndClass
b. Code d'enregistrement :
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles
Button1.Click
Try
DimenrAsDataRow
enr = MABASETFDataSet.APPRENANT.NewRow
enr("NumFichApp") = NumFichAppTextBox.Text
enr("NomApp") = NomAppTextBox.Text
enr("LieuDatenais") = LieuDatenaissTextBox.Text
enr("SexApp") = SexAppComboBox.Text
enr("EtaCiv") = EtaCivComboBox.Text
enr("AdressApp") = AdressAppTextBox.Text
enr("TelApp") = TelAppTextBox.Text
enr("EmailApp") = EmailAppTextBox.Text
enr("Profess") = ProfessTextBox.Text
enr("NumMod") = NumModTextBox.Text
MABASETFDataSet.APPRENANT.Rows.Add(enr)
APPRENANTTableAdapter.Update(MABASETFDataSet.APPRENANT)
APPRENANTTableAdapter.Fill(MABASETFDataSet.APPRENANT)
MsgBox("Apprenant enregistré!")
NumFichAppTextBox.Clear()
NomAppTextBox.Clear()
LieuDatenaissTextBox.Clear()
SexAppComboBox.Text = ""
EtaCivComboBox.Text = ""
AdressAppTextBox.Clear()
TelAppTextBox.Clear()
EmailAppTextBox.Clear()
ProfessTextBox.Clear()
NumModTextBox.Text = ""
NumFichAppTextBox.Focus()
Catch ex AsException
MsgBox("Erreur d'enregistrement!" + ex.Message)
EndTry
| 
