Imports System.Data.OleDb
Public Class About
    Inherits System.Web.UI.Page
    Dim OleDBConn As OleDBConnection
    Dim OleDBCommand As OleDBCommand
    Dim OleDBDataReader As OleDBDataReader
    Dim OleDBQuery As String

    Private Sub About_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        For Each de As DictionaryEntry In HttpContext.Current.Cache
            HttpContext.Current.Cache.Remove(DirectCast(de.Key, String))
        Next

    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            For Each de As DictionaryEntry In HttpContext.Current.Cache
                HttpContext.Current.Cache.Remove(DirectCast(de.Key, String))
            Next
            Response.Cache.SetExpires(DateTime.Now.AddSeconds(60))
            Response.Cache.SetCacheability(HttpCacheability.Public)
            Response.Cache.SetValidUntilExpires(True)
            OleDBConn = New OleDBConnection(Session("Connection"))
            If Not Me.IsPostBack Then
                Using cmd As New OleDbCommand("SELECT schools.MUD_ID, schools.MUD_NAME FROM schools GROUP BY schools.MUD_ID, schools.MUD_NAME ORDER BY schools.MUD_NAME;")
                    cmd.CommandType = CommandType.Text
                    cmd.Connection = OleDBConn
                    OleDBConn.Open()
                    CobMudCode.DataSource = cmd.ExecuteReader()
                    CobMudCode.DataTextField = "MUD_NAME"
                    CobMudCode.DataValueField = "MUD_ID"
                    CobMudCode.DataBind()
                    OleDBConn.Close()
                End Using

                CobMudCode.Items.Insert(0, New ListItem("أختر المحافظة", "0"))
                CobMudCode.SelectedIndex = 0
                CobIdaraCode.Items.Insert(0, New ListItem("أختر الاداره", "0"))
                CobIdaraCode.SelectedIndex = 0
                CobSchoolCode.Items.Insert(0, New ListItem("أختر المدرسة", "0"))
                CobSchoolCode.SelectedIndex = 0

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Public Sub ModalPopUpProperty(ByVal StrDropShadow As String, ByVal StrTargetControlID As String, ByVal StrPopupControlID As String, ByVal StrOkControlID As String, ByVal StrX As String, ByVal StrY As String)
        'With ModalPopupExtender1
        '    .DropShadow = StrDropShadow
        '    .TargetControlID = StrTargetControlID
        '    .PopupControlID = StrPopupControlID
        '    .OkControlID = StrOkControlID
        '    .CancelControlID = ""
        '    .X = StrX
        '    .Y = StrY
        '    .Show()
        'End With
    End Sub
    Protected Sub Submit2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Submit2.Click
        'Panel1.Visible = "true"
        'ModalPopupExtender1.Show()
        OleDBConn = New OleDBConnection(Session("Connection"))
        OleDBConn.Open()
        OleDBQuery = "SELECT UserName, Password, StudentName FROM StudentID WHERE (UserName ='" & TxtUserName.Text.ToString & "' and Password='" & TxtPassword.Text.ToString & "')"
        OleDBCommand = New OleDBCommand()
        OleDBCommand.Connection = OleDBConn
        OleDBCommand.CommandText = OleDBQuery
        OleDBDataReader = OleDBCommand.ExecuteReader()
        If OleDBDataReader.HasRows Then
            OleDBDataReader.Read()

            LblUser.Text = " تم تسجيل اسم المستخدم هذا من قبل، أدخل أسم مستخدم أخر"
            TxtUserName.Text = ""
            TxtPassword.Text = ""
            LblUser.Visible = True
            OleDBDataReader.Close()
            OleDBDataReader = Nothing
        Else
            OleDBDataReader.Close()
            OleDBDataReader = Nothing
            'Session("MudCode") = CobMudCode.SelectedItem.Value
            'Session("MudName") = CobMudCode.SelectedItem.Text.ToString
            'Session("IdaraCode") = CobIdaraCode.SelectedItem.Value
            'Session("IdaraName") = CobIdaraCode.SelectedItem.Text.ToString
            'Session("SchoolCode") = CobSchoolCode.SelectedItem.Value
            'Session("SchoolName") = CobSchoolCode.SelectedItem.Text.ToString
            ''Session("StudentCode") = ""
            'Session("StudentName") = TxtName.Text.ToString
            Dim IntSpecialEdu As Integer = RbtSpecialEdu.SelectedValue
            'MsgBox(Session("SpecialEdu"))
            'Session("ArabicDegree") = TxtArabicDegree.Text
            'Session("MathDegree") = TxtMathDegree.Text
            'Session("SciDegree") = TxtSciDegree.Text
            'Session("EngDegree") = TxtEngDegree.Text
            'Session("SocialDegree") = TxtSciDegree.Text
            'Session("DiffMath") = TxtDiffMath.Text
            'Session("DiffSci") = TxtDiffSci.Text
            'Session("DiffArabic") = TxtDiffArabic.Text
            'Session("WorkLifeMath") = TxtWorkLifeMath.Text
            'Session("WorkLifeSci") = TxtWorkLifeSci.Text
            'Session("WorkLifeArabic") = TxtWorkLifeArabic.Text
            'Session("UserName") = TxtUserName.Text.ToString
            'Session("Password") = TxtPassword.Text.ToString
            'Session("Email") = TxtEMail.Text.ToString
            OleDBQuery = "INSERT INTO [StudentID]"
            OleDBQuery = OleDBQuery & "([StudentName]"
            OleDBQuery = OleDBQuery & ",[MudName]"
            OleDBQuery = OleDBQuery & ",[SchoolName]"
            OleDBQuery = OleDBQuery & ",[IdaraName]"
            OleDBQuery = OleDBQuery & ",[SpecialEdu]"
            'OleDBQuery = OleDBQuery & ",[ArabicDegree]"
            'OleDBQuery = OleDBQuery & ",[MathDegree]"
            'OleDBQuery = OleDBQuery & ",[SciDegree]"
            'OleDBQuery = OleDBQuery & ",[EngDegree]"
            'OleDBQuery = OleDBQuery & ",[SocialDegree]"
            'OleDBQuery = OleDBQuery & ",[DiffArabic]"
            'OleDBQuery = OleDBQuery & ",[DiffMath]"
            'OleDBQuery = OleDBQuery & ",[DiffSci]"
            'OleDBQuery = OleDBQuery & ",[WorkLifeArabic]"
            'OleDBQuery = OleDBQuery & ",[WorkLifeMath]"
            'OleDBQuery = OleDBQuery & ",[WorkLifeSci]"
            OleDBQuery = OleDBQuery & ",[UserName]"
            OleDBQuery = OleDBQuery & ",[Password]"
            OleDBQuery = OleDBQuery & ",[RePassword]"
            OleDBQuery = OleDBQuery & ",[Email])"
            OleDBQuery = OleDBQuery & " VALUES ("
            OleDBQuery = OleDBQuery & "'" & TxtName.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & CobMudCode.SelectedItem.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & CobSchoolCode.SelectedItem.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & CobIdaraCode.SelectedItem.Text.ToString & "',"
            OleDBQuery = OleDBQuery & IntSpecialEdu & ","
            'OleDBQuery = OleDBQuery & Session("ArabicDegree") & ","
            'OleDBQuery = OleDBQuery & Session("MathDegree") & ","
            'OleDBQuery = OleDBQuery & Session("SciDegree") & ","
            'OleDBQuery = OleDBQuery & Session("EngDegree") & ","
            'OleDBQuery = OleDBQuery & Session("SocialDegree") & ","
            'OleDBQuery = OleDBQuery & Session("DiffArabic") & ","
            'OleDBQuery = OleDBQuery & Session("DiffMath") & ","
            'OleDBQuery = OleDBQuery & Session("DiffSci") & ","
            'OleDBQuery = OleDBQuery & Session("WorkLifeArabic") & ","
            'OleDBQuery = OleDBQuery & Session("WorkLifeMath") & ","
            'OleDBQuery = OleDBQuery & Session("WorkLifeSci") & ","
            OleDBQuery = OleDBQuery & "'" & TxtUserName.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & TxtPassword.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & TxtRe_EnterPassword.Text.ToString & "',"
            OleDBQuery = OleDBQuery & "'" & TxtEMail.Text.ToString & "')"
            Session("OleDBQuery") = OleDBQuery
            OleDBCommand.CommandText = OleDBQuery
            Dim result As Integer = OleDBCommand.ExecuteNonQuery()
            OleDBQuery = "SELECT UserName, Password, StudentName, StudentCode FROM StudentID WHERE (UserName ='" & TxtUserName.Text.ToString & "' and Password='" & TxtPassword.Text.ToString & "')"
            OleDBCommand = New OleDBCommand()
            OleDBCommand.Connection = OleDBConn
            OleDBCommand.CommandText = OleDBQuery
            'Dim result As Integer = OleDBCommand.ExecuteNonQuery()
            OleDBDataReader = OleDBCommand.ExecuteReader()

            If OleDBDataReader.HasRows Then
                OleDBDataReader.Read()
                Session("StudentName") = OleDBDataReader("StudentName")
                Session("UserName") = OleDBDataReader("UserName")
                Session("Password") = OleDBDataReader("Password")
                Session("StudentCode") = OleDBDataReader("StudentCode")
                Response.Redirect("mainpage.aspx")
            End If
        End If

        OleDBCommand.Cancel()
        OleDBCommand.Dispose()
        OleDBConn.Close()
    End Sub

    Protected Sub CobMudCode_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CobMudCode.SelectedIndexChanged
        Dim OleDBquery As String = "SELECT schools.IDARA_ID, schools.IDARA_NAME FROM schools GROUP BY schools.MUD_ID, schools.IDARA_ID, schools.IDARA_NAME"
        OleDBquery = OleDBquery & "  HAVING(((schools.MUD_ID) =" & CobMudCode.SelectedValue & ")) ORDER BY schools.IDARA_NAME;"
        Using cmd As New OleDbCommand(OleDBquery)
            cmd.CommandType = CommandType.Text
            cmd.Connection = OleDBConn
            OleDBConn.Open()
            CobIdaraCode.DataSource = cmd.ExecuteReader()
            CobIdaraCode.DataTextField = "IDARA_NAME"
            CobIdaraCode.DataValueField = "IDARA_ID"
            CobIdaraCode.DataBind()
            OleDBConn.Close()
            CobIdaraCode.Items.Insert(0, New ListItem("أختر الاداره", "0"))
            CobIdaraCode.SelectedIndex = 0

        End Using
    End Sub

    Protected Sub CobIdaraCode_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CobIdaraCode.SelectedIndexChanged
        Dim OleDBquery As String = "SELECT schools.BCH_CODE, schools.BCH_DESC FROM schools "
        OleDBquery = OleDBquery & "  GROUP BY schools.MUD_ID, schools.IDARA_ID, schools.BCH_CODE, schools.BCH_DESC, schools.STAGE_ID"
        OleDBquery = OleDBquery & "  HAVING(((schools.MUD_ID) = " & CobMudCode.SelectedValue & ") And ((schools.IDARA_ID) = " & CobIdaraCode.SelectedValue & ")"
        OleDBquery = OleDBquery & " And ((schools.STAGE_ID) = 20)) ORDER BY schools.BCH_DESC;"


        Using cmd As New OleDBCommand(OleDBquery)
            cmd.CommandType = CommandType.Text
            cmd.Connection = OleDBConn
            OleDBConn.Open()
            CobSchoolCode.DataSource = cmd.ExecuteReader()
            CobSchoolCode.DataTextField = "BCH_DESC"
            CobSchoolCode.DataValueField = "BCH_CODE"
            CobSchoolCode.DataBind()
            OleDBConn.Close()
            CobSchoolCode.Items.Insert(0, New ListItem("أختر المدرسة", "0"))
            CobSchoolCode.SelectedIndex = 0

        End Using
    End Sub

    Private Sub About_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
        For Each de As DictionaryEntry In HttpContext.Current.Cache
            HttpContext.Current.Cache.Remove(DirectCast(de.Key, String))
        Next

    End Sub
End Class