ANNEXE 1
LA CODIFICATION
Ce morceau des codes est un échantillon, des
codes qui nous ont permis de réaliser notre application. L'extrait est
spécialement pour la table Consultation.
Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open
"PROVIDER=MSDASQL;dsn=CNSuivipatient;uid=;pwd=123456;database=SUIVIPATIE
NT;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select
numcons,numpat,numed,datcons,observ from consultation", db, adOpenStatic,
adLockOptimistic
Dim oText As TextBox
'Lier les zones de texte au fournisseur de
données
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
mbDataChanged = False End Sub
Private Sub Form_Resize()
On Error Resume Next
lblStatus.Width = Me.Width - 1500 cmdNext.Left =
lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Integer) If mbEditFlag Or mbAddNewFlag Then Exit Sub
Select Case KeyCode
Page | 129
Case vbKeyEscape
cmdClose_Click
Case vbKeyEnd
cmdLast_Click
Case vbKeyHome
cmdFirst_Click
Case vbKeyUp, vbKeyPageUp
If Shift = vbCtrlMask Then
cmdFirst_Click
Else
cmdPrevious_Click
End If
Case vbKeyDown, vbKeyPageDown
If Shift = vbCtrlMask Then
cmdLast_Click
Else
cmdNext_Click
End If
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer =
vbDefault
End Sub
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As
ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Ceci affichera la position de l'enregistrement actif pour ce jeu
d'enregistrements
lblStatus.Caption = "Record: " &
CStr(adoPrimaryRS.AbsolutePosition) End Sub
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As
ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As
ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'Insérez ici le code de validation
'Cet événement est appelé lorsque les
actions suivantes se produisent
Dim bCancel As Boolean
Select Case adReason Case adRsnAddNew Case adRsnClose Case
adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery
Page | 130
Case adRsnResynch
Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus = adStatusCancel End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
lblStatus.Caption = "Ajouter un enregistrement"
mbAddNewFlag = True
SetButtons False
End With
Exit Sub AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With adoPrimaryRS
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdRefresh_Click()
'Ceci est nécessaire uniquement pour les applications
multi-utilisateur
On Error GoTo RefreshErr
adoPrimaryRS.Requery
Exit Sub
RefreshErr:
MsgBox Err.Description
Page | 131
End Sub
Private Sub cmdEdit_Click() On Error GoTo EditErr
lblStatus.Caption = "Modifier l'enregistrement" mbEditFlag = True
SetButtons False Exit Sub
EditErr:
MsgBox Err.Description
End Sub
Private Sub cmdCancel_Click()
On Error Resume Next
SetButtons True
mbEditFlag = False
mbAddNewFlag = False
adoPrimaryRS.CancelUpdate
If mvBookMark > 0 Then
adoPrimaryRS.Bookmark = mvBookMark
Else
adoPrimaryRS.MoveFirst
End If
mbDataChanged = False
End Sub
Private Sub cmdUpdate_Click() On Error GoTo UpdateErr
adoPrimaryRS.UpdateBatch adAffectAll
If mbAddNewFlag Then
adoPrimaryRS.MoveLast 'passer au nouvel enregistrement
End
If
mbEditFlag = False mbAddNewFlag = False SetButtons True
mbDataChanged = False
Exit Sub
UpdateErr:
MsgBox Err.Description
Page | 132
End Sub
Private Sub cmdClose_Click() Unload Me
End Sub
Private Sub cmdFirst_Click() On Error GoTo GoFirstError
adoPrimaryRS.MoveFirst mbDataChanged = False
Exit Sub
GoFirstError:
MsgBox Err.Description End Sub
Private Sub cmdLast_Click() On Error GoTo GoLastError
adoPrimaryRS.MoveLast mbDataChanged = False
Exit Sub
GoLastError:
MsgBox Err.Description End Sub
Private Sub cmdNext_Click() On Error GoTo GoNextError
If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext
If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then
Beep
'déplacé après la fin, donc revenir
adoPrimaryRS.MoveLast
End If
'afficher l'enregistrement en cours
mbDataChanged = False
Exit Sub
GoNextError:
MsgBox Err.Description End Sub
Page | 133
Private Sub cmdPrevious_Click() On Error GoTo GoPrevError
If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0
Then
Beep
'déplacé après la fin, donc revenir
adoPrimaryRS.MoveFirst
End If
'afficher l'enregistrement en cours
mbDataChanged = False
Exit Sub
GoPrevError:
MsgBox Err.Description End Sub
Private Sub SetButtons(bVal As Boolean) cmdAdd.Visible = bVal
cmdEdit.Visible = bVal cmdUpdate.Visible = Not bVal cmdCancel.Visible = Not
bVal cmdDelete.Visible = bVal cmdClose.Visible = bVal cmdRefresh.Visible = bVal
cmdNext.Enabled = bVal cmdFirst.Enabled = bVal cmdLast.Enabled = bVal
cmdPrevious.Enabled = bVal
End Sub
Page | 134
TABLE DES MATIERES
I.INTRODUCTION 2
I.1 PRESENTATION DU SUJET 2
I.2 PROBLEMATIQUE 2
I.3 HYPOTHESE 3
I.4 CHOIX ET INTERET DU SUJET 3
I.4.1 Choix du sujet 3
I.4.2 Intérêt du sujet 3
I.5 METHODES ET TECHNIQUES UTILISEES 4
I.5.1. Méthodes 4
I.5.2. Techniques 5
I.6 DELIMITATION DU SUJET 5
1.7 SUBDIVISION DU TRAVAIL 6
PREMIERE PARTIE : APPROCHE THEORIQUE 7
Chapitre I. CONCEPTS CLES DU SUJET 8
Chapitre II. GENERALITES SUR LE RESEAU INFORMATIQUE 11
II.1 FONDAMENTAUX DES RESEAUX LOCAUX 11
II.1.1 Définition: 11
II.1.2 But 11
II.1.3 Ses Avantages 11
II.1.4 Inconvénients 11
II.2. SCHEMAS DE PRINCIPE GENERAL 12
II.3. ARCHITECTURES UTILISEES 13
II.3.1 Modèle OSI 13
II.3.1.1. Principe du modèle OSI 14
II.3.1.2 Description des différentes couches 14
II.3.2 Modèle TCP/IP 15
II.3.4. Architecture client serveur 17
II.4. CLASSIFICATION DES RESEAUX 18
II.4.1 Selon l'Etendue 18
II.4.2 Selon les Topologies 18
II.4.2.1 Topologies Physiques 18
II.4.2.1.1 En Bus 18
II.4.2.1.1. En Anneau à Jeton ou circulaire 20
II.4.2.1.2. En Etoile 21
Page | 135
II.4.2.2 Topologie Logique 22
II.4.2.2.1 Ethernet 22
II.4.2.2.2 Token ring 22
II.4.2.2.3 FDDI (Fiber Distributed Data Interface) 23
II.5. LES SUPPORTS DE TRANSMISSION 23
II.5.1.1 Les câbles électriques à paires
torsadées 23
II.5.1.2 Le câble coaxial 24
II.5.1.3 La fibre optique 24
DEUXIEME PARTIE : ETUDE PREALABLE 25
Chapitre III. ANALYSE DE L'EXISTANT 26
III.1 PRESENTATION DE L'HOPITAL MILITAIRE REGIONAL DE KINSHASA
26
III.1.1. Historique 26
III.1.2. Situation Géographique 27
III.1.3 Activités Exercées 27
III.1.4 Objectifs poursuivis 27
III.1.5 ORGANIGRAMME DE L'HOPITAL MILITAIRE DE REFERENCE /
KINSHASA (HMR/Kin) 28
III.1.6 Attribution des Taches 29
III.2. ETUDE DES MOYENS UTLISES 30
III.2.1 Moyens Humains 30
III.2.3 Moyens Financiers 30
III.2.4 Etude des documents utilisés 31
Chapitre IV. CRITIQUE DE L'EXISTANT ET PROPOSITION DES NOUVELLES
SOLUTIONS 32
IV.1 BUT 32
IV.2 CRITIQUE DES MOYENS UTILISES 32
IV.3 CRITIQUE DES DOCUMENTS UTILISES 32
IV.4 SYNTHESE DES ANOMALIES CONSTATEES 32
IV.5 RECHERCHE DES CAUSES DES ANOMALIES 32
IV.6 LES QUALITES DE L'EXISTANT 32
IV.7. PROPOSITION DES SOLUTIONS ET CHOIX D'UNE SOLUTION 33
IV.7.1 Réaménagement du système manuel 33
TROISIEME PARTIE : CADRAGE DU PROJET 34
Chapitre V. PLANNING PREVISIONNEL DU PROJET 35
V.1 IDENTIFICATION ET CLASSIFICATION DES TACHES 35
V.2 ESTIMATION COUT ET DUREE 36
V.3 GRAPHE PERT BRUT(DESORDRE) 37
V.4 MATRICE BOOLEENNE 38
Page | 136
V.5 MATRICE VALUE 39
V.6 MISE EN ORDRE DU GRAPHE PERT 39
V.6.1 Identification des étapes et recherche des niveaux
39
V.6.2 Graphe PERT en ordre 40
V.7 RECHERCHE DE DTO ET DTA DES ETAPES 41
V.7.1 Date au plus tôt (DTO) d'une étape 41
V.7.2 Date au plus tard (DTA) d'une étape 42
V.8 Recherche de Marge libre (ML) et de Marge Totale (MT) 43
V.8.2 Marge Totale (MT) 44
V.9 CHEMIN CRITIQUE 44
V.9.2 Tableau des résultats Marge Libre et Marge Totale
45
V. 10 SYNTHESE DES RESULTATS 46
V.11 PRESENTATION DES RESULTATS 46
QUATRIEME PARTIE : CONCEPTION D'UN NOUVEAU
SYSTEME 47
CHAPITRE VI. ANALYSE CONCEPTUELLE 48
VI.1 SPECIFICATION DES BESOINS 48
VI. 2. CYCLES DE CONSTRUCTION DU SYSTEME D'INFORMATION EN UML
48
VI.2.1 Articulation Du Cycle De Vie 49
VI.2.2. Cycle d'abstraction 50
VI.2.3. Cycle de décision 50
VI.3. OUTILS DE SUPPORT D'ANALYSE CONCEPTUELLE 51
VI.3.1 Choix d'UML 51
VI.3.2 Objet de l'analyse UML 51
| 
