Conception et réalisation d'une application de gestion des déclarations et enregistrements des mariages dans une entité municipale.

CHAPITRE IV. IMPLEMENTATION

IV. 1. DEFINITION

L'Implémentation se situe toujours sur une plate-forme particulière, et est faite par un programmeur (ou une équipe) en particulier ; donc c'est la programmation.

La programmation c'est la codification des instructions indiquant les opérations que doit effectuer un ordinateur ou une machine électronique pour traiter des données.

Un Programme est une suite d'instructions interprétées et exécutées

par un ordinateur. Un programme peut désigner la version source tapée au clavier ou la version exécutable en langage machine.

VI. 2. CHOIX DU LANGAGE DE PROGRAMMATION

Durant notre parcours nous avons eu à voir plusieurs langages de programmation et parmi tous ces langages, nous avons jeté notre dévolu sur le langage Visual Basic.Net ( VB.Net) de l'environnement Visual Studio de Microsoft. Ce langage va nous permettre de concevoir notre application de par sa qualité de simplicité.

VI. 3. CHOIX DU SGBD

Le Système de Gestion des Bases de données (SGBD) est un ensemble de logiciels permettant aux utilisateurs de définir, créer, maintenir, contrôler et accéder à la Base de Données. Il permet aussi à l'utilisateur d'interagir avec

une base de données est un système de gestion de base de données.

Pour arriver à la mise en oeuvre de notre base de données, nous avons opté pour Microsoft Office Access comme SGBD.

VI. 4. CHOIX DU MATERIEL

Pour le choix du matériel, nous avons évalué une nécessité de posséder un Ordinateur remplissant les critères suivants :

· Processeur AMD Athlon TM II Dual Core

· Une RAM de 1 Go

· Disque dur 150 Go

Logiciel

· Un Système d'exploitation Windows 7, XP, 8,...

· Environnement Microsoft Visual Studio 2010

· Microsoft Office Access.

56

KITAMBALA BALIBWA Théophile

VI. 5. LES INTERFACES ET QUELQUES CODES FORMULAIRE D'ACCUEIL

PublicClassForm1

PrivateSub Panel4_click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Panel4.Click

Form2.Show()

EndSub

EndClass

FORMULAIRE D'AUTHENTIFICATION

PublicClassForm2

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e

AsSystem.EventArgs) Handles Button1.Click

If TextBox1.Text = "kitambala"And TextBox2.Text = "kitambala"Then

Me.Hide()

Form3.Show()

Else

MsgBox ("MOT DE PASSE INCORRECT")

EndIf

EndSub

EndClass

57

KITAMBALA BALIBWA Théophile

FORMULAIRE DE BIENVENUE ET DE CHOIX

FORMULAIRE DE PROJET DE MARIAGE

PublicClassForm3

'BOUTON_SUIVANT

PrivateSub Button6_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button6.Click

Me.Hide()

Form5.Show()

EndSub

'BOUTON_IMPRIMER

PrivateSub Button4_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button4.Click

Form6.Show()

EndSub

PrivateSub Form3_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

HandlesMyBase.Load

58

KITAMBALA BALIBWA Théophile

'TODO: This line of code loads data into the 'MARVELDataSet2.HOMME' table. You can

move, or remove it, as needed.

Me.HOMMETableAdapter.Fill(Me.MARVELDataSet2.HOMME)

'TODO: This line of code loads data into the 'MARVELDataSet1.FEMME' table. You can

move, or remove it, as needed.

Me.FEMMETableAdapter.Fill(Me.MARVELDataSet1.FEMME)

'TODO: This line of code loads data into the 'MARVELDataSet.PROJET' table. You can

move, or remove it, as needed.

Me.PROJETTableAdapter.Fill(Me.MARVELDataSet.PROJET)

EndSub

'BOUTON_ENREGISTRER

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button1.Click

If TextBox1.Text = ""Or RichTextBox1.Text = ""Or ComboBox1.Text = ""Or

