毕业设计说明书范例学生学籍管理系统论文.docx

1、毕业设计说明书范例学生学籍管理系统论文XX职业技术学院 毕业论文（设计）系 别专 业班 级姓 名学 号课 题指导教师【摘 要】学生学籍管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直

2、到形成用户满意的可行系统。【关键字：】控件 窗体 域 ABSTRACTThe system of managing student file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality

3、and security of data. The later should make the application powerful and easily used. By looking up lots of datum, I selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a database. It can give you a short cut to build up a pr

4、ototype of system application. The prototype could be modified and developed till users are satisfied with it. Keywords:ActiveX Form Field 1、前言 62、 系统概述 711 开发背景712 学籍管理系统概述713 开发环境及开发工具介绍7131开发环境 8132 开发工具93、 设计总体规划1121 数据库设计1122 设计流程图1123设计功能分析134、 设计具体实现 1431 准备工作 1532 模块设计 1733 用户界面的实现 18331 登陆界

5、面(frmlogin) 19332 MDI主窗体(frmmain)20333 用户管理窗体（frmmanage）18334 修改密码窗体(frmchgPWD)24335 浏览学生信息窗体(frmstu)36336添加/修改学生信息窗体（frmAddstu）37337学生学籍管理模块 38338 报表功能模块39主要参考文献43 1、前 言学生学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学籍，这种管理方式存在着许多缺点,如:效率低、保密性差,另外

6、时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生学籍信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中将以开发一套学生学籍管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法

7、。2系统概述21 开发背景211 当前趋势该学籍管理系统采用多层架构的系统，是真正适应教育信息化发展三大趋势的校园网络应用系统，全面支持Internet功能、远程访问功能，全部采用最先进的B/S(浏览器/服务器) 模式来开发，基本目标是在学校内部和外部建立起顺畅的信息通道，提高学校的管理水平和效率，以便克服了目前大部分学校的校园网建设只起到宣传作用的通病。212 用计算机管理学生学籍的意义 现在我国的中小学校中学籍的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。作为一个计算机应用的本

8、科生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我多年的所学编制出一个实用的程序来帮助中小学进行更有效的学籍管理。归纳起来，好处大约有以下几点：1.可以存储历届的学生学籍，安全、高效；2.只需一到二名学籍录入员即可操作系统，节省大量人力；3.可以迅速查到所需信息。 22 学籍管理系统概述221 开展该系统的原因由于现今的学籍管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学籍管理系统软件。 222 该工程的基本目标开发此学籍管理系统软件，以供教学人员及操作者进行学籍管理，方便操作者随时

9、添加、查询、修改等。为了我们提高软件开发的能力，学习汉语编程的技巧，提高工作设计思想，通过本次的工程开发，开发小组成员与辅助老师，公司的技师交流，能从中学习知识吸取经验，再技术和软件思想上同时得到锻炼和提高，从而使总体水升到一个新的高度。23 开发环境以及开发工具介绍该软件是在Windows xp + Visual Basic 6.0 + SQL Server 2000的环境下完成的。下面就对这些开发工具进行介绍：3 设计整体规划31数据库的设计在系统设计过程中，首先要建立的就是数据库。本数据库采用SQL Server 2000来构造，共使用了7个表，它们分别是用户信息表（UserInfo）、

10、学生信息表（StuInfo）、班级信息表（Class）、专业信息表（Major）、学院信息表（Depart）、课程信息表（Lesson）、学生成绩表（Result）。1 用户信息表（UserInfo）：字段名数据类型说明是否为空是否为关键字UserID文本用户名Not NullPrimary KeyUserPWD文本用户密码Not NullUserName文本姓名Not NullUserPower文本使用权限Not Null2 学生信息表（StuInfo）：字段名数据类型说明是否为空是否为关键字SID文本学号Not NullPrimary KeySName文本姓名Not NullSGender

11、文本性别Not NullSPlace文本籍贯Not NullSBirthday日期/时间出生日期Not NullSMinzu文本民族Not NullSZhengzhi文本政治面貌Not NullSDormitory文本寝室号码Not NullSAddress文本家庭住址Not NullSCode文本邮政编码Not NullSTel文本联系电话Not NullSRemark备注备注Not Null3 班级信息表（Class）：字段名数据类型说明是否为空是否为关键字ID文本班级代码Not NullPrimary Key4 专业信息表（Major）：字段名数据类型说明是否为空是否为关键字ID文本专业

12、代号Not NullPrimary KeyName文本专业名称Not Null5 学院信息表（Depart）：字段名数据类型说明是否为空是否为关键字ID文本学院代号Not NullPrimary KeyName文本学院名称Not Null6课程信息表（Lesson）：字段名数据类型说明是否为空是否为关键字ID文本课程代号Not NullPrimary KeyName文本课程名称Not NullTime文本课时Not NullMark 文本学分Not Null7学生成绩表（Result）：字段名数据类型说明是否为空是否为关键字ID文本学生学号Not NullPrimary KeyName文本课程

13、名称Not NullPrimary KeyScore文本分数Not NullRemark文本备注Not Null32设计流程图 图2.1 系统流程图33 设计功能分析系统开发的目标是实现学生学籍管理的系统化、规范化和自动化，这是在用户要求的基础上提出来的，功能要求如下： （一）学生信息管理：能对学生信息进行添加、修改、删除。（二）课程管理：对课程进行添加、修改、删除操作。（三）专业/学院设置：（三）考试成绩管理：（四）查询学生信息：根据学号或姓名对学生信息进行精确/模糊查询（五）用户管理：定义使用本系统的用户名称及密码 4 设计具体实现经过需求分析、功能模块设计之后要进入详细设计阶段，本阶段将

14、按系统的主要模块进行论述，重在阐述具体的某项功能的实现方法或运用到的相关技术。41 准备工作1 添加引用：单击工程菜单中的引用选项，添加Microsoft ActiveX Data Objects 2.6 Library和Microsoft Excel 9.0 Object Library两个引用。2 添加部件：单击工程菜单中的部件选项，添加Microsoft ADO Data Control 6.0(OLEDB)、Microsoft Common Dialog Control 6.0(SP3) 、Microsoft FlexGrid Control 6.0、Microsoft Windows

15、 Common Controls 6.0(SP4)和Microsoft Windows Common Controls-2 6.0五项。42 设计步骤421 登陆界面(frmlogin)因为本系统是按学籍管理的思想设计的，故而登陆部分主要完成密码校验、确定管理员等功能，对于密码本系统采用的是MD5算法。这里附上本程序的登陆界面，见图3.1。图3.1 用户登陆界面在代码窗口的“通用”部分，定义一个模块级的公共变量loginno用来记录当前密码输入错误的次数Dim loginno As Integer在Form的Load事件中，将txtuser设置为焦点，初始化loginno。Private Su

16、b Form_Load() loginno = 0 Me.Show txtuser.SetFocusEnd Sub这里将“确定”和“取消”两个按钮作为一个按钮数组cmdOkCancel：确定按钮的index属性为0，取消按钮的index属性为1。利用SQL语句，在数据库中查询，如果查到相应的记录，则调用Case 0事件，用户的登陆获得通过，此时可以退出登陆窗口，并进入MDI主窗口，同时将用户类型和用户名分别传递到MDI主窗口和frmmanage中；如果没有相应的记录，则给出提示错误信息，同时将用户输入错误密码次数增加1，如果错误超过3次，则退出整个系统；若次数还没有超过3次，则提示用户重新输入

17、。根据以上的设计，cmdOkCancel的Click事件的代码如下：Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 Userid = Trim(txtuser.Text) Userpwd = MD5(Trim(txtPassword.Text) sqlstr = select * from UserInfo where UserID= & Userid & rs.Open sqlstr, con, 1, 1 If Not rs.EOF Then If rs(UserPWD) Userpwd The

18、n 密码错误时 MsgBox 您输入的密码不正确！, vbQuestion Me.Caption = 请输入用户名和密码： loginno = loginno + 1 当错误的密码次数达到3次时，不能登陆，退出！ If loginno = 3 Then MsgBox 对不起，您不能使用该系统！请与管理员联系。, vbInformation Unload Me Exit Sub End If Else LoginUser = Userid 保存当前登陆用户名 LoginPower = rs.Fields(3) 将当前登陆用户的权限保存到LoginPower中 Unload Me frmflash

19、.Show End If Else MsgBox 没有您输入的用户名！, 32 End If rs.Close: Set rs = Nothing Case 1 退出整个程序 Unload Me End SelectEnd Sub422 MDI主窗口(frmmain)本系统采取多文档界面(MultiDocument Interface)。多文档界面是一种Windows用户界面标准。它有一个父窗口，在典型情况下，父窗口用来显示程序菜单以及包含子窗口。在工程中添加一个MDI窗口，取名为“frmmain.frm”，并为MDI窗体进行菜单和代码的设计，其运行界面如图3.2:图3.2 主界面4221 菜

20、单设计MDI主窗体是整个系统的容器，为了方便用户的使用，应设计相应的菜单和代码。4222 窗体代码设计1在代码窗口的通用部分，声明一个API函数用于打开帮助文件和调用Outlook发送邮件。Private Declare Function ShellExecute& Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As Strin

21、g, ByVal nShowCmd As Long)2判断用户权限如果登陆的为普通用户类型的用户，则用户不能使用“用户管理”这一功能，而对于管理员类型的用户，则没有此限制。所以在MDIForm的Load事件中需要判断用户类型。Private Sub MDIForm_Load() StatusBar.Panels(2).Text = 当前操作员： & LoginUser & & LoginPower & If LoginPower = 普通用户 Then filemenu11.Enabled = False Toolbar1.Buttons.Item(5).Enabled = False End

