老师给分——李晨华.aspx.vb

本套软件适用于各大高校、培训机构等单位的教学管理软件。

Imports System.Data
Imports System.Data.Common
Partial Class Default3
    Inherits System.Web.UI.Page
    Dim objds As New Data.DataSet
    Dim strconn As String = "data source=.;initial catalog=选修课管理系统;user id=sa;password=;"
    Dim objda As Data.SqlClient.SqlDataAdapter
    Dim cn As New SqlClient.SqlConnection
    Dim cmd As SqlClient.SqlCommand

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button2.Enabled = True
        Button1.Enabled = False
        Button3.Enabled = True
        Button4.Enabled = True
        TextBox1.ReadOnly = True
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.ReadOnly = False
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = True
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = False
        cn.ConnectionString = strconn
        Dim sql As String
        sql = "UPDATE  选修表  SET 成绩 ='" & Trim(TextBox1.Text) & "'WHERE 课程号='" & Trim(DropDownList2.Text) & "'AND 学号='" & Trim(DropDownList1.Text) & "'"
        cn.ConnectionString = strconn
        cn.Open()
        cmd = New SqlClient.SqlCommand(sql, cn)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        cn.Dispose()
        objda = New Data.SqlClient.SqlDataAdapter(sql, strconn)
        TextBox1.ReadOnly = True
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button2.Enabled = True
        Button1.Enabled = True
        Button3.Enabled = True
        TextBox1.Text = ""
        TextBox1.ReadOnly = True

    End Sub
End Class