form1.vb

这是一个教师学生管理系统,程序简单的,可让入门者

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim str1, str2 As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim constr As String
        Dim selectcmd As String

        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TSManager.mdb"
        selectcmd = "select * from TSdetail'"
        Dim con As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
        con = New OleDbConnection(constr)
        con.Open()
        cmd = New OleDbCommand(selectcmd, con)
        reader = cmd.ExecuteReader()
        Dim rootNode(4), subNode(3) As TreeNode, m, n As Integer
        Dim flage As Boolean
        flage = False
        m = 0
        Do While reader.Read()
            flage = False
            str1 = reader.Item("学校")

            n = 0
            Do While n < m
                If str1 = rootNode(n).Text Then
                    flage = True
                    Exit Do
                End If
                n = n + 1
            Loop
            If flage = False Then
                rootNode(m) = New TreeNode()

                rootNode(m).Text = str1
                TreeView1.Nodes.Add(rootNode(m))
                m = m + 1
            End If
        Loop
        con.Close()
        n = 0
        Do While n < m
            subNode(0) = New TreeNode
            subNode(0).Text = "教授"
            subNode(1) = New TreeNode
            subNode(1).Text = "学生"
            subNode(2) = New TreeNode
            subNode(2).Text = "讲师"
            rootNode(n).Nodes.Add(subNode(0).Text)
            rootNode(n).Nodes.Add(subNode(1).Text)
            rootNode(n).Nodes.Add(subNode(2).Text)

            n = n + 1
        Loop
        con.Open()
        cmd = New OleDbCommand(selectcmd, con)
        reader = cmd.ExecuteReader()

        Dim lsvItem(20) As ListViewItem, k As Integer

        ListView1.Columns.Add("学工号", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("姓名", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("性别", 40, HorizontalAlignment.Center)
        ListView1.Columns.Add("年龄", 50, HorizontalAlignment.Center)
        ListView1.Columns.Add("学校", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("职务", 70, HorizontalAlignment.Center)

        Do While reader.Read()
            lsvItem(k) = New ListViewItem
            With lsvItem(k)
                .SubItems(0).Text = reader.Item(0)
                .SubItems.Add(reader.Item(1))
                .SubItems.Add(reader.Item(2))
                .SubItems.Add(reader.Item(3))
                .SubItems.Add(reader.Item(4))
                .SubItems.Add(reader.Item(5))
            End With
            ListView1.Items.Add(lsvItem(k))
            k = k + 1
        Loop
        con.Close()

    End Sub

    Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        Dim str1, str2 As String, n As Integer
        Dim sqlstr As String = ""
        str1 = e.Node.Text()
        n = e.Node.Level()
        Dim connstr, selectcmd As String

        If n = 0 Then
            sqlstr = "select * from TSdetail where 学校 = '"
            sqlstr &= str1
            sqlstr &= "'"
        End If
        If n = 1 Then
            str2 = e.Node.Parent.Text()

            sqlstr = "select * from TSdetail where 学校= '" & str2 & "' and 职务='" & str1 & "'"
           

        End If
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TSManager.mdb"
        selectcmd = sqlstr
        Dim con As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
        con = New OleDbConnection(connstr)
        con.Open()
        cmd = New OleDbCommand(selectcmd, con)
        reader = cmd.ExecuteReader()
        ListView1.Items.Clear()
        Dim lsvItem(10) As ListViewItem, k As Integer
        Do While reader.Read()
            lsvItem(k) = New ListViewItem
            With lsvItem(k)
                .SubItems(0).Text = reader.Item(0)
                .SubItems.Add(reader.Item(1))
                .SubItems.Add(reader.Item(2))
                .SubItems.Add(reader.Item(3))
                .SubItems.Add(reader.Item(4))
                .SubItems.Add(reader.Item(5))
            End With
            ListView1.Items.Add(lsvItem(k))
            k = k + 1
        Loop
        con.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selectcmd, sqlstr, constr As String
        sqlstr = "Select * from TSdetail  where 姓名 like '" & TextBox1.Text & "%'"
        If TextBox1.Text = "" Then
            MsgBox("对不起，字段不能为空")
            Return
        End If
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TSManager.mdb"
        selectcmd = sqlstr
        Dim con As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
        con = New OleDbConnection(constr)
        con.Open()
        cmd = New OleDbCommand(selectcmd, con)
        reader = cmd.ExecuteReader()
        ListView1.Items.Clear()
        Dim lsvItem(10) As ListViewItem, k As Integer
        Do While reader.Read()
            lsvItem(k) = New ListViewItem
            With lsvItem(k)
                .SubItems(0).Text = reader.Item(0)
                .SubItems.Add(reader.Item(1))
                .SubItems.Add(reader.Item(2))
                .SubItems.Add(reader.Item(3))
                .SubItems.Add(reader.Item(4))
                .SubItems.Add(reader.Item(5))
            End With
            ListView1.Items.Add(lsvItem(k))
            k = k + 1
        Loop
        con.Close()
        If k = 0 Then
            MsgBox("对不起，无查询结果")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim myString As String

        myString = Year(Now) & "年" & Month(Now) & "月"
        myString &= Microsoft.VisualBasic.Day(Now) & "日"
        myString &= Hour(Now) & "时"
        myString &= Minute(Now) & "分"
        myString &= Second(Now) & "秒"

        MsgBox(myString)


    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim selectcmd, sqlstr, constr As String
        sqlstr = "Select * from TSdetail   '"
        
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TSManager.mdb"
        selectcmd = sqlstr
        Dim con As OleDbConnection, cmd As OleDbCommand, reader As OleDbDataReader
        con = New OleDbConnection(constr)
        con.Open()
        cmd = New OleDbCommand(selectcmd, con)
        reader = cmd.ExecuteReader()
        ListView1.Items.Clear()
        Dim lsvItem(10) As ListViewItem, k As Integer
        Do While reader.Read()
            k = 0
            lsvItem(k) = New ListViewItem
            With lsvItem(k)
                .SubItems(0).Text = reader.Item(0)
                .SubItems.Add(reader.Item(1))
                .SubItems.Add(reader.Item(2))
                .SubItems.Add(reader.Item(3))
                .SubItems.Add(reader.Item(4))
                .SubItems.Add(reader.Item(5))
            End With
            ListView1.Items.Add(lsvItem(k))
            k = k + 1
        Loop
        con.Close()
    End Sub
End Class