webapply.aspx.vb

在线考试系统详细源码

Imports System.Data                              '引入数据库操作类命名空间
Imports System.Data.OleDb                       '引入ADO.NET操作命名空间

Public Class WebForm3
    Inherits System.Web.UI.Page
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 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 Label13 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Public cmd As OleDbCommandBuilder
    Public ADOcmd As OleDbDataAdapter         '建立ADODataSetCommand对象
    Public ds As DataSet = New DataSet()      '建立DataSet对象 
    Public mytable As Data.DataTable           '建立表单对象
    Protected WithEvents Txtname As System.Web.UI.WebControls.TextBox
    Protected WithEvents LbWarring As System.Web.UI.WebControls.Label
    Protected WithEvents TxtPostCode As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtBornDate 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 DrDListTestPlace As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TxtTel As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtAddress As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 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 HyperLink9 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents BtPresent As System.Web.UI.WebControls.Button
    Protected WithEvents BtRetry As System.Web.UI.WebControls.Button
    Protected WithEvents DrDlistSex As System.Web.UI.WebControls.DropDownList
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator
    Public myrow As Data.DataRow                '建立数据行对象


#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
        '在此处放置初始化页的用户代码
    End Sub

  

    Private Sub BtRetry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRetry.Click
        Txtname.Text = ""
        TxtIDno.Text = ""
        DrDlistSex.ClearSelection()
        TxtBornDate.Text = ""
        TxtPostCode.Text = ""
        TxtAddress.Text = ""
        TxtTel.Text = ""
        DrDListTestDate.ClearSelection()
        DrDListTestPlace.ClearSelection()

    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
            LbWarring.Text = "请输入性别"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtIDno.Text)) Then
            LbWarring.Text = "身份证请输入数字！"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtPostCode.Text)) Then
            LbWarring.Text = "邮政编码请输入数字！"
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtTel.Text)) Then
            LbWarring.Text = "联系电话请输入数字！"
            Exit Sub
        End If
        If Not IsDate(TxtBornDate.Text) Then
            LbWarring.Text = "出生时间应输入日期格式（yyyy-mm-dd）！"
            Exit Sub
        End If
        If Not IsDate(DrDListTestDate.SelectedItem.Text) Then
            LbWarring.Text = "请选择考试日期"
            Exit Sub
        End If
        If Strings.Len(DrDListTestPlace.SelectedItem.Text) <> 4 Then
            LbWarring.Text = "请选择考场编号"
            Exit Sub
        End If
        Dim SearchSQL As String
        SearchSQL = "SELECT * FROM tbtestplaceinfo WHERE (考试日期 = '" & DrDListTestDate.SelectedItem.Text & "') AND (考点代号 = '" & DrDListTestPlace.SelectedItem.Text & "')" '建立查询

        Dim cmd1 As OleDbCommandBuilder
        Dim SeatNo As Integer                   '考场坐位数
        Dim ADOcmd1 As OleDbDataAdapter         '建立ADODataSetCommand对象
        Dim ds1 As DataSet = New DataSet()      '建立DataSet对象 
        Dim mytable1 As Data.DataTable          '建立表单对象
        Dim myrow1 As DataRow
        ADOcmd1 = New OleDbDataAdapter(SearchSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\computertest.mdb")
        '建立ADODataSetCommand对象()
        ADOcmd1.Fill(ds1, "tbtestplaceinfo")
        mytable1 = ds1.Tables.Item(0)
        SeatNo = mytable1.Rows.Item(0).Item(3)   '获取考场的坐位数
        If SeatNo = 0 Then
            Me.Response.Write("该考场已满，请选择其他考场")
            Exit Sub
        End If
        SearchSQL = "select * from tbapplyinfo " '建立查询
        ADOcmd = New OleDbDataAdapter(SearchSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\computertest.mdb")
        '建立ADODataSetCommand对象
        ADOcmd.Fill(ds, "tbapplyinfo")
        mytable = ds.Tables.Item(0)
        Dim i As Integer
        For i = 0 To mytable.Rows.Count - 1
            myrow = mytable.Rows.Item(i)
            If Trim(TxtIDno.Text) = myrow.Item(6).ToString And Trim(DrDListTestDate.SelectedItem.Text) = myrow.Item(4) Then    '再加日期条件
                LbWarring.Text = "你不能在同一考试日期内重复报名！"
                '限制同一人不能在同一日期内重复报名
                Exit Sub
            End If
        Next
        Dim newrow As DataRow
        newrow = mytable.NewRow
        Dim testno As String
        testno = Format((mytable.Rows.Count + 1), "0000") '生成准考证号
        newrow.Item(0) = testno
        newrow.Item(1) = Trim(Txtname.Text)
        newrow.Item(2) = DrDlistSex.SelectedItem.Text
        newrow.Item(3) = Trim(TxtBornDate.Text)
        newrow.Item(4) = Trim(DrDListTestDate.SelectedItem.Text)
        newrow.Item(5) = Trim(DrDListTestPlace.SelectedItem.Text)
        newrow.Item(6) = Trim(TxtIDno.Text)
        newrow.Item(7) = Trim(TxtTel.Text)
        newrow.Item(8) = Trim(TxtPostCode.Text)
        newrow.Item(9) = Trim(TxtAddress.Text)
        Dim Password As String
        Randomize()
        Password = CInt(Int((99999 * Rnd()) + 10000)).ToString
        '随机产生4位数的密码
        newrow.Item(10) = Password
        mytable.Rows.Add(newrow)
        cmd = New OleDbCommandBuilder(ADOcmd)
        '使用自动生成的SQL语句
        ADOcmd.Update(ds, "tbapplyinfo")
        '对数据库进行更新
        LbWarring.Text = "恭喜你！报名预定成功,准考证号:" + testno + "密码:" + Password
        Dim CONN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\computertest.mdb"
        '数据库连接字符串
        Dim sqlconn As New OleDbConnection(CONN)
        Dim SQLString As String
        SeatNo = SeatNo - 1  '座位余额减少1
        SQLString = "UPDATE tbtestplaceinfo SET 座位余额 = '" & SeatNo & "' WHERE (考试日期 ='" & DrDListTestDate.SelectedItem.Text & "') AND (考点代号 = '" & DrDListTestPlace.SelectedItem.Text & "')"
        '更新座位余额
        Dim cmdTable As OleDbCommand = New OleDbCommand(SQLString, 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