createstud.aspx.vb

来自「Website for Training and Palcement Offic」· VB 代码 · 共 180 行

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"
    Dim pnumber As Integer = 0
    Dim mnumber As Integer = 0
    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
        Page.Validate()
        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 studcmd As SqlCommand = New SqlCommand("insert into STUDTAB (UID,NAME,ADDRESS,DOBIRTH,STREAM,AGGREGATE,LKT,TKT,YEAR,FE,SE,TE,BE,HSC,DIPLOMA,SSC,EMAIL,PHNO,MOB) VALUES(@uid,@name,@address,@dob,@stream,@aggregate,@lkt,@tkt,@year,@fe,@se,@te,@be,@hsc,@diploma,@ssc,@email,@phno,@mob)", 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())
            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 = drlSelect.SelectedItem.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", Integer.Parse("100"))
            ElseIf Equals(temp1, temp3) Then
                studcmd.Parameters.AddWithValue("@hsc", Integer.Parse("100"))
                studcmd.Parameters.AddWithValue("@fe", 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", Integer.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()
                    Response.Redirect("~/student/StudentHome.aspx?ID=" + Request.QueryString("ID"))
                    'Response.Redirect("~/tpo/TpoHome.axpx")
                Catch ex As Exception
                    If ex.Message.Contains("FORIGN KEY") Then
                        lbError.Text = "Please enter correct user ID"
                    Else
                        lbError.Text = "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 Me.IsPostBack() Then
        If drlYear.SelectedIndex() = 2 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 If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.MaintainScrollPositionOnPostBack = True
        If Not Page.IsPostBack() Then
            rvFE.Enabled = False
            rvSE.Enabled = False
            rvTE.Enabled = False
            rvBE.Enabled = False
            txbFE.ReadOnly = True
            txbFE.BackColor = Drawing.Color.Cyan
            txbSE.ReadOnly = True
            txbSE.BackColor = Drawing.Color.Cyan
            txbTE.ReadOnly = True
            txbTE.BackColor = Drawing.Color.Cyan
            txbBE.ReadOnly = True
            txbBE.BackColor = Drawing.Color.Cyan
        ElseIf txbTE.ReadOnly() Then
            rvTE.Enabled = True
            txbTE.ReadOnly = False
            txbTE.BackColor = Drawing.Color.White
            rvSE.Enabled = True
            txbSE.ReadOnly = False
            txbSE.BackColor = Drawing.Color.White
        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 ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bnCancel.Click

        Response.Redirect("~/Default.aspx")
    End Sub

    Protected Sub drlSelect_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles drlSelect.SelectedIndexChanged
        If drlSelect.SelectedValue.ToString() = "2" Then   'Diploma
            rvFE.Enabled = False
            'rvSE.Enabled = False
            txbFE.ReadOnly = True
            txbFE.BackColor = Drawing.Color.Cyan
            'txbSE.ReadOnly = True
            'txbSE.BackColor = Drawing.Color.Cyan
            'lbError.Text = "2"
        ElseIf drlSelect.SelectedValue.ToString() = "1" Then  'HSC selected
            rvFE.Enabled = True
            rvSE.Enabled = True
            txbFE.ReadOnly = False
            txbFE.BackColor = Drawing.Color.White
            txbSE.ReadOnly = False
            txbSE.BackColor = Drawing.Color.White
            'lbError.Text = "1"
        Else                                        'Nothing selected
            rvFE.Enabled = False
            rvSE.Enabled = False
            rvTE.Enabled = False
            rvBE.Enabled = False
            txbFE.ReadOnly = True
            txbFE.BackColor = Drawing.Color.Cyan
            txbSE.ReadOnly = True
            txbSE.BackColor = Drawing.Color.Cyan
            txbTE.ReadOnly = True
            txbTE.BackColor = Drawing.Color.Cyan
            txbBE.ReadOnly = True
            txbBE.BackColor = Drawing.Color.Cyan
            lbError.Text = "0"
        End If

    End Sub
End Class