La gestion d'indemnisation des agents déclarés invalides. Cas de l'INSS.

CHAPITRE II : PROGRAMMATION

Définition :

La programmation c'est le fait d'écrire les instructions par la traduction des algorithmes en langage approprié ou compréhensible par l'ordinateur en vue d'obtenir un r résultat meilleur.

Tandis qu'un programme est une liste d'instructions indiquant à un ordinateur ce qu'il doit faire. Il se présente sous la forme de courtes séquences d'instructions appelées fonctions comportant souvent des données de base, chaque séquence devant être exécutée dans l'ordre par un processeur.^16(*)

II.1.CHOIX DE METHODE DE PROGRAMMATION

Pour concrétiser la solution informatique conçue, nous avons recouru au langage de programmation qu'intègre MICROSOFT ACCESS, plus précisément Microsoft Visual basic for application.

II.2.CHOIX DU LANGAGE

Dans le choix du langage informatique, nous avons six générations de programmation. Hélas nous allons porter notre choix au langage de programmation que nous offre Microsoft Access c'est-à-dire VISUAL BASIC FOR APPLICATION (VBA) :^17(*)

II.3. CREATION DES INTERFACES

Cette étapes est la concrétisation physique de l'étape logique plus précisément du modèle logique de traitement « MLT ». Les interfaces correspondant aux écrans définis.

II.3. Création des codes

Le code en Visual Basic est défini dans une procédure appelée procédure de traitement. Ecrit par le programmeur ou le développeur, il est défini pour chaque événement et permet l'encapsulation (restreindre l'utilisateur l'accès au code source) de l'application

Option Explicit

A. LOGO

Private Sub Form Timer ()

Me.Pro.Value = Pro.Value + 1

Me.C.Caption = Pro.Value & "" & "%"

If Pro.Value = 100 Then

DoCmd.Close

DoCmd.OpenForm "CONNEXION"

End If

End Sub

B. IDENTIFICATION

Private Sub CMD_VALIDER_Click ()

If nomut = "EFEMIYA" And mot = "LONGOLONGO" Then

DoCmd.Close

DoCmd.OpenForm "MENU PRINCIPAL"

Else

MsgBox "nom ou mot de passe Invalide", vbCritical, "saisir un autre"

nomut = ""

mot = ""

nomut.SetFocus

End If

End Sub

Private Sub cmd_enregistrer_Click ()

Set LONGOLONGO = DBEngine.Workspaces (0).Databases (0)

Set EFEMIYA= LONGOLONGOE.OpenRecordset ("VICTIME", DB_OPEN_TABLE)

EFEMIYA.Index = "num immatr"

EFEMIYA. Seek "=", Znum immatr

If EFEMIYA.NoMatch Then

EFEMIYA.AddNew

EFEMIYA! Num immatr = znum immatr

EFEMIYA! Num declar = znum declar

EFEMIYA! Cod prov = zCod prov

EFEMIYA! Cod distr = zCod distr

EFEMIYA! Num soc = znum soc

EFEMIYA! Nom = zNom

EFEMIYA! Pst nom = zPst nom

EFEMIYA! Adresss = zAdress

EFEMIYA! Tel = zTel

EFEMIYA.Update

MsgBox " L'ENREGISTREMENT EFFECTUE AVEC SUCCES DANS LA BASE DE DONNEES ", vbExclamation, "FELLICITATION"

Znum immatr= ""

Znum declar= ""

ZCod prov= ""

Zcod distr= ""

Znum soc="" 

Z Nom= ""

Z Pst nom = ""

ZAdresse = ""

Znum immatr.SetFocus

Else

MsgBox " CE NUMERO D'IMMATRICULATION EXISTE DEJA DANS LA BASE DE DONNEES", vbInformation, "VUEILLEZ SAISIR UN NOUVEAU NUMERO D'IMMATRICULATION"

Znum immatr= ""

Znum declar= ""

ZCod prov= ""

Zcod distr= ""

Znum soc="" 

Z Nom= ""

Z Pst nom = ""

ZAdresse = ""

Znum immatr.SetFocus

End If

End Sub

* ¹⁶ http://fr.wikipedia.org/wiki/programme_informatique

* ¹⁷ Willy Mpuate, cours inédit, cours Microsoft Access, Iss-kin2009-2010