DateTimePicker1.Text = ""Or TextBox35.Text = ""Or TextBox36.Text = ""Or TextBox37.Text

= ""Or TextBox38.Text = ""Or TextBox43.Text = ""Or TextBox42.Text = ""Or

TextBox41.Text = ""Or TextBox40.Text = ""Or TextBox39.Text = ""Then

MsgBox("Veuillez remplir les cases vides")

Else

DimtheoAsDataRow

theo = MARVELDataSet.PROJET.NewRow()

theo("NUM_PROJET") = TextBox1.Text

theo("DATE_PROJET") = DateTimePicker1.Text

theo("DOT_VERSEE") = RichTextBox1.Text

theo("REGIME_MATR") = ComboBox1.Text

theo("NOM_TEM1") = TextBox35.Text

theo("AGE_TEM1") = TextBox36.Text

theo("PROFESS_TEM1") = TextBox37.Text

theo("ADR_TEM1") = TextBox38.Text

theo("COMPARANT1") = TextBox43.Text

theo("COMPARANT2") = TextBox44.Text

theo("NOM_TEM2") = TextBox42.Text

theo("AGE_TEM2") = TextBox41.Text

theo("PROFESS_TEM2") = TextBox40.Text

theo("ADR_TEM2") = TextBox39.Text

MARVELDataSet.PROJET.Rows.Add(theo)

PROJETTableAdapter.Update(MARVELDataSet.PROJET)

PROJETTableAdapter.Fill(MARVELDataSet.PROJET)

TextBox1.Focus()

TextBox1.Text = "" RichTextBox1.Text = "" ComboBox1.Text = "" TextBox35.Text = "" TextBox36.Text = "" TextBox37.Text = "" TextBox38.Text = "" TextBox39.Text = "" TextBox40.Text = ""

TextBox41.Text = ""

TextBox41.Text = "" TextBox42.Text = "" TextBox43.Text = "" TextBox44.Text = ""

'ID FEMME

theo = MARVELDataSet1.FEMME.NewRow() theo("NUMCARTE_FEM") = TextBox46.Text theo("NOM_FEM") = TextBox18.Text theo("POSTNOM_FEM") = TextBox19.Text theo("PRENOM_FEM") = TextBox20.Text theo("DATENAISS_FEM") = DateTimePicker3.Text

theo("LIEUNAISS_FEM") = TextBox21.Text theo("PROFESS_FEM") = TextBox22.Text

59

KITAMBALA BALIBWA Théophile

theo("VILLAGE_FEM") = TextBox23.Text theo("CHEFFERIE_FEM") = TextBox24.Text theo("TERRITOIRE_FEM") = TextBox25.Text theo("DISTRICT_FEM") = TextBox26.Text theo("PROVINCE_FEM") = TextBox27.Text theo("TELEPHONE_FEM") = TextBox28.Text theo("NATIONALITE_FEM") = TextBox29.Text theo("ETATCIV_FEM") = TextBox3ø.Text theo("ADRESSE_FEM") = TextBox31.Text theo("NOMPERE_FEM") = TextBox32.Text theo("NOMMERE_FEM") = TextBox33.Text MARVELDataSet1.FEMME.Rows.Add(theo) FEMMETableAdapter.Update(MARVELDataSet1.FEMME) FEMMETableAdapter.Fill(MARVELDataSet1.FEMME) TextBox46.Focus()

TextBox46.Text	=	""
TextBox18.Text	=	""
TextBox19.Text	=	""
TextBox2ø.Text	=	""
TextBox21.Text	=	""
TextBox22.Text	=	""
TextBox23.Text	=	""
TextBox24.Text	=	""
TextBox25.Text	=	""
TextBox26.Text = ""
TextBox27.Text	=	""
TextBox28.Text	=	""
TextBox29.Text	=	""
TextBox3ø.Text	=	""
TextBox31.Text	=	""
TextBox32.Text	=	""
TextBox33.Text	=	""

