VBACCESS成绩管理毕业论文.doc

目 录第一章 系统概述 7第二章 系统设计 72.1 业务需求分析 72.2 系统功能模块设计 9第三章 数据库设计103.1 数据库需求分析103.2 数据库结构实现11第四章 具体实现 11 4.1 主窗体的创建 11 4.2 学生基本信息录入窗体的创建14 4.3 学生基本信息查询窗体的创建23 4.4 学生基本信息统计窗体的创建26 4.5 系统运行、测试与测试结果 29结束语 31参考文献32附录 33摘 要本论文介绍如何利用Microsoft Visual Basic及MicrosoftAccess来实现学生信息系统的开发。Microsoft Visual Basic提供了开发Microsoft Windows应用程序的最迅速、最简的方法。不需要编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象拖放到屏幕上的一点即可。Microsoft Access格式数据库可直接由Access或VB 直接建立和操作且执行速度最快。全文共分四个部分：第一部分为系统概述，说明了开发此系统的必要性和益处。并对系统作了简单介绍。第二部分为：系统设计，包括系统功能分析、系统功能模块设计。第三部分为数据库设计，包括数据库需求分析、数据库结构实现。第四部分为具体实现，主要是各窗体的创建和代码的编写和系统运行、测试。并对本系统的优点进行简单评述。AbstractThis essay will illustrate how to use Microsoft Visual Basic & Microsoft Access to exploit the student information system. The Microsoft Visual Basic offer the most rapid and the easiest way to exploit the application of the Microsoft Windows.There are no requirements to compile lots of code to describe the profile and position of the interface element,instead,what you need to do is just to drag the object,which has been established beforehand,to a point on the screen. The Microsoft Access format data base can be established and operated directly by the Access or the VB,whose speed of executing is the fastest.The complete text divides four section: the first section is the system resume, to explain necessary and profit of why develop the system , and make a simple introduction for the system.The second section is the system design, it includes system function analysis, system function module design. The third section is data base design, it includes data base demand analysis, data base structure realization .The fourth section is concrete realization, it mainly explains how to built the window and to edit the codes and run the system and test. Then it makes a simple appraisement of the advantage of the system. 前言管理信息系统就是我们常说的 MIS （Management Infornation System)，在强调管理，强调信息的现代社会中它变得越来越普及。 随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。为此，这次毕业设计本人就选择了由毕于深导师命题的学生信息管理系统的开发工作。本系统包含学生基本信息管理子系统、成绩信息管理子系统等。其中学生基本信息管理子系统的开发工作由本人来完成。本系统利用Microsoft Visual Basic语言和MicrosoftAccess数据库管理系统来实现。本论文以下各章节主要介绍了系统的开发研制过程，并对该系统的功能、性能、及使用的方法进行了详细说明。本系统由毕于深导师命题。在整个开发过程中毕于深导师给了本人大量的指导和热心的帮助。使本人在毕业设计中不断进步，受益匪浅。在此表示衷心的感谢。由于本人的知识水平有限，加上时间仓促，不足之处在所难免，望各位导师多提宝贵意见。Preface Management Information System is MIS what we often speak, It changes more and more popular in the stressing management and stressing information contemporary society. With the scales of school unceasing widening, the number of students has increased rapidly, and the amount information concerning students has aslo increased by several times. Whereas face to bulky quantity of information, we need the Management Information System of students to improve the efficiency of mannagement of students. For the occasion, I choose the thesis of student information management system development what tutor Yushen,Bi propounded.The system includes student essential information management subsystem, attainment information subsystem and so on .Among the total the student essential information subsystem development was finished by myself.The system is achieved by Microsoft Visual Basic and Access data base management system.The below chapters of the essay mainly explain development process, and make a specification of the system function, quality, and usage method. The subject is propounded by tutor Yushen,Bi.During The Projecting, He gave me lots of instruction and enthusiastic Help.And he makes me learn a lot in the design.Here I expressmy heartfelt thanks to him.Because of my limeted knowledge and limited time,it is inevitable to have some shortcoming in this essay,and i really hope that the tutors will bring forward some precious opinions! 第一章 系统概述本软件主要用于大学学生信息管理工作。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。而对庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率。做到信息的规范化管理，科学统计和快速查询，从而减少管理方面的工作量。设计要求本系统包括：编辑、学生基本信息管理、教务管理、考务管理、成绩信息管理、学籍管理、毕业信息管理。其中我所要参与完成的是学生基本信息管理。它包括学生信息录入、学生信息查询、学生信息统计。第二章 系统设计2.1业务需求分析系统开发的总体任务是实现学生信息系统的系统化、规范化、和自动化。系统功能分析是在系统开发的总体任务基础上完的。本学生信息管理系统需要完成的功能主要有：A1、学生基本信息录入，主要是学生的一些基本信息，如:姓名、出生日期、所学专业等。 A2、学生基本信息查询，包括按学号查询、按姓名查询、按专业代码查询、按班级查询、照片查询。A3、学生基本信息统计，包括按专业统计、按本专科统计、按学习形式统计、历年人数统计。B1、成绩录入B2、成绩查询B3、成绩统计B4、学期补考人数查询B5、学期补考人数统计C1、学期电子注册C2、学籍异动输入与查询C3、奖惩记录的输入与查询D1、毕业资格审查与查询D2、毕业设计查询D3、毕业证书查询D4、学位证书查询2.2系统功能模块设计对系统功能进行集中分块，按照结构化程序设计的要求，得到如图2、1所示的系统功能模块图。学 位 证 书 查 询毕 业 证 书 查 询毕业信息管理毕 业 设 计 查 询毕业资格审查与查询奖惩记录的输入与查询学 籍 管 理图2.1 系统功能模块图学籍异动输入与查询学 期 电 子 注 册学生信息管理系统学 期 补 考 人数 统计学 期 补 考 人数 查询成绩信息管理成 绩 统 计成 绩 查 询成 绩 录 入学 生 基 本 信息 统计学生基本信息管理学 生 基 本 信息 查询学 生 基 本 信息 录入修 改 密 码编 辑添 加 用 户第三章 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。（本人设计的是学生基本信息管理模块，所以以下都是针对本模块的说明）。3.1数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。在仔细分析调查有关学生信息需求和毕业设计要求的基础上，设计了如下所示的数据项： 学生基本信息：包括的数据项有：学校代码、姓名、性别、民族、出生日期、入学日期、学习形式、学习层次、入学学历、班级、身份证号码、学号、联系电话、家庭地址、学制、专业代码、学科门类、学籍异动、学生序号、结业日期、毕业日期、照片。3.2 数据库结构实现利用Microsoft Accesss数据库管理系统来完成对数据库逻辑结构的实现。下图是对数据库中学生基本信息表（info）的设计。 图3.1 info 表结构有关学生基本信息模块的数据库后台工作已经完成。以下是功能模块的实现。第四章 具体实现4.1 主窗体的创建4.11 创建学生信息管理系统的主窗体以下功能的实现都是利用Microsoft Visual Basic语言来完成的。Microsoft Visual Basic提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。不需要编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象拖放到屏幕上的一点即可。Visual Basic在原有BASIC语言的基础上进一步发展，包含了数百条语句、函数和关键词，其中很多和Windows GUI(图形用户界面)有直接关系，这些都给编程工作带来很多方便。首先创建一个工程项目，命名为Student_Mis。然后创建一个多文档界面（MDI），它可以包含其他的窗体，这样可以使程序更加美观、整齐有序。单击“工程”菜单中的“添加 MDI 窗体”，生成一个如下所示的窗体。 图4.1 程序主窗体在主窗体中加入状态栏控件，可以事实反映系统中的各个状态变化。面板1用来显示各种文本信息，面板2用来显示当前日期，面板3用来显示当前时间。4.12创建主窗体的菜单在上面主窗体里的主菜单的设计如下：单击工具栏里的“菜单编辑器”按钮，创建如下图所示的菜单结构。 图4.2主窗体中的菜单结构下面我们就开始创建与学生基本信息数据库（Info）的连接，程序代码如下：Private Sub MDIForm_load()= 连接数据库 =Set Conn = New ADODB.ConnectionSet Rs = New ADODB.RecordsetConn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & info.mdb ;Jet OLEDB:Database Password=0120Conn.CursorLocation = adUseClientConn.OpenEnd Sub至此主窗体的创建已结束。具体实现代码见附录4.2学生基本信息录入窗体的创建选择“学生信息录入”菜单，将出现下图所示的窗体。 图4.3 学生信息录入窗体在窗体上放置多个文本框和下拉式文本框，用来输入学生基本信息；图形控件和“添加照片”按钮是用来显示、输入学生照片；单选按钮是确定此学生是毕业的，还是结业的；另外两个按钮是用来确定是否添加学生信息；多个标签用来提示文本框中需要输入的内容。控件属性见下表。表4.1 学生信息录入窗体中各个控件的属性设置 控 件属 性属 性 取 值FROMNameFrm_importcaption学生基本信息录入MDIChildTrueFrameNameFrame1caption学生基本信息录入TextboxNametxtSchoolCodeTextboxNametxtNameComboboxNamecmbSexTextboxNametxtNationDTPickerNameBirthdayDTPickerNameEntrance_DateComboboxNamecmbModalComboboxNamecmbGradeTextboxNametxtEntranceGradeTextboxNametxtClassTextboxNametxtIDcardTextboxNameStudyIDTextboxNametxtTelTextboxNametxtAddressTextboxNametxtStudyLengthTextboxNametxtSpecialtyCodeTextboxNametxtSubjectTypeComboboxNamecmbUnusualTextboxNametxtStudentNumOptionButtonNameOptGraduationCaption毕业OptionButtonNameOptCompleteDateCaption结业DTPickerName GraduationDateImageNameimgpicture 控 件属 性属 性 取 值CommonDialogNameimgpicturefilter(图片 *.bmp;*.jpg)|*.bmp;*.jpgCommandButtonNamebtnpictureCaption添加照片CommandButtonNamebtnokCaption确定添加CommandButtonNamebtnResetCaption取消添加Label1Caption学校代码Label2Caption姓名Label3Caption性别Label4Caption民族Label5Caption出生日期Label6Caption入学日期Label7Caption学习形式Label8Caption学习层次Label9Caption入学学历Label10Caption班级Label11Caption身份证号码Label12Caption学号Label13Caption联系电话Label14Caption家庭住址Label15Caption学制Label16Caption专业代码Label17Caption学科门类Label18Caption学籍异动Label19Caption学生序号Label20Caption照片在载入窗体时，程序将自动在下拉式文本框（性别、学籍异动、学习层次、学习形式）中添加内容，这样可以规范化输入内容。代码如下：Private Sub Form_Load() frmmain.StaBar.Panels(1).Text = 学生基本信息输入 cmbSex.AddItem 女 cmbSex.AddItem 男 cmbSex.Text = cmbSex.List(0) cmbModal.AddItem 脱产 cmbModal.AddItem 函授 cmbModal.AddItem 夜大 cmbModal.Text = cmbModal.List(0) cmbGrade.AddItem 专生本 cmbGrade.AddItem 高起本 cmbGrade.AddItem 专科 cmbGrade.Text = cmbGrade.List(0) cmbUnusual.AddItem 毕业 cmbUnusual.AddItem 退学 cmbUnusual.AddItem 取消学籍 cmbUnusual.AddItem 勒令退学 cmbUnusual.AddItem 开除学籍 cmbUnusual.AddItem 死亡 cmbUnusual.AddItem 转出学籍 cmbUnusual.Text = cmbUnusual.List(0) frmmain.StaBar.SimpleText = 学生基本信息录入 End Sub当学生信息录入窗体载入时，用户就可以开始添加学生信息了。信息的每一项都不可以为空。比如忘记了添加姓名和联系电话，就会弹出如下两图所示的消息对话框。图.提示消息框图.提示消息框实现代码如下：（以姓名为例）判断姓名文本框不能为空 If txtName.Text = Then MsgBox 姓名不能为空, vbExclamation, 警告 txtName.SetFocus Exit Sub End If在选择“结业”单选按钮时，下面的“毕业日期”标签就会显示为“结业日期”同时把输入的日期存在结业日期字段中，否则存在毕业日期字段中。在有特殊规定的输入项中，要判断输入项的位数是否为所要求的位数。比如，学校代码要求为位；身份证号码要求为位或位；专业代码要求为位；学生序号要求为位。如果不符合要求，就会弹出如下两图所示的消息框：图.提示消息框图.提示消息框实现代码如下：（以身份证输入错误为例）确定身份证位数是否输入正确 Dim idlen As Integer sIdCard = txtIDcard.Text idlen = Len(sIdCard) If idlen = 15 Or idlen = 18 ThenElse: MsgBox 身份证输入错误, vbExclamation, 错误txtIDcard.SetFocusExit Sub End If学号的内容是自动生成的，共位数字。左起：15位：学校代码67位：入学年份的后2位数8位：为一横杠9位：学习形式代码（夜大为3、函授为2、脱产为1）10位：学习层次代码（专生本为3、高起本为2、专科为1）1112位：专业代码13位：学生序号实现的代码如下： 学号自动生成 Dim mydate As StringDim mymodal As StringDim mygrade As StringDim myentrance_date As Stringmyentrance_date = CStr(dEntrance_date) mydate = Left(myentrance_date, 2) Select Case sModal Case 夜大 mymodal = 3 Case 函授 mymodal = 2 Case 脱产 mymodal = 1 End Select Select Case sGrade Case 专生本 mygrade = 3 Case 高起本 mygrade = 2 Case 专科 mygrade = 1 End Select StudyID.Text = sSchoolCode + mydate + - + mymodal + mygrade + sSpecialtyCode + sStudentnum在输入完各项内容，添加完照片后就单击“确定添加”。同时，判断各个输入项是否符合规定（如上所诉）。打开表，并把输入的各项保存到数据库中。同时弹出“添加成功”消息框。图.提示消息框打开表的程序代码如下：txtSQL = select * from info Rs.Open txtSQL, Conn, adOpenStatic, adLockOptimisticRs.AddNew至此学生信息录入窗体已创建完成。具体实现代码见附录。利用学生信息录入窗体，向数据库添加记录，以作为查询窗体和统计窗体功能的测试用例。记录信息为本人根据各种情况编写出来的。.学生信息查询窗体的创建选择“学生信息查询”菜单，将出现下图所示的窗体。图.学生信息查询窗体此窗体中的控件属性见下表：表4.2 学生信息查询窗体中各个控件的属性设置 控 件属 性属 性 取 值FROMNamefrm_searchcaption学生基本信息查询MDIChildTrueDataGridNameDataGrid1FrameNameFrame1Caption查询CheckBoxNamechkStudyIDCaption按学号CheckBoxNamechkNameCaption按姓名CheckBoxNamechkSpecialtyCodeCaption按专业CheckBoxNamechkClassCaption按班级CheckBoxNameChkIDcardCaption按身份证号码显示TextBoxNametxtStudyIDTextBoxNametxtNameTextBoxNametxtSpecialtyCodeTextBoxNametxtClassTextBoxNametxtIDcardImageNameImagePicLabel1 Caption学生基本信息查询Label2Caption 姓 名CommandButtonNamecmdFindCaption查 询CommandButtonNamecmdwriteCaption修 改CommandButtonNamecmdsaveCaption保存修改CommandButtonNameprintCaption打 印CommandButtonNamecmdLookCaption显示照片CommandButtonNamecmdCanelCaption退出查询此查询窗体可以实现按学号查询、按姓名查询、按专业代码查询、按班级查询和按这几项的组合查询。只要在复选框中打“”，然后输入要查询的内容，就可以实现单一或组合查询。如果想看库中Info表的全部内容，不用输入任何内容，只需单击“查询”按钮，就可以实现。查询的内容在DataGrid控件中显示出来。以下举例说明：比如按专业代码为进行查询。按“查询”按钮后就会出现如下图所示的内容：图.按专业代码为的查询结果实现代码如下：Private Sub cmdFind_Click()txtSQL = select * from info where 按专业代码查询If chkSpecialtyCode.Value = 1 Then If Trim(txtSpecialtyCode.Text) = Then MsgBox 专业代码不能为空, vbExclamation, 警告 txtSpecialtyCode.SetFocus Exit Sub Else txtSQL = txtSQL & 专业代码= & Trim(txtSpecialtyCode.Text) & and End IfEnd If将数据赋给datagrid Set DataGrid1.DataSource = RsSearchEnd Sub如果没有输入查询条件，就会弹出下图所示的消息框：图.提示消息框如果想修改查询出来的记录的内容，就先单击“修改”按 按钮，然后在DataGrid控件中进行直接修改，修改完毕后，按“保存修改”按钮，就会保存所做的修改。此窗体还可以实现查看照片功能。如果想看要查询的人的照片，首先查询到此人的记录，然后在“按身份证号码显示”的复选框中打“”，在下面的文本框中输入此人的身份证号码，最后按“显示照片”按钮，此人的照片就会显示在上面的Image控件中。举例说明：下面查找一个姓名为“萧云”的记录，并显示她的照片。下图所示为查询结果：图.查询姓名为“萧云”的记录和照片此查询窗体还可以实现对查询出来的记录进行打印。首先在装有该“学生信息管理系统”软件的计算机上安装上软件。然后就进行查询操作，最后直接按“打印”按钮就可以完成打印。下图所示为打印出的按专业代码为进行查询的记录（按专业代码为进行查询的结果如图.所示）图.打印结果至此学生信息查询窗体已创建完成。具体实现代码见附录。.学生信息统计窗体的创建选择“学生信息统计”菜单，将出现下图所示的窗体。 图.学生信息统计窗体学生信息统计窗体中的控件属性见下表：表4.3 学生信息统计窗体中各个控件的属性设置 控 件属 性属 性 取 值FROMNamefrm_statisticscaption学生基本信息统计MDIChildTrueSSTabNameSSTab1GeneralCurrent Tab0Tab Caption按专业统计Current Tab1Tab Caption按本、专科统计Current Tab2Tab Caption按学习形式统计Current Tab3Tab Caption按历年学生人数统计MSChartNameMSChart1MSChartNameMSChart2MSChartNameMSChart3MSChartNameMSChart4CommandButtonNamebtnReturncaption返回&R此学生信息统计窗体完成的功能为：按专业进行人数统计；按本专科进行人数统计；按学习形式进行人数统计；按历年学生人数进行统计。按专业统计实现代码如下：Private Sub SSTab1_Click(PreviousTab As Integer)=按专业统计=txtSQL = select 学科门类 from info group by 学科门类If RsSubjectType.State = 1 Then RsSubjectType.CloseRsSubjectType.Open txtSQL, Conn, adOpenStatic, adLockReadOnlyIf RsSubjectType.RecordCount = 0 Then MsgBox 没有记录, vbExclamation, 统计 Exit SubElse ReDim ArrRs(RsSubjectType.RecordCount - 1) ReDim ArrRenShu(RsSubjectType.RecordCount - 1)End IfRsSubjectType.MoveFirstFor k = 0 To UBound(ArrRs) ArrRs(k) = RsSubjectType(0) RsSubjectType.MoveNextNext kFor k = 0 To UBound(ArrRenShu) txtSQL = select count(*) from info where 学科门类= & ArrRs(k) & If RsSubjectType.State = 1 Then RsSubjectType.Close RsSubjectType.Open txtSQL, Conn, adOpenStatic, adLockReadOnly ArrRenShu(k) = RsSubjectType(0) RsSubjectType.MoveNextNextWith MSChart1 .RowCount = UBound(ArrRs) + 1 For k = 0 To UBound(ArrRs) .Row = k + 1 .Data = ArrRenShu(k) .RowLabel = ArrRs(k) Next kEnd WithEnd Sub至此学生信息统计窗体已创建完成。具体实现代码见附录。4.5 系统运行、测试与测试结果至此系统的学生基本信息模块已开发完毕，可预先运行。现对系统进行测试： 一、测试方案在各种操作中应测试其正常操作下的情况和特殊操作下的情况。特别是查询部分，应该单个条件查询数次，在用组合查询查询数次。在学生信息录入窗体输入数条记录，同时也要在统计窗体里进行统计，看是否和预期结果相同。这样可保证系统的稳定性和正确性。二、测试用例本系统的测试用例是本人根据各种基本和特殊的情况和同学的一些基本信息编写出来的。三、测试结果对于测试计划的执行情况，初始阶段有一些错误和不足之处，通过改正和进一步完善后能正确运行。而且录入、查询、统计结果完全正确，达到预期效果。四、系统的特点1、系统的通用性和扩展性强：本系统能够适合各种类型的高等院校。系统较为严格的按模块划分，充分考虑扩展和完善性。2、系统的稳定性：因为采用了Microsoft Access做后台数据库。3、开放性：本系统适合有技术能力的单位和学校进行二次开发，共同完善。4、可推广性强：系统的开发和社会需要紧密结合，符合国家政策和发展目标。是各高等院校所必需的管理信息系统。结束语至此我的毕业论文宣告结束了。从整体上说，本系统较好的完成了软件设计的初衷。在整个设计过程中，充分运用了以前所学的的相关知识，并阅读了大量Visual Basic方面的书籍。因此，各方面的水平都有了不同程度的提高，特别是编程方面更是受益匪浅；与此同时，通过软件的设计，我充分意识到，一个成功的软件设计，不但要有良好的系统开发知识和良好的编程方法，熟练的应用语言的能力，全面、敏捷的思维能力，而且必须具有扎实的理论基础。总之，毕业设计这一环节，为我本科的学习划上了圆满的句号。在我毕业设计期间，得到了毕于深导师的悉心指导及大力支持，使我在毕业设计中不断进步，收获颇丰。首先让我对他表示最衷心的感谢。同时也要感谢学校的领导和老师。更要感谢生我养我哺育我的父母，一直以来他们都很支持我，是我的坚强后盾。我将把所有的感激化作动力，献身祖国、献身社会，来表达我对他们的感激之情。在此衷心感谢所有关心我、帮助我的人！参考文献1、彭 波 Visual Basic 程序设计,清华大学出版社 2002年7月第一版2、洪国胜,Visual Basic 5.0/6.0范例教程,中国铁道出版社, 1998年11月第一版3、鸿志创作组,Visual Basic 6.0中文版应用与开发,科学出版社, 1999年1月第一版4、Francesco Balena (翔实翻译组), Visual Basic 6编程技术大全,机械工业出版社, 2000年1月出版5、刘炳文,精通Visual Basic 6.0中文版, 电子工业出版社, 2001年10月6、美Microsoft Corporation,全面掌握VisualBasic 6.0企业应用程序开发,清华大学出版社 2000年8月7、段兴,Visual Basic 6.0数据库实用程序设计100例, 人民邮电出版社, 2002年10月8、美Wayne Freeze尹喆 冯硕 贾志博 等译, Visual Basic数据库编程宝典,电子工业出版社,2001年5月9、Brian Siler,Visual Basic 6开发使用手册,机械工业出版社,1999年4月10、美Ted Coombs Jon Campbell,邓少鹍 邓云佳译, Visual Basic 编程实用大全,水利水电出版社,2000年11月11李俊海,如何解决VB中的Grid控件的打印问题附录以下为具体实现代码一、公用模块Option ExplicitPublic Conn As ADODB.Connection 定义Connection对象Public Rs As ADODB.Recordset 定义Recordset对象Public txtSQL As String sql用到的strPublic msgText As String 本专科Public ModalSQL As String 学习层次Publi