WOW !! MUCH LOVE ! SO WORLD PEACE !
Fond bitcoin pour l'amélioration du site: 1memzGeKS7CB3ECNkzSn2qHwxU6NZoJ8o
  Dogecoin (tips/pourboires): DCLoo9Dd4qECqpMLurdgGnaoqbftj16Nvp


Home | Publier un mémoire | Une page au hasard

 > 

L'informatisation de la gestion des abonnés de la SNEL ( Société nationale d'électricité en RDC )

( Télécharger le fichier original )
par Aimée DEMBO KINDJANGU
Institut facultaire des sciences de l'information et de la communication RDC - Graduat 2012
  

précédent sommaire suivant

Bitcoin is a swarm of cyber hornets serving the goddess of wisdom, feeding on the fire of truth, exponentially growing ever smarter, faster, and stronger behind a wall of encrypted energy

CHAPITRE IV. IMPLEMENTATION DE L'APPLICATION

Introduction

Cette partie du travail consiste à mettre sur pied un projet qui permet d'informatiser la gestion des abonnés de la SNEL.

Comme gestionnaire de base des données, nous avons utilisé MS Access2007 pour l'implémentation de notre Base de données. Et de l'autre part, l'interfaçage a été faite à l'aide du langage de programmation Visual basic 6.0 avec ces outils faciles à manipuler et Active Skin pour les apparences des Interfaces.

L'implémentation d'une base de données est une étape qui revient à définir les procédures élémentaires qui concourent à son stockage sur support. A ce niveau, nous allons ressortir la logique d'implémentation selon le SGBD qui est ici MS Access 2007 en se servant de Visual Basic 6.0

3.1. Méthode et étapes de la programmation14(*)

Ø Creation de la base de données en Access

Ø Création des interfaces :

L'interface est ce qui apparâit aux yeux de l'utilisateur.

Ø Détermination des propriétés :

Elle se fait à l'aide d'une fenêtre des propriétés où sont définies les propriétés pour chaque objet.

Ø Ecriture des codes :

C'est la programation proprementdite. On détermine les événements relatifs à toute action menée et on écrit le code qui sera exécuté lorsque l'événement se produit.

3.2. Présentation du logiciel

C'est le modèle physique de traitement (MPT) sous entendu.

Dans la pratique, il n'existe pas de méthode pour concevoir le modèle physique de traitement. Cependant, il est souhaitable de présenter le MPT sous forme d'arborescence comprenant les différents programmes et sous programmes du projet informatique.

Gestion des abonnés de la SNEL

Présentation du logiciel

Ecran d'accueil

Menu de sécurité

Menu principal

?

Etats de sortie

Listing

Fichier

Mise à jour des abonnés

Mise à jour des abonnements

Mise à jour des agents

Edition facture

Quitter

A. Interfaces

Voici les quelques interfaces créées en VISUAL BASIC

1. Formulaire d'accueil

Au lancement de l'application, la page ci-haut apparait qui présente le demarrage de l'application et le nom même de cette derniere.

2.Formulaire d'authentification

Ce formulaire est la page de sécurité qui permet l'accès à l'ensemble des elements de l'application. Dès que cette page apparait, il est demandé de saisir le mot de passe qui correspond à la session que vous voulez ouvrir. Si c'est administrateur, vous avez droit à toutes les fonctionalités de l'application. Et si c'est une autre session qui est ouverte, là les résponsabilités sont limitées.

3. Formulaire Menu Général

C'est le menu général de l'application qui présente les différentes fenêtres d'exécution

4. Formulaire Abonnés

5. Formulaire Abonnement

6. Formulaire Agents

7. Formulaire Facture

8. Liste du personnel de la SNEL

9. Liste des abonnés de la SNEL

B. Quelques codes sources

Private Sub Command1_Click()

txtcon.Text = ""

txtnom.Text = ""

cbonum.Text = ""

cbocot.Text = ""

txtcon.SetFocus

End Sub

Private Sub Command16_Click()

If txtdat.Text <> "" And txtouv.Text <> "" And cboabo.Text <> "" And cbocote.Text <> "" Then

adoemp.Refresh

With adoemp.Recordset

.AddNew

.Fields(0) = UCase(txtdat.Text)

.Fields(1) = Val(txtouv.Text)

.Fields(2) = Val(cboabo.Text)

.Fields(3) = UCase(cbocote.Text)

.Update

Command13_Click

Exit Sub

End With

Else

re% = MsgBox("L'un des champs est vide", vbCritical, "Champs Vide")

End If

End Sub

Private Sub Form_Load()

Me.Height = 930

Me.Width = 4800

End Sub

Private Sub etu_Click()

frmabonne.Show

End Sub

Private Sub cotat_Click()

frm.Show

End Sub

Private Sub fer_Click()

Unload auteur

End Sub

Private Sub MDIForm_Load()

frmtemps.Show

End Sub

Private Sub mise_Click()

frmabonne.Show

End Sub

Private Sub Timer1_Timer()

Unload Me

sec.Show

End Sub

* 14 Visual basic et les bases de données, 3è édition, Ed. OEM, Paris, 2001

précédent sommaire suivant






Bitcoin is a swarm of cyber hornets serving the goddess of wisdom, feeding on the fire of truth, exponentially growing ever smarter, faster, and stronger behind a wall of encrypted energy








"En amour, en art, en politique, il faut nous arranger pour que notre légèreté pèse lourd dans la balance."   Sacha Guitry