**********************************************CODES SOURCE GESTION DES ETUDIANTS

(INSCRIPTION)********************

Imports System.IO
Imports MySql.Data.MySqlClient

Public Class Inscription

Dim dt As New Traitement

Dim dc As New Connector

Dim Fwidth As Integer = Me.Width

Dim Fheight As Integer = Me.Height

Public Sub form_resizer(sender As Object, e As EventArgs) Handles Me.Resize

Dim Mheight As Double = (Me.Height = Fheight) / Fheight

Dim Mwidth As Double = (Me.Width = Fwidth) / Fwidth

For Each ctrl As Control In Controls

ctrl.Width += ctrl.Width = Mwidth
ctrl.Left += ctrl.Left = Mwidth
ctrl.Top += ctrl.Top = Mheight
ctrl.Height += ctrl.Height = Mheight
Next
Fwidth = Me.Width
Fheight = Me.Height

End Sub
Private Sub Inscription_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
'Dat_modif.Visible = True

Try

DataGridView1.RowTemplate.Height = 100
Panel_modif.Visible = False
panel_inscrip.Visible = False
panel_supp.Visible = False

DataGridView1.DataSource = dt.getallstudent
DataGridView_supp.DataSource = dt.getallstudent

panel_inscrip.Visible = False
pannel_btns.Visible = False
Guna2ComboBox1.DataSource = dt.getallfiliere()
 Guna2ComboBox1.DisplayMember = "LIB_FILIERE"
Guna2ComboBox1.ValueMember = "LIB_FILIERE"

fil_etu_cb.DataSource = dt.getallfiliere()
fil_etu_cb.DisplayMember = "LIB_FILIERE"
fil_etu_cb.ValueMember = "LIB_FILIERE"

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Sub
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs)
Handles Guna2GradientButton1.Click
Me.Close()
Principale.Show()
End Sub

Dim choix As New OpenFileDialog

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

Handles Guna2GradientButton2.Click
Try

If choix.ShowDialog = 1 Then

choix.Filter = "Picture Files (*)|*.bmp;*.gif;*.jpg"

PictureBox1.Image = Image.FromFile(choix.FileName)
End If
Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

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

Handles Guna2GradientButton5.Click
Me.Close()
Nouvelle_filliere.Show()
End Sub

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

Handles Guna2GradientButton4.Click

Try

If Guna2TextBox1.Text.Trim = String.Empty Then

MessageBox.Show(" ENTREZ LE NOM ")
ElseIf Guna2TextBox2.Text.Trim = String.Empty Then
MessageBox.Show(" ENTREZ LES PRENOMS ")
ElseIf Guna2TextBox3.Text.Trim = String.Empty Then
MessageBox.Show(" ENTREZ LE MAIL ")
ElseIf Guna2TextBox4.Text.Trim = String.Empty Then
 MessageBox.Show(" ENTREZ LE NUMERO DE TELEPHONE ")
ElseIf Guna2TextBox5.Text.Trim = String.Empty Then
MessageBox.Show(" CHOISISSEZ LE SEMESTRE ")
ElseIf Guna2TextBox6.Text.Trim = String.Empty Then
MessageBox.Show(" ENTREZ VOTRE L'ADRESSE ")
End If

Dim Photo As New MemoryStream

Dim nom As String = Guna2TextBox1.Text
Dim prenoms As String = Guna2TextBox2.Text
Dim sexe As String = "Masculin"
Dim email As String = Guna2TextBox3.Text
If Guna2CustomRadioButton2.Checked = True Then
sexe = "Feminin"
End If
Dim Telephones As String = Guna2TextBox4.Text
Dim datenaiss As Date = Guna2DateTimePicker1.Value
Dim Filiere As String = Guna2ComboBox1.Text
Dim semestre As String = Guna2TextBox5.Text
Dim adresse As String = Guna2TextBox6.Text

Try
Dim aujordat As Integer = Date.Now.Year
Dim datnai As Integer = Guna2DateTimePicker1.Value.Year
If aujordat - datnai < 16 Then
MessageBox.Show("Vous etes en dessous de l'age minimum autorisé
")

Else

PictureBox1.Image.Save(Photo, PictureBox1.Image.RawFormat)
If dt.addstudent(nom, prenoms, sexe, email, Telephones,
datenaiss, adresse, Filiere, semestre, Photo) Then
MessageBox.Show("Enregistrement effectué avec succès")
panel_inscrip.Hide()
DataGridView1.DataSource = dt.getallstudent

End If

End If
Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
 Private Sub btn_decaler_Click(sender As Object, e As EventArgs) Handles
btn_decaler.Click
panel_inscrip.Visible = False
panel_supp.Visible = False
Panel_modif.Visible = False
If pannel_btns.Visible = True Then
pannel_btns.Visible = False
DataGridView1.Visible = True

Else
pannel_btns.Visible = True
DataGridView1.Visible = False

End If
End Sub

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

Handles Guna2GradientButton3.Click
Guna2TextBox1.Text = ""
Guna2TextBox2.Text = ""
Guna2TextBox3.Text = ""
Guna2TextBox4.Text = ""
Guna2TextBox5.Text = ""
Guna2TextBox6.Text = ""
PictureBox1.Image = BackgroundImage

End Sub

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

Handles Guna2GradientButton6.Click
panel_inscrip.Hide()
Guna2TextBox1.Text = ""
Guna2TextBox2.Text = ""
Guna2TextBox3.Text = ""
Guna2TextBox4.Text = ""
Guna2TextBox5.Text = ""
Guna2TextBox6.Text = ""
PictureBox1.Image = BackgroundImage
End Sub

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

Guna2TextBox2.TextChanged

End Sub

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

modif_etu_bt.Click

Try

Dim nm_etu As String = nom_etu_tb.Text

Dim pr_etu As String = prenom_etu_tb.Text

Dim nom As String = nom_etu_tb.Text

 Dim prenoms As String = prenom_etu_tb.Text
Dim sexe As String = "Masculin"
Dim email As String = email_etu_tb.Text
If Guna2CustomRadioButton3.Checked = True Then
sexe = "Feminin"
ElseIf Guna2CustomRadioButton4.Checked = True Then
sexe = "Masculin"
End If
Dim Telephones As String = num_etu_tb.Text
Dim datenaiss As Date = datenaiss_etu_pk.Value
Dim Filiere As String = fil_etu_cb.Text
Dim semestre As String = semestre_etu_tb.Text
Dim adresse As String = adresse_etu_tb.Text
Dim Photo As New MemoryStream
Dim ID As String = ID_TB.Text

Dim aujordat As Integer = Date.Now.Year

Dim datnai As Integer = datenaiss_etu_pk.Value.Year
If aujordat - datnai < 16 Then
MessageBox.Show("Vous etes en dessous de l'age minimum autorisé ")

Else

Try
If nom_etu_tb.Text.Trim().Equals("") Then
MessageBox.Show("Entrez l'ID ou le NOM ou le prenom de
l'etudiant à modifier", "ID non selectionné ", MessageBoxButtons.OK,
MessageBoxIcon.Error)
Else
If prenom_etu_tb.Text.Trim().Equals("") Or
email_etu_tb.Text.Trim().Equals("") Or num_etu_tb.Text.Trim().Equals("") Or
datenaiss_etu_pk.Text.Trim().Equals("") Or fil_etu_cb.Text.Trim().Equals("") Or
semestre_etu_tb.Text.Trim().Equals("") Or adresse_etu_tb.Text.Trim().Equals("") Or
pic_etu_pb.Image Is BackgroundImage Then
MessageBox.Show(" information manquante", "Information
manquante", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else

'If dt.VerifieFilliere(Filiere) Then

' MessageBox.Show("LA FILIERE EXISTE", " filiere ",
MessageBoxButtons.OK, MessageBoxIcon.Information)
' 'Else
pic_etu_pb.Image.Save(Photo,
pic_etu_pb.Image.RawFormat)
If dt.Modifetu(ID, nom, prenoms, sexe, email,
Telephones, datenaiss, adresse, Filiere, semestre, Photo) Then
MessageBox.Show("Etudiant modifier avec succès",
"Modifier etu ", MessageBoxButtons.OK, MessageBoxIcon.Information)
DataGridView1.DataSource = dt.getallstudent()

rech_etu_tb.Text = ""
ID_TB.Text = ""
 nom_etu_tb.Text = ""
prenom_etu_tb.Text = ""
email_etu_tb.Text = ""
num_etu_tb.Text = ""
datenaiss_etu_pk.Text = ""
fil_etu_cb.Text = ""
semestre_etu_tb.Text = ""
adresse_etu_tb.Text = ""
pic_etu_pb.Image = BackgroundImage

Else
MessageBox.Show("Echec de modification ", "Modifier
etu ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
'Else
' MessageBox.Show("La filière saisi n'exite pas ou
est mal saisi ", "saisi filiere", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If
End If
Catch ex As Exception

MessageBox.Show(ex.Message)

End Try
End If
'End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

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

rech_etu_tb.TextChanged
Try

Dim command As New MySqlCommand("SELECT * FROM inscription WHERE

CONCAT(ID_ETUDIANT,NOM,PRENOMS) LIKE '%" & rech_etu_tb.Text & "%'")

DataGridView1.DataSource = dt.getAllmat(command)
panel_inscrip.Visible = False

If rech_etu_tb.Text = "" Then

DataGridView1.Visible = False
Else

DataGridView1.Visible = True

End If
' Dat_modif.Visible = True
panel_supp.Visible = False
Panel_modif.Visible = True

' Dat_modif.Visible = True

 Catch ex As Exception

MessageBox.Show(ex.Message)
End Try

End Sub

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

supp_rech.TextChanged

Try

If supp_rech.Text.Trim = "" Then

'MessageBox.Show("Entrez du texte")
DataGridView_supp.Visible = False

Else
Dim command As New MySqlCommand("SELECT * FROM inscription WHERE
CONCAT(ID_ETUDIANT,NOM,PRENOMS) LIKE '%" & supp_rech.Text & "%'")

DataGridView_supp.DataSource = dt.getAllmat(command)

panel_inscrip.Visible = False
DataGridView1.Visible = False
supp_items.Visible = False
Panel_modif.Visible = False
DataGridView_supp.Visible = True

End If

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As

DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

'Dim command As New MySqlCommand("SELECT PHOTO FROM `inscription` WHERE

`ID_ETUDIANT` = @ID", dc.getconnection)

Try

ID_TB.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString
nom_etu_tb.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
 prenom_etu_tb.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString

If DataGridView1.CurrentRow.Cells(3).Value.ToString = "Masculin" Then

Guna2CustomRadioButton4.Checked = True
Else
Guna2CustomRadioButton3.Checked = True
End If

email_etu_tb.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString
num_etu_tb.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString
datenaiss_etu_pk.Value =
DataGridView1.CurrentRow.Cells(6).Value.ToString
adresse_etu_tb.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
fil_etu_cb.Text = DataGridView1.CurrentRow.Cells(8).Value.ToString
semestre_etu_tb.Text = DataGridView1.CurrentRow.Cells(9).Value.ToString

Dim Getim As Byte()

Getim = DataGridView1.CurrentRow.Cells(10).Value
Dim picget As New MemoryStream(Getim)
pic_etu_pb.Image = Image.FromStream(picget)

DataGridView1.Visible = False
Panel_modif.Visible = True

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try
End Sub

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

pic_upload.Click

Try

If choix.ShowDialog = 1 Then

choix.Filter = "Picture Files (*)|*.bmp;*.gif;*.jpg"

pic_etu_pb.Image = Image.FromFile(choix.FileName)

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try
End Sub

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

supp_btn.Click
Try
 Dim nm_m As String = supp_nm.Text

If MsgBox("Etes-vous sur de vouloir supprimer cet etudiant ?",

MsgBoxStyle.YesNo, "Suppression") = MsgBoxResult.Yes Then
If dt.removetu(nm_m) Then
MsgBox("suppression effectuer succes", MsgBoxStyle.Information,
"Suppression")
'Dim command As New MySqlCommand("SELECT * FROM matieres WHERE
MATIERE LIKE '%" & supp_rech_tb.Text & "%'")
DataGridView1.DataSource = dt.getallstudent()
Else
MsgBox(" Suppression non effectuer", MsgBoxStyle.Critical,
"Suppression")
End If
End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub DataGridView_supp_CellContentClick(sender As Object, e As

DataGridViewCellEventArgs) Handles DataGridView_supp.CellContentClick

Try

Dim Getim As Byte()

Getim = DataGridView_supp.CurrentRow.Cells(10).Value
Dim picget As New MemoryStream(Getim)
pic_etu_pb.Image = Image.FromStream(picget)

DataGridView_supp.Visible = False
Panel_modif.Visible = False
supp_items.Visible = True
panel_inscrip.Visible = False

supp_nm.Text = DataGridView_supp.CurrentRow.Cells(1).Value.ToString
supp_pr.Text = DataGridView_supp.CurrentRow.Cells(2).Value.ToString
supp_sex.Text = DataGridView_supp.CurrentRow.Cells(3).Value.ToString
supp_sem.Text = DataGridView_supp.CurrentRow.Cells(9).Value.ToString
supp_fil.Text = DataGridView_supp.CurrentRow.Cells(8).Value.ToString

Catch ex As Exception
 MessageBox.Show(ex.Message)

End Try
End Sub

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

Handles Guna2GradientButton7.Click
panel_supp.Visible = False
End Sub

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

btn_supp_etu.Click

Try

supp_nm.Text = ""
supp_pr.Text = ""
supp_sem.Text = ""
supp_sex.Text = ""
supp_fil.Text = ""

DataGridView1.Visible = False
panel_inscrip.Visible = False
Panel_modif.Visible = False
panel_supp.Visible = True
DataGridView_supp.Visible = False

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Sub

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

btn_modif_etu.Click
DataGridView1.Visible = False
panel_inscrip.Visible = False
Panel_modif.Visible = True
panel_supp.Visible = False
End Sub

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

btn_ajou_etu.Click
DataGridView1.Visible = False
panel_inscrip.Visible = True
Panel_modif.Visible = False
panel_supp.Visible = False
End Sub

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

undo_bt.Click
nom_etu_tb.Text = ""
prenom_etu_tb.Text = ""
email_etu_tb.Text = ""
num_etu_tb.Text = ""
datenaiss_etu_pk.Text.Trim().Equals("")
 fil_etu_cb.Text = ""
semestre_etu_tb.Text = ""
adresse_etu_tb.Text = ""
pic_etu_pb.Image = BackgroundImage
End Sub

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

qter_bt.Click
Panel_modif.Visible = False
End Sub

Private Sub Panel_modif_Paint(sender As Object, e As PaintEventArgs) Handles

Panel_modif.Paint

End Sub

'Private Sub DataGridView2_CellContentClick(sender As Object, e As

DataGridViewCellEventArgs)

' Try

' ID_TB.Text = Dat_modif.CurrentRow.Cells(0).Value.ToString

' nom_etu_tb.Text = Dat_modif.CurrentRow.Cells(1).Value.ToString
' prenom_etu_tb.Text = Dat_modif.CurrentRow.Cells(2).Value.ToString

' If Dat_modif.CurrentRow.Cells(3).Value.ToString = "Masculin" Then

' Guna2CustomRadioButton4.Checked = True

' Else
' Guna2CustomRadioButton3.Checked = True
' End If

' email_etu_tb.Text = Dat_modif.CurrentRow.Cells(4).Value.ToString

' num_etu_tb.Text = Dat_modif.CurrentRow.Cells(5).Value.ToString
' datenaiss_etu_pk.Value = Dat_modif.CurrentRow.Cells(6).Value.ToString
' adresse_etu_tb.Text = Dat_modif.CurrentRow.Cells(7).Value.ToString
' fil_etu_cb.Text = Dat_modif.CurrentRow.Cells(8).Value.ToString
' semestre_etu_tb.Text = Dat_modif.CurrentRow.Cells(9).Value.ToString

' Dim Getim As Byte()

' Getim = Dat_modif.CurrentRow.Cells(10).Value

' Dim picget As New MemoryStream(Getim)
' pic_etu_pb.Image = Image.FromStream(picget)

' Dat_modif.Visible = False

' Panel_modif.Visible = True

' Catch ex As Exception

' MessageBox.Show(ex.Message)

' End Try

'End Sub
End Class