viewstudent.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient

Partial Class tpo_ViewStudent
    Inherits System.Web.UI.Page
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
    Dim errorf As Integer = 0

    Protected Sub bnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnSubmit.Click
        Page.Validate("vg1")
        If Page.IsValid() Then
            'Dim var(5) As String
            'Dim j As Integer = 0
            Dim con As SqlConnection = New SqlConnection(cs)
            Dim query As String = "select UID,NAME from STUDTAB where(AGGREGATE >=@aggregate)and (HSC >= @hsc) and (SSC >= @ssc) and (DIPLOMA>=@diploma) and (YEAR=@year)"
            If ckTKT.Checked() Then
                query = query.ToString() + " and (TKT<=@tkt)"
            End If
            If ckLKT.Checked() Then
                query = query.ToString() + " and (LKT<=@tkt)"
            End If
            query = query.ToString() + "and "
            'Dim temp As String = "@stream0"
            'var(0) = temp
            'lbHidden1.Text = temp
            'count = Integer.Parse(lbHidden.Text.ToString())
            If ckCSE.Checked() Then
                query = query.ToString() + "(STREAM=@cse) "
            End If
            If ckIT.Checked() Then
                If ckCSE.Checked() Then
                    query = query.ToString() + "or (STREAM=@it) "
                Else
                    query = query.ToString() + "(STREAM=@it) "
                End If
            End If
            If ckEXTC.Checked() Then
                If ckCSE.Checked() Or ckIT.Checked() Then
                    query = query.ToString() + "or (STREAM=@extc) "
                Else
                    query = query.ToString() + "(STREAM=@extc)"
                End If
            End If
            If ckETRX.Checked() Then
                If ckCSE.Checked() Or ckIT.Checked() Or ckEXTC.Checked() Then
                    query = query.ToString() + "or (STREAM=@etrx) "
                Else
                    query = query.ToString() + "(STREAM=@etrx)"
                End If
            End If
            If ckMECH.Checked() Then
                If ckCSE.Checked() Or ckIT.Checked() Or ckETRX.Checked() Or ckEXTC.Checked() Then
                    query = query.ToString() + "or (STREAM=@mech) "
                Else
                    query = query.ToString() + "(STREAM=@mech) "
                End If
            End If
            If Not (ckMECH.Checked() Or ckCSE.Checked() Or ckIT.Checked() Or ckETRX.Checked() Or ckEXTC.Checked()) Then                              'loop to give different names for single @stream variable as @stream0,1...
                lbError.Text = lbError.Text.ToString() + "Please select branches"
                errorf = 1
            End If
            'lbHidden.Text = query + count.ToString()
        Dim cmd As SqlCommand = New SqlCommand(query, con)
        cmd.Parameters.AddWithValue("@aggregate", Double.Parse(txbAggregate.Text.ToString()))
        cmd.Parameters.AddWithValue("@hsc", Double.Parse(txbHSC.Text.ToString()))
        cmd.Parameters.AddWithValue("@ssc", Double.Parse(txbSSC.Text.ToString()))
        cmd.Parameters.AddWithValue("@diploma", Double.Parse(txbDiploma.Text.ToString()))
        Select Case drlYear.SelectedValue.ToString()
            Case "T.E"
                cmd.Parameters.AddWithValue("@year", "T.E")
            Case "B.E"
                cmd.Parameters.AddWithValue("@year", "B.E")
            Case Else
                lbError.Text = "Please Select Year"
                errorf = 1
        End Select

            If ckTKT.Checked() Then
                cmd.Parameters.AddWithValue("@tkt", Integer.Parse(txbTKT.Text.ToString()))
            End If
            If ckLKT.Checked() Then
                cmd.Parameters.AddWithValue("@lkt", Integer.Parse(txbLKT.Text.ToString()))
            End If

            If ckCSE.Checked() Then
                cmd.Parameters.AddWithValue("@cse", "CSE")
            End If
            If ckIT.Checked() Then
                cmd.Parameters.AddWithValue("@it", "IT")
            End If
            If ckEXTC.Checked() Then
                cmd.Parameters.AddWithValue("@extc", "EXTC")
            End If
            If ckETRX.Checked() Then
                cmd.Parameters.AddWithValue("@etrx", "ETRX")
            End If
            If ckMECH.Checked() Then
                cmd.Parameters.AddWithValue("@mech", "MECH")
            End If
            If errorf = 0 Then
                Try
                    con.Open()
                    'Dim ds As SqlDataSource = New SqlDataSource(cs, query)
                    Dim dr As SqlDataReader = cmd.ExecuteReader()
                    If dr.Read() Then
                        For i As Integer = 0 To 9 Step 1
                            If Not dr.Read() Then
                                Exit For
                            End If
                            lsName.Items.Add(dr.GetString(0) + " " + dr.GetString(1))
                        Next i
                        'lbHidden.Text = dr.GetName(0) + " " + dr.GetName(1)
                        'lsName.DataTextField = "Name"
                        'Do While dr.Read()
                        'lsName.DataSource = ds
                        'lsName.DataBind()
                        'lsName.Items.Add(dr.GetString(0) + "       " + dr.GetString(1))
                        'TextBox1.Text = TextBox1.Text.ToString() + dr.GetString(0)
                        'lbHidden1.Text = dr.GetString(0)
                        'dr.NextResult()
                        'Loop
                    Else
                        lbError.Text = "Null"
                    End If
                    con.Close()
                Catch ex As Exception
                    lbError.Text = ex.Message().ToString()
                End Try
            Else
                lbError.Text = lbError.Text.ToString() + "Error at end"
            End If
        End If
    End Sub

    Protected Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckLKT.CheckedChanged
        If ckLKT.Checked() Then
            txbLKT.ReadOnly = False
            txbLKT.BackColor = Drawing.Color.White
        Else
            txbLKT.ReadOnly = True
            txbLKT.BackColor = Drawing.Color.Aqua
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.MaintainScrollPositionOnPostBack = True
        If Me.IsPostBack() = False Then
            ckLKT.Checked = False
            ckTKT.Checked = False
            txbTKT.ReadOnly = True
            txbLKT.ReadOnly = True
            txbTKT.BackColor = Drawing.Color.Aqua
            txbLKT.BackColor = Drawing.Color.Aqua
            lbHidden.Text = 0
        End If
    End Sub

    Protected Sub ckTKT_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckTKT.CheckedChanged
        If ckTKT.Checked() Then
            txbTKT.BackColor = Drawing.Color.White
            txbTKT.ReadOnly = False
        Else
            txbTKT.BackColor = Drawing.Color.Aqua
            txbTKT.ReadOnly = True
        End If
    End Sub

    Protected Sub ckCSE_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckCSE.CheckedChanged
        
    End Sub

    Protected Sub ckIT_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckIT.CheckedChanged
        
    End Sub

    Protected Sub ckEXTC_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckEXTC.CheckedChanged
        
    End Sub

    Protected Sub ckETRX_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckETRX.CheckedChanged
        
    End Sub

    Protected Sub ckMECH_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckMECH.CheckedChanged
        
    End Sub

    Protected Sub lsName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsName.SelectedIndexChanged

    End Sub
End Class