学生信息管理系统毕业设计

学生信息管理系统毕业设计论文RevisedonNovember25,2020–––––––––––––––––摘 要–––––––––––––––––学生信息管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUALBASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键字：控件、窗体、域、数据库。–––––––––––––––––前言–––––––––––––––––随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效增加、删除等，从而减少管理方面的工作量。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。主要有：成绩等。⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。⒊学生信息的修改。⒋班级管理信息的输入，包括输入班级设置、年级信息等。⒌班级管理信息的查询。⒍班级管理信息的修改。⒎学生课程的设置和修改。目 录前言第一章VisualBasic概述VisualBasic语言的特点VisualBasic第二章WindowsVisualBasic编程环境简介面对对象的编程实现菜单选项实现工具栏第三章怎样开发一个学生信息管理系统的查询模块学生信息系统的设计分析编程环境的选择关系型数据库的实现二者的结合(DBA)第四章使用Access2000创建数据库数据库的概念新建一个数据库第五章可行性分析第六章系统总体规划系统功能系统流程图第七章系统具体实现课程管理打印统计结束语后记主要参考文献第一章VisualBasic概述VisualBasic语言的特点VisualBasic语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。可视化设计：VB处理功能。事件驱动编程：行一段应用程序。VisualBasic系统几个在程序应用中的常用名词VisualBasic统常用的名词。其基本含义如下：（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows系统的标准视窗。(Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，网格(DataGrid)，ADO控件(Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内时间，提高程序设计者的工作效率。(Properties)VB系统提供的有关对象的参数或数据接口。用户通过适当地设的数据内容及数据的表现格式等。(Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。(Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。(Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。Windows下的VisualBasic面对对象的编程面向对象的设计方法(OOP,ObjectedProgramming)从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。VisualBasic作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由VisualBasic自动生成对象的程序代码并封装起来。VisualBasic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。VisualBasic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，VisualBasic也提供了强大的创建菜单功能是程序更加标准。VisualBasicVisualBasicApplicationWizard来操作。实现工具栏CoolBarOffice2000CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在中迁入其他空间你也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“MicrosoftWindowsCommonControls”后工具相中增加改控件。本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。第三章怎样开发一个学生信息管理系统的查询模块查询模块的设计分析根据实际情况，我们使用原型法(RapidPrototyping)即以少量代价快速地构造一个可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。编程环境的选择微软公司的VisualBasic是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。关系型数据库的实现Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。AccessExcel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据数据库的强大功能。(DBA)JET数据库引擎提供了与数据库打交道的途径，我们是通过它以VisualBasic来访问数据库并对其进行各种操作。VisualBasic、AccessJET数据库引擎，从而给用户提供了丰富的数据类型。ADODC控件在数据库中的信息与将信息显示给用户看的VisualBasic程ADODC控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADODC控件根据数据库中的一个或多个数据库表建立一个dynaset-type（动态集合）类型的记录集合。一个记录ADODC控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第四章使用Access2000创建数据库数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。新建一个数据库有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1．标识需要的数据；收集被子标识的字段到表中；标识主关键字字段；规范数据；标识指定字段的信息；修改已建的数据库数据库的修改分为；添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成，下面的章节将详细描述实现的具体方法。第五章可行性分析学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。学生信息管理系统是为本校开发的，本系统所采用的语言是 VisualBasic，用MicrosoftAccess2000数据库完成。该系统总体有四部分组成，包括学生信息查询、教信息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据据共享。行打印。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。其中学生档案是本系统主要的（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面ODBCDSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“MicrosoftAccessDrive（*.mdb）”，点ODBCMicrosoftAccess安装对话框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。VBADODCDataGrid示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属UseODBCDataSourceName”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在CommardText（SQL）select*from学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。第六章系统（查询模块）总体规划系统功能（查询模块）查询信息的情况；判断信息是否符合要求；将符合条件的信息进行打印；学生注第七章系统具体实现学生注第七章系统具体实现各功能的实现课程基本基本班级设班级管班级学籍信课程成绩信班级课程息输入成绩信息管（图二）块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。下面为其代码：PrivateSubCommand1_Click()DimmyConAsNewDimmyRsAsNewDimZhuanYe,NianJi,XueQi,KeCheng,JiaoCai,RenKLS,KeShi,ShangKeDD,KeChengXZ,KaoShiXZAsStringZhuanYe=NianJi=XueQi=KeCheng=JiaoCai=RenKLS=KeShi=ShangKeDD=KeChengXZ=KaoShiXZ=IfTrim(ZhuanYe)=""OrTrim(NianJi)=""OrTrim(XueQi)=""OrTrim(KeCheng)=""OrTrim(JiaoCai)=""OrTrim(RenKLS)=""OrTrim(KeShi)=""OrTrim(ShangKeDD)=""OrTrim(KeChengXZ)=""OrTrim(KaoShiXZ)""ThenMsgBox请"填写要修改课程资料的内容！"=""=""ExitSubEndIf"dsn"select*程表专业='"& &"'",myCon,3,!级=MsgBox"您确定要修改吗",vbYesNo,提"示"=""=""'==""=""=""=""=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()UnloadMe1EndSubPrivateSubDataGrid1_Click()EndSubPrivateSubDTPicker1_CallbackKeyDown(ByValKeyCodeAsInteger,ShiftAsInteger,ByValCallbackFieldAsString,CallbackDateAsDate)EndSubPrivateSubForm_Activate()Set=EndSubPrivateSubForm_Load()("必修")选修")自开")考试")查考")=""=""'==""=""=""=""=""=""=""EndSubPrivateSubText1_Change()EndSubPrivateSubText2_Change()EndSubPrivateSubText8_Change()EndSub课程管理：课程查询（如：界面如图三）（图三）当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。代码如下：DimsqlstrAsStringPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubPrivateSubCommand1_Click()DimaAsStringDimKCCX1AsStringDimKCCX2AsStringDimstr1AsStringDimstr2AsStringIf=TrueThena=SelectCaseaCase"="KCCX1=""&&""&&"'"&Trim(Text1)&Case"like"KCCX1="Instr(1,"&&",'"&Trim&"')<>0"EndSelecta=Trim(Combo4)SelectCaseaCase"="KCCX2=""&&""&&"'"&Trim(Text2)&Case"like"KCCX2="Instr(1,"&&",'"&Trim&"')<>0EndSelectIf=TrueThenIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElsestrTiaoJian"select*fromwhere&KCCX1&"and&KCCX2EndIfElseIf=TrueThenIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElsestrTiaoJian"select*fromwhere&KCCX1&"or&KCCX2EndIfElseIfKCCX1=""ThenstrTiaoJian"select*fromwhere&ElseIfKCCX2ThenstrTiaoJian"select*fromwhere&ElseMsgBox"请选择连接方式！",vbOKOnly,"警告"ExitSubEndIfEndIfIf(KCCX1&KCCX2)=""ThenMsgBox"请输入查询类别！",vbOKOnly,"警告"ExitElseUnload1EndIfEndIfIf=TrueThenIfVal(Combo6)>Val(Combo9)ThenMsgBox"请正确选择年份！",vbOKOnly+vbExclamation,"信息提示"ExitSubElseIfVal(Combo6)=Val(Combo9)ThenIfVal(Combo7)>Val(Combo10)ThenMsgBox请正确选择月份！vbOKOnlyvbExclamation,信息提示"ExitSubElseIfVal(Combo7)=Val(Combo10)ThenIfVal(Combo8)>Val(Combo11)ThenMsgBox"请正确选择日期！",vbOKOnly+vbExclamation,"信息提示"ExitSubEndIfEndIfEndIfEndIfEndIfIf=""Or=""Or=""Or=""Or=""Or=""ThenMsgBox"请输入完整的日期",vbOKOnly,"警告"ExitSubEndIfstr1=Trim(Combo6)&"-"&Trim(Combo7)&"-"&Trim(Combo8)str2=Trim(Combo9)&"-"&Trim(Combo10)&"-"&str1=Format(str1,"yyyy-mm-dd")str2=Format(str2,"yyyy-mm-dd")Ifsqlstr=""Thensqlstr=""&Trim&">=#"&Format(str1,"yyyy-mm-dd")&"#and"&&"<=#"&Format(str2,"yyyy-mm-dd")&"#"Elsesqlstr=sqlstr&"and"&Trim&">=#"&Format(str1,"yyyy-mm-dd")&and"&Trim&"<=#"&Format(str2,"yyyy-mm-dd")&"#"EndIfIfsqlstr=""ThenMsgBox"请先输入查找时间！"ExitSubEndIfstrTiaoJian="select专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,fromwhere&UnloadMe1EndIfIf<>TrueAnd<>TrueThenMsgBox"请选择查询方式！",vbOKOnly,"警告"ExitSubEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Dimi,jAsIntegerFori=1999To2010iiNexti=0=0Fori=1ToiiNext=0=0Fori=1ToiiNexti=0=0专业")年级")("课程名称")("教材")("任课老师")'("课时")课程性质")考试性质")("=")专业")年级")("课程名称")("教材")("任课老师")'("课时")课程性质")考试性质")("=")("学期")=""=""=""=""=""=""=""=""=""=""=""=""=""EndSub打印统计运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。班级统计分析（如：界面如图四）（图四）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringSQLoriginal="SELECT年级,专业,人数,辅导员,备注FROM班级表"SQLadd"WHERE年级=AND专业=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and年级Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLadd=SQLadd+"and专业='"+Text2+"'"EndIfIf=1AndIsNumeric(Text3)ThenSQLaddSQLadd"and人数Text3EndIfIf=1AndNotIsNull(Text4)ThenSQLadd=SQLadd+"and辅导员='"+Text4+"'"EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()=""=""=""=""EndSubPrivateSubText1_Change()EndSubPrivateSubText3_Change()EndSub档案分析统计（如：界面如图五）（图五）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM学生档案"SQLadd"WHERE学号=AND姓名=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and学号Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLaddSQLadd"and姓名Text2EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and专业Text3EndIfIf=1AndIsDate(DTPicker1)ThenSQLadd=SQLadd+"and出生年月=#"&&"#"EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""=""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()男")'("女")=""=""=""EndSubPrivateSubText1_Change()EndSub课程统计分析（如：界面如图六）（图六）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringSQLoriginal="SELECT*FROM课程表"SQLadd"WHERE专业=AND课程名称=SQLorderIf=1AndNotIsNull(Text1)ThenSQLaddSQLadd"and专业Text1EndIfIf=1AndNotIsNull(Combo1)ThenSQLadd=SQLadd+"and课程性质='"+Combo1+"'"EndIf'If=1AndNotIsNumeric(Text2)Then'SQLaddSQLadd"and课时Text2'EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and课程名称Text3EndIfstrSql=SQLoriginal+SQLadd+If=1ThenIfstrSqlvbModal=""=""'==""EndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()=""'==""=""必修")选修")("自开")EndSubPrivateSubText3_Change()EndSub成绩统计分析（如：界面如图七）（图七）代码如下：PrivateSubCommand1_Click()DimSQLoriginalAsStringDimSQLaddAsStringDimSQLorderAsDimstrSqlAsStringOnErrorResumeNextSQLoriginal="SELECT*FROM成绩表"SQLadd"WHERE学号=AND姓名=SQLorderIf=1AndIsNumeric(Text1)ThenSQLaddSQLadd"and学号Text1EndIfIf=1AndNotIsNull(Text2)ThenSQLaddSQLadd"and姓名Text2EndIfIf=1AndNotIsNull(Text3)ThenSQLaddSQLadd"and考试科目Text3EndIfIf=1ThenSQLadd