22、 IfEnd Sub3Form的QueryUnload事件当用户要退出MDI窗体时，需要在QueryUnload事件中询问用户是否真的要退出本系统；如果用户不要退出，则将Cancel置为1，取消整个退出过程。Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(确定要退出学生档案管理系统吗？是/否,vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End IfEnd SubQueryUnload和Unload事

23、件当一个子窗体或一个Form对象关闭时，在那个窗体中的QueryUnload事件先于该窗体的Unload事件发生，Unload事件在Terminate事件之前发生。当一个应用程序关闭时，可使用QueryUnload或Unload事件过程将Cancel属性设置为True来阻止关闭过程。但是，QueryUnload事件是在任一个卸载之前在所有窗体中发生，而Unload是在每个窗体卸载时发生。在这两个事件中，均可将Cancel设置为任何非零的值来防止窗体被删除。但Unload不能阻止其他事件，诸如从Microsoft Windows操作环境中退出等；而QueryUnload事件则可以阻止从Windo

24、ws中的退出。有介于此，通常来说都是在QueryUnload中询问用户是否要退出当前窗体。4“重新登陆”子菜单的代码当单击了“重新登陆”或者按下了“F2”键时，将会给出提示，如果用户在提示框中按下了“确定”按钮，则退出整个MDI主窗体，并显示登陆窗体。Private Sub filemenu15_Click()If MsgBox(若重新登陆，所有窗体都将关闭！是否重新登陆？, vbYesNo + vbQuestion, 重新登陆) = vbYes Then Unload Me Frmlogin.Show End IfEnd Sub5“帮助主题”子菜单的代码调用Windows API函数，打开h

25、elp.chm帮助文件。Private Sub filemenu21_Click() ShellExecute 0, open, App.Path & help.chm, , , 1End Sub6“给我发邮件”子菜单的代码如果用户单击了“给我发邮件”子菜单，则会调用API函数，调用Outlook。Private Sub filemenu22_Click() ShellExecute Me.hwnd, open, mailto:, , App.Path, 1End Sub7当用户单击查询学生资料菜单项或者按下F3键时，将会出现“查找学生”窗体，供用户查找满足特定要求的学生信息。Private

26、Sub filemenu45_Click() 查找学生 frmstusearch.Show 1End Sub333 用户管理窗体（frmmanage）向项目中添加窗体，并命名为frmmanage.frm。窗体的控件设计如图3.3所示 图3.3 用户管理界面如果登陆的用户类型是管理员，用户管理一项是可用的，当单击该子菜单时，将会出现用户管理窗口，管理员可以对系统用户进行添加和删除操作。3331 窗体代码设计1定义一个整型变量DelNO用来存储当前系统用户的数目，当DelNO=1时提示用户不能再删除用户。在该窗体的通用部分写如下代码： Dim DelNO As Integer2窗体加载时，初始化L

27、istview用以显示系统用户列表，代码如下Private Sub Form_Load()初始化ListViewDim clmX As ColumnHeaderSet clmX = ListView.ColumnHeaders.Add(, , 用户名, ListView.Width / 3)Set clmX = ListView.ColumnHeaders.Add(, , 密码, ListView.Width / 6, 2)Set clmX = ListView.ColumnHeaders.Add(, , 姓名, ListView.Width / 4, 2)Set clmX = ListView.ColumnHeaders.Add(, , 用户权限, ListView.Width / 4, 2)Combo1.ClearCombo1.AddItem 普通用户Combo1.AddItem 超级用户Combo1.ListIndex = 0LoadOperatorEnd Sub其中调用了LoadOperator函数，该函数用来显示和刷新Listview中的数据Private Sub LoadOperator() On Error Resume NextDim Listit As ListI