createstud.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Sql

Partial Class co_ordinator_CreateStud
    Inherits System.Web.UI.Page

    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Page.Validate("vg1")
        If Not ckUseDefault.Checked() Then
            Page.Validate("vg2")
        End If
        lbError.Font.Bold = True
        lbError.ForeColor = Drawing.Color.Red
        If Page.IsValid() Then
            Dim errorMessages As New StringBuilder()
            Dim con As SqlConnection = New SqlConnection(cs)
            Dim cmd As SqlCommand = New SqlCommand("insert into STUDPASSTAB (UID,PASS) values(@uid,@pass)", con)
            cmd.Parameters.AddWithValue("@uid", txbUID.Text.ToString())
            If ckUseDefault.Checked() Then
                cmd.Parameters.AddWithValue("@pass", "DKTE")
            Else
                cmd.Parameters.AddWithValue("@pass", txbPass.Text.ToString())
            End If
            Try
                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()
                Response.Redirect("~/co-ordinator/Success.aspx?ID=" + Request.QueryString("ID").ToString())
            Catch ex As Exception
                If ex.Message.Contains("PRIMARY KEY") Then
                    lbError.Text = "User ID already exist"
                Else
                    lbError.Text = "Error in database connection"
                End If

            End Try
        End If
    End Sub

    Protected Sub ImageButton2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
        Response.Redirect("~/Co-ordinator/CordHome.aspx?ID=" + Request.QueryString("ID").ToString())
    End Sub

    Protected Sub ckUseDefault_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ckUseDefault.CheckedChanged
        If ckUseDefault.Checked() Then
            txbPass.ReadOnly = True
            txbConfirm.ReadOnly = True
            txbPass.BackColor = Drawing.Color.AliceBlue
            txbConfirm.BackColor = Drawing.Color.AliceBlue
            cvConfirm.Enabled = False
            rfvPass.Enabled = False
        Else
            txbPass.ReadOnly = False
            txbConfirm.ReadOnly = False
            txbPass.BackColor = Drawing.Color.White
            txbConfirm.BackColor = Drawing.Color.White
            cvConfirm.Enabled = True
            rfvPass.Enabled = True
        End If
    End Sub
End Class