数据库技术及应用课程设计项目设计报告说明书之作业提交系统 - 图文

2026/4/27 21:14:30

Dim cnn As New SqlConnection '定义一个对象，对象名为cnn,它是一个数据库连接对象。 cnn.ConnectionString = \& Application(\& \作业提交系统\ '给出连接对象的连接信息。 cnn.Open() If cnn.State = ConnectionState.Open Then Dim qq As String qq = \学生信息表 values('\& \ Dim cmd As New SqlCommand '定义对象cmd,是一个SQL数据库的命令对象 cmd.CommandText = qq cmd.Connection = cnn 'cmd使用cnn连接数据库 Dim aaa As Integer aaa = cmd.ExecuteNonQuery() Label1.Text = \已成功添加的记录条数为：\ End If End Sub Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Protected Sub TextBox5_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged End Sub End Class 删除作业提交表中已有的成绩 <%@ Page Language=\AutoEventWireup=\CodeFile=\Inherits=\ 无标题页

删除成绩
请输入删除成绩：
Imports System.Data Imports System.Data.SqlClient Partial Class delete Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click '将文本框中输入的新系名添加至系别表. Dim cnn As New SqlConnection '定义一个对象，对象名为cnn,它是一个数据库连接对象。 cnn.ConnectionString = \\作业提交系统\给出连接对象的连接信息。 cnn.Open() If cnn.State = ConnectionState.Open Then Dim qq As String qq = \作业提交表 from 作业提交表 where 成绩=('\& TextBox1.Text & \ Dim cmd As New SqlCommand '定义对象cmd,是一个SQL数据库的命令对象 cmd.CommandText = qq cmd.Connection = cnn 'cmd使用cnn连接数据库 Dim aaa As Integer aaa = cmd.ExecuteNonQuery() Label1.Text = \已成功删除的记录条数为：\ End If End Sub Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub End Class 对作业提交表的成绩项进行修改数据 <%@ Page Language=\AutoEventWireup=\CodeFile=\Inherits=\ 无标题页修改成绩
请输入学生原来成绩：

Imports System.Data Imports System.Data.SqlClient Partial Class update Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cnn As New SqlConnection '定义一个对象，对象名为cnn,它是一个数据库连接对象。 cnn.ConnectionString = \\作业提交系统\给出连接对象的连接信息。 cnn.Open() If cnn.State = ConnectionState.Open Then Dim qq As String qq = \作业提交表 set 成绩='\成绩='\ Dim cmd As New SqlCommand '定义对象cmd,是一个SQL数据库的命令对象 cmd.CommandText = qq cmd.Connection = cnn 'cmd使用cnn连接数据库 Dim aaa As Integer aaa = cmd.ExecuteNonQuery() Label1.Text = \已成功修改的记录条数为：\ End If End Sub End Class 根据学号查询作业提交成绩的相关信息 <%@ Page Language=\AutoEventWireup=\CodeFile=\Inherits=\ 无标题页