 MODULE GESPALMA

Imports System.Data.SqlClienT
Module MODULE_GESPA
Public Cn As New SqlConnection("server=EURO-PC\LINKS; initial catalog=GESPALMA; integrated
security=true")
Public cmd As SqlCommand
Public bs As BindingSource
Public dr As SqlDataReader
Public ds As DataSet
Public adap As SqlDataAdapter
Public dtable As DataTable
End Module

 AUTHENTIFICATION

Public Class AUTHENTIC

Private Sub init_zone()
txtmotpassutilis.Text = ""
txtnomutilis.Text = ""
End Sub
Private Sub btmentrer_Click(sender As Object, e As EventArgs) Handles btnEnter.Click
If txtnomutilis.Text = "GESPALMA" And txtmotpassutilis.Text = "OK" Then
ProgressBar1.Visible = True
btnAnnuler.Enabled = False
btSuprm.Enabled = False
btnEnter.Enabled = False
Timer1.Enabled = True
txtmotpassutilis.Enabled = False
Label4.Visible = True
PictureBox3.Visible = True
PictureBox1.Visible = False
Else
ProgressBar1.Visible = True
txtmotpassutilis.Enabled = False
btnAnnuler.Enabled = False
btSuprm.Enabled = False
btnEnter.Enabled = False
Timer2.Enabled = True
txtnomutilis.Focus()
Label4.Visible = True
End If
End Sub

Private Sub AUTHENTIC_Load(sender As Object, e As EventArgs) Handles MyBase.Load

btnEnter.Focus()
txtnomutilis.Focus()
ProgressBar1.Visible = False
Label4.Visible = False
PictureBox3.Visible = False
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSuivant.Click

If txtnomutilis.Text = "GESPALMA" Then
txtnomutilis.Enabled = False
txtmotpassutilis.Visible = True
txtmotpassutilis.Enabled = True
Label2.Visible = True
txtmotpassutilis.Focus()
btnSuivant.Visible = False
btnEnter.Enabled = True
btSuprm.Enabled = True

82
 End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Enabled = False
MENU_PRINCIPALE.Show()
Me.Hide()
Else

ProgressBar1.Value = ProgressBar1.Value + 1
Label4.Text = "chargement " & ProgressBar1.Value & "%"
End If

End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer2.Enabled = False
MsgBox("Nom d'utilisateur ou Mot de passe incorrect")
ProgressBar1.Value = ProgressBar1.Minimum
ProgressBar1.Visible = False
Label4.Visible = False
txtmotpassutilis.Visible = False
Label2.Visible = False
txtnomutilis.Enabled = True
btnAnnuler.Enabled = True
btnEnter.Enabled = False
btnSuivant.Visible = True
btSuprm.Enabled = True
init_zone()
Else
ProgressBar1.Value = ProgressBar1.Value + 1
Label4.Text = "chargement " & ProgressBar1.Value & "%"
End If
End Sub

Private Sub btSuprm_Click(sender As Object, e As EventArgs) Handles btSuprm.Click

End Sub
End Class

 MENU PRINCIPAL

Public Class MENU_PRINCIPALE

Private Sub Button2_Click(sender As Object, e As EventArgs)

AUTHENTIC_VUE.Show()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs)

AUTHENTIC_VUE.Show()

End Sub

83
 Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim TR As Integer
TR = MessageBox.Show("voulez vous vraiment quitter??", "Attention",
MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)
If TR = Windows.Forms.DialogResult.OK Then

End
Else
End If
End Sub
Private Sub SAISIEToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles
SAISIEToolStripMenuItem.Click
SAISIE.Show()
Me.Hide()

End Sub

Private Sub PALMARESToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles

PALMARESToolStripMenuItem3.Click
PALMARES.Show()
Me.Hide()
End Sub

Private Sub STATISTIQUEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles

STATISTIQUEToolStripMenuItem.Click

End Sub

Private Sub PALMARESToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles

PALMARESToolStripMenuItem2.Click
STATISTIQUE.Show()
Me.Hide()
End Sub
End Class

 PALMARES
Imports System.Data.SqlClient
Public Class PALMARES
Private Sub chargcmbecole()
Try
Cn.Open()
adap = New SqlDataAdapter
adap.SelectCommand = New SqlCommand("select Denom from T_ECOLE", Cn)
ds = New DataSet
adap.Fill(ds)
dtable = ds.Tables(0)
cmbcodeeco.Items.Clear()
For Each drow As DataRow In dtable.Rows
cmbcodeeco.Items.Add(drow(0).ToString())
Next
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub chargcmbniveco()
Try
Cn.Open()
adap = New SqlDataAdapter
adap.SelectCommand = New SqlCommand("select LibNiv from T_NIVEAU", Cn)

84
 ds = New DataSet