'ID HOMME

theo = MARVELDataSet2.HOMME.NewRow() theo("NUM_CARTE_HOM") = TextBox45.Text theo("NOM_HOM") = TextBox2.Text theo("POSTNOM_HOM") = TextBox3.Text theo("PRENOM_HOM") = TextBox4.Text theo("DATE_NAISS_HOM") = DateTimePicker2.Text theo("LIEUNAISS_HOM") = TextBox5.Text theo("PROFESS_HOM") = TextBox6.Text theo("VILLAGE_HOM") = TextBox7.Text theo("CHEFFERIE_HOM") = TextBox8.Text theo("TERRITOIRE_HOM") = TextBox9.Text theo("DISTRICT_HOM") = TextBox1ø.Text theo("PROVINCE_HOM") = TextBox11.Text theo("TELEPHONE_HOM") = TextBox12.Text theo("NATIONALITE_HOM") = TextBox13.Text theo("ETATCIV_HOM") = TextBox14.Text theo("ADRESSE_HOM") = TextBox15.Text theo("NOMPERE_HOM") = TextBox16.Text theo("NOMMERE_HOM") = TextBox17.Text MARVELDataSet2.HOMME.Rows.Add(theo) HOMMETableAdapter.Update(MARVELDataSet2.HOMME) HOMMETableAdapter.Fill(MARVELDataSet2.HOMME) TextBox45.Focus()

TextBox45.Text	=	""
TextBox2.Text	=	""
TextBox3.Text	=	""
TextBox4.Text	=	""
TextBox5.Text	=	""
TextBox6.Text	=	""

60

	KITAMBALA BALIBWA Théophile
TextBox7.Text	=	""
TextBox8.Text	=	""
TextBox9.Text	=	""
TextBox10.Text = ""
TextBox11.Text	=	""
TextBox12.Text	=	""
TextBox13.Text	=	""
TextBox14.Text	=	""
TextBox15.Text	=	""
TextBox16.Text	=	""
TextBox17.Text	=	""

EndIf

MsgBox("Données enregistrées avec succès!")

EndSub

'BOUTON_QUITTER

PrivateSub Button5_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button5.Click

IfMsgBox("Voulez-vous Quitter?", vbYesNo) = vbYesThen

End

EndIf

EndSub

'BOUTON_RECHERCHER

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button2.Click

Dim AG AsInteger

For AG = 0 ToMARVELDataSet.PROJET.Rows.Count - 1

If TextBox34.Text = MARVELDataSet.PROJET.Rows(AG)("NUM_PROJET") Then

TextBox1.Text = MARVELDataSet.PROJET.Rows(AG)("NUM_PROJET") DateTimePicker1.Text = MARVELDataSet.PROJET.Rows(AG)("DATE_PROJET") RichTextBox1.Text = MARVELDataSet.PROJET.Rows(AG)("DOT_VERSEE") ComboBox1.Text = MARVELDataSet.PROJET.Rows(AG)("REGIME_MATR") TextBox35.Text = MARVELDataSet.PROJET.Rows(AG)("NOM_TEM1") TextBox36.Text = MARVELDataSet.PROJET.Rows(AG)("AGE_TEM1") TextBox37.Text = MARVELDataSet.PROJET.Rows(AG)("PROFESS_TEM1") TextBox38.Text = MARVELDataSet.PROJET.Rows(AG)("ADR_TEM1") TextBox43.Text = MARVELDataSet.PROJET.Rows(AG)("COMPARANT1") TextBox39.Text = MARVELDataSet.PROJET.Rows(AG)("NOM_TEM2") TextBox40.Text = MARVELDataSet.PROJET.Rows(AG)("AGE_TEM2") TextBox41.Text = MARVELDataSet.PROJET.Rows(AG)("PROFESS_TEM2") TextBox42.Text = MARVELDataSet.PROJET.Rows(AG)("ADR_TEM2") TextBox44.Text = MARVELDataSet.PROJET.Rows(AG)("COMPARANT2")

