modifystu.aspx.vb

利用简单框架结构vb+asp+sql,实现小型考试系统

Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm2
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents dblname As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

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

#End Region
    Dim objconn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
    Dim stugrid As DataSet
    Dim stuadp As SqlDataAdapter
    Dim objcomd As SqlCommand
    Public comdstr, comdstr1, comdstr2 As String
    Public dblstr As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        comdstr2 = "select DISTINCT studentclass from student"
        stuadp = New SqlDataAdapter(comdstr2, objconn)
        stugrid = New DataSet
        stuadp.Fill(stugrid, "student")
        dblname.DataSource = stugrid.Tables("student")
        dblname.DataBind()
        dblname.Items.Insert(0, New ListItem("全部", "全部"))
        dblname.SelectedIndex = dblname.Items.IndexOf(dblname.Items.FindByText("全部"))
        If (IsPostBack = False) Then
            dblstr = "全部"
            stud()
        End If
    End Sub
    Function stud()
        ifsub()
        stuadp = New SqlDataAdapter(comdstr, objconn)
        stugrid = New DataSet
        stuadp.Fill(stugrid)
        DataGrid1.DataSource = stugrid
        DataGrid1.DataBind()
    End Function
    Function stud1(ByVal sqlstr As String)
        'Response.Write(sqlstr)
        stuadp = New SqlDataAdapter(sqlstr, objconn)
        stugrid = New DataSet
        stuadp.Fill(stugrid)
        DataGrid1.DataSource = stugrid
        DataGrid1.DataBind()
    End Function
    '编辑操作
    Sub studedit(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
        'Response.Write(Session("str"))
        DataGrid1.EditItemIndex = CInt(e.Item.ItemIndex) ' 获取控件中编辑项的索引
        stud1(Session("str"))
    End Sub
    '取消操作
    Sub studcancel(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
        DataGrid1.EditItemIndex = -1
        stud1(Session("str"))
    End Sub
    '更新操作
    Sub studupdate(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
        Dim objcell1, objcell2 As TextBox
        Dim stupdate, cell0, cell1, cell2, cell4 As String
        cell0 = e.Item.Cells(0).Text '获取序号
        cell4 = e.Item.Cells(4).Text '获取学号

        '获取TextBox控件中文本内容
        objcell1 = CType(e.Item.FindControl("stuname"), TextBox)
        objcell2 = CType(e.Item.FindControl("stupwd"), TextBox)
        cell1 = objcell1.Text
        cell2 = objcell2.Text
        stupdate = "update student set studentname='" & cell1 & "',studentpwd='" & cell2 & "' where id='" & cell0 & "' and studentorder='" & cell4 & "'"
        objcomd = New SqlCommand(stupdate, objconn)
        objconn.Open()
        objcomd.ExecuteNonQuery() '执行更新操作
        Response.Write("<script LANGUAGE='javascript'>alert('编辑成功！')</script>")
        DataGrid1.EditItemIndex = -1
        objconn.Close()
        stud1(Session("str"))
    End Sub
    Sub studdel(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs)
        Dim strdel, cell0, cell4 As String
        cell0 = e.Item.Cells(0).Text '获取单元格中编号的值
        cell4 = e.Item.Cells(0).Text
        strdel = "delete from student where id='" & cell0 & "' and studentorder='" & cell4 & "'"
        objcomd = New SqlCommand(strdel, objconn)
        objconn.Open()
        objcomd.ExecuteNonQuery() '执行删除操作
        Response.Write("<script LANGUAGE='javascript'>alert('删除成功！')</script>")
        objconn.Close()
        stud1(Session("str"))
    End Sub
    '设置分页
    Sub changepage(ByVal sender As System.Object, ByVal e As DataGridPageChangedEventArgs)
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        stud()
    End Sub

    Public Sub dblname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dblname.SelectedIndexChanged
        dblstr = Request.Form("dblname")
        stud1(ifsub())
    End Sub

    Public key, skey, comdskey As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        key = Request.Form("key").Trim()
        skey = Request.Form("skey")
        stud1(ifsub())
    End Sub
    Public Function ifsub()
        If dblstr = "全部" Then
            comdstr1 = ""
            comdstr = "select * from student " & comdstr1
        Else
            comdstr1 = "where studentclass='" & dblstr & "'"
            comdstr = "select * from student " & comdstr1
            dblname.SelectedIndex = dblname.Items.IndexOf(dblname.Items.FindByText(dblstr))
        End If
        If skey = "id" Then
            comdskey = "where id like '%" & key & "%'"
            comdstr = "select * from student " & comdskey
        End If
        If skey = "studentname" Then
            comdskey = " where studentname like '%" & key & "%' "
            comdstr = "select * from student " & comdskey
        End If
        If skey = "studentitems" Then
            comdskey = " where studentorder like '%" & key & "%' "
            comdstr = "select * from student " & comdskey
        End If
        Session("str") = comdstr
        Return comdstr
    End Function
End Class