adap.Fill(ds)
dtable = ds.Tables(0)
cmbniveco.Items.Clear()
For Each drow As DataRow In dtable.Rows
cmbniveco.Items.Add(drow(0).ToString())
Next
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
Private Sub chargcmbsect()
Try
Cn.Open()
adap = New SqlDataAdapter
adap.SelectCommand = New SqlCommand("select LibSection from T_SECTION", Cn)
ds = New DataSet
adap.Fill(ds)
dtable = ds.Tables(0)
cmbsecteco.Items.Clear()
For Each drow As DataRow In dtable.Rows
cmbsecteco.Items.Add(drow(0).ToString())
Next
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
Private Sub chargcmbpalma()
Try
Cn.Open()
adap = New SqlDataAdapter
adap.SelectCommand = New SqlCommand("select AnnPalm from T_PALMARES", Cn)
ds = New DataSet
adap.Fill(ds)
dtable = ds.Tables(0)
cmbAnnpalm.Items.Clear()
For Each drow As DataRow In dtable.Rows
cmbAnnpalm.Items.Add(drow(0).ToString())
Next
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
Private Sub chargcmbclass()
Try
Cn.Open()
adap = New SqlDataAdapter
adap.SelectCommand = New SqlCommand("select LibClasse from T_CLASSE", Cn)
ds = New DataSet
adap.Fill(ds)
dtable = ds.Tables(0)
cmbclasseco.Items.Clear()
For Each drow As DataRow In dtable.Rows
cmbclasseco.Items.Add(drow(0).ToString())
Next

85
 Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

Private Sub PALMARES_Load(sender As Object, e As EventArgs) Handles MyBase.Load

chargcmbclass()
chargcmbpalma()
chargcmbsect()
chargcmbniveco()
chargcmbecole()
PictureBox3.Visible = False
End Sub

Private Sub cmbAnnpalm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

cmbAnnpalm.SelectedIndexChanged
Try

Cn.Open()
If cmbAnnpalm.SelectedIndex <> -1 Then
cmbAnnpalm.Focus()

End If

Dim sql As String = "select * from T_PALMARES where AnnPalm = @d1"

cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbAnnpalm.Text)
dr = cmd.ExecuteReader()

If dr.Read() Then
txtCodpalm.Text = dr.GetValue(0)

End If
If Cn.State = ConnectionState.Open Then

End If
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
End Sub

Private Sub cmbcodeeco_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

cmbcodeeco.SelectedIndexChanged
Try

Cn.Open()
If cmbcodeeco.SelectedIndex <> -1 Then
cmbcodeeco.Focus()

End If

Dim sql As String = "select * from T_ECOLE where Denom = @d1"

cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbcodeeco.Text)
dr = cmd.ExecuteReader()

86
 If dr.Read() Then
txtcode.Text = dr.GetValue(0)

End If
If Cn.State = ConnectionState.Open Then

End If
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

If cmbcodeeco.SelectedText = "COLLEGE ST CYPRIEN" Then

PictureBox3.Visible = True
PictureBox4.Visible = False
Try
Cn.Open()
Dim sql As String = "select * from VUE_CHEF where Denom = @d1"
cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbcodeeco.Text)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
GridCE.Rows.Clear()
While (dr.Read() = True)
GridCE.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6), dr(7),
dr(8), dr(9))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
Else
PictureBox3.Visible = False
PictureBox4.Visible = True
End If
End Sub

Private Sub cmbniveco_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

cmbniveco.SelectedIndexChanged
Try

Cn.Open()
If cmbniveco.SelectedIndex <> -1 Then
cmbniveco.Focus()

End If

Dim sql As String = "select * from T_NIVEAU where LibNiv = @d1"

cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbniveco.Text)
dr = cmd.ExecuteReader()

If dr.Read() Then
txtniv.Text = dr.GetValue(0)

End If
If Cn.State = ConnectionState.Open Then
End If
Cn.Close()

87
 Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
End Sub

Private Sub cmbclasseco_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

cmbclasseco.SelectedIndexChanged
Try

Cn.Open()
If cmbclasseco.SelectedIndex <> -1 Then
cmbclasseco.Focus()

End If

Dim sql As String = "select * from T_CLASSE where LibClasse = @d1"

cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbclasseco.Text)
dr = cmd.ExecuteReader()

If dr.Read() Then
txtclass.Text = dr.GetValue(0)

End If
If Cn.State = ConnectionState.Open Then

End If
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
End Sub

Private Sub cmbsecteco_SelectedIndexChanged(sender As Object, e As EventArgs) Handles

cmbsecteco.SelectedIndexChanged
Try

Cn.Open()
If cmbsecteco.SelectedIndex <> -1 Then
cmbsecteco.Focus()

End If

Dim sql As String = "select * from T_SECTION where LibSection = @d1"

cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbsecteco.Text)
dr = cmd.ExecuteReader()

If dr.Read() Then
txtsect.Text = dr.GetValue(0)

End If
If Cn.State = ConnectionState.Open Then

End If
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

88
 End Try
End Sub

Private Sub btnReussi_Click(sender As Object, e As EventArgs) Handles btnReussi.Click

txtindex.Text = "LES ELEVES AYANT PASSER DE CLASSE"
txtindex.BackColor = Color.Aqua

Try

Cn.Open()
Dim sql As String = "SELECT NomElev, PstNomElev, Myenn, LibObserv FROM
vue_gridjoint WHERE Denom= @d1 AND LibNiv= @d2 AND LibClasse= @d3 AND LibSection= @d4 AND Myenn
>= 5"
cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbcodeeco.Text)
cmd.Parameters.AddWithValue("@d2", cmbniveco.Text)
cmd.Parameters.AddWithValue("@d3", cmbclasseco.Text)
cmd.Parameters.AddWithValue("@d4", cmbsecteco.Text)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Gridpourcentg.Rows.Clear()
While (dr.Read() = True)
Gridpourcentg.Rows.Add(dr(0), dr(1), dr(2), dr(3))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Try

Cn.Open()
Dim sql As String = "SELECT COUNT(PstNomElev) AS nombreElev FROM
dbo.VUE_GRIDPOURCENTAGE WHERE (LibObserv = 'PASSER')"
cmd = New SqlCommand(sql, Cn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
gridTOTsom.Rows.Clear()
While (dr.Read() = True)
gridTOTsom.Rows.Add(dr(0))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub btnechouer_Click(sender As Object, e As EventArgs) Handles btnechouer.Click

txtindex.Text = "LES ELEVES AYANT REPRIS DE CLASSE"
txtindex.BackColor = Color.Red
txtindex.ForeColor = Color.White
Try

Cn.Open()
Dim sql As String = "select * from VUE_GRIDPOURCENTAGE where Myenn < 5"
cmd = New SqlCommand(sql, Cn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Gridpourcentg.Rows.Clear()
While (dr.Read() = True)
Gridpourcentg.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

89
 End Try
Try
Cn.Open()
Dim sql As String = "SELECT COUNT(PstNomElev) AS nombreElev FROM
dbo.VUE_GRIDPOURCENTAGE WHERE (LibObserv = 'ECHOUER')"
cmd = New SqlCommand(sql, Cn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
gridTOTsom.Rows.Clear()
While (dr.Read() = True)
gridTOTsom.Rows.Add(dr(0))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Private Sub btnExcl_Click(sender As Object, e As EventArgs) Handles btnExcl.Click

txtindex.Text = "LES ELEVES EXCLUS"
txtindex.BackColor = Color.Blue
Try

Cn.Open()
Dim sql As String = "select * from VUE_GRIDPOURCENTAGE where Myenn = 0"
cmd = New SqlCommand(sql, Cn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Gridpourcentg.Rows.Clear()
While (dr.Read() = True)
Gridpourcentg.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub btnAban_Click(sender As Object, e As EventArgs) Handles btnAban.Click

txtindex.Text = "LES ELEVES AYANT ABANDONER DE CLASSE"
txtindex.BackColor = Color.Coral
Try

Cn.Open()
Dim sql As String = "select * from VUE_GRIDPOURCENTAGE where Myenn = 0"
cmd = New SqlCommand(sql, Cn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Gridpourcentg.Rows.Clear()
While (dr.Read() = True)
Gridpourcentg.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub btnTransf_Click(sender As Object, e As EventArgs) Handles btnTransf.Click

txtindex.Text = "LES ELEVES TRANSFERETS"

90
 txtindex.BackColor = Color.Green
End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

MENU_PRINCIPALE.Show()
Me.Hide()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim TR As Integer
TR = MessageBox.Show("voulez vous vraiment quitter??", "Attention",
MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)
If TR = Windows.Forms.DialogResult.OK Then

End
Else
End If
End Sub

Private Sub btnaffi_Click(sender As Object, e As EventArgs) Handles btnaffi.Click

Try
Cn.Open()
Dim sql As String = "SELECT * FROM vue_gridjoint WHERE Denom= @d1 AND LibNiv= @d2
AND LibClasse= @d3 AND LibSection= @d4"
cmd = New SqlCommand(sql, Cn)
cmd.Parameters.AddWithValue("@d1", cmbcodeeco.Text)
cmd.Parameters.AddWithValue("@d2", cmbniveco.Text)
cmd.Parameters.AddWithValue("@d3", cmbclasseco.Text)
cmd.Parameters.AddWithValue("@d4", cmbsecteco.Text)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
GRIDPALMAELEV.Rows.Clear()
While (dr.Read() = True)
GRIDPALMAELEV.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6), dr(7),
dr(8))
End While
Cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
' GRIDPALMAELEV.Visible = True

End Sub
End Class

91