Rapport de stage effectué à la société Libercom au Bénin

CONCLUSION

A l'issue de ces quelques mois passés au sein de LIBERCOM, nous avons eu l'occasion de mettre en application nos connaissances académiques jusque-là majoritairement théoriques et de nous confronter aux réalités du monde professionnel. Cela nous a aussi permis d'enrichir nos connaissances en nous familiarisant à l'outil de développement intégrant le langage VISUAL BASIC APPLICATION et au Système de Gestion de Base de donnée qu'est MySQL .

Assurément l'automatisation de la gestion pour le suivi et la formation des stagiaires contribuera à rendre plus aisées les tâches de la Section Ressources Humaines concernant les stagiaires, à réduire le temps d'exécution des tâches, à consulter rapidement les informations sur les stagiaires, les types de stages, les formateurs etc.

BIBLIOGRAPHIE

· Ouvrages

ü Abdoulaï Kolawolé YAYA, Savoir & Savoir Faire Informatique comme Moi, Edition SoftDom, 338 pages.

ü Cyril THIBAUD, MySQL 5, Installation, Mise en oeuvre, Administration et Programmation, Edition INI, 485 pages

ü Christian SOUTOU, Apprendre SQL avec MySQL, 40 Exercices corrigés, Edition EYROLLES, 396 pages.

ü John Clark Craig, Jeff Webb, Visual Basic 6.0, Edition Dunod, 750 pages.

ü John Connell, Accès aux bases de données avec Visual Basic 6, Editions Eyrolles Juillet 2000.

ü Sophie Boutin et Sylvie Tormento, Algorithmes cours et exercices résolus, BTS Informatique de gestion IUT Informatique.

ü Jean Patrick MATHERON, COMPRENDRE MERISE outils conceptuels et organisationnels, Edition Eyrolle, 265 pages

· Mémoires

ü Koubouratou O . IDJATON : « Gestion des enseignants du cycle 1 et du cycle de formation BTS de l'ENEAM » rapport de stage, 2010-2011, bibliothèque ENEAM.

WEBOGRAPHIE

ü http://www.memoireonline.com/Informatique

ü http://www.wikipedia.org/Wiki/Paradox (consulter le 28/09/2012)

ü http://fr.wikipedia.org/wiki/MERISE_%28_Informatique_%29 (consulter le 02/10/2012)

ü http://www.vbfrance.com/codes/MESURER-TEMPS-LANCEMENT PROGRAMME_54647.aspx(consulter le 11/10/2012)

ANNEXES

· Quelques interfaces

v Ecran de connexion

v Présentation du menu de l'application

· Présentation des sous-menus

v Etablissement

v Enregistrement des attestations délivrées

v A propos

Code source Visual Basic

'===================================================

'procédure exécuter au clic sur le bouton connexion'

'=============================================================

Private Sub cmdcancel_Click()

Menu.Enabled = True

End 'ferme l'application

End Sub

Private Sub cmdOK_Click()

'On Error Resume Next

cpt = cpt - 1

If (txtlogin.Text = "") And (txtpwd.Text = "") Then

MsgBox "veuillez saisir un Login et votre mot de passe,Il vous reste " & cpt & vbCrLf & " essai ", vbInformation

txtlogin.SetFocus

GoTo controle

ElseIf txtlogin.Text = "" Then

MsgBox " veuilez saisir le login S.V.P,Il vous reste " & cpt & vbCrLf & " essai ", vbInformation

txtlogin.SetFocus

GoTo controle

ElseIf txtpwd.Text = "" Then

MsgBox "veuillez saisir votre mot de passe,Il vous reste " & cpt & vbCrLf & " essai ", vbInformation

txtpwd.SetFocus

GoTo controle

End If

Me.adcutilisateur.Refresh

Me.adcutilisateur.Recordset.MoveFirst

Me.adcutilisateur.Recordset.Find "Login='" & Me.txtlogin.Text & "'"

If Me.adcutilisateur.Recordset.EOF Then

Me.adcutilisateur.Recordset.MoveFirst

MsgBox "veuillez entrer un Login valide,Il vous reste " & cpt & vbCrLf & "essai ", vbInformation

txtlogin.Text = ""

txtpwd.Text = ""

ElseIf Me.txtpwd.Text <> Me.adcutilisateur.Recordset("Pwd") Then

' MsgBox "votre mot de passe n'est pas valide" & vbCrLf & "essai N° " & cpt, vbInformation

MsgBox "votre mot de passe n'est pas valide,Il vous reste " & cpt & vbCrLf & " essai ", vbInformation

txtpwd.Text = ""

Else

' frmSplash.Show

Module1.sprofil = Me.adcutilisateur.Recordset("TypeUtilisateur")

Module1.snom = Me.adcutilisateur.Recordset("Nom")

Module1.sprenom = Me.adcutilisateur.Recordset("Prenom")

If Module1.sprofil = "Utilisateur" Then

' menu.Visible = False

' frmmd.mnuparametres.Visible = False

'menu.admin.Visible = False

' menu.mod.Visible = False

Menu.Show

Else

' menu.mod.Visible = True

' menu.para.Visible = True

' menu.admin.Visible = True

Menu.Show

End If

Menu.Enabled = True

Menu.StbInfo.Panels.Item(3).Text = " Utilisateur connecté: " & Module1.snom & " " & Module1.sprenom & " (" & Module1.sprofil & ")"

Unload Me

' If Password.txtlogin.Text = "RESPONSABLE" Then

' Menu.mnucremopas.Enabled = True

' Menu.mnumopas.Enabled = True

' Unload Me

End If

' End With

controle:

If cpt = 0 Then

MsgBox "Connexion impossible,vous etes un intrus ", vbCritical, "DANGER"

End

End If

End Sub

Private Sub Form_Load()

' On Error GoTo erreur

Me.Top = Screen.Height / 2 - Me.Height

Me.Left = Screen.Width / 2 - Me.Width / 2

cpt = 3

End Sub

'===================================================

'procédure exécuter au clic sur le bouton Filière'

'=============================================================

Private Sub cmddernier_Click()

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

Me.Adocfil.Recordset.MoveLast

End Sub

Private Sub cmd_Enregistrer_Click()

Dim i As Integer

If Me.txtcodfil.Text = "" Or Me.txtlibfil.Text = "" Then

MsgBox "Remplir tous les champs", vbCritical, "FILIERE"

Me.txtcodfil.SetFocus

Exit Sub

End If

'Contrôle de doublon

If Me.Adocfil.Recordset.RecordCount <> 0 Then

Me.Adocfil.Recordset.MoveFirst

For i = 1 To Me.Adocfil.Recordset.RecordCount

If Me.txtcodfil.Text = Me.Adocfil.Recordset(0) Then

MsgBox "Cette filière existe déjà!!!", vbCritical, "FILIERE"

Me.txtlibfil = ""

Me.txtcodfil = ""

Me.txtcodfil.SetFocus

Me.cmd_Supprimer.Enabled = True

Me.cmd_Modifier.Enabled = True

Exit Sub

End If

Me.Adocfil.Recordset.MoveNext

Next i

'Fin contrôle de doublon

End If

Adocfil.Refresh

Adocfil.Recordset.AddNew

Me.dg_FILIERE.Columns(0) = Me.txtcodfil.Text

Me.dg_FILIERE.Columns(1) = Me.txtlibfil.Text

Adocfil.Recordset.Save

MsgBox "Enregistrement effectué avec succès", vbInformation, "ENREGISTREMENT"

Me.cmd_Supprimer.Enabled = True

Me.cmd_Modifier.Enabled = True

Me.txtcodfil.Text = ""

Me.txtlibfil.Text = ""

Me.txtcodfil.SetFocus

End Sub

Private Sub cmd_Quitter_Click()

Unload Me

End Sub

Private Sub cmd_Modifier_Click()

If Me.txtcodfil.Text = "" Or Me.txtlibfil.Text = "" Then

MsgBox "Remplir tous les champs", vbCritical, "erreur"

Else

Me.txtcodfil.SetFocus

Me.Adocfil.Refresh

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

If (MsgBox("Êtes vous sûr de vouloir modifié cet Adocfil", vbQuestion + vbYesNo, "ERREUR") = vbYes) Then

Me.Adocfil.Recordset.Update

Exit Sub

End If

End If

End Sub

Private Sub cmd_Nouveau_Click()

Me.Adocfil.Refresh

Me.Adocfil.Recorset.AddNew

Me.txtcodfil.Enabled = True

Me.txtlibfil.Enabled = True

Me.cmd_Enregistrer.Enabled = True

Me.cmd_Supprimer.Enabled = True

Me.cmd_Modifier.Enabled = True

Me.cmdann.Enabled = True

Me.txtcodfil.Text = ""

Me.txtlibfil.Text = ""

Me.txtcodfil.SetFocus

End Sub

Private Sub cmdprecedent_Click()

Me.Adocfil.Recordset.MovePrevious

If Me.Adocfil.Recordset.BOF Then

Me.Adocfil.Recordset.MoveFirst

MsgBox "Début du fichier filière", vbInformation, "FILIERE"

End If

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

End Sub

Private Sub cmdpremier_Click()

Me.Adocfil.Recordset.MoveFirst

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

End Sub

Private Sub cmdsuivant_Click()

Me.Adocfil.Recordset.MoveNext

If Me.Adocfil.Recordset.EOF Then

Me.Adocfil.Recordset.MoveLast

MsgBox "Fin du fichier filière", vbInformation, "FILIERE"

End If

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

End Sub

Private Sub cmd_Supprimer_Click()

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

MsgBox "Êtes vous sûr de vouloir supprimé cette filière", vbApplicationModal

Me.Adocfil.Recordset.Delete

Me.txtcodfil.Text = ""

Me.txtlibfil.Text = ""

End Sub

Private Sub dg_FILIERE_Click()

If Me.dg_FILIERE.RecordSelectors Then

Me.txtcodfil.Enabled = True

Me.txtlibfil.Enabled = True

Me.txtcodfil.Text = Me.dg_FILIERE.Columns(0)

Me.txtlibfil.Text = Me.dg_FILIERE.Columns(1)

End If

End Sub

Private Sub Form_Load()

Me.txtcodfil.Enabled = False

Me.txtlibfil.Enabled = False

Me.cmd_Enregistrer.Enabled = False

Me.cmd_Supprimer.Enabled = False

Me.cmd_Modifier.Enabled = False

End Sub

Cotonou, le .........................

Le Directeur de Bénin Télécoms Mobile

LIBERCOM

N^o.../DBT-Mobile/.../DRA/173/SGRHF/2012 A

Mademoiselle /Monsieur..................

S/C..........

Tél : ..............

Cotonou

Objet : Votre demande de stage

Mademoiselle/ Monsieur,

En réponse à votre lettre visée en objet, j'ai l'honneur de porter à votre connaissance que la Direction de Bénin Télécoms Mobile- LIBERCOM accepte de vous accorder un stage pratique non rémunéré pour une durée de......(mois) à compter du ...... au ...... (Mois, Année) et vous invite à vous rapprocher de la Division des Ressources et de l'Administration pour les formalités d'usage.

Veuillez agréer, Mademoiselle /Monsieur, l'expression de mes sentiments les plus distingués.

Pour le Directeur de Bénin Télécoms Mobile, et pd le chef Division des Ressources et de l'Administration.

Libercom : Siège Social zongo carrefour les cheminots-01BP 5959 Cotonou (BENIN)

N^o INSAE :2917200245534 Téléphone :(229) 90 91 21 53/21 31 46 68/21 31 69 02-05 /Fax : [phone] Site web: www.libercom.bj E-mail : [e-mail]

Annexe : Lettre d'autorisation

N^o......................

ATTESTATION DE STAGE

Je soussigné, Mr le Directeur de Bénin Télécoms Mobile, Libercom, atteste que Monsieur ou Mademoiselle nom et prénoms a effectué à la (structure) de LIBERCOM, un stage pratique du ....... au......

Tout au long de son stage, Monsieur ou Mademoiselle nom et prénoms a fait preuve de disponibilité et d'un grand intérêt pour les tâches qui lui ont été confiées.

En foi de quoi, cette attestation lui est délivrée pour servir et valoir ce que de droit.

Fait à Cotonou, le

Signature