PROJETTableAdapter.Update(MARVELDataSet.PROJET) PROJETTableAdapter.Fill(MARVELDataSet.PROJET)

'HOMME

TextBox45.Text = MARVELDataSet2.HOMME.Rows(AG)("NUM_CARTE_HOM")

TextBox2.Text = MARVELDataSet2.HOMME.Rows(AG)("NOM_HOM") DateTimePicker2.Text = MARVELDataSet2.HOMME.Rows(AG)("DATE_NAISS_HOM") TextBox3.Text = MARVELDataSet2.HOMME.Rows(AG)("POSTNOM_HOM") TextBox4.Text = MARVELDataSet2.HOMME.Rows(AG)("PRENOM_HOM") TextBox5.Text = MARVELDataSet2.HOMME.Rows(AG)("LIEUNAISS_HOM") TextBox6.Text = MARVELDataSet2.HOMME.Rows(AG)("PROFESS_HOM") TextBox7.Text = MARVELDataSet2.HOMME.Rows(AG)("VILLAGE_HOM") TextBox9.Text = MARVELDataSet2.HOMME.Rows(AG)("TERRITOIRE_HOM") TextBox8.Text = MARVELDataSet2.HOMME.Rows(AG)("CHEFFERIE_HOM") TextBox10.Text = MARVELDataSet2.HOMME.Rows(AG)("DISTRICT_HOM") TextBox11.Text = MARVELDataSet2.HOMME.Rows(AG)("PROVINCE_HOM") TextBox12.Text = MARVELDataSet2.HOMME.Rows(AG)("TELEPHONE_HOM") TextBox13.Text = MARVELDataSet2.HOMME.Rows(AG)("NATIONALITE_HOM") TextBox15.Text = MARVELDataSet2.HOMME.Rows(AG)("ADRESSE_HOM") TextBox14.Text = MARVELDataSet2.HOMME.Rows(AG)("ETATCIV_HOM") TextBox16.Text = MARVELDataSet2.HOMME.Rows(AG)("NOMPERE_HOM") TextBox17.Text = MARVELDataSet2.HOMME.Rows(AG)("NOMMERE_HOM")

61

KITAMBALA BALIBWA Théophile

HOMMETableAdapter.Update(MARVELDataSet2.HOMME) HOMMETableAdapter.Fill(MARVELDataSet2.HOMME)

'FEMME

TextBox46.Text = MARVELDataSet1.FEMME.Rows(AG)("NUMCARTE_FEM")

TextBox18.Text = MARVELDataSet1.FEMME.Rows(AG)("NOM_FEM")

DateTimePicker3.Text = MARVELDataSet1.FEMME.Rows(AG)("DATENAISS_FEM") TextBox19.Text = MARVELDataSet1.FEMME.Rows(AG)("POSTNOM_FEM")

TextBox20.Text = MARVELDataSet1.FEMME.Rows(AG)("PRENOM_FEM") TextBox21.Text = MARVELDataSet1.FEMME.Rows(AG)("LIEUNAISS_FEM") TextBox22.Text = MARVELDataSet1.FEMME.Rows(AG)("PROFESS_FEM") TextBox23.Text = MARVELDataSet1.FEMME.Rows(AG)("VILLAGE_FEM") TextBox25.Text = MARVELDataSet1.FEMME.Rows(AG)("TERRITOIRE_FEM") TextBox24.Text = MARVELDataSet1.FEMME.Rows(AG)("CHEFFERIE_FEM") TextBox26.Text = MARVELDataSet1.FEMME.Rows(AG)("DISTRICT_FEM") TextBox27.Text = MARVELDataSet1.FEMME.Rows(AG)("PROVINCE_FEM") TextBox29.Text = MARVELDataSet1.FEMME.Rows(AG)("NATIONALITE_FEM") TextBox31.Text = MARVELDataSet1.FEMME.Rows(AG)("ADRESSE_FEM") TextBox30.Text = MARVELDataSet1.FEMME.Rows(AG)("ETATCIV_FEM") TextBox32.Text = MARVELDataSet1.FEMME.Rows(AG)("NOMPERE_FEM") TextBox33.Text = MARVELDataSet1.FEMME.Rows(AG)("NOMMERE_FEM")

FEMMETableAdapter.Update(MARVELDataSet1.FEMME)

FEMMETableAdapter.Fill(MARVELDataSet1.FEMME)

EndIf

Next

EndSub

'BOUTON_SUPPRIMER

PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button3.Click

OnErrorResumeNext

Dim MER AsInteger

For MER = 0 ToMARVELDataSet.PROJET.Rows.Count - 1

If TextBox34.Text = MARVELDataSet.PROJET.Rows(MER)("NUM_PROJET") Then

IfMsgBox("Voulez-vous supprimer une Propriété?", vbYesNo) = vbYesThen

MARVELDataSet.PROJET.Rows(MER).Delete()

PROJETTableAdapter.Update(MARVELDataSet.PROJET)

PROJETTableAdapter.Fill(MARVELDataSet.PROJET)

MsgBox("Une propriété a été supprimée dans la base de données!")

TextBox1.Focus()

TextBox1.Text = ""

DateTimePicker1.Text = "" RichTextBox1.Text = "" ComboBox1.Text = "" TextBox34.Text = "" TextBox35.Text = "" TextBox36.Text = "" TextBox37.Text = "" TextBox38.Text = "" TextBox39.Text = "" TextBox40.Text = "" TextBox41.Text = "" TextBox42.Text = "" TextBox43.Text = "" TextBox44.Text = ""

'HOMME

MARVELDataSet2.HOMME.Rows(MER).Delete() HOMMETableAdapter.Update(MARVELDataSet2.HOMME) HOMMETableAdapter.Fill(MARVELDataSet2.HOMME) TextBox45.Focus()

TextBox45.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = ""

62

KITAMBALA BALIBWA Théophile

TextBox6.Text	=	""
TextBox5.Text	=	""
TextBox7.Text	=	""
TextBox8.Text	=	""
TextBox9.Text	=	""
TextBox10.Text	=	""
TextBox11.Text	=	""
TextBox12.Text	=	""
TextBox13.Text	=	""
TextBox15.Text	=	""
TextBox14.Text	=	""
TextBox16.Text	=	""
TextBox17.Text	=	""

'FEMME

MARVELDataSet1.FEMME.Rows(MER).Delete() FEMMETableAdapter.Update(MARVELDataSet1.FEMME) FEMMETableAdapter.Fill(MARVELDataSet1.FEMME) TextBox46.Focus()

			TextBox46.Text = TextBox18.Text = TextBox19.Text = TextBox20.Text = TextBox21.Text =	"" "" "" "" ""
			TextBox22.Text =	""
			TextBox23.Text =	""
			TextBox24.Text =	""
			TextBox25.Text =	""
TextBox26.Text	=	""
			TextBox27.Text =	""
TextBox28.Text	=	""
			TextBox29.Text =	""
			TextBox30.Text =	""
			TextBox31.Text =	""
			TextBox32.Text =	""
			TextBox33.Text =	""

EndIf

EndIf

Next

EndSub

'BOUTON_AIDE

PrivateSub Button7_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button7.Click

Form9.Show()

EndSub

PrivateSub Button8_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Handles Button8.Click

Me.Hide()

Form11.Show()

EndSub

EndClass

63

KITAMBALA BALIBWA Théophile

APERÇU DU PROJET DE MARIAGE

FORMULAIRE DE PUBLICATION DE MARIAGE

64

KITAMBALA BALIBWA Théophile

APERÇU PUBLICATION DE MARIAGE

FORMULAIRE D'ACTE DE MARIAGE

65

KITAMBALA BALIBWA Théophile

APERÇU ACTE DE MARIAGE

66

KITAMBALA BALIBWA Théophile