form4.vb

来自「学生信息管理系统」· VB 代码 · 共 706 行 · 第 1/2 页

        Me.TabPage4.Controls.Add(Me.DataGrid4)
        Me.TabPage4.Controls.Add(Me.Button4)
        Me.TabPage4.Location = New System.Drawing.Point(4, 21)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(320, 239)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "成绩查询"
        '
        'Button10
        '
        Me.Button10.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button10.Location = New System.Drawing.Point(168, 192)
        Me.Button10.Name = "Button10"
        Me.Button10.Size = New System.Drawing.Size(80, 40)
        Me.Button10.TabIndex = 4
        Me.Button10.Text = "退出"
        '
        'Button6
        '
        Me.Button6.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button6.Location = New System.Drawing.Point(64, 192)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(80, 40)
        Me.Button6.TabIndex = 3
        Me.Button6.Text = "总分"
        '
        'Button5
        '
        Me.Button5.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button5.Location = New System.Drawing.Point(168, 144)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(80, 40)
        Me.Button5.TabIndex = 2
        Me.Button5.Text = "按科目查询"
        '
        'DataGrid4
        '
        Me.DataGrid4.DataMember = ""
        Me.DataGrid4.DataSource = Me.DataView1
        Me.DataGrid4.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid4.Location = New System.Drawing.Point(8, 8)
        Me.DataGrid4.Name = "DataGrid4"
        Me.DataGrid4.Size = New System.Drawing.Size(296, 128)
        Me.DataGrid4.TabIndex = 0
        '
        'Button4
        '
        Me.Button4.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button4.Location = New System.Drawing.Point(64, 144)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(80, 40)
        Me.Button4.TabIndex = 1
        Me.Button4.Text = "按学生查询"
        '
        'Form4
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(352, 302)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form4"
        Me.Text = "成绩管理系统"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        CType(Me.DataGrid4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '添加成绩
        '得到学号
        If Not Class1.ds.Tables("B") Is Nothing Then
            Class1.ds.Tables("B").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 学生 "
        Class1.ada.Fill(Class1.ds, "B")
        Dim i As Integer
        For i = 0 To Class1.ds.Tables("B").Rows.Count - 1
            ComboBox1.Items.Add(Class1.ds.Tables("B").Rows.Item(i).Item("学号"))
        Next



        '删除成绩
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        Class1.ada.SelectCommand.CommandText = "select distinct 学号 from 考试成绩"
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "E")
        Dim k As Integer
        For k = 0 To Class1.ds.Tables("E").Rows.Count - 1
            ComboBox3.Items.Add(Class1.ds.Tables("E").Rows.Item(k).Item("学号"))
        Next
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select distinct 课程名称 from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        Dim m As Integer
        For m = 0 To Class1.ds.Tables("E").Rows.Count - 1
            ComboBox4.Items.Add(Class1.ds.Tables("E").Rows.Item(m).Item("课程名称"))
        Next



        '修改学生成绩
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        Class1.ada.SelectCommand.CommandText = "select distinct 学号 from 考试成绩"
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "E")
        Dim l As Integer
        For l = 0 To Class1.ds.Tables("E").Rows.Count - 1
            ComboBox7.Items.Add(Class1.ds.Tables("E").Rows.Item(l).Item("学号"))
        Next
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select distinct 课程名称 from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        Dim n As Integer
        For n = 0 To Class1.ds.Tables("E").Rows.Count - 1
            ComboBox5.Items.Add(Class1.ds.Tables("E").Rows.Item(n).Item("课程名称"))
        Next



        '查询成绩
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        DataView1.Table = Class1.ds.Tables("E")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '按学生查询成绩
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        DataView1.Sort = "学号"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        '按科目查询成绩
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩"
        Class1.ada.Fill(Class1.ds, "E")
        DataView1.Sort = "课程名称"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        '按总分查询成绩
        Dim f12 As New Form12
        f12.ShowDialog()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage1.Show()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage2.Show()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage3.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage4.Show()
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage4.Show()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage4.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ''添加成绩
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩 where 学号='" & ComboBox1.Text & "' and 课程名称='" & ComboBox2.Text & "'"
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "E")
        If Class1.ds.Tables("E").Rows.Count = 0 Then
            If ComboBox1.Text <> "" And ComboBox2.Text <> "" And TextBox1.Text <> "" Then
                Class1.ada.InsertCommand.CommandText = "insert into 考试成绩 values('" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox1.Text & "')"
                Class1.con.Open()
                Class1.ada.InsertCommand.ExecuteNonQuery()
                Class1.con.Close()
                If Not Class1.ds.Tables("E") Is Nothing Then
                    Class1.ds.Tables("E").Clear()
                End If
                Class1.ada.Fill(Class1.ds, "E")
                MsgBox("添加成功！")
                ComboBox1.Text = ""
                ComboBox2.Text = ""
                TextBox1.Clear()
            Else
                MsgBox("请填写完整！")
                ComboBox1.Text = ""
                ComboBox2.Text = ""
                TextBox1.Clear()
            End If
        Else
            MsgBox("这条记录已经存在，您不能再添加！ ")
            ComboBox1.Text = ""
            ComboBox2.Text = ""
            TextBox1.Clear()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '删除成绩
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩 where 学号='" & ComboBox3.Text & "' and 课程名称='" & ComboBox4.Text & "'"
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "E")
        If Class1.ds.Tables("E").Rows.Count <> 0 Then
            If ComboBox3.Text <> "" And ComboBox4.Text <> "" Then
                Class1.ada.DeleteCommand.CommandText = "delete from 考试成绩 where 学号='" & ComboBox3.Text _
                & "' and 课程名称='" & ComboBox4.Text & "'"
                Class1.con.Open()
                Class1.ada.DeleteCommand.ExecuteNonQuery()
                Class1.con.Close()
                If Not Class1.ds.Tables("E") Is Nothing Then
                    Class1.ds.Tables("E").Clear()
                End If
                Class1.ada.Fill(Class1.ds, "E")
                MsgBox("删除成功!")
                ComboBox3.Text = ""
                ComboBox4.Text = ""
            Else
                MsgBox("请填写完整!")
            End If
        Else
            MsgBox("这条记录不存在，您不能删除它！")
            ComboBox3.Text = ""
            ComboBox4.Text = ""
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Close()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '修改成绩
        Class1.ada.SelectCommand.CommandText = "select * from 考试成绩 where 学号='" & ComboBox7.Text & "' and 课程名称='" & ComboBox5.Text & "'"
        If Not Class1.ds.Tables("E") Is Nothing Then
            Class1.ds.Tables("E").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "E")
        If Class1.ds.Tables("E").Rows.Count <> 0 Then
            If ComboBox7.Text <> "" And TextBox2.Text <> "" Then
                Class1.ada.UpdateCommand.CommandText = "update 考试成绩 set 考试成绩.分数='" & TextBox2.Text _
                & "' where 考试成绩.学号='" & ComboBox7.Text & "' and 考试成绩.课程名称='" & ComboBox5.Text & "'"
                Class1.con.Open()
                Class1.ada.UpdateCommand.ExecuteNonQuery()
                Class1.con.Close()
                If Not Class1.ds.Tables("E") Is Nothing Then
                    Class1.ds.Tables("E").Clear()
                End If
                Class1.ada.Fill(Class1.ds, "E")
                MsgBox("修改成功!")
                ComboBox7.Text = ""
                ComboBox5.Text = ""
                TextBox2.Clear()
            Else
                MsgBox("请填写完整!")
            End If
        Else
            MsgBox("这条记录不存在，您不能修改！")
            ComboBox7.Text = ""
            ComboBox5.Text = ""
            TextBox2.Clear()
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        '添加成绩
        '得到学生所在的班级
        Class1.ada.SelectCommand.CommandText = "select * from 学生 where 学号='" & ComboBox1.Text & "'"
        If Not Class1.ds.Tables("B") Is Nothing Then
            Class1.ds.Tables("B").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "B")
        For i = 0 To Class1.ds.Tables("B").Rows.Count - 1
            cl = Class1.ds.Tables("B").Rows.Item(0).Item("班级")
        Next
        '得到该学生所上的课程
        If Not Class1.ds.Tables("D") Is Nothing Then
            Class1.ds.Tables("D").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 所有课程 "
        Class1.ada.Fill(Class1.ds, "D")
        Class1.ada.SelectCommand.CommandText = "select * from 所有课程 where 开课班级='" & cl & "'"
        If Not Class1.ds.Tables("D") Is Nothing Then
            Class1.ds.Tables("D").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "D")
        ComboBox2.Text = ""
        ComboBox2.Items.Clear()
        Dim j As Integer
        For j = 0 To Class1.ds.Tables("D").Rows.Count - 1
            ComboBox2.Items.Add(Class1.ds.Tables("D").Rows.Item(j).Item("课程名称"))
        Next
    End Sub

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub
End Class