VB+Access开发的学籍管理系统设计论文

1、学生学籍管理系统摘要随着计算机技术的飞速发展，计算机在人们日常管理中的应用迅速得到了普及，利用计算机进行学生信息的管理势在必行。本系统结合当前高等学校的实际，经过实际的需求分析，采用功能强大的vb6.0作为开发工具而开发出来的单机版学生学籍管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成学生基本情况简介,学生基本信息管理以及相关信息的添加,修改,删除等操作。经过实际的测试证明本系统可以用为高等院校进行学生信息方面的管理工作，本系统数据库采用access 2003。关键词窗口；对话框；信息管理系统；access数据库 students data manage syst

2、emauthor: zhang wenlong（well-being of electronics and information engineering, computer science and technology professional 07, ankang, shaanxi 725000）tutor：wang hongshanabstract: with the rapid development of computer technology,the computer application in the daily management of people quickly get

3、 the popularity of computer-based student information management imperative. the system with the current real of high education institutions, through the actual needs analysis, using vb6.0 as a powerful development tool then developed a stand-alone student record management system. the system is eas

4、y to manipulate and user-friendly, flexible, practical, safety requirements, the completion of the basic profiles of students, students with basic information management and related information to add, modify, or delete operation. after the actual test, the system can be used as a university student

5、 information management, the system database using access 2003.key words：window; dialog box, information management system;access database引言一直以来人们使用传统的人工的方式来管理学籍文件，但是时间一长，将产生大量的文件和数据，这对于管理人员查询和维护都带来了很多的不便，随着科学技术的不断提高，计算机科学日渐成熟，使用计算机对学生学籍信息进行管理，有着手工管理所无法比拟的优点，例如：查询方便、检索速度快、可靠性高、存储量大等。为了解决人工管理学籍困难的问题，

6、学生学籍管理系统应运而生。1.系统总体概述管理信息系统(mis,management information system)，在强调管理，强调信息的现代社会中它变得越来越普及。mis是一门新的科学，跨越了若干个领域，管理科学，系统科学，运筹学，统计学及计算机科学。在这些科学的基础上,形成信息收集和加工方法，从而形成一个纵横交织的系统。2.管理信息系统的基础2.1管理信息系统的特点管理信息系统的特点是：操作方便、查询速度快、界面友好、存储量大等。2.2管理信息系统的组成 管理信息系统在企业中应用存在三大要素，人、计算机和数据。企业领导者，管理人员，技术人员以及mis建设的领导机构和实施机构，他们

7、在系统中起到主导作用。mis是一项系统工程，不是只靠一些计算机开发人员就可以完成的必须有企业管理人员，尤其是企业领导的积极参与。2.3 管理系统信息的界面在计算机软件技术中，人机界面可以发展成为一个重要分支。mis人机界面设计一般遵循一下一些基本原则： 1.以人机交互功能作为界面设计的核心； 2.界面必须始终一致； 3.界面必须是用户随时掌握任务的进展情况； 4.界面必须友好，使用方便； 5.输入界面尽可能接近实际； 6.具有较强的容错功能。3.学生学籍管理系统的设计与实现3.1系统设计 3.1.1系统功能分析 学生学籍管理系统的开发任务是为了减轻教学管理工作人员的工作负担,为了教学管理工作能

8、够系统化,规范化和自动化而开发的。3.2数据库设计 3.2.1数据库需求分析 现在一般的大中专院校,在学生学籍管理方面主要用于查询,添加和删除等学生基本信息操作.在建立数据库时,我先建了一个学生学籍表。3.2.2数据的概念设计 根据上面所进行的数据设计分析,我们明白了数据库大致结构和数据表之间的联系,数据库数据在他们之间流动.我们就可以设计出学生学籍信息实体3.2.3数据库的逻辑结构设计通过以上分析，先用microsoft access 2003来设计数据库 。3.2.4数据库的实现在经过前面的需求分析和概念逻辑结构设计之后，现在就可以在microsoft access 2003中来实现数据库

9、了。打开microsoft access 2003，在出现的对话框里选择“空access数据库”，数据库命名为school，使用设计器设计表，用access 2003创建饿数据库不能直接被vb6.0访问，必须经过转换成早期版本才行。转换后文件名命名为“school.mdb”保存，最后保存数据库。图3-1 学籍表3.3创建学籍管理窗口将学籍管理窗体上所有控件对象。一一创建，并适当地设置各个控件的属性。1.打开vb，创建新的工程，选择标准exe。2.将新建的窗体form1命名为“学籍”窗体。3.修改窗体颜色：修改属性窗体里的backcolor属性值。4.修改窗体标题：将窗体form1的captio

10、n属性改为学籍管理。5.设置窗口形式关闭窗口右上角的控制按钮：还原、最小化、关闭按钮。完成上述动作的控制是，这只窗口form1的controlbox属性为false。这样的设置，是为了使程序运行后，操作者无法使用右上角的按钮结束该程序运行。6.创建文本框控件数组。7.创建标签label控件，说明个文本框作用。8.创建按钮：分别设计搜索、添加、修改、删除等按钮。3.4创建学生数据管理系统窗体 1.在菜单工程中选择添加窗体将会出现form2窗体。2.设计窗体form2的form-load事件程序: a.双击form2的空白处,则屏幕将出现form-load事件程序。 b.输入的form-load程

