updatepro.aspx.vb

Website for Training and Palcement Officer

Imports System.Data
Imports System.Data.SqlClient

Partial Class student_UpdatePro
    Inherits System.Web.UI.Page
    Dim pnumber As Integer = 0
    Dim mnumber As Integer = 0
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            Dim con As SqlConnection = New SqlConnection(cs)
            Dim cmd As SqlCommand = New SqlCommand("select * from STUDTAB where UID=@id", con)
            cmd.Parameters.AddWithValue("@id", Request.QueryString("ID"))
            Try
                con.Open()
                Dim dr As SqlDataReader = cmd.ExecuteReader()
                If Not (dr.Read()) Then
                    lbStatus.Text = "Error In loading Login again"
                Else
                    Dim temp1 As String = ""
                    txbUID.Text = dr.GetString(0)
                    txbName.Text = dr.GetString(1)
                    Select Case dr.GetString(2)
                        Case "CSE"
                            drlStream.SelectedIndex = 0
                        Case "IT"
                            drlStream.SelectedIndex = 1
                        Case "ETRX"
                            drlStream.SelectedIndex = 2
                        Case "EXTC"
                            drlStream.SelectedIndex = 3
                        Case "MECH"
                            drlStream.SelectedIndex = 4
                    End Select

                    txbAddress.Text = dr.GetString(3)
                    If dr.IsDBNull(4) Then
                        txbMob.Text = "No"
                    Else
                        txbMob.Text = dr.GetString(4)
                    End If
                    If dr.IsDBNull(5) Then
                        txbPhno.Text = "No"
                    Else
                        txbPhno.Text = dr.GetString(5)
                    End If
                    txbAggregate.Text() = dr.GetValue(6).ToString()
                    txbSSC.Text() = dr.GetValue(7).ToString()
                    If dr.GetValue(9) = 100 Then
                        lbIsHSC.Text = "HSC"
                        txbMarks.Text() = dr.GetValue(8).ToString()
                    Else
                        lbIsHSC.Text = "Diploma"
                        txbMarks.Text() = dr.GetValue(9).ToString()
                    End If
                    txbDOB.Text() = dr.GetString(10)
                    txbEmail.Text() = dr.GetString(11)
                    txbLKT.Text() = dr.GetValue(12).ToString()
                    txbTKT.Text() = dr.GetValue(13).ToString()
                    Select Case dr.GetString(14)
                        Case "T.E"
                            drlYear.SelectedIndex = 0
                        Case "B.E"
                            drlYear.SelectedIndex = 1
                    End Select

                    If dr.IsDBNull(15) Then
                        txbFE.BackColor = Drawing.Color.Silver
                        'txbSE.BackColor = Drawing.Color.Silver
                        txbFE.ReadOnly = True
                        'txbSE.ReadOnly = True
                    Else
                        txbFE.Text = dr.GetValue(15).ToString()
                    End If
                    txbSE.Text = dr.GetValue(16).ToString()
                    txbTE.Text() = dr.GetValue(17).ToString()
                    If Equals(temp1, dr.IsDBNull(18)) Then
                        txbBE.BackColor = Drawing.Color.Silver
                        txbBE.ReadOnly = True
                    Else
                        txbBE.BackColor = Drawing.Color.White
                        txbBE.ReadOnly = False
                        txbBE.Text = dr.GetValue(18).ToString()
                    End If
                End If
                con.Close()
            Catch ex As Exception
                lbStatus.Text = ex.Message.ToString()
            End Try
        End If
    End Sub

    Protected Sub bnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnSubmit.Click
        Page.Validate()
        If Page.IsValid() = True Then
            Dim flag As Integer = 0
            Dim temp1 As String = ""
            Dim temp2 As String = ""
            Dim temp3 As String = ""
            Dim con As SqlConnection = New SqlConnection(cs)
            Dim studcmd As SqlCommand = New SqlCommand("update STUDTAB set NAME=@name,ADDRESS=@address,DOBIRTH=@dobirth,STREAM=@stream,AGGREGATE=@aggregate,LKT=@lkt,TKT=@tkt,YEAR=@year,FE=@fe,SE=@se,TE=@te,BE=@be,HSC=@hsc,DIPLOMA=@diploma,SSC=@ssc,EMAIL=@email,PHNO=@phno,MOB=@mob where (UID=@uid)", con)
            studcmd.Parameters.AddWithValue("@uid", txbUID.Text.ToString())
            studcmd.Parameters.AddWithValue("@name", txbName.Text.ToString())
            studcmd.Parameters.AddWithValue("@address", txbAddress.Text.ToString())
            studcmd.Parameters.AddWithValue("@dobirth", txbDOB.Text.ToString())
            studcmd.Parameters.AddWithValue("@stream", drlStream.SelectedValue.ToString())
            studcmd.Parameters.AddWithValue("@aggregate", Double.Parse(txbAggregate.Text.ToString()))
            studcmd.Parameters.AddWithValue("@lkt", Integer.Parse(txbLKT.Text.ToString()))
            studcmd.Parameters.AddWithValue("@tkt", Integer.Parse(txbTKT.Text.ToString()))
            studcmd.Parameters.AddWithValue("@year", drlYear.SelectedValue.ToString())
            If pnumber = 1 Then
                studcmd.Parameters.AddWithValue("@phno", txbPhno.Text.ToString())
            Else
                studcmd.Parameters.AddWithValue("@phno", DBNull.Value)
            End If
            If mnumber = 1 Then
                studcmd.Parameters.AddWithValue("@mob", txbMob.Text.ToString())
            Else
                studcmd.Parameters.AddWithValue("@mob", DBNull.Value)
            End If
            temp1 = lbIsHSC.Text.ToString()
            temp2 = "HSC"
            temp3 = "Diploma"
            If Equals(temp1, temp2) Then
                studcmd.Parameters.AddWithValue("@fe", Double.Parse(txbFE.Text.ToString()))
                studcmd.Parameters.AddWithValue("@hsc", Double.Parse(txbMarks.Text.ToString()))
                studcmd.Parameters.AddWithValue("@diploma", Double.Parse("100"))
            ElseIf Equals(temp1, temp3) Then
                studcmd.Parameters.AddWithValue("@hsc", Double.Parse("100"))
                studcmd.Parameters.AddWithValue("@fe", DBNull.Value)
                'studcmd.Parameters.AddWithValue("@se", DBNull.Value)
                studcmd.Parameters.AddWithValue("@diploma", Double.Parse(txbMarks.Text.ToString()))
            Else
                lbError.Text = "Select HSC or Diploma "
                flag = 1
            End If
            studcmd.Parameters.AddWithValue("@se", Double.Parse(txbSE.Text.ToString()))
            studcmd.Parameters.AddWithValue("@Te", Double.Parse(txbTE.Text.ToString()))
            temp1 = drlYear.SelectedValue.ToString()
            temp2 = "B.E"
            temp3 = "T.E"
            If Equals(temp1, temp2) Then
                studcmd.Parameters.AddWithValue("@Be", Double.Parse(txbBE.Text.ToString()))
            ElseIf Equals(temp1, temp3) Then
                studcmd.Parameters.AddWithValue("@Be", DBNull.Value)
            Else
                lbError.Text = lbError.Text.ToString() + " Select current year from drop down list"
                flag = 1
            End If
            studcmd.Parameters.AddWithValue("@email", txbEmail.Text.ToString())
            studcmd.Parameters.AddWithValue("@ssc", Double.Parse(txbSSC.Text.ToString()))

            If flag < 1 Then
                Try
                    con.Open()
                    studcmd.ExecuteNonQuery()
                    con.Close()
                    Dim url As String = "~/student/Success.aspx?ID=" + Request.QueryString("ID")
                    Response.Redirect(url)
                Catch ex As Exception
                    If ex.Message.Contains("FORIGN KEY") Then
                        lbError.Text = "Please enter correct user ID"
                    Else
                        lbError.Text = ex.ToString() '"Database connection error"
                    End If
                End Try
            End If
        Else
            lbError.Text = "Please fill all * the fields in correct format"
        End If

    End Sub

    Protected Sub drlYear_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drlYear.SelectedIndexChanged
        If drlYear.SelectedIndex() = 1 Then
            txbBE.ReadOnly = False
            rvBE.Enabled = True
            txbBE.BackColor = Drawing.Color.White
        Else
            txbBE.ReadOnly = True
            rvBE.Enabled = False
            txbBE.BackColor = Drawing.Color.Cyan
        End If

    End Sub

    Protected Sub txbPhno_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txbPhno.TextChanged
        pnumber = 1
    End Sub

    Protected Sub txbMob_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txbMob.TextChanged
        mnumber = 1
    End Sub

    Protected Sub bnCancel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnCancel.Click
        Dim url As String = "~/student/StudentHome.aspx?ID=" + Request.QueryString("ID")
        Response.Redirect(url)

    End Sub
End Class