📄 stuedit.aspx

📁 学生成绩管理学生成绩管理
💻 ASPX
字号:
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Language="vb" Runat="Server">
Sub Page_Load(sender as object, e as Eventargs)                
    if not Page.ispostback then BindGrid()
End Sub
Sub BindGrid()
    Dim conn As New OleDbConnection()
    Dim DS As New DataSet()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Server.MapPath("基本信息.mdb")
    Dim objAdpt As New OleDbDataAdapter("Select * from student",conn)
    objAdpt.Fill(DS,"student")
    stu.DataSource = ds.tables("student").defaultview
    stu.DataBind()                               
    conn.Close()
End Sub
Sub EditStudent(sender As Object, e As DataGridCommandEventargs)
    stu.EditItemIndex = e.Item.ItemIndex
    BindGrid()
End Sub
Sub CanCelEdit(sender As Object, e As DataGridCommandEventargs)
    stu.EditItemIndex = -1
    BindGrid()
End Sub
Sub Updatastudent(sender as object, e as DataGridCommandEventargs)
    dim 性别,年龄,专业班级 as TextBox
	性别 = e.item.cells(2).controls(0)
	年龄 = e.item.cells(3).controls(0)
	专业班级 = e.item.cells(4).controls(0)
	Dim conn As new OleDbConnection()
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Server.MapPath("基本信息.mdb")
	dim str as string = "update student set 性别 = @xb ,年龄 = @nl ,专业班级 = @bj where 学号 = @xh"
	dim cmd  as new OleDbCommand(str,conn)
	cmd.parameters.add(new oledbparameter("@xb",oledbtype.boolean))
	cmd.parameters.add(new oledbparameter("@nl",oledbtype.decimal,nothing))
	cmd.parameters.add(new oledbparameter("@bj",oledbtype.varchar,8))
	cmd.parameters.add(new oledbparameter("@xh",oledbtype.varchar,8))
	cmd.parameters("@xb").value = Ctype(性别.text,boolean)
	cmd.parameters("@nl").value = Ctype(年龄.text,decimal)
	cmd.parameters("@bj").value = 专业班级.text
	cmd.parameters("@xh").value = stu.datakeys.item(e.item.itemIndex)
	conn.open()
	cmd.executeNonquery()
	conn.close()
	stu.edititemindex =-1
	BindGrid()
End Sub
</Script>
<html>
<body><center>
<form runat="server">
<H1 Align="Center">编 辑 学 生 信 息</H1>
<Hr color="#003366" Border="2"><br>
<Asp:DataGrid Runat="Server" Id="stu" AutoGenerateColumns="false" DataKeyField="学号" HorizontalAlign="Center" Width="500" BorderColor="#DEBA84" OnEditCommand="Editstudent" OnCancelCommand="CanCelEdit" OnUpdateCommand="Updatastudent">
  <HeaderStyle Font-Size="Small" Font-Bold="True" HorizontalAlign="Center" 
      ForeColor="#FFFFFF" BackColor="#990000" />
   <ItemStyle Font-Size="X-Small" ForeColor="#336688" />
   <columns>
       <asp:BoundColumn HeaderText="学号" DataField="学号" ReadOnly="true" />
	   <asp:BoundColumn HeaderText="姓名" DataField="姓名" ReadOnly="true" />
	   <asp:BoundColumn HeaderText="性别" DataField="性别" />
	   <asp:BoundColumn HeaderText="年龄" DataField="年龄" />
	   <asp:BoundColumn HeaderText="专业班级" DataField="专业班级" />
	   <asp:BoundColumn HeaderText="备注" DataField="备注" ReadOnly="true" />
	   <asp:EditCommandColumn EditText="编辑" CancelText="取消" UpdateText="更新" HeaderText="操作" />
	</columns>
</Asp:DataGrid>
</form></center></body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -