【学生信息管理系统】-总结篇

历经将近一个月的时间，学生终于敲完了，速度有些慢，由于最近增加了学习英语的时间，只有每天下午的时间调试学生，有时候还会偷玩一会，所以进度不是很快。下面来说一下我是如何来做学生系统的：
1.过程：
1）电子书
就像百例一样，看着书敲。由于自己的能力有限，所以刚开始的时候就照葫芦画瓢式的过了一遍书，原封不动的按书敲了一遍，敲完之后我对学生系统大体的思路有了，不再那么陌生了。
2）源代码
由于自己能力有限，有些代码还是看不懂，所以出错之后不知道到底是因为哪里有错，所以会去对照源代码修改。
3）找度娘，查CSDN
这一点是调错和优化的过程，这个过程很重要，需要我们认真去做。这个过程会让我们学会好多知识，会让我们的能力得到提升。
2.思路：
模块：系统、学籍、班级、课程、成绩

系统：添加用户和修改密码
学籍：添加、修改、查询
班级：添加、修改
课程：添加、修改、设置课程
成绩：添加、修改、查询
其中的添加窗体、修改窗体、查询窗体思路是一样的，代码大同小异。
添加窗体：
必选项是否填写（添加提示）——>查询语句txtSQL——>返回查询MsgText——>是否有重复记录——>执行查询并添加记录——>添加信息成功
修改窗体：
语句txtSQL——>返回查询MsgText——>调用viewData（）过程
更新之前先修改——>更新（文本框可用、内容是否为空）
查询窗体：
查询语句txtSQL——>是否设置了查询方式——>判断选择查询方式之后查询内容是否为空——>设置dd变量——>查询语句txtSQL——>返回查询MsgText——>myflexgrid——>查询内容显示在myflexgrid中
其中添加成绩窗体中需要思路：怎样获取学号、姓名、课程？

Private Sub comboClassno_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    comboSID.Clear
    comboCourse.Clear

 '通过班号找到该班学生的学号
    txtSQL = "select * from student_Info where class_NO = '" & comboClassno.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    While (mrc.EOF = False)
        comboSID.AddItem mrc!student_ID
        mrc.MoveNext
    Wend
    mrc.Close

'通过班号找到的对应的年级
    txtSQL = "select * from class_Info where class_No = '" & comboClassno.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Grade = mrc!Grade
    mrc.Close

 '通过年级找到对应的课程
    txtSQL = "select * from gradecourse_Info where grade = '" & Grade & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    While (mrc.EOF = False)
        comboCourse.AddItem mrc!course_Name
        mrc.MoveNext
    Wend
    mrc.Close
    Flagselect = True
End Sub

3.优化项
1）文本框、combo框等加限制（字符长度、特殊符号、字母、数字汉字等）
2）出生日期和入校日期：件（DTPicker）的添加、出生日期小于入校的设置
3）数据库允许字符长度的调整（联系电话等）
4） 3021错误解决
5）窗体界面优化（是否居中显示、字体、背景等）

【学生信息管理系统】-总结篇

猜你喜欢