Conception et réalisation d'un système informatisé pour la gestion de demandeurs d'emploi. Cas de ONEM/BDD.

1°. Création de l'interface

L'interface est ce qui apparait dès que l'utilisateur accède à votre application. C'est à travers que l'utilisateur interagira avec votre programme. L'interface est généralement appelée Feuille en Visual Basic.

2°. Détermination des propriétés

En Visual Basic vous devez constamment travailler à l'aide des objets. Les contrôles font partie des objets que vous devrez manipuler. Par définition, les objets ont des propriétés et des actions. Les propriétés d'un objet expriment ses caractéristiques. Voici quelques propriétés :

ü Caption : détermine le libellé de l'objet

ü Font : exprime la police et la taille du texte qui va apparaitre sur l'objet

ü Name : détermine le nom de l'objet qui va être utilisé dans la fenêtre de code

ü StartUpPosition : détermine la position que va prendre la feuille lors de l'exécution

ü ToolTipText : détermine l'info-bulle de l'objet.

3°. Ecritures de codes

Ce sont des actions de l'utilisateur qui seront déterminant dans la séquence d'exécution de votre code. Pour y accéder, double-cliquer sur l'objet concerné^17(*). Ci-dessous, les quelques codes utilisés dans notre application :

A. Connexion de la base de données

Sub seconnecter()

Set cn = New ADODB.Connection

cn.Provider = "microsoft.jet.oledb.4.0"

cn.ConnectionString = App.Path & "\ONEM.mdb"

cn.Open

End Sub

B. Bouton Valider

Private Sub Image1_Click()

On Error Resume Next

If TxtNum = "" Or TxtNomCan = "" Or TxtPostN = "" Or TxtPrenCan = "" Or CmbSex = "" Then

MsgBox "Veuillez remplir les champs nécessaires", vbOKOnly + vbInformation, "Information"

Exit Sub

End If

Set rs = New ADODB.Recordset

rs.Open "select * from Candidat", cn, 1, 2

If TxtNum = rs.Fields(0) Then

MsgBox "Ce code candidat existe déja", vbOKOnly + vbInformation, "Information"

Else

rs.AddNew

rs.Fields(0) = TxtNum

rs.Fields(1) = TxtNomCan

rs.Fields(2) = TxtPostN

rs.Fields(3) = TxtPrenCan

rs.Fields(4) = CmbSex

rs.Fields(5) = TxtDatNaiss

rs.Fields(6) = TxtLieu

rs.Fields(7) = TxtAdr

rs.Fields(8) = TxtNat

rs.Fields(9) = CmbEtat

rs.Fields(10) = TxtMob

rs.Fields(11) = TxtProv

rs.Fields(12) = TxtNbr

rs.Fields(13) = TxtTelCan

rs.Fields(14) = TxtEmailCan

rs.Fields(15) = CmbOffice

rs.Fields(16) = CmbInternet

rs.Fields(17) = CmbInstal

rs.Fields(18) = CmbMaint

rs.Fields(19) = CmbReso

rs.Fields(20) = TxtAutres

rs.Fields(21) = CmbProg

rs.Fields(22) = CmbConcep

rs.Fields(23) = CmbPermis

rs.Fields(24) = TxtDerAct

rs.Fields(25) = TxtDatInsc

rs.Fields(26) = TxtPaysV

rs.Fields(27) = TxtCom

rs.Update

Effacer

End If

End Sub

C. Bouton supprimer

Private Sub cmdsupprimer_Click()

Sup = MsgBox("Etes-vous sûr de vouloir supprimer ce diplôme?", vbYesNo + vbQuestion, "Confirmation")

If Sup = vbYes Then

If txtCod.Text = "" Then

MsgBox "Aucun diplôme n'est séléctionné", vbInformation

Exit Sub

Else

Set rs = New ADODB.Recordset

rs.Open "delete from Diplôme where CodDip like '" & txtCod & "'", cn, 1, 2

MsgBox "Diplôme supprimé!"

NTB

txtCod.Text = ""

Me.Hide

frmDiplomes.Show

End If

End If

End Sub

* ¹⁷MVIDUBULU KALUYIT et TSHIMANGA TSHIUNZA S, op.cit