websearchresult.aspx.vb

在线考试系统详细源码

Imports System.Data                              '引入数据库操作类命名空间
Imports System.Data.OleDb                       '引入ADO.NET操作命名空间
Public Class WebForm5
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Txtname As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label13 As System.Web.UI.WebControls.Label
    Protected WithEvents TxtBornDate As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents Label9 As System.Web.UI.WebControls.Label
    Protected WithEvents Label10 As System.Web.UI.WebControls.Label
    Protected WithEvents Label11 As System.Web.UI.WebControls.Label
    Protected WithEvents Label12 As System.Web.UI.WebControls.Label
    Protected WithEvents TxtAddress As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtPostCode As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtTel As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtIDno As System.Web.UI.WebControls.TextBox
    Protected WithEvents DrDListTestDate As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents TxtPassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents LbWarning As System.Web.UI.WebControls.Label
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink6 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink7 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink8 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents HyperLink9 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents BtModify As System.Web.UI.WebControls.Button
    Protected WithEvents BtPresent As System.Web.UI.WebControls.Button
    Protected WithEvents DrDlistSex As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DrDlistTestPlace As System.Web.UI.WebControls.DropDownList
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Public mytable As Data.DataTable           '建立表单对象

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Page.IsPostBack = False Then
            Txtname.Enabled = False  '设置文本框无效
            DrDlistSex.Enabled = False
            TxtBornDate.Enabled = False
            TxtPassword.Enabled = False
            DrDListTestDate.Enabled = False
            DrDlistTestPlace.Enabled = False
            TxtIDno.Enabled = False
            TxtTel.Enabled = False
            TxtPostCode.Enabled = False
            TxtAddress.Enabled = False
            Dim SearchSQL As String
            SearchSQL = "SELECT * FROM tbapplyinfo WHERE (准考证号 = '" & InputTestno & "') AND (密码 = '" & InputPassword & "')"        '建立查询
            Dim CONN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\computertest.mdb"
            '数据库连接字符串
            Dim ADOcmd As New OleDbDataAdapter()
            Dim ds As DataSet = New DataSet()   '建立DataSet对象 
            Dim sqlconn As New OleDbConnection(CONN)
            Dim cmdTable As OleDbCommand = New OleDbCommand(SearchSQL, sqlconn)
            cmdTable.CommandType = CommandType.Text
            ADOcmd.SelectCommand = cmdTable
            If sqlconn.State <> ConnectionState.Open Then
                '如果数据库连接未打开，则打开数据库连接
                sqlconn.Open()
            End If
            cmdTable.ExecuteNonQuery()
            '执行SQL语句，更新数据库
            If sqlconn.State <> ConnectionState.Closed Then
                '如果数据库连接未关闭，则关闭数据库连接
                sqlconn.Close()
            End If
            ADOcmd.Fill(ds)
            If ds.Tables(0).Rows.Count = 0 Then
                LbWarning.Text = "密码或考号输入错误，请重新登录"
                BtModify.Enabled = False
                BtPresent.Enabled = False
                Exit Sub
            End If
            Txtname.Text = ds.Tables.Item(0).Rows(0).Item(1)    '下面的代码显示考生信息
            If ds.Tables.Item(0).Rows(0).Item(2).ToString = "男" Then
                DrDlistSex.Items.Item(1).Selected = True
            Else
                DrDlistSex.Items.Item(1).Selected = False
            End If
            TxtBornDate.Text = ds.Tables.Item(0).Rows(0).Item(3)
            Dim i As Integer
            For i = 0 To DrDListTestDate.Items.Count - 1
                If DrDListTestDate.Items.Item(i).Text = ds.Tables.Item(0).Rows(0).Item(4) Then
                    DrDListTestDate.Items.Item(i).Selected = True
                End If
            Next
            For i = 0 To DrDlistTestPlace.Items.Count - 1
                If DrDlistTestPlace.Items.Item(i).Text = ds.Tables.Item(0).Rows(0).Item(5) Then
                    DrDlistTestPlace.Items.Item(i).Selected = True
                End If
            Next
            TxtIDno.Text = ds.Tables.Item(0).Rows(0).Item(6)
            TxtTel.Text = ds.Tables.Item(0).Rows(0).Item(7)
            TxtPostCode.Text = ds.Tables.Item(0).Rows(0).Item(8)
            TxtAddress.Text = ds.Tables.Item(0).Rows(0).Item(9)
            TxtPassword.Text = ds.Tables.Item(0).Rows(0).Item(10)
        End If
    End Sub



  


    Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click
        Txtname.AutoPostBack = True
        Txtname.Enabled = True
        DrDlistSex.Enabled = True
        TxtBornDate.Enabled = True
        TxtPassword.Enabled = True
        DrDListTestDate.Enabled = True
        DrDlistTestPlace.Enabled = True
        TxtIDno.Enabled = True
        TxtTel.Enabled = True
        TxtPostCode.Enabled = True
        TxtAddress.Enabled = True

    End Sub

    Private Sub BtPresent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPresent.Click
        If DrDlistSex.SelectedItem.Text <> "男" And DrDlistSex.SelectedItem.Text <> "女" Then
            LbWarning.Text = "请输入性别"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtIDno.Text)) Then
            LbWarning.Text = "身份证请输入数字！"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtPostCode.Text)) Then
            LbWarning.Text = "邮政编码请输入数字！"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtTel.Text)) Then
            LbWarning.Text = "联系电话请输入数字！"
            Exit Sub
        End If
        If Not IsDate(TxtBornDate.Text) Then
            LbWarning.Text = "出生时间应输入日期格式（yyyy-mm-dd）！"
            Exit Sub
        End If
        If Not IsDate(DrDListTestDate.SelectedItem.Text) Then
            LbWarning.Text = "请选择考试日期"
            Exit Sub
        End If
        If Strings.Len(DrDlistTestPlace.SelectedItem.Text) <> 4 Then
            LbWarning.Text = "请选择考场编号"
            Exit Sub
        End If
        LbWarning.Text = "恭喜你！修改报名信息成功,准考证号:" + InputTestno + "密码:" + TxtPassword.Text
        Dim SearchSQL As String
        SearchSQL = "UPDATE tbapplyinfo SET 姓名='" & Trim(Txtname.Text) & "' ," & _
      " 性别='" & Trim(DrDlistSex.SelectedItem.Text) & "' ,出生='" & Trim(TxtBornDate.Text) & "' ," & _
 " 考试日期='" & Trim(DrDListTestDate.SelectedItem.Text) & "' ,考点='" & Trim(DrDlistTestPlace.SelectedItem.Text) & "' ," & _
  " 身份证号='" & Trim(TxtIDno.Text) & "' ,联系电话='" & Trim(TxtTel.Text) & "' ," & _
 " 邮政编码='" & Trim(TxtPostCode.Text) & "' ,通讯地址='" & Trim(TxtAddress.Text) & "' ," & _
 "密码= '" & Trim(TxtPassword.Text) & "' WHERE (准考证号= '" & InputTestno & "') "        '更新记录
        Dim CONN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\computertest.mdb"
        '数据库连接字符串
        Dim sqlconn As New OleDbConnection(CONN)
        '更新座位余额
        Dim cmdTable As OleDbCommand = New OleDbCommand(SearchSQL, sqlconn)
        cmdTable.CommandType = CommandType.Text
        If sqlconn.State <> ConnectionState.Open Then
            '如果数据库连接未打开，则打开数据库连接
            sqlconn.Open()
        End If
        cmdTable.ExecuteNonQuery()
        '执行SQL语句，更新数据库
        If sqlconn.State <> ConnectionState.Closed Then
            '如果数据库连接未关闭，则关闭数据库连接
            sqlconn.Close()
        End If

    End Sub
End Class