CHAPITRE TROISIEME : CONCEPTION DU NOUVEAU SYSTEME
D'INFORMATION - 37
-
|
III.1. Modélisation de données
|
- 37 -
|
|
III.1.1. Règles de gestion
|
- 37 -
|
|
III.1.2. Dictionnaire des données
|
- 38 -
|
|
FIGURE 4 : LES DEPENDANCES FONCTIONNELLES
|
41
|
|
FIGURE 5: LE MEA
|
42
|
|
III.1.5. LE MODELE LOGIQUE DES DONNEES
|
43
|
|
III.1.6. LE MODELE PHYSIQUE DES DONNEES
|
43
|
|
FIGURE 6 : LE MODELE PHYSIQUE DES DONNEES
|
44
|
|
III.2. Modélisation des Traitements
|
45
|
|
III.2.1. Règles de gestion de Traitements
|
45
|
|
III.2.2. Modèle Conceptuel de Traitement
|
45
|
|
FIGURE 7 : LE MODELE CONCEPTUEL DE TRAITEMENT
|
45
|
|
III.2.3.Modèle Organisationnel de Traitements
|
47
|
|
III.2.4.Modèle Opérationnel de Traitement
|
50
|
|
FIGURE 8 : MODELE OPERATIONNEL DE TRAITEMENT
|
50
|
|
III.2.5.Modèle Physique de Traitement
|
51
|
|
III.2.6.Présentation de l'application
|
52
|
|
FIGURE 9 : MENU PRINCIPAL
|
52
|
|
FIGURE 10 : VUE D'ENTREE PREVISION DES MATCHS
|
53
|
65
FIGURE 11 : VUE D'ENTREE SAISIE DES RESULTATS 54
FIGURE 12 : VUE DE SORTIE DE LA FICHE D'ENGAGEMENT
55
FIGURE 13 : VUE DE SORTIE DU CALENDRIER SPORTIF 55
FIGURE 14 : VUE DE SORTIE DE LA GRILLE DES RESULTATS
56
FIGURE 15 : VUE DE SORTIE DE LA GRILLE DES BUTEURS
56
FIGURE 16 : VUE DE SORTIE DE LA GRILLE DES SANCTIONS
57
III.2.7. Conclusion partielle 57
CONCLUSION GENERALE 57
BIBLIOGRAPHIE 59
LISTE DES FIGURES 61
LISTE DE TABLEAUX 62
TABLE DES MATIERES 62
ANNEXES 66
66
ANNEXES
I.GUIDE D'UTILISATION
La présentation de l'interface graphique de cette
application permet à toute personne ayant suivi des formations en
Bureautique de s'adapter facilement; Il suffit de le démarrer comme tout
autre programme, Après le démarrage le formulaire de mot de passe
apparait on vous demande d'entrer le nom d'utilisateur ainsi que le mot de
passe et en moins de deux secondes le menu général apparait.
Vous pouvez parcourir tous les menus principaux moyennant
l'événement CLIC ; Sur les formulaires
il y a diverses commandes :
-* Premier : Pour accéder au premier
enregistrement de la Base de Données
-* Suivant : Pour passer à
l'enregistrement suivant
-* Précédent : Pour aller à
l'enregistrement précédent
-* Dernier : Pour aller au tout dernier
enregistrement
-* Nouveau : Pour préparer
l'enregistrement futur
-* Enregistrer : Pour mémoriser les
données -* Supprimer : Pour supprimer un enregistrement
-* Rechercher : Pour rechercher les enregistrements -*
Actualiser : Pour modifier les informations
L'accès aux informations nécessaires en rapport
avec le championnat se fait en parcourant les commandes du menu
RAPPORT mais aussi le menu ACCESOIRES
vous trouverez certains outils comme la calculatrice et quelques
applications de la Bureautique.
II. CODE DU PROGRAMME PRINCIPAL
Imports System.Data.OleDb
Public Class frmatch
Dim con As NewOleDbConnection
Dim da As NewOleDbDataAdapter
Dim ds As NewDataSet
Dim cmdb As NewOleDbCommandBuilder
PrivateSub Label6_Click(sender AsObject, e AsEventArgs)
EndSub
PrivateSub Form7_Load(sender AsObject, e AsEventArgs)
HandlesMyBase.Load
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
Data
Source="&Application.StartupPath&"/gestionligue.accdb"
Try
con.Open()
da = NewOleDbDataAdapter("select * from Matcht", con)
da.Fill(ds, "Matcht")
cmdb = NewOleDbCommandBuilder(da)
Catch ex AsException
EndTry
67
Call affichage()
Call remplissagecomboequipevisite()
Call remplissagecomboequipevisiteuse()
Call remplissagecombojournnee()
Call remplissagecomboArbitre()
Call affichagedescrequipev()
Call affichagedescreqr()
Call affichagedescrarbitre()
Call affichagedescrjourn()
con.Close()
End Sub
PrivateSub affichage()
Try
cboeqv.DataBindings.Add(NewBinding("Text", ds,
"Matcht.Codequipev"))
txtnbutv.DataBindings.Add(NewBinding("Text", ds,
"Matcht.nbuteqv"))
cboeqr.DataBindings.Add(NewBinding("Text", ds,
"Matcht.Codequiper"))
txtnbutr.DataBindings.Add(NewBinding("Text", ds,
"Matcht.nbuteqr"))
DateTimePicker1.DataBindings.Add(NewBinding("Text", ds,
"Matcht.datem"))
txtstade.DataBindings.Add(NewBinding("Text", ds,
"Matcht.stadem"))
txtheurem.DataBindings.Add(NewBinding("Text", ds,
"Matcht.heurem"))
txtnbrespect.DataBindings.Add(NewBinding("Text", ds,
"Matcht.nbrspect"))
cbojourn.DataBindings.Add(NewBinding("Text", ds,
"Matcht.codejournee"))
cboarbitre.DataBindings.Add(NewBinding("Text", ds,
"Matcht.Codearbitre"))
txtclimat.DataBindings.Add(NewBinding("Text", ds,
"Matcht.climat"))
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Matcht"
Catch ex As Exception
EndTry
EndSub
'Remplissage du combobox des equipes
PrivateSubremplissagecomboequipevisite()
Dim x, max AsInteger
Dim da2 AsNewOleDbDataAdapter("select * from Equipe", con)
Dim ds2 AsNewDataSet
da2.Fill(ds2, "Equipe")
max = ds2.Tables(0).Rows.Count - 1
For x = 0 To max
cboeqv.Items.Add(ds2.Tables(0).Rows(x).Item(0).ToString)
Next
'fin du remplissage
EndSub
'Remplissage du combobox des equipes
PrivateSub remplissagecomboequipevisiteuse()
Dim x, max As Integer
Dim da2 As New OleDbDataAdapter("select * from Equipe",
con)
Dim ds2 As NewDataSet
da2.Fill(ds2, "Equipe")
max = ds2.Tables(0).Rows.Count - 1
For x = 0 To max
68
cboeqr.Items.Add(ds2.Tables(0).Rows(x).Item(0).ToString)
Next
'fin du remplissage
End Sub
PrivateSub remplissagecombojournnee()
Dim x, max AsInteger
Dim da2 As NewOleDbDataAdapter("select * from Journee",
con)
Dim ds2 As NewDataSet
da2.Fill(ds2, "Journee")
max = ds2.Tables(0).Rows.Count - 1
For x = 0 To max
cbojourn.Items.Add(ds2.Tables(0).Rows(x).Item(0).ToString)
Next
'fin du remplissage
End Sub
PrivateSub remplissagecomboArbitre()
Dim x, max AsInteger
Dim da2 As NewOleDbDataAdapter("select * from Arbitre",
con)
Dim ds2 As NewDataSet
da2.Fill(ds2, "Arbitre")
max = ds2.Tables(0).Rows.Count - 1
For x = 0 To max
cboarbitre.Items.Add(ds2.Tables(0).Rows(x).Item(0).ToString)
Next
'fin du remplissage
EndSub
PrivateSub affichagedescrequipev()
Dim cmd As NewOleDbCommand
con.Close()
con.Open()
cmd.CommandText = "select * from Equipe where
codequipe='"&cboeqv.Text&"'"
cmd.CommandType = CommandType.Text
cmd.Connection = con
Dim dbAs OleDbDataReader
db = cmd.ExecuteReader
If db.Read Then
lbleqa.Text = db(1).ToString
End If
con.Close()
End Sub
Private Sub affichagedescreqr()
Dim cmd AsNew OleDbCommand
con.Close()
con.Open()
cmd.CommandText = "select * from Equipe where
codequipe='"&cboeqr.Text&"'"
cmd.CommandType = CommandType.Text
cmd.Connection = con
Dim db As OleDbDataReader
db = cmd.ExecuteReader
If db.Read Then
69
lbleqb.Text = db(1).ToString End If
con.Close()
End Sub
Private Sub affichagedescrjourn()
Dim cmd AsNewOleDbCommand
con.Close()
con.Open()
cmd.CommandText = "select * from Journee where
codejournee='"&cbojourn.Text&"'"
cmd.CommandType = CommandType.Text
cmd.Connection = con
Dim db AsOleDbDataReader
db = cmd.ExecuteReader
If db.Read Then
lbldescrjourn.Text = db(1).ToString
End If
con.Close()
End Sub
Private Sub affichagedescrarbitre()
Dim cmd AsNewOleDbCommand
con.Close()
con.Open()
cmd.CommandText = "select * from Arbitre where
codearbitre='"&cboarbitre.Text&"'"
cmd.CommandType = CommandType.Text
cmd.Connection = con
Dim db AsOleDbDataReader
db = cmd.ExecuteReader
If db.Read Then
lbldescrarb.Text = db(1).ToString() + " " + db(2).ToString()
End If
con.Close()
End Sub
Private Sub Button9_Click(sender AsObject, e AsEventArgs) Handles
Button9.Click
Try
Iftxtrecherche.Text = ""Then
MessageBox.Show(" Veuillez completez l'un champs ")
txtrecherche.Text = ""
txtrecherche.Clear()
Else
DimsqlAsString = "select * from Matcht where Codematch=" +
txtrecherche.Text + ""
da = NewOleDbDataAdapter(sql, con)
ds.Clear()
da.Fill(ds, "Matcht")
affichage()
EndIf
Catch message AsException
EndTry
EndSub
70
PrivateSubcboeqr_SelectedIndexChanged(sender AsObject, e
AsEventArgs) Handlescboeqr.SelectedIndexChanged
Call affichagedescreqr()
EndSub
PrivateSubcboeqv_SelectedIndexChanged(sender AsObject, e
AsEventArgs) Handlescboeqv.SelectedIndexChanged
Callaffichagedescrequipev()
EndSub
PrivateSubcbojourn_SelectedIndexChanged(sender AsObject, e
AsEventArgs) Handlescbojourn.SelectedIndexChanged
Callaffichagedescrjourn()
EndSub
PrivateSubcboarbitre_SelectedIndexChanged(sender AsObject, e
AsEventArgs) Handlescboarbitre.SelectedIndexChanged
Callaffichagedescrarbitre()
EndSub
PrivateSub ToolStripButton1_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton1.Click
Try
Me.BindingContext(ds, "Matcht").EndCurrentEdit()
Me.BindingContext(ds, "Matcht").AddNew()
lbleqa.Text = ""
lbleqb.Text = ""
cboeqv.Focus()
CatchmsgexcAsException
EndTry
EndSub
PrivateSub ToolStripButton2_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton2.Click
Ifcboeqv.Text = ""Orcboeqr.Text = ""Then
MsgBox("Veuillez completer ces champs svp ...")
cboeqv.Focus()
ElseIfcboeqv.Text = cboeqr.TextThen
MsgBox("Ce genre de match n'existe pas ...")
cboeqv.Focus()
Else
Me.BindingContext(ds, "Matcht").EndCurrentEdit()
Ifds.HasChangesThen
da.Update(ds, "Matcht")
EndIf
ds.AcceptChanges()
EndIf
EndSub
71
PrivateSub ToolStripButton3_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton3.Click
Ifcboeqv.Text = ""Orcboeqr.Text = ""Then
MsgBox("Veuillez completer ces champs svp ...")
cboeqv.Focus()
ElseIfcboeqv.Text = cboeqr.TextThen
MsgBox("Ce genre de match n'existe pas ...")
cboeqv.Focus()
Else
Me.BindingContext(ds, "Matcht").EndCurrentEdit()
Ifds.HasChangesThen
da.Update(ds, "Matcht")
EndIf
ds.AcceptChanges()
EndIf
EndSub
PrivateSub ToolStripButton4_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton4.Click
Try
DimsuppAsInteger
supp = Interaction.InputBox("Entrez le code du match que vous
voulez supprimmer")
DimreqAsMsgBoxResult = MessageBox.Show("Voulez-vous suprimmer ?
",
"SUPRESSION", MessageBoxButtons.YesNo,
MessageBoxIcon.Information)
Ifreq = MsgBoxResult.YesThen
Me.BindingContext(ds, "Matcht").EndCurrentEdit()
Dim n AsString = Me.BindingContext(ds, "Matcht").Position
Me.BindingContext(ds, "Matcht").RemoveAt(supp) 'Suppression
da.Update(ds, "Matcht") 'Mis à jour des données
ds.AcceptChanges()
EndIf
Catch ex AsException
EndTry
EndSub
PrivateSub ToolStripButton5_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton5.Click
IfMe.BindingContext(ds, "Matcht").Position <> 0 Then
Me.BindingContext(ds, "Matcht").Position = 0
EndIf
EndSub
PrivateSub ToolStripButton6_Click(sender AsObject, e AsEventArgs)
Handles
ToolStripButton6.Click
IfMe.BindingContext(ds, "Matcht").Position
<>Me.BindingContext(ds, "Matcht").Count - 1
Then
Me.BindingContext(ds, "Matcht").Position = Me.BindingContext(ds,
"Matcht").Position + 1
EndIf
EndSub
PrivateSub ToolStripButton7_Click(sender AsObject, e AsEventArgs)
Handles ToolStripButton7.Click
72
IfMe.BindingContext(ds, "Matcht").Position
<>Me.BindingContext(ds, "Matcht").Position =
0 Then
Me.BindingContext(ds, "Matcht").Position =
Me.BindingContext(ds, "Matcht").Position - 1
EndIf
EndSub
PrivateSub ToolStripButton8_Click(sender AsObject, e
AsEventArgs) Handles
ToolStripButton8.Click
IfMe.BindingContext(ds, "Matcht").Position
<>Me.BindingContext(ds, "Matcht").Count - 1
Then
Me.BindingContext(ds, "Matcht").Position =
Me.BindingContext(ds, "Matcht").Count - 1
EndIf
EndSub
PrivateSubQUITTER_Click(sender AsObject, e AsEventArgs)
HandlesQUITTER.Click
DimmsgAsDialogResult
msg = MsgBox("Voulez - vous quitter ce formulaire ?",
MsgBoxStyle.OkCancel =
MsgBoxStyle.Exclamation)
Ifmsg = DialogResult.OKThen
Me.Close()
EndIf
EndSub
73
III. CURRICULUM VITAE
| 