11、序。3.使用dao为数据存取接口，因此需要将dao引入工程。 引入dao的方法是,单击工程,引用菜单选项，选中dao3.6选项。4.学籍窗体显示,从窗体form2处,单击菜单作业管理,系统将学籍信息窗体form1显示在画面上,这个程序设计方法如下: 在设计阶段,单击form2的主菜单作业管理选项,随即会出现空白的student1-click程序。 3.5搜索按钮功能的实现 在搜索特定的数据时,vb提供四种find方法: a. findfirst:寻找第一组特定数据；b. findlast:寻找最后一组特定数据； c. findnext:寻找下一组特定数据 ；d. findprevious:寻找

12、上一组特定数据； 由于在上面所述中已经修改了所有按钮的属性,接下来则可在程序设计阶段,双击搜索按钮输入程序代码。3.6添加,保存,取消功能设计 在窗体式的数据库结构中,一般情况下,都会有数据显示在窗体上。假若操作者要增加新的数据记录,则必须有操作者按下添加按钮,这时程序进行清除目前的数据显示,且增加一组空白记录,随后按保存按钮,使操作者输入的数据写入数据库中。甚至于操作者要中途放弃新输入的数据,则可以通过取消按钮完成。 1.双击添加按钮,将程序代码加入。2.相同的保存按钮也加入程序代码。 3.7删除数据,结束按钮 删除动作,先要有确认信息框,作为预防操作者无意的错误删除动作。再者,待删除命令确

13、定运行后,程序需能通过data control控件运行删除记录的动作。1.双击窗体上的删除按钮加上代码；2.双击结束按钮假如切换回系统维护窗的程序； 3.8命令按钮状态编辑 将窗体上的11个按钮,分成两组,如下: 1.一般功能按钮:包括搜索、最前、向前、向后、最后命令按钮。 2.辅助功能按钮:包括添加、修改、删除、保存、结束、取消命令按钮。这样的划分原则是,保存,取消按钮平时应是失效(disable)状态,但是操作者若按下添加按钮,则一般功能按钮应该全部失效(disable),反而辅助功能按钮应该有效(enable)。也就是说,在添加功能状态下,接下来的命令部步骤,只能作保存或取消两种操作，

14、根据上述的说明和分类,先制作一个过程savecancel,它的作用是将所有的一般功能按钮,全部失效(disable),而辅助功能按钮有效(enable)。 添加savecancel过程:依次点选工具,添加过程菜单,随即在出现的添加过程窗口内输入信息。a.输入代码。b.添加intial程序:仿照步骤1,创建intial过程。c.initial-button程序代码,需分成两个块,一块是数据库没有记录,此时则只有添加,结束按钮可以有效(enable),其余全部失效(disable)。另一块是一般功能按钮全部有效,辅助功能按钮全部失效。4.主要功能模块视图及代码4.1登录模块private sub

15、command1_click() dim j as single dim passwordchar as string数据有效性检查 passwordchar = text1.text 对应用户名文本的名称 if passwordchar = 张文龙 then passwordchar = text2.text 对应密码文本的名称 if passwordchar = 123456 then form2.show form3.hide else msgbox 用户密码错误，请重新输入密码 txtuser = txtpwd = exit sub end if end if end subpriva

16、te sub command2_click() endend sub图4-1 登录窗口4.2学生数据管理系统操作界面模块图4-2 数据管理4.3 学籍管理模块4.3.1实现学生基本情况的录入、修改、删除等基本操作添加功能：private sub command2_click()on error goto commanderrorcleardisplaytext1(0).setfocusaddrecord = truesavecancelexit subcommanderror:msgbox err.descriptionend sub“修改”控件的算法：private sub command3

17、_click()on error goto commanderrortext1(0).setfocusmodifyrecord = truesavecancelexit subcommanderror:msgbox err.descriptionend sub“删除”控件的算法：private sub command4_click()on error goto delerrordim d as integerd = msgbox(确定要删除这笔记录吗？, vbquestion + vbyesno, 删除记录)if d = vbyes thenbegintrans rs1.deletecommi

18、ttransrs1.movenextif rs1.recordcount 0 then if rs1.eof then rs1.movelast end if displayrecordelse rs1.addnew cleardisplay inital_botton end ifend ifexit subdelerror: rollback msgbox err.description end sub4.3.2对学生基本信息提供灵活的查询方式“搜索”控件的算法：private sub command1_click()on error goto commanderrordim num as

19、 stringon error goto commanderrornum = inputbox$(请输入学号(8码), 学号搜索, a0800001)if num thennum = 学号= & & num & rs1.findfirst numif not rs1.nomatch then displayrecordelsemsgbox 目前没有这个学号的学生数据, vbokonly + vbexclamation, end if end ifexit subcommanderror:msgbox err.descriptionend sub查找最前端的数据：private sub comm

20、and11_click(index as integer)const move_first = 3const mvoe_previous = 2const move_next = 1const move_last = 0on error goto commanderrorselect case indexcase move_first rs1.movefirstcase mvoe_previous rs1.moveprevious if rs1.bof then beep msgbox 这已是第一组数据, vbokonly + vbexclamation, exit sub end ifcas

21、e move_next rs1.movenext if rs1.eof then beep msgbox 这已是最后一组数据, vbokonly + vbexclamation, exit sub end ifcase move_last rs1.movelastend selectdisplayrecordexit subcommanderror: msgbox err.description end sub依次向后查找：private sub command11_click(index as integer)const move_first = 3const mvoe_previous =

22、 2const move_next = 1const move_last = 0on error goto commanderrorselect case indexcase move_first rs1.movefirstcase mvoe_previous rs1.moveprevious if rs1.bof then beep msgbox 这已是第一组数据, vbokonly + vbexclamation, exit sub end ifcase move_next rs1.movenext if rs1.eof then beep msgbox 这已是最后一组数据, vbokonly + vbexclamation, exit sub end ifcase move_last rs1.movelastend selectdis