学生管理系统总结篇

框架

首先先了解一下学生管理系统的框架

仔细观察一个学生管理系统无非就是添加、修改、查询和设置，一共四个方面。

模块

其次就是模块

因为模块是共用的，所以模块中的代码非常重要。

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    '传递参数SQL传递查询语句，MsgboxString传递查询信息
    '自身以一个数据集对象的形式返回
    Dim Cnn As ADODB.Connection

    Dim Rst As ADODB.Recordset  '定义连接
    Dim sTokens() As String '定义字符串


    '异常处理
    On Error GoTo executeSQL_error
        '用Split函数产生一个包含多个子串的数组
        sTokens = Split(SQL)
        '创建连接
        Set Cnn = New ADODB.Connection
        '打开连接
        Cnn.Open Connectstring


        '判断字符串中是否含有指定内容
        If InStr("INSeRT,DELETE,UPDATE", UCase$(sTokens(0))) Then
            '执行查询语句
            Cnn.Execute SQL
            '返回查询信息
            MsgString = sTokens(0) & "query successful"
        Else
            '创建数据集对象
            Set Rst = New ADODB.Recordset
            '返回查询结果
            Rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic
            '返回记录集对象
            Set ExecuteSQL = Rst
            MsgString = "查询到" & Rst.RecordCount & " 记录条 "
        End If

executeSQL_exit:
    '清空数据集对象
    Set Rst = Nothing
    '中断连接
    Set Cnn = Nothing
Exit Function
        '错误类型判断
executeSQL_error:
            MsgString = "查询错误:" & Err.Description
            Resume executeSQL_exit
End Function

'用来连接数据库
Public Function Connectstring() As String
    '返回一个数据库连接
    Connectstring = "fileDSN=studentinfo.dsn;UID=sa;PWD="
End Function

特别注意：作用是连接数据库，虽然这些地方我还不是很明白，但是我相信这个很重要。

总结

1、学生信息管理系统，制作的是系统，所以要考虑用户的感受，站在用户的角度考虑问题。
2、添加更多人性化的服务，例如在添加界面，添加集体清空按钮
3、优化界面

感谢阅读。如果您有更好的建议，欢迎您反馈给我，谢谢您！