Imports System.Data.OleDb
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.MasterPage
Imports AjaxControlToolkit
Public Class Fourms
    Inherits System.Web.UI.Page
    Dim OleDBConn As OleDBConnection
    Dim OleDBCommand As OleDBCommand
    Dim OleDBDataReader, OleDBItemDataReader As OleDBDataReader
    Dim OleDBQuery As String
    Dim OleDB_CommuntyDataAdapter, OleDB_SurveyItemsDataAdapter As OleDBDataAdapter
    Dim OleDB_CommuntyDataTable, OleDB_SurveyItemsDataTable As DataTable
    Dim MdlPop As ModalPopupExtender
    Dim StrDataTableFilter, StrDataTableSort, StrStudentCode As String
    Dim IntItemCount, IntItemNo, IntItemAnwser, IntStudentCode As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session("Messege") = ""
        OleDBConn = New OleDBConnection(Session("Connection"))
        OleDBConn.Open()
        OleDBCommand = New OleDBCommand()
        OleDBCommand.Connection = OleDBConn
        LblCommentWriteDate.Text = Date.UtcNow.Date.ToString
        LBlStudentName.Text = Session("Studentname")
        OleDBQuery = "SELECT        StudentID.StudentName, StudentCommunty.Comment, StudentCommunty.CommentDate"
        OleDBQuery = OleDBQuery & " FROM            StudentID INNER JOIN"
        OleDBQuery = OleDBQuery & " StudentCommunty ON StudentID.StudentCode = StudentCommunty.StudentCode"
        OleDBQuery = OleDBQuery & " ORDER BY StudentCommunty.CommentDate"
        OleDBCommand.CommandText = OleDBQuery
        OleDB_CommuntyDataAdapter = New OleDBDataAdapter()
        OleDB_CommuntyDataTable = New DataTable()
        OleDB_CommuntyDataAdapter.SelectCommand = OleDBCommand
        OleDB_CommuntyDataAdapter.Fill(OleDB_CommuntyDataTable)
        If OleDB_CommuntyDataTable.Rows.Count <> 0 Then
            Session("Fourms") = ""
            Dim RowIndex As Integer = 0
            For Each Row As DataRow In OleDB_CommuntyDataTable.Rows
                Session("Fourms") = Session("Fourms") & "<table style='width:650px; border-color:#CCCCCC; border-width:1; border-style:solid;' >"
                Session("Fourms") = Session("Fourms") & "<tr>"
                Session("Fourms") = Session("Fourms") & " <td rowspan =3 >  </td>"
                ''For Each column As DataColumn In OleDB_CommuntyDataTable.Columns

                'Select Case column.ColumnName
                '    Case "StudentName"
                Session("Fourms") = Session("Fourms") & "<td style= text-align:right;'> <p>" & OleDB_CommuntyDataTable.Rows(RowIndex).Item("StudentName") & "</p></td>"
                'Case "CommentDate"
                Session("Fourms") = Session("Fourms") & "<td style= text-align:left;'>  <p>" & OleDB_CommuntyDataTable.Rows(RowIndex).Item("CommentDate") & "</p></td></tr>"
                'Case "Comment"
                'Session("Fourms") = Session("Fourms") & "<tr><td  colspan=2 style='width:650px; text-align:right;'> <p>" & OleDB_CommuntyDataTable.Rows(RowIndex).Item(column.ColumnName) & "</p></td>"
                Session("Fourms") = Session("Fourms") & "<tr><td  colspan=2 style='width:650px; text-align:right;'> <p>" & OleDB_CommuntyDataTable.Rows(RowIndex).Item("Comment") & "</p></td>"

                '    End Select


                'Next
                Session("Fourms") = Session("Fourms") & "</tr></table><br/>"
                RowIndex = RowIndex + 1
            Next
        End If

    End Sub

    Private Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click

        Try

            If TxtComment.Text <> "" Then
                OleDBQuery = "Insert into StudentCommunty (StudentCode, Comment, CommentDate) Values (" & Session("StudentCode") & ",'" & TxtComment.Text & "','" & DateTime.Parse(LblCommentWriteDate.Text) & "')"

                OleDBCommand.CommandText = OleDBQuery
                OleDBCommand.ExecuteNonQuery()
                OleDBCommand.Cancel()
                OleDBCommand.Dispose()
                TxtComment.Text = ""
            Else
                Dim LblMessege As Label = CType(Master.FindControl("Label1"), Label)
                Session("Messege") = "لم يتم أدخال تعليقك لعدم كتابة أى تعليق"
                ShowPanel("Label4", "Panel8", "Button3")

            End If
        Catch ex As Exception
            ShowPanel("Label1", "Panel5", "Button1")

        End Try

    End Sub

    Sub ShowPanel(ByVal StrTargetControlID As String, ByVal StrPopupControlID As String, ByVal StrOkControlID As String)
        MdlPop = CType(Master.FindControl("mdlpopup"), ModalPopupExtender)
        With MdlPop
            .DropShadow = "True"
            .TargetControlID = StrTargetControlID
            .PopupControlID = StrPopupControlID
            .OkControlID = StrOkControlID
            .X = "400"
            .Y = "250"
            .Show()
            .Focus()
            .Enabled() = True
        End With


    End Sub
End Class