ve-51.tmp

Website for Training and Palcement Officer

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

    Protected Sub TextBox13_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txbBE.TextChanged

    End Sub

    Protected Sub bnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnSubmit.Click

        If Page.IsValid() 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 studpasscmd As SqlCommand = New SqlCommand("insert into STUDPASS (UID,PASS) values(@uid,@pass)", con)
            studpasscmd.Parameters.AddWithValue("@uid", txbUID.Text.ToString())
            studpasscmd.Parameters.AddWithValue("@pass", txbPass.Text.ToString())
            Dim studcmd As SqlCommand = New SqlCommand("insert into STUDTAB (UID,NAME,ADDRESS,DOB,STREAM,AGGREGATE,LKT,TKT,YEAR,FE,SE,TE,BE,HSC,DIPLOMA,SSC,EMAIL) VALUES(@uid,@name,@address,@dob,@stream,@aggregate,@lkt,@tkt,@year,@fe,@se,@te,@be,@hsc,@diploma,@ssc,@email)", 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("@dob", 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())
            temp1 = drlSelect.SelectedItem.ToString()
            temp2 = "HSC"
            temp3 = "Diploma"
            If Equals(temp1, temp2) Then
                studcmd.Parameters.AddWithValue("@fe", Double.Parse(txbFE.Text.ToString()))
                studcmd.Parameters.AddWithValue("@se", Double.Parse(txbSE.Text.ToString()))
                studcmd.Parameters.AddWithValue("@hsc", Double.Parse(txbMarks.Text.ToString()))
            ElseIf Equals(temp1, temp3) Then
                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("@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())
            If flag < 1 Then
                con.Open()
                studpasscmd.ExecuteNonQuery()
                studcmd.ExecuteNonQuery()
                con.Close()
            End If
        End If
        
    End Sub

    Protected Sub drlYear_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drlYear.SelectedIndexChanged
        'If Me.IsPostBack() Then
        If drlYear.SelectedIndex() = 1 Then
            txbBE.ReadOnly = True
            txbBE.BackColor = Drawing.Color.Cyan
        ElseIf drlYear.SelectedIndex() = 2 Then
            txbBE.ReadOnly = False
            txbBE.BackColor = Drawing.Color.White
        Else
            lbError.Text = drlSelect.SelectedValue.ToString()
        End If
        
        'End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub bnSubmit_Command(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) Handles bnSubmit.Command

    End Sub
End Class