form3.vb

来自「学生成绩管理系统」· VB 代码 · 共 45 行

Public Class Form3

   

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("学号")
        ComboBox1.Items.Add("课号")
    End Sub

   



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Module1.db()
        conn.Open()
        ds.Clear()

        If ComboBox1.Text = "学号" Then
            cmd.CommandText = "select stu.sname,sc.cno,course.cname,sc.grade from stu,sc,course where stu.sno=sc.sno and sc.cno=course.cno and stu.sno='" & TextBox1.Text & "'"

            da.SelectCommand = cmd
            da.Fill(ds, "tab31")

            DataGridView1.DataSource = ds.Tables("tab31")
        ElseIf ComboBox1.Text = "课号" Then
            cmd.CommandText = "select stu.sno,stu.sname,course.cname,sc.grade from stu,sc,course where stu.sno=sc.sno and sc.cno=course.cno and course.cno='" & TextBox1.Text & "'"

            da.SelectCommand = cmd
            da.Fill(ds, "tab32")
            DataGridView1.DataSource = ds.Tables("tab32")
        End If

        conn.Close()
    End Sub

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

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub
End Class