BIBLIOGRAPHIE
OUVRAGES
? Katya MUHAMBYA Echelon, Pour comprendre et
maitriser l'informatique,
2ème éd, Kampala.
? Kevin E., Daniel Kline et Brand Hunt ; SQL en
Concentré, Paris 2005
? Dominique NANCI - Bernard ESPINASSE, INGENIERIE DES
SYSTEMES
D'INFORMATION : MERISE DEUXIEME
GENERATION, 4°édition - 2001
? Divine MICHEL, Parlez-vous
MERISE, Paris
TFC
- JULES LONGANGA ans son travail intitulé «
Conception d'un système
informatisé de réservation des chambres dans un
hôtel : cas de PALACE
Hôtel Goma »
COURS
V' KITAGANYA SEBATWA Joseph, cours d'initiation à
la recherche scientifique,
Inédit, ISC/GOMA G2 informatique de gestion 2018-2019
V' Erasme KAKULE MILANDO, cours de méthode
d'analyse informatique I, Inédit,
ISC/GOMA G3 informatique de gestion 2019-2020,
V' JC KASAVUBU, Cours d'informatique
générale G1 INFO, Inédit, ISC-GOMA
2017-2018
WEBOGRAPHIE
https://www.wikipedia.fr/hotelerie
www.leganet.cd/
www.google.com
50
TABLE DES MATIERES
DEDICACE i
REMERCIEMENTS ii
SIGLES ET ABREVIATIONS iii
0. INTRODUCTION 1
0.1. ETAT DE LA QUESTION 1
0.2. PROBLEMATIQUE 2
0.3. HYPOTHESE 3
0.4. OBJECTIF DU TRAVAIL 4
0.5. CHOIX ET INTERET DU SUJET 4
0.6. METHODES ET TECHNIQUES UTILISEES 5
0.7. DELIMITATION SPATIO-TEMPORELLE DU SEJET
6
0.8. DIFFICULTE RENCONTRE 6
0.9. SUBDIVISION DU TRAVAIL 7
CHAPITRE I. REVUE DE LA LITTERATURE ET PRESENTATION DU
MILIEU D'ETUDE 8
1.1. DEFINITION DES CONCEPTS 8
1.2. REVUE DE LA LITERATURE 8
1.3. PRESENTATION DU MILIEU D'ETUDE 12
1.3.1. Historique de l'entreprise 12
1.3.2. Présentation géographique
12
1.3.3. Domaines d'intervention 12
1.3.4. Organisation administrative 12
1.3.4.1. Organigramme 13
1.3.4.2. Attribution de services 14
CHAPITRE II. ANALYSE DU SYSTEME D'INFORMATION EXISTANT
15
2.1. MODELE CONCEPTUEL DE COMMUNICATION (MCC)
15
2.1.1. Présentation du MCC 15
2.1.2. Matrice de flux 17
2.2. MODELE ORGANISATIONNEL DE TRAITEMENT (MOT)
18
2.2.1. Règles d'organisation 18
2.2.2. Tableau des procédures fonctionnelles
18
2.2.3. Diagramme d'enchaînement des
procédures fonctionnelles 20
2.3. DICTIONNAIRE DES DONNEES 22
2.3.1. Documents utilisés 22
2.1.1. Présentation du dictionnaire des
données 22
2.4. CRITIQUE DE L'EXISTANT ET PROPOSITION DES PISTES DE
SOLUTION 23
51
2.4.3. Proposition de piste de solutions 23
CHAPITRE III. CONCEPTION DU SYSTEME D'INFORMATION FUTUR
25
3.1. MODELE CONCEPTUEL DE COMMUNICATION 25
3.1.1. Présentation du MCC 25
3.1.2. Matrice de flux 27
3.2. MODELE CONCEPTUEL DE DONNEES (MCD) 27
3.2.1. Dictionnaire de données 27
3.2.2. Graphe de dépendance 29
3.2.3. Structure d'accès théorique
29
3.2.4. Règles de gestion 29
3.2.5. Construction du MCD 30
3.3. MODELE CONCEPTUEL DE TRAITEMENT 31
3.3.1. Formalisme utilisé 31
3.3.2. Construction du MCT 32
3.4. MODELE ORGANISATIONNEL DE TRAITEMENT (MOT)
35
3.4.1. Règles d'organisation 35
3.4.2. Tableau des procédures fonctionnelles
35
3.4.3. Diagramme d'enchainement des procédures
fonctionnelles 37
CHAP. IV. PRESENTATION DU SYSTEME D'INFORMATION
INFORMATISE (SII) 40
4.1. CONSTRUTION DU MODELE LOGIQUE DES DONNEES (MLD)
40
4.2. CONSTRUCTION DU MODELE PHYSIQUE DES DONNEES (MPD)
41
4.3. PRESENTANTION DE L'APPLICATION 42
4.3.1. Formulaires 42
4.3.2. Etats de sortie 45
CONCLUSION 47
BIBLIOGRAPHIE 49
TABLE DES MATIERES 50
DOCUMENTS UTILISES B
A
B
DOCUMENTS UTILISES BULLETIN D'INSCRIPTION
C
CODES SOURCE DU PROGRAMME PRINCIPAL
Imports System.Data.SqlClient
Imports System.IO
Public Class UCclient
Dim connexion As New SqlConnection("Data
Source=ABISAI-M96\SQLEXPRESS;Initial
Catalog=dbgestionhotel;Integrated Security=True")
Dim command As New SqlCommand
Dim table As New DataTable
Dim adapt As New SqlDataAdapter(command)
Dim sett As New DataSet
Dim resultat As New DialogResult
Dim nbre As New Integer
Dim dr As SqlDataReader
Dim dep As Integer = 0
Dim ph As New classephoto
Sub ConApp()
If connexion.State = ConnectionState.Open Then
connexion.Close()
End If
End Sub
Sub recharger()
Try
ConApp()
connexion.Open()
Dim cmd As New SqlCommand("Select *from tclient ", connexion)
Dim adapt As New SqlDataAdapter(cmd)
Dim table As New DataTable
adapt.Fill(table)
DgvClient.DataSource = table
connexion.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Client")
End Try
End Sub
Private Sub UCclient_Load(sender As Object, e As EventArgs)
Handles MyBase.Load recharger()
End Sub
Private Sub btnEnregistrer_Click(sender As Object, e As
EventArgs) Handles btnEnregistrer.Click Dim ph As New classephoto
Try
ConApp()
connexion.Open()
command = connexion.CreateCommand() command.CommandText = "Insert
into
tClient(IdClient,Nom,Postnom,Prenom,Datenaiss,LieuNaiss,Sexe,Etatcivil,Telephone,Nationalite,Residence,
Proffession,TypePieceId,Provenance,Destination,Photo)Values(@IdClient,@Nom,@Postnom,@Prenom,@Datenaiss,
@LieuNaiss,@Sexe,@Etatcivil,@Telephone,@Nationalite,@Residence,@Proffession,@TypePieceId,@Provenance,@D
estination,@Photo)"
command.Parameters.Add("@IdClient", SqlDbType.VarChar, 10,
"IdClient").Value =
txtIdClient.Text
command.Parameters.Add("@Nom", SqlDbType.VarChar, 50,
"Nom").Value = txtNomClient.Text
command.Parameters.Add("@Postnom", SqlDbType.VarChar, 50,
"Postnom").Value =
txtpnomClient.Text
command.Parameters.Add("@Prenom", SqlDbType.VarChar, 50,
"Prenom").Value =
txtprenomClient.Text
command.Parameters.Add("@Datenaiss", SqlDbType.VarChar, 50,
"Datenaiss").Value =
dtpNaisscli.Text
command.Parameters.Add("@LieuNaiss", SqlDbType.VarChar, 10,
"LieuNaiss").Value =
txtlieuNaisCli.Text
command.Parameters.Add("@Sexe", SqlDbType.VarChar, 50,
"Sexe").Value = cbogenre.Text
command.Parameters.Add("@Etatcivil", SqlDbType.VarChar, 50, "
"Provenance").Value = txtlieuprov.Text
command.Parameters.Add("@Destination", SqlDbType.VarChar, 50,
"Destination").Value =
txtlieudestin.Text
command.Parameters.AddWithValue("@photo",
ph.imageToByte(pctPhoto.Image))
command.ExecuteNonQuery()
MsgBox("Le client a été enregistré avec
succèes", MsgBoxStyle.Information, "Notification")
connexion.Close()
recharger()
Catch ex As Exception
MsgBox(ex.Message)
End Try
D
End Sub
Private Sub DgvClient_SelectionChanged(sender As Object, e As
EventArgs) Handles
DgvClient.SelectionChanged
Try
txtIdClient.Text =
DgvClient.CurrentRow.Cells.Item("IdClient").FormattedValue
txtNomClient.Text =
DgvClient.CurrentRow.Cells.Item("nom").FormattedValue
txtpnomClient.Text =
DgvClient.CurrentRow.Cells.Item("Postnom").FormattedValue
txtprenomClient.Text =
DgvClient.CurrentRow.Cells.Item("prenom").FormattedValue
dtpNaisscli.Text =
pctPhoto.Image =
DgvClient.CurrentRow.Cells.Item("photo").FormattedValue
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnSupprimer_Click(sender As Object, e As
EventArgs) Handles btnSupprimer.Click
Try
ConApp()
connexion.Open()
command = connexion.CreateCommand
command.CommandText = "Delete from tClient where IdClient= '"
& txtIdClient.Text & "'"
resultat = MessageBox.Show("Voulez-vous vraiment supprime?",
"Notification",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (resultat = DialogResult.Yes) Then
command.ExecuteNonQuery()
MsgBox("Suppression reussie", MsgBoxStyle.Information,
"Notification") connexion.Close()
recharger()
Else
MsgBox("Suppression Annulee", MsgBoxStyle.Critical,
"Notification")
End If
txtIdClient.Text =
DgvClient.CurrentRow.Cells.Item("IdClient").FormattedValue txtNomClient.Text =
DgvClient.CurrentRow.Cells.Item("nom").FormattedValue txtpnomClient.Text =
DgvClient.CurrentRow.Cells.Item("Postnom").FormattedValue txtprenomClient.Text
= DgvClient.CurrentRow.Cells.Item("prenom").FormattedValue dtpNaisscli.Text =
DgvClient.CurrentRow.Cells.Item("Datenaiss").FormattedValue txtlieuNaisCli.Text
= DgvClient.CurrentRow.Cells.Item("LieuNaiss").FormattedValue
pctPhoto.Image =
DgvClient.CurrentRow.Cells.Item("photo").FormattedValue
Catch ex As Exception
MessageBox.Show(ex.Message) End Try
End Sub
Private Sub btnModifier_Click(sender As Object, e As EventArgs)
Handles btnModifier.Click
Dim ph As New classephoto
Try
ConApp()
connexion.Open()
command = connexion.CreateCommand
command.CommandText = "Update tClient set
IdClient=@IdClient,Nom=@Nom,Postnom=@postnom,Prenom=@Prenom,Datenaiss=@Datenaiss,LieuNaiss=@LieuNaiss,S
exe=@Sexe,Etatcivil=@EtaTcivil,Telephone=@Telephone,Nationalite=@Nationalite,Residence=@Residence,Proff
ession=@Proffession,TypePieceId=@TypePieceId,Provenance=@Provenance,Destination=@Destination,Photo=@Pho
to where IdClient=@IdClient"
command.Parameters.Add("@IdClient", SqlDbType.VarChar, 10,
"IdClient").Value =
txtIdClient.Text
command.Parameters.Add("@Nom", SqlDbType.VarChar, 50,
"Nom").Value = txtNomClient.Text
command.Parameters.Add("@Postnom", SqlDbType.VarChar, 50,
"Postnom").Value =
txtpnomClient.Text
command.Parameters.Add("@Prenom", SqlDbType.VarChar, 50,
"Prenom").Value =
command.Parameters.AddWithValue("@photo",
ph.imageToByte(pctPhoto.Image))
resultat = MessageBox.Show("Voulez-vous vraiment modifie?",
"Modification",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (resultat = DialogResult.Yes) Then
command.ExecuteNonQuery()
MsgBox("Modification Reussie", MsgBoxStyle.Information,
"Notification")
connexion.Close()
recharger()
Else
MsgBox("Modification anuulee", MsgBoxStyle.Critical,
"Notification")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
E
End Sub
Private Sub txtRecherchecli_TextChanged(sender As Object, e As
EventArgs) Handles
txtRecherchecli.TextChanged
Try
ConApp()
connexion.Open()
command = New SqlCommand("select *from Tclient where nom like '%"
& txtRecherchecli.Text &
"%'", connexion)
adapt = New SqlDataAdapter(command)
sett = New DataSet
adapt.Fill(sett, "v")
DgvClient.DataSource = sett.Tables("v")
command.ExecuteNonQuery()
connexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
command.Parameters.Add("@IdClient", SqlDbType.VarChar, 10,
"IdClient").Value =
txtIdClient.Text
command.Parameters.Add("@Nom", SqlDbType.VarChar, 50,
"Nom").Value = txtNomClient.Text
command.Parameters.Add("@Postnom", SqlDbType.VarChar, 50,
"Postnom").Value =
txtpnomClient.Text
command.Parameters.Add("@Prenom", SqlDbType.VarChar, 50,
"Prenom").Value =
txtprenomClient.Text
command.Parameters.Add("@Datenaiss", SqlDbType.VarChar, 50,
"Datenaiss").Value =
dtpNaisscli.Text
command.Parameters.Add("@LieuNaiss", SqlDbType.VarChar, 10,
"LieuNaiss").Value =
txtlieuNaisCli.Text
command.Parameters.Add("@Sexe", SqlDbType.VarChar, 50,
"Sexe").Value =
"Destination").Value = txtlieudestin.Text
command.Parameters.AddWithValue("@photo",
ph.imageToByte(pctPhoto.Image))
End Try
End Sub
Private Sub btnEffacer_Click(sender As Object, e As EventArgs)
Handles btnEffacer.Click
txtprofession.Text = ""
txtNatpid.Text = ""
txtlieuprov.Text = ""
txtlieudestin.Text = ""
End Sub
End Class
MAITRE D'HOTEL
| 
