form2.vb

学生成绩管理系统

Public Class Form2
   

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        conn.Open()
        If RadioButton1.Checked = True Then
            str = "insert into course(cno,cname,ccredit) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"

            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("成功")
        ElseIf RadioButton2.Checked = True Then
            str = "update course set cname='" & TextBox2.Text & "'where cno='" & TextBox1.Text & "'"
            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            str = "update course set ccredit ='" & TextBox3.Text & "'where cno='" & TextBox1.Text & "'"
            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("成功")
        ElseIf RadioButton3.Checked = True Then
            str = "delete  from course where cno='" & TextBox1.Text & "'"
            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("成功")


        End If
        conn.Close()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub
End Class