Langage de programmation
Le monde informatique nous offre plusieurs langages
de programmation afin de répondre et exécuter les tâches
appropriées, car la finalité d'une analyse informatique est de
produire un code qui répond aux spécifications fonctionnelles et
aux besoins des utilisateurs.
Pour la mise en place de notre application, nous avons
porté notre choix sur le langage de programmation visuel basic dans sa
version 6.0.
Visuel basicest un outil
développé par Microsoft pour développer facilement des
applications fonctionnant sous Microsoft Windows. Visuel basic est, comme son
nom l'indique, un outil visuel permettant de créer sans notion de
programmation l'interface graphique (GUI graphical user interface) en disposant
à l'aide de la souris des évènements graphiques (boutons,
images, champs de texte, menus déroulants,).
L'intérêt de ce langage
est de pouvoir associer aux évènements de l'interface des
portions de code associées à des évènements (clic
de la souris, appui sur une touche,). Pour cela, visuel basic utilise un petit
langage de programmation dérivé du BASIC (signifiant :
Beginners All-purpose Symbolic Instruction Code, soit code d'instruction
symboliques multi-usager pour les débutants). Le langage de script
utilisé par visuel basic est nommé à juste titre VB
SCRIPT, Il s'agit ainsi d'un sous-ensemble de visuel basic.
· Système de gestion des bases de
données (DGBD)
Une base de données (data base
en anglais) est une entité dans laquelle il est possible de stocker des
données de façon structurée et avec moins de redondance
possible. Ces données doivent pouvoir être utilisées par
des programmes et par des différents utilisateurs. Ainsi, pour pouvoir
mettre en commun les informations de la direction provinciale d'impôt du
haut KATANGA, nous connecterons notre programme à une base de données
MICROSOFT ACCESS
· Architecture du système
Pour qu'un ordinateur soit capable de
faire fonctionner un programme informatique, appelé par fois application
ou logiciel, la machine doit être en mesure d'effectuer un certain nombre
d'opérations préparatoires afin d'assurer les échanges
entre le processeur, la mémoire, et les ressources physiques
(périphériques)
Le système d'exploitation noté SE ou OS
en anglais, est chargé d'assurer la liaison entre les ressources
matérielles, l'utilisateur et les applications (traitement de texte, jeu
vidéo,...). Ainsi lorsqu'un programme désire accéder
à une ressource matérielle, il ne lui est pas nécessaire
d'envoyer des informations spécifiques au périphérique, il
lui suffit d'envoyer les informations au système d'exploitation, qui se
charge de les transmettre au périphérique concerné via son
pilote. Au regard de notre logiciel nous avons opté notre choix sur le
système d'exploitation WINDOXS dans sa huitième version 8.1
· Architecture logiciel
Le software est la partie intellectuelle de la
machine, appelée en d'autre terme logiciel. Elle est l'ensemble de
programmes, des fonctions destinées à un ordinateur. Pour le
software nous proposons :
a) Le système d'exploitation Windows 8 professionnel 64
bits
b) Capacité mémoire RAM 4 Go
c) Capacité disque dur 500 Go
d) Processeur 2.16 GHz
· Architecture matériel
Le hardware est la partie matérielle ou
physique d'un ordinateur. Pour le hardware nous proposons
a) L'ordinateur pentium 4
b) L'unité centrale
c) Le clavier
d) Le moniteur
e) Le clavier et
f) Tous les autres périphériques qui lui sont
connectés
IV
1.3 CAPTURE DES FORMULAIRES DE L'APPLICATION
FORMULAIRE DE LANCEMENT DE L'APPLICATION
FORMULAIRE MOT DE PASSE DE L'APPLICATION
FORMULAIRE MENU PRINCIPAL DE L'APPLICATION
FORMULAIRE CONTRIBUABLE
FORMULAIRE IMPOT
FORMULAIRE BORDEREAU
QUELQUES CODE DE
L'APPLICATION
Bouton enregistrement
If Text1.Text = "" And Text2.Text = "" And Text3.Text
= "" And Text4.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text
= "" And Text8.Text = "" And Text9.Text = "" And Text10.Text = ""
Then
MsgBox "veuillez d'abord remplir tous les champs", ,
"LES CHAMPS SONT VIDES"
ElseIf Text1.Text = "" Or Text2.Text = "" Or
Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or
Text7.Text = "" And Text8.Text = "" And Text9.Text = "" And Text10.Text = ""
Then
MsgBox "veuillez remplir les champs qui sont vides", ,
"D'AUTRES CHAMPS SONT VIDES"
Else
If MsgBox("VOULEZ-VOUS ENREGISTRER?", vbOKCancel,
"ENREGISTREMENT") = vbOK Then
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
!NUM_BANK = Text1.Text
!NOM_BANK = Text2.Text
!NUMCONTRI = Text3.Text
!NOM_CONTRI = Text4.Text
!NUM_IMPO_CONTRI = Text5.Text
!NATURE_PAIE = Text6.Text
!MONTANT = Text7.Text
!REFFERNCE_PAIE = Text8.Text
!NUM_ATTEST = Text9.Text
!DATE_PAIE = Text10.Text
.Update
MsgBox "LES INFORMATIONS ONT ETE SAUVEGARDEES DANS LA
BASE DES DONNEES"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End With
End If
End If
Boutonrecherche
Privat Sub Label26_Click ()
invite = InputBox(" SAISISSEZ LE NUMERO ETUDIANT", ,
"rechercher")
Adodc1.Refresh
With Adodc1.Recordset
While Not .EOF
If invite = "" Then
ElseIf invite = (!NUM_BANK) Then
MsgBox " VOICI LES INFORMATIONS DE VOTRE RECHERCHE ", ,
"RESULTA DE LA SORTIE"
Text1.Text = (!NUM_BANK)
Text1.Text = (!NUM_BANK)
Text2.Text = (!NOM_BANK)
Text3.Text = (!NUMCONTRI)
Text4.Text = (!NOM_CONTRI)
Text5.Text = (!NUM_IMPO_CONTRI)
Text6.Text = (!NATURE_PAIE)
Text7.Text = (!MONTANT)
Text8.Text = (!REFFERNCE_PAIE)
Text9.Text = (!NUM_ATTEST)
Text10.Text = (!DATE_PAIE)
End If
.MoveNext
Wend
End WithEnd Sub
Bouton modifier
Private Sub Picture5_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And
Text4.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text = "" And
Text8.Text = "" And Text9.Text = "" And Text10.Text = "" Then
MsgBox ("VEUILLEZ SAISIR LES INFORMATONS DANS LES CHAMPS")
ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = ""
Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or
Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Then
MsgBox "CERTAINS CHAMPS SONT VIDE VEUILLEZ LE REMPLIR",
vbInformation + vbOKOnly, "INFORMATION"
ElseIf MsgBox("VOULEZ-VOUS METTRE LES INFORMATIONS A JOUR?",
vbQuestion + vbOKCancel, "ENREGISTREMENT") = vbOK Then
Adodc1.Refresh
With Adodc1.Recordset
While Not .EOF
If Text1.Text = !NUM_BANK Then
!NUM_BANK = Text1.Text
!NOM_BANK = Text2.Text
!NUMCONTRI = Text3.Text
!NOM_CONTRI = Text4.Text
!NUM_IMPO_CONTRI = Text5.Text
!NATURE_PAIE = Text6.Text
!MONTANT = Text7.Text
!REFFERNCE_PAIE = Text8.Text
!NUM_ATTEST = Text9.Text
!DATE_PAIE = Text10.Text
Else
End If
.MoveNext
Wend
End With
End If
MsgBox "les informations ont été mises à
jour"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub
| 
