[C/S作业] 学生管理系统(VB语言)

数据表:

===================================================================================================================

Imports System.Data.OleDb

Public Class Form1

    Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
    Dim cmd_1, cmd_2 As OleDbCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dlg1 As Dialog1 = New Dialog1
        dlg1.ShowDialog()
        dlg1.Dispose()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dlg2 As Dialog2 = New Dialog2
        dlg2.ShowDialog()
        dlg2.Dispose()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dlg3 As Dialog3 = New Dialog3
        dlg3.ShowDialog()
        dlg3.Dispose()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Dim cmdStr As String = "delete from student where 学号= " & DataGridView1.SelectedRows(0).Cells(0).Value.ToString()
            Dim ds As DataSet = New DataSet()
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmdStr, conn)
            da.Fill(ds, "table")
            DataGridView1.DataSource = ds.Tables("table")
        Catch
            MsgBox("先按[所有信息],然后选择整条记录,再删除.")
        End Try

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        conn.Open()
        Dim cmdStrName = "select 姓名 from student where (语文+数学+英语)=(select max(语文+数学+英语) from student)"
        cmd_1 = New OleDbCommand(cmdStrName, conn)
        Dim cmdStrMax = "select max(语文+数学+英语) from student"
        cmd_2 = New OleDbCommand(cmdStrMax, conn)
        Dim Info_str = "最聪明的是[" & cmd_1.ExecuteScalar().ToString & "]同学，总分：" & cmd_2.ExecuteScalar().ToString
        MsgBox(Info_str)
        conn.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim cmdStr = "select * from student"
        Dim ds As DataSet = New DataSet()
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmdStr, conn)
        da.Fill(ds, "table")
        DataGridView1.DataSource = ds.Tables("table")
    End Sub
End Class

===================================================================================================================

Imports System.Data.OleDb

Public Class Dialog1

    Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
    Dim ds As DataSet
    Dim da As OleDbDataAdapter

    Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("学号")
        ComboBox1.Items.Add("姓名")
        ComboBox1.Items.Add("语文")
        ComboBox1.Items.Add("数学")
        ComboBox1.Items.Add("英语")
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmdStr As String
        If RadioButton1.Checked = True Then
            cmdStr = "select * from student where 姓名 like '%" & TextBox1.Text & "%'"
        Else
            cmdStr = "select * from student where 学号 like '%" & TextBox1.Text & "%'"
        End If
        If RadioButton3.Checked = True Then
            cmdStr &= (" order by " & ComboBox1.SelectedItem & " asc")
        Else
            cmdStr &= (" order by " & ComboBox1.SelectedItem & " desc")
        End If
        ds = New DataSet()
        da = New OleDbDataAdapter(cmdStr, conn)
        da.Fill(ds, "table")
        Form1.DataGridView1.DataSource = ds.Tables("table")
    End Sub
End Class

===================================================================================================================

Imports System.Data.OleDb

Public Class Dialog2

    Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
    Dim cmd As OleDbCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmdStr As String
        cmdStr = "insert into student values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
        Try
            conn.Open()
            cmd = New OleDbCommand(cmdStr, conn)
            cmd.ExecuteNonQuery()
            MsgBox("增添成功!")
        Catch
            MsgBox("请确认数据是否有误,或者是否有空.")
        Finally
            conn.Close()
        End Try
    End Sub

End Class

===================================================================================================================

Imports System.Data.OleDb

Public Class Dialog3

    Dim conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb;")
    Dim cmd As OleDbCommand

    Private Sub Dialog3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("学号")
        ComboBox1.Items.Add("姓名")
        ComboBox1.Items.Add("性别")
        ComboBox1.Items.Add("语文")
        ComboBox1.Items.Add("数学")
        ComboBox1.Items.Add("英语")
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmdStr As String
        cmdStr = "update student set " & ComboBox1.SelectedItem & "='" & TextBox1.Text & "' where 学号=" & TextBox2.Text
        Try
            conn.Open()
            cmd = New OleDbCommand(cmdStr, conn)
            cmd.ExecuteNonQuery()
            MsgBox("修改成功!")
        Catch ex As Exception
            MsgBox("可能没有这个学生,请确认数据是否有误,或者是否有空.")
        Finally
            conn.Close()
        End Try
    End Sub
End Class

===================================================================================================================

删除:

统计: