Scribd
Upload
29 views10 pages

Code Source

The document outlines a Visual Basic .NET application module for user authentication and data management related to a school system. It includes database connection setup, user interface elements for login, and functionality for displaying and managing school-related data such as classes, levels, and student performance. The application uses SQL commands to interact with a database, handling user input and displaying results in a structured manner.

Uploaded by

gloirentotokhond
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
29 views10 pages

Code Source

The document outlines a Visual Basic .NET application module for user authentication and data management related to a school system. It includes database connection setup, user interface elements for login, and functionality for displaying and managing school-related data such as classes, levels, and student performance. The application uses SQL commands to interact with a database, handling user input and displaying results in a structured manner.

Uploaded by

gloirentotokhond
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 10

 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

You might also like