| Imports System.Data.SqlClient |
| Imports Telerik.Web.UI |
| Partial Public Class FEN_ORIENTEUR_MODIFIE_ELEVE |
| Inherits System.Web.UI.Page |
| Public fonctionsvbs As New fonctionVb |
| Dim dsChoixCoursEleve As New DataSet |
| Dim dsChoixParcoursEleve As New DataSet |
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| |
| End Sub |
| |
| Private Sub Btn_Valider_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Valider.Click |
| CreerGrids() |
| End Sub |
| |
| Private Sub CreerGrids() |
| Dim strEleve As String |
| Dim myDaEleve As New SqlDataAdapter |
| Dim cmdEleve As New SqlCommand |
| Dim dsEleve As New DataSet |
| Dim strChoixCoursEleve As String |
| Dim myDaChoixCoursEleve As New SqlDataAdapter |
| Dim cmdChoixCoursEleve As New SqlCommand |
| Dim strChoixParcoursEleve As String |
| Dim myDaChoixParcoursEleve As New SqlDataAdapter |
| Dim cmdChoixParcoursEleve As New SqlCommand |
| Dim MySQLCoursRequis As String |
| Dim myDaCoursRequis As New SqlDataAdapter |
| Dim cmdCoursRequis As New SqlCommand |
| Dim dsCoursRequis As New DataSet |
| Dim strsqlAnglais As String |
| Dim myDaAnglais As New SqlDataAdapter |
| Dim cmdAnglais As New SqlCommand |
| Dim dsAnglais As New DataSet |
| |
| strEleve = "SELECT GPM_T_ECO.ANNEE, GPM_E_DAN.STATUT_DON_AN,GPM_E_DAN.CLASSE, GPM_E_ELE.FICHE, GPM_E_ELE.NOM, GPM_E_ELE.PNOM, GPM_E_ADR.ENVOI_MEQ, GPM_E_ADR.DATE_FIN_ADR, GPM_T_ECO.ECO, GPM_T_ECO.ID_ECO" & _ |
| " FROM ((GPM_E_DAN INNER JOIN GPM_T_ECO ON GPM_E_DAN.ID_ECO = GPM_T_ECO.ID_ECO) INNER JOIN GPM_E_ELE ON GPM_E_DAN.FICHE = GPM_E_ELE.FICHE) INNER JOIN GPM_E_ADR ON GPM_E_ELE.FICHE = GPM_E_ADR.FICHE" & _ |
| " WHERE (((GPM_E_DAN.STATUT_DON_AN)='a') AND ((GPM_E_ELE.FICHE)=" & Me.TxtFiche.Text & ") AND ((GPM_E_ADR.ENVOI_MEQ)='1') AND ((GPM_E_ADR.DATE_FIN_ADR) Is Null) AND ((GPM_T_ECO.ID_ECO)=" & Session("sID_ECO") & "));" |
| |
| cmdEleve = New SqlCommand(strEleve, Me.fonctionsvbs.myConnGPI) |
| myDaEleve = New SqlDataAdapter(cmdEleve) |
| Me.fonctionsvbs.myConnGPI.Open() |
| myDaEleve.Fill(dsEleve) |
| Me.fonctionsvbs.myConnGPI.Close() |
| |
| If dsEleve.Tables(0).Rows.Count > 0 Then |
| Me.LbNom.Text = dsEleve.Tables(0).Rows(0).Item("NOM") |
| Me.LbPrenom.Text = dsEleve.Tables(0).Rows(0).Item("PNOM") |
| Session("sFiche") = dsEleve.Tables(0).Rows(0).Item("FICHE") |
| Session("sNiveau") = dsEleve.Tables(0).Rows(0).Item("CLASSE") |
| |
| strChoixCoursEleve = "SELECT * FROM T_ELEVE_CHOIX_COURS WHERE FICHE=" & Session("sFiche") & " ORDER BY PRIORITE" |
| cmdChoixCoursEleve = New SqlCommand(strChoixCoursEleve, Me.fonctionsvbs.myConnChoixCours) |
| myDaChoixCoursEleve = New SqlDataAdapter(cmdChoixCoursEleve) |
| Me.fonctionsvbs.myConnChoixCours.Open() |
| myDaChoixCoursEleve.Fill(dsChoixCoursEleve) |
| Me.fonctionsvbs.myConnChoixCours.Close() |
| Me.RadGridCours.DataSource = dsChoixCoursEleve |
| Me.RadGridCours.DataBind() |
| |
| 'Va chercher tous les cours requis |
| MySQLCoursRequis = "SELECT GPM_E_CRS_ELE.FICHE, GPM_E_CRS_ELE.CRS, GPM_T_ECO.ANNEE, GPM_E_CRS_ELE.PRES_CHX_CRS, GPM_T_CRS.NB_PER_CYCLE FROM (GPM_E_CRS_ELE INNER JOIN GPM_T_CRS ON (GPM_E_CRS_ELE.CRS = GPM_T_CRS.CRS) AND (GPM_E_CRS_ELE.ID_ECO = GPM_T_CRS.ID_ECO)) INNER JOIN GPM_T_ECO ON GPM_E_CRS_ELE.ID_ECO = GPM_T_ECO.ID_ECO WHERE (((GPM_E_CRS_ELE.FICHE)=" & Session("sFiche") & ") AND ((GPM_T_ECO.ANNEE)=" & Session("sAnneePrevisionnelle") & ") AND ((GPM_E_CRS_ELE.PRES_CHX_CRS)='1'));" |
| cmdCoursRequis = New SqlCommand(MySQLCoursRequis, Me.fonctionsvbs.myConnGPI) |
| myDaCoursRequis = New SqlDataAdapter(cmdCoursRequis) |
| Me.fonctionsvbs.myConnGPI.Open() |
| myDaCoursRequis.Fill(dsCoursRequis) |
| Me.fonctionsvbs.myConnGPI.Close() |
| |
| 'Va chercher dans quel parcours l'élève est avec la table T_ELEVE_PARCOURS |
| For Each rowAnglais In dsCoursRequis.Tables(0).Rows |
| |
| strsqlAnglais = "SELECT * FROM T_ELEVE_PARCOURS WHERE ID_ECO = " & Session("sID_ECO") & " AND ID_COURS = '" & rowAnglais.Item("CRS").ToString & "'" |
| cmdAnglais = New SqlCommand(strsqlAnglais, Me.fonctionsvbs.myConnChoixCours) |
| myDaAnglais = New SqlDataAdapter(cmdAnglais) |
| Me.fonctionsvbs.myConnChoixCours.Open() |
| myDaAnglais.Fill(dsAnglais) |
| Me.fonctionsvbs.myConnChoixCours.Close() |
| |
| If dsAnglais.Tables(0).Rows.Count > 0 Then |
| Session("sParcours") = dsAnglais.Tables(0).Rows(0).Item("PARCOURS") |
| Exit For |
| End If |
| Next |
| |
| strChoixParcoursEleve = "SELECT T_PARCOURS_CHOIX.QUESTION, T_PARCOURS_CHOIX.NIVEAU, T_ELEVE_CHOIX_PARCOURS.FICHE, T_PARCOURS_CHOIX.ID_ECO, T_PARCOURS_CHOIX.[ACTIF], CASE WHEN CHOIX=0 THEN 'Non' ELSE 'Oui' END AS Choix1, T_PARCOURS_CHOIX.PARCOURS FROM T_ELEVE_CHOIX_PARCOURS INNER JOIN T_PARCOURS_CHOIX ON (T_ELEVE_CHOIX_PARCOURS.PARCOURS = T_PARCOURS_CHOIX.POUR_QUEL_PARCOURS) AND (T_ELEVE_CHOIX_PARCOURS.ID_ECO = T_PARCOURS_CHOIX.ID_ECO) WHERE (((T_PARCOURS_CHOIX.NIVEAU)=" & Session("sNiveau") & ") AND ((T_ELEVE_CHOIX_PARCOURS.FICHE)=" & Session("sFiche") & ") AND ((T_PARCOURS_CHOIX.ID_ECO)=" & Session("sID_ECO") & ") AND ((T_PARCOURS_CHOIX.[ACTIF])=1)AND ((T_PARCOURS_CHOIX.PARCOURS)='" & Session("sParcours") & "'))" |
| cmdChoixParcoursEleve = New SqlCommand(strChoixParcoursEleve, Me.fonctionsvbs.myConnChoixCours) |
| myDaChoixParcoursEleve = New SqlDataAdapter(cmdChoixParcoursEleve) |
| Me.fonctionsvbs.myConnChoixCours.Open() |
| myDaChoixParcoursEleve.Fill(dsChoixParcoursEleve) |
| Me.fonctionsvbs.myConnChoixCours.Close() |
| Me.RadGridParcours.DataSource = dsChoixParcoursEleve |
| Me.RadGridParcours.DataBind() |
| |
| |
| End If |
| End Sub |
| |
| Private Sub RadGridCours_DeleteCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridCours.DeleteCommand |
| |
| End Sub |
| |
| Private Sub RadGridCours_InsertCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridCours.InsertCommand |
| |
| End Sub |
| |
| Private Sub RadGridCours_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridCours.UpdateCommand |
| |
| End Sub |
| |
| Private Sub RadGridParcours_UpdateCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridParcours.UpdateCommand |
| |
| End Sub |
| End Class |