学生信息管理系统的论文+毕业设计用VB(5)

图6-6规章查看

图6-7 查询管理

5.5系统关于与帮助

系统关于如下图6-8

图6-8 关于

6 软件测试

7 总结

回顾该系统从选题，到调研、需求分析、设计、编码实现、测试，论文的撰写，这系列连贯的过程，感想颇多，收获也很多。

1．设计开发一个软件，首先要了解所涉及到行业的现状，一定要想办法进行行业调研，从不同途径获取该行业的专业知识。合理安排系统设计开发时间，进行实际开发会发现需求分析与系统设计占主要的时间，如果前面的工作做好了，编码实现占用的时间很短。所以我们要借助软件工程的思想---对软件开发过程进行控制。

2. 在开发一个系统时，前期的分析准备工作非常的重要。对于系统的需求要明确，这样才能做到有的放矢。特别是对于系统中数据的存储和重要算法的设计，设计的不好会出现大量的冗余，不仅浪费存储空间，还影响查询效率。例如：系统中图的存储设计和求最短路径算法设计。

3.在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样可以进行比较，从而获得更佳的设计方案，设计开发过程中一定要吸取经验教训，避免返工。尤其是一些重要算法或功能。在对具体实现功能模块进行编程时，要养成良好的加注释的习惯，这样的话不仅能理清思路，而且可以为以后的调试程序带来很大的方便。

4. 独立思考的同时，要虚心向别人请教，可以达到事半功倍的效果。在具体编程实现系统功能的过程中，我遇到了不少的问题，我曾通过不同渠道向老师、同学、上相关网站、到论坛寻求答案，收到了很好的效果。

通过独立完成学生信息管理系统的分析设计开发后，发现自己在进行软件开发方面提高不少，同时积极利用所学到的新技术用于自己的设计开发过程。由于本人是初次开发系统，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。如：用户界面不够美观，出错处理不够等多方面问题。在本次开发过程由于多方面的限制，系统还有不足之处。

尽管本系统存在着很多不足，但其实现了最重要的功能就是可以对学生信息进行管理。这个对于一个学生信息系统是十分重要的。该系统是根据班级管理的特点制作的信息系统，可以给班主任管理班级提供方便。通过开发这个系统，我掌握了开发系统的基本过程，了解了VB语言的基本知识，巩固了我对Visual Basic的学习，但在这次毕业设计中的最大收获并不是这些，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。

致 谢

在论文即将完成之际，本人在此向所有关心、帮助我的老师和同学们致以最真诚的感谢。

在本次毕业设计中，我从指导老师——司春景老师身上学到了很多东西。她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢她耐心的辅导。在撰写论文阶段，司春景老师审阅我的论文，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。

另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。

附录: 程序源代码

源代码：

Public miCount As Integer

Private Sub cmdCancel_Click() ''退出程序 End End Sub

Private Sub cmdOK_Click() ''进入..确定 'On Error GoTo Err

Dim txtSql As String UserName = \

If Trim(txtUserName.Text) = \判断用户名是否为空 MsgBox \请输入帐号！\警告\ txtUserName.SetFocus Exit Sub End If

If Trim(txtPassword.Text) = \判断密码是否为空 MsgBox \请输入密码！\警告\ txtPassword.SetFocus Exit Sub End If

''判断是否有这个用户

txtSql = \用户信息表 where 用户名称= '\ If rs.State Then rs.Close

rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then ''如果没有这个用户

MsgBox \没有这个帐号，请重新输入帐号!\警告\ txtUserName.Text = \ txtPassword.Text = \ txtUserName.SetFocus Else ''如果有用户

If Trim(rs.Fields(1)) = Trim(txtPassword.Text) Then ''判断权限 UserPrivs = \

If Trim(rs.Fields(2)) = \管理员\管理员权限 IsUserMode = 1

ElseIf Trim(rs.Fields(2)) = \操作员\普通用户权限 IsUserMode = 2 Else ''无权 IsUserMode = 0

MsgBox \你没有权限!\警告\ End End If

UserPrivs = Trim(rs.Fields(2)) UserName = Trim(txtUserName.Text)

Unload Me Mainfrm.Show Exit Sub Else

MsgBox \输入密码不正确，请重新输入！\警告\ txtPassword.SetFocus txtPassword.Text = \ End If End If rs.Close

miCount = miCount + 1

If miCount = 3 Then ''三次错误,自动退出程序 End End If Exit Sub Err:

MsgBox Err.Description & \登录出错,请找管理员!\ Ok = False End End Sub

Private Sub Form_Activate() txtUserName.SetFocus End Sub