form3.vb

学生信息管理系统

            ComboBox3.Items.Add(Class1.ds.Tables("C").Rows.Item(i).Item("班级号"))
        Next



        '删除学生
        Dim l As Integer
        For l = 0 To Class1.ds.Tables("B").Rows.Count - 1
            ComboBox4.Items.Add(Class1.ds.Tables("B").Rows.Item(l).Item("学号"))
        Next



        '修改学生资料
        Dim j As Integer
        For j = 0 To Class1.ds.Tables("B").Rows.Count - 1
            ComboBox5.Items.Add(Class1.ds.Tables("B").Rows.Item(j).Item("学号"))
        Next
        ComboBox7.Items.Add("男")
        ComboBox7.Items.Add("女")
        Dim k As Integer
        For k = 0 To Class1.ds.Tables("C").Rows.Count - 1
            ComboBox8.Items.Add(Class1.ds.Tables("C").Rows.Item(k).Item("班级号"))
        Next



        '查询学生资料
        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")
        DataView1.Table = Class1.ds.Tables("B")
    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 MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TabPage4.Show()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '添加学生
        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")
        If Class1.ds.Tables("B").Rows.Count = 0 Then
            If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox3.Text <> "" And TextBox1.Text <> "" And _
                    TextBox2.Text <> "" And TextBox3.Text <> "" Then
                Class1.ada.InsertCommand.CommandText = "insert into 学生 values('" & ComboBox1.Text & "','" & TextBox1.Text _
                & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "')"
                Class1.con.Open()
                Class1.ada.InsertCommand.ExecuteNonQuery()
                Class1.con.Close()
                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")
                MsgBox("添加成功!")
                ComboBox1.Text = ""
                ComboBox2.Text = ""
                ComboBox3.Text = ""
                TextBox1.Clear()
                TextBox2.Clear()
                TextBox3.Clear()
            Else
                MsgBox("请填写完整!")
            End If
        Else
            MsgBox("这个学生已经存在！")
            ComboBox1.Text = ""
            ComboBox2.Text = ""
            ComboBox3.Text = ""
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
        End If
    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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '删除学生
        Class1.ada.SelectCommand.CommandText = "select * from 学生 where 学号='" & ComboBox4.Text & "'"
        If Not Class1.ds.Tables("B") Is Nothing Then
            Class1.ds.Tables("B").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "B")
        If Class1.ds.Tables("B").Rows.Count <> 0 Then
            If ComboBox4.Text <> "" Then
                Class1.ada.DeleteCommand.CommandText = "delete from 学生 where 学号='" & ComboBox4.Text & "'"
                Class1.con.Open()
                Class1.ada.DeleteCommand.ExecuteNonQuery()
                Class1.con.Close()
                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")
                '删除该学生的成绩
                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.DeleteCommand.CommandText = "delete from 考试成绩 where 学号='" & 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("您已成功删除这个学生!")
                ComboBox4.Text = ""
            Else
                MsgBox("请选择一个学生!")
            End If
        Else
            MsgBox("这个学生不存在，请核实后再删除！")
            ComboBox4.Text = ""
        End If
    End Sub

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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        '修改学生资料
        Class1.ada.SelectCommand.CommandText = "select * from 学生 where 学号='" & ComboBox5.Text & "'"
        If Not Class1.ds.Tables("B") Is Nothing Then
            Class1.ds.Tables("B").Clear()
        End If
        Class1.ada.Fill(Class1.ds, "B")
        '若学生的班级也修改了，则删除学生的成绩
        If ComboBox8.Text <> Class1.ds.Tables("B").Rows(0).Item("班级") Then
            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.DeleteCommand.CommandText = "delete from 考试成绩 where 学号='" & ComboBox5.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")
        End If
        '修改学生资料
        If Class1.ds.Tables("B").Rows.Count <> 0 Then
            Class1.ada.SelectCommand.CommandText = "select * from 学生 where 学号='" & ComboBox6.Text & "' and 姓名='" & TextBox4.Text & "' and 性别='" & ComboBox7.Text & "' and 班级='" & ComboBox8.Text & "' and 家庭住址='" & TextBox6.Text & "' and 年龄='" & TextBox5.Text & "'"
            If Not Class1.ds.Tables("B") Is Nothing Then
                Class1.ds.Tables("B").Clear()
            End If
            Class1.ada.Fill(Class1.ds, "B")
            If Class1.ds.Tables("B").Rows.Count = 0 Then
                If ComboBox5.Text <> "" And ComboBox6.Text <> "" And ComboBox7.Text <> "" And ComboBox8.Text <> "" And _
                                    TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" Then
                    Class1.ada.UpdateCommand.CommandText = "update 学生 set 学生.学号='" & ComboBox6.Text & "',学生.姓名='" _
                    & TextBox4.Text & "',学生.性别='" & ComboBox7.Text & "',学生.班级='" & ComboBox8.Text & "',学生.家庭住址='" _
                    & TextBox6.Text & "',学生.年龄='" & TextBox5.Text & "' where 学生.学号='" & ComboBox5.Text & "'"
                    Class1.con.Open()
                    Class1.ada.UpdateCommand.ExecuteNonQuery()
                    Class1.con.Close()
                    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")
                    '修改成绩表中的相应学号
                    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.UpdateCommand.CommandText = "update 考试成绩 set 学号='" & ComboBox6.Text & "' where 学号='" & 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("修改成功!")
                    ComboBox5.Text = ""
                    ComboBox6.Text = ""
                    ComboBox7.Text = ""
                    ComboBox8.Text = ""
                    TextBox4.Clear()
                    TextBox5.Clear()
                    TextBox6.Clear()
                Else
                    MsgBox("请填写完整!")
                End If
            Else
                MsgBox("对不起，您并没有修改这条记录，请您修改！")
                ComboBox5.Text = ""
                ComboBox6.Text = ""
                ComboBox7.Text = ""
                ComboBox8.Text = ""
                TextBox4.Clear()
                TextBox5.Clear()
                TextBox6.Clear()
            End If
        Else
            MsgBox("这个学生不存在，您无法修改资料！")
            ComboBox5.Text = ""
            ComboBox6.Text = ""
            ComboBox7.Text = ""
            ComboBox8.Text = ""
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
        End If
    End Sub

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

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        '按年龄查询学生资料
        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")
        DataView1.Sort = "年龄"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        '按省份查询学生资料
        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")
        DataView1.Sort = "家庭住址"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        '按班级查询学生资料
        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")
        DataView1.Sort = "班级"
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        '按性别查询学生资料
        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")
        DataView1.Sort = "性别"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.Close()
    End Sub
End Class