2.4. Structure de la base de données
Figure 19. Schéma de la base de
données
[55]
2.5. Capture des interfaces graphiques et extrait de
quelques codes sources
2.5.1. Présentation des interfaces
graphiques
L'interface est un moyen de communication entre l'utilisateur
et
l'application. C'est à travers elle que l'application
exploitera la base de données.
Formulaire Parent
Figure 20. Formulaire parent
Formulaire Classe
Figure 21. Formulaire classe
[56]
Formulaire délibération
Figure 22. Formulaire délibération
Formulaire saisi cote
Figure 23. Formulaire saisi cote
[57]
Formulaire Elève
Figure 24. Formulaire
élève
Formulaire Publier
Figure 25. Formulaire publication
[58]
Formulaire Communiquer
Figure 26. Formulaire
communiqué
2.5.2. Extrait de code source
Imports System.Data.OleDb
Public Class Fdeliberation
Dim chemin As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Gest_Pub\Base de
Donnee\BddGestPublicationResultat.accdb"
Dim connexion As New OleDb.OleDbConnection (chemin)
Dim cmdRechercher As New OleDb.OleDbCommand
Dim cmdRechercher1 As New OleDb.OleDbCommand
Dim cmdRechercher2 As New OleDb.OleDbCommand
Dim cmdLire As OleDbDataReader
Dim commandEnregistrer As New OleDb.OleDbCommand
Dim commandeSuprimmer As New OleDb.OleDbCommand
Dim commandeModifier As New OleDb.OleDbCommand
Private Sub Fdeliberation_FormClosing (sender As Object, e As
FormClosingEventArgs) Handles Me.FormClosing
connexion.close ()
End Sub
Private Sub Fdeliberation_Load (sender As Object, e As EventArgs)
Handles MyBase.Load
connexion.open ()
End Sub
[59]
Private Sub CmbClasse_Click (sender As Object, e As EventArgs)
Handles CmbClasse.Click
Try
CmbClasse.Items.Clear ()
cmdRechercher.Connection = connexion cmdRechercher.CommandText =
"SELECT CodeClasse FROM Tbl_Classe Order by CodeClasse"
cmdLire = cmdRechercher.ExecuteReader
While cmdLire. Read
CmbClasse.Items.Add (cmdLire.GetValue (0).ToString)
End While
cmdLire.Close ()
Catch ex As Exception
End Try End Sub
Private Sub TxtRechercher_TextChanged (sender As Object, e As
EventArgs) Handles TxtRechercher.TextChanged
Try
cmdRechercher.Connection = connexion
cmdRechercher.CommandText = "SELECT tbl_ Eleve.MatriEleve,
tbl_Eleve.Nom, tbl_Eleve.Postnom, tbl_Eleve.Prenom, tbl_Appartenir.CodeClasse,
tbl_Appartenir.AnneeScolaire FROM tbl_Eleve INNER JOIN tbl_Appartenir ON
tbl_Eleve.MatriEleve = tbl_Appartenir.MatriElev WHERE (((tbl_Eleve.Nom) LIKE'"
& TxtRechercher.Text & "%') AND ((tbl_Appartenir.CodeClasse) ='" &
CmbClasse.Text & "')) ORDER BY tbl_Eleve.Nom, tbl_Eleve.Postnom,
tbl_Eleve.Prenom "
Dim dt As New System.Data.DataTable
Dim da As New System.Data.OleDb.OleDbDataAdapter
(cmdRechercher)
da.Fill (dt)
CmdLire = cmdRechercher.ExecuteReader
If cmdLire. Read = True Then
LblMatricule.Text = (cmdLire.GetValue (0).ToString) LblNom.Text =
(cmdLire.GetValue (1).ToString) LblPostnom.Text = (cmdLire.GetValue
(2).ToString) LblPrenom.Text = (cmdLire.GetValue (3).ToString) LblClasse.Text =
(cmdLire.GetValue (4).ToString) lblAnneeScolaire.Text = (cmdLire.GetValue
(5).ToString)
[60]
cmdLire.Close ()
CmbEpreuve.Enabled = True Else
nettoyer ()
cmdLire.Close ()
CmbEpreuve.Enabled = False End If
DTGD_DELIBERATION.AutoGenerateColumns = True
DTGD_DELIBERATION.DataSource = dt
If TxtRechercher.Text = "" Then
DTGD_DELIBERATION.DataSource = False
nettoyer ()
CmbEpreuve.Text = ""
CmbEpreuve.Enabled = False TxtRechercher.Focus ()
Else
End If
Catch ex As Exception
End Try End Sub
Sub nettoyer ()
LblClasse.Text = "" LblDecision.Text = "" LblMatricule.Text = ""
LblMaximaGeneral.Text = ""
LblNom.Text = ""
LblPostnom.Text = ""
LblPourcentage.Text = ""
LblPrenom.Text = "" LblTotaux.Text = ""
lblAnneeScolaire.Text = ""
End Sub
Private Sub DTGD_ DELIBERATION_ CellEnter (sender As Object, e As
DataGridViewCellEventArgs) Handles DTGD_DELIBERATION_CellEnter Try
LblMatricule.Text = DTGD_ DELIBERATION .CurrentRow.Cells.Item
(0).Value LblNom.Text = DTGD_ DELIBERATION.CurrentRow.Cells.Item (1).Value
LblPostnom.Text =DTGD_ DELIBERATION.CurrentRow.Cells.Item (2).Value
LblPrenom.Text = DTGD_ DELIBERATION.CurrentRow.Cells.Item (3).Value
LblClasse.Text = DTGD_ DELIBERATION.CurrentRow.Cells.Item (4).Value
RecPourcentage = Val (LblTotaux.Text) * 100 / Val
(LblMaximaGeneral.Text)
[61]
lblAnneeScolaire.Text =DTGD_DELIBERATION.CurrentRow.Cells.Item
(5).Value Catch ex As Exception
End Try End Sub
Private Sub CmbEpreuve_Click (sender As Object, e As
EventArgs)
Handles CmbEpreuve.Click
Try
CmbEpreuve.Items.Clear ()
cmdRechercher.Connection = connexion
cmdRechercher.CommandText = "SELECT CodeEpre FROM Tbl_Epreuve
Order by CodeEpre"
cmdLire = cmdRechercher.ExecuteReader
While cmdLire. Read
CmbEpreuve.Items.Add (cmdLire.GetValue (0).ToString)
End While
cmdLire.Close ()
Catch ex As Exception
End Try End Sub
Dim recPourcentage, pourcentage As String
Private Sub CmbEpreuve_TextChanged (sender As Object, e As
EventArgs) Handles CmbEpreuve_TextChanged
Try
cmdRechercher.Connection = connexion
cmdRechercher.CommandText = "SELECT Sum (CoteObtenu) AS Totaux,
Sum (Maxima) AS MaximaGeneral FROM tbl_Passer WHERE tbl_Passer.MatriElev='"
& LblMatricule.Text & "' AND tbl_Passer.CodeEpre='" &
CmbEpreuve.Text & "'"
CmdLire = cmdRechercher.ExecuteReader
If cmdLire. Read = True Then
LblTotaux.Text = (cmdLire.GetValue (0).ToString)
LblMaximaGeneral.Text = (cmdLire.GetValue (1).ToString) cmdLire.Close ()
[62]
Pourcentage = (recPourcentage. Substring (0, 4))
LblPourcentage.Text = pourcentage & "%"
Decision ()
Else
LblTotaux.Text = ""
LblMaximaGeneral.Text = ""
LblDecision.Text = "..."
cmdLire.Close ()
End If
Catch ex As Exception
End Try End Sub
Sub decision ()
If Val (LblPourcentage.Text) < 50 Then LblDecision.Text =
"Echoué"
Else
LblDecision.Text = " Réussi"
End If End Sub
Sub deliberer ()
If lblAnneeScolaire.Text = "" Or LblClasse.Text = "" Or
LblDecision.Text = "" Or LblMatricule.Text = "" Or LblMaximaGeneral.Text = ""
Or LblNom.Text = "" Or LblPostnom.Text = "" Or LblPourcentage.Text = "" Or
LblPrenom.Text = "" Or LblTotaux.Text = "" Then
MsgBox("Impossible de délibéré veuillez
respecter les conditions", vbCritical, "Pas de délibération")
Exit Sub
End If
cmdRechercher.Connection = connexion
cmdRechercher.CommandText = "SELECT tbl _Publication.Matri_Eleve,
tbl_Publication.Code_Epreve, tbl_Publication.Classe,
tbl_Publication.AnneeScolaire FROM tbl_Publication WHERE
(((tbl_Publication.Matri_Eleve)='" & LblMatricule.Text & "') AND
((tbl_Publication.Code_Epreve)='" & CmbEpreuve.Text & "') AND
((tbl_Publication.Classe)='" & LblClasse.Text & "') AND
((tbl_Publication.AnneeScolaire)='" & lblAnneeScolaire.Text & "')) "
cmdRechercher.ExecuteNonQuery()
cmdLire = cmdRechercher.ExecuteReader
If cmdLire.Read Then
[63]
cmdLire.Close()
MsgBox("Cet élève a été
déjà délibéré ", vbCritical, "PubResult")
nettoyer()
TxtRechercher.Text = ""
Else
cmdLire.Close()
commandEnregistrer.Connection = connexion
commandEnregistrer.CommandText = "INSERT INTO tbl_Publication
VALUES('" & LblMatricule.Text & "','" & LblNom.Text & "','"
& LblPostnom.Text & "','" & LblPrenom.Text & "','" &
LblClasse.Text & "','" & CmbEpreuve.Text & "','" &
LblPourcentage.Text & "','" & LblDecision.Text & "','" &
lblAnneeScolaire.Text & "')" commandEnregistrer.ExecuteNonQuery()
MsgBox("Délibération effectué",
vbInformation, "PubResult") nettoyer()
TxtRechercher.Text = ""
TxtRechercher.Focus()
End If End Sub
Private Sub BtnDeliberer_Click(sender As Object, e As EventArgs)
Handles BtnDeliberer.Click If MsgBox("Vouller vous délibérer cet
élève", vbQuestion + vbYesNo, "PubResult") = vbYes Then
deliberer() Else
End If End Sub
End Class
[64]
| 
