学生信息管理系统1

1、毕业设计论文题目学生信息治理系统设计与实现系别软件工程系专业软件技术 班级姓名学号 指导老师职称 日期 兰州工业高等专科学校毕业设计论文任务书软件工程 系2021届计算机软件专业毕业设计论文任务书毕业设计论文题目VB学生治理系统课题内容性质软件开发课题来源性质教师收集的结合生产实际的课题设计/论文校内外指导教师职称工作单位及部门联系方式赵双萍副教授软件工程、题目说明目的和意义：Visual Basic 是一个强有力的系统开发软件之一,以其实用、方便、快 捷、开发周期短,越来越被广阔编程人员所青睐.VB更容易上手,进而提升软件开发的效率.通过实际设计,掌握 VB应用程序

2、开发软件的设计方法,理解软件工程思 想.本次设计的主要目的是提升学生综合分析问题和解决实际问题的水平, 为将来走上工作岗位打下一个良好的根底.学生信息治理系统主要包括对学 生信息的查询和修改等操作.二、设计论文要求工作量、内容：一系统需求分析占全部工作量的 20%1、认真阅读毕业设计任务书,对设计题目的实用性、可行性进行论证.2、收集资料：认真阅读毕业设计任务书.了解设计目标及要求与开发 环境.主要是软件环境,即系统中将采用的开发工具,如有异议,可及时与 指导老师进行交流.3、设计目标及要求：实现对学生信息的查询和修改.主要实现以下几方面功能：用户登录系统：实现用户可以以各种身份登录.信息查询

3、：包括单项查询和综合查询.系统维护：包括系统中涉及到的标准化数据字典表的治理、用户管理等.二数据库系统分析、设计占全部工作量的 20%1、采用VB数据库系统VB+ACCESS2、设计数据库中需要的表设计表结构,设计表中的字段、类型、长度等.3、分析系统中表之间的关系三程序设计、调试占全部工作量的 30%四系统测试占全部工作量的 20%五书写设计论文占全部工作量的 10%三、进度表日 期内 容第15周第一阶段：系统需求分析1.系统的实用性、可行性分析2.业务分析3.设计目标4.功能设计第16周第二阶段：数据库设计1.数据库设计：设计数据库结构2.给出ER图及相应数据流图第17-18周第三阶段：程

4、序设计、调试和系统测试1 .程序编制2 .系统测试3 .系统打包、完成第19-20周第四阶段：写毕业论文完成日期辩论日期四、主要参考文献、资料、设备和实习地点及译工作量：1主要参考文献：1萨师熠土珊.数据库系统概论.第二版.北京：高等教育出版社, 2000.2周霭如、官士鸿、林伟健.Visual Basic程序设计.北京：电子工业 出版社,2003.1.3尹贵祥.Visual Basic6.0程序设计案例教程.北京：中国铁道出 版社,2005.14美Stephen R Schach.软件工程.北京： 机械工业出版社,1999. 92设备：计算机一台,自己解决.3译工作量：论文摘要.指导教师签字

5、教研室主任签字主管系领导签字年月日年月日年月日注：本任务书要求一式两份,一份系部留存,一份报教务处实践教学科.摘要随着信息技术在治理上越来越深入而广泛的应用,治理信息系统的实施在技术上已逐 步成熟.治理信息系统是一个不断开展的新型学科,任何一个单位要生存要开展,要高效 率地把内部活动有机地组织起来,就必须建立与自身特点相适应的治理信息系统.学生成绩治理系统主要提供方便高效的治理功能,该实现以下一些根本功能：1.系统治理模块：维护系统的正常运行和平安性设置,包括添加用户、修改密码、删除用户等 等.2.学院信息模块：实现对学校院系、专业、班级操作.包括：添加、修改、删除院 系、专业、班级等信息.这

6、三个功能模块各自独立,完成学校的全部班级的治理.3.学生学籍治理模块：实现对学生的个人信息的治理工作,包括学籍添加、学籍查询、学籍修改等功能,从而方便学校治理部门对学校的根本情况的快速查询和了解.4.课程治理模块：该模块对各个班级的课程进行设置,并可在其中设置各门课程的教材选用情况,方便了学校教材治理部门和教务处的教学治理人员的工作.该模块包括基 本课程设置和班级课程设置两个模块.5.成绩治理模块：检验学生学习情况的一个主要手段,本模块包括测试类型设置,共有期中测试和期未测试两种类型,还设置了成绩添加、成绩查询、成绩浏览、成绩修改 等功能模块.6.退出模块：此模块完成程序的退出.该程序界面友好

7、,功能强大,适合实际应用.关键字：数据库ACCESS据库AbstractAlong with the information technology in the management of a more profound and extensive application, management information systems implementation, technology has gradually matured. Management information system is a continuous development of new disciplines, any

8、 one unit to survive and to develop, efficient activities of the internal organization of organic, it must establish its own characteristics and to adapt the management of information system.Student achievement management system to facilitate the provision of efficient management, the implementation

9、 of the following basic functions： 1 system management module： maintaining the normal operation of the system and security settings, including add, modify, delete user password user and so on.2 School of information module :the realization of school faculty, professional operation, class. Include: a

10、dd, modify, delete, professional colleges, class and other information. The three function modules are independent, complete the whole school class management.3 student management module: the realization of students' personal information management, including add, query student school, student m

11、odify functions, thereby facilitating school administration to the school 's basic situation of fast inquiry and understanding.The 4 curriculum managementmodule:This module of the various classesof curriculum setting, and can be set up in which the course of the teaching material selection, conv

12、enient school teaching material managementdepartment and the school administration office of the teaching management staff. The module includes the basic curriculum and the courses setting of two modules.5 performance management module:testing the students learning is one of the main means, the modu

13、le test type setting, a total of midterm and final exams in two types, also set up the achievement to add, query results, performance, function modules such as browsing performance changes.6 : This module exit module program exit.The process friendly interface, powerful, suitable for practical appli

14、cations.Keywords:database ACCESS database第一章绪论1.概述该信息治理系统可以说是一个综合性的学校学生治理系统,它集成了学生学籍治理系 统、学生成绩治理系统、学生档案治理系统等多种功能,因而具有较强的实用性和先进性. 工程提出的意义现在我国的大中专院校的学生信息治理水平普遍不高,有的还停留在纸介质根底上, 这种治理手段已不能适应时代的开展,由于它浪费了许多的人力和物力.在当今信息时代 这种传统的治理方法必然被计算机为根底的信息治理系统所代替.如果本系统能被学校所 采用,将会改变以前靠手工治理 学生成绩的状况,可以树立良好的办学形象,提升工作 效率.工程开

15、发背景学生信息治理系统是一个教育单位不可缺少的局部,它的内容对于学校的决策者和管 理者来说都至关重要,对学生来说也可以轻松的查阅自己在校的成绩以及信息等.但是一直以来人们都是靠传统人工的方式治理学生成绩,这种治理方式存在着许多缺点,如：效 率低,保密性差,另外时间一长,将产生大量的文件和数据,这对于查找,更新和维护都 带来了不少的困难.随着科学技术的不断提升,计算机对学生信息进行治理,有着手工管 理所无法比较的优点.例如：检索迅速,查找方便,可靠性高,存储量大,保密性好,寿 命长,本钱低等.这些优点能够极大地提升学生信息治理的效率,方便系统治理员对学 生成绩等信息的添加,修改,删除,查询,留言

16、等操作,同时一样的方面学生对自己各科成 绩查询,学习的交流.工程开发的目标建立学生信息治理系统,采用计算机对学生信息进行治理,进一步提升办学效益和现 代化水平.帮助广阔教师提升工作效率,实现学生信息治理工作流程的系统化、标准化和 自动化.二、相关技术与开发工具介绍本系统采用面向对象的软件开发方法,以Microsoft 公司的可视开发环境VisualBasic6.0 作为主要开发工具,使用 Microsoft Access 2000作为关系数据库,并为 VB编程语言中采用ADO据库编程模型,配合功能强大的SQL查询语言实现建立关系数据库, 放问数据库,对数据库的更新,较好地实现了预定的需求功能.

17、第二章需求分析通过调查,要求系统需要有以下功能: 要求有良好的人机界面；较好的权限治理；原始数据修改简单方便,支持多条件修改；方便的数据查询,支持多条件查询；相应的权限下,删除数据方便简单,数据稳定性好；数据计算自动完成,尽量减少人工干预；可行性分析：由于本系统治理的对象单一,都是在校学生,且每个数据内容具有较强的关 联性,涉及的计算过程不是很复杂.因此,比较适合于采用数据库治理.且 学校用于学生治理的微机都是奔腾 3以上的机器,在存储量、速度方面都能满足数据库运行的要求.在技术难度方面,由于有指导老师的指导和相关参考文献,特别是网上资料,特别是参考其它程序的功能,因此完全可以实现.数据库是M

18、IS中的重要支持技术,在 MIS开发过程中,如何选择数据库管理 是一个重要的问题,目前,数据库产品较多,每种产品都具有各自的特点和适用范围,因此,在选择数据库时,应考虑数据库应用的特点及适用范围,本系统选用的数据库语言介绍如下：Visual Basic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计,可用于开发Windows环境 下的种类应用程序.它简单易学、效率高,且功能强大.在Visual Basic环 境下,利用事件驱动的编程机制、新奇易用的可视化设计工具,可以高效、 快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统. 第三章功能设计2.3 业务流程分析

19、查 询 个 人 信 息查 询 个 人 成 绩查 询 个 人 信 息设 置 学 院 信 息改 查 学 生 成 绩2.4 数据流程分析:普通用户学生：提供查询需登录,仅显示登录用户信息中等用户教师：提供增删改查需登录,只可操作成绩表,并且教师工号对自己对应的成绩 治理员教务处：提供增删改查可对学生,教师,成绩等操作普通用户：登录账户为学生学号中级用户：登录账号为教师工号,密码自定义,可修改 治理员：登录账号为特定,密码可修改,可增加特殊账号第四章详细设计数据库设计学生表(student):列字段名长度是否为空主键学号IdChar20:否是姓名nameChar20否否性别sexChar2:是否出生年

20、月birthdayDate/time8是否民族nationText10是否柿nativetext10是否入学时间enterTimeDate/time8是否院系编RfIDtext5是否专业编号speIDtext5是否班级编号cIDtext5是否教师表：()列字段名长度是否为空主键教师工号tIDtext20否是教师姓名tNametext10否否性别tSextext2是否名族tNationtext10是否柿tNativetext10是否政治面貌Politicaltext10是否职称titaltext10是否所属部门departmenttext10是否登陆密码passwordtext50是否治理员表：

21、列字段名长度是否为空主键治理员编号adIDtext10否是治理员账号adNametext50否否密码adPasswordtext50否否所属部门adDeparttext10否否成绩表：列字段名长度是否为空主键学生编号stuIDtext12否否学科编号subIDtext10否否平时成绩usualtext10否否期末finaltext10否否总评efftext10是否教师工号teacherIDtext20否否院系表(faculty):列字段名长度是否为空主键院系编RfIDtext2否是院系名称fNametext10否否专业表special:列字段名长度是否为空主键专业编号speIDtext2否是专

22、业名称sNametext50否否所属院系sfIDtext2否否学科表subject:列字段名长度是否为空主键编RsubIDtext5否是名称subNametext50否否班级表(class):列字段名长度是否为空主键班级编号cIDtext2是否班级名称cNametext50是否所属院系fIDtext2是否所属专业sIDtext2是否程序代码设计要求：根据系统的主要功能及上一章的总体设计,系统开发进入第二个阶段：详细设计.在这一阶段的工作中,主要任务有以下几项：1、根据原型化的开发原那么,为系统的每个模块功能进行界面设计,作为进步优化的根底.2、进行系统的流程分析,为模块的细化做好准备.3、对每

23、个模块进行详细的算法设计.详细代码设计公共模块：解决登陆用户信息以及数据库标志等公共信息,所以定义通用变量Public gUserName As StringPublic gTid As StringPublic gStuID As StringPublic flag As IntegerPublic gSQL As StringPublic kqsql2 As StringPublic ArecordID As IntegerPublic LrecordID As IntegerPublic orecordID As IntegerPublic ErecordID As IntegerPub

24、lic iflag As Integer'保存用户名称保存教师信息保存学生登录信息'添加和修改的标志'保存SQL语句'保存查询其他考勤结果SQL语句'数据库是否翻开标志数据库连接选用ADODB连接方式,首先先编写一公共模块,用于存放数据 库访问类.Public Function TransactSQL(ByVal sql As String) As ADODB.RecordsetDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArr

25、ay() As StringSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetOn Error GoTo TransactSQL_ErrorstrConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" &App.Path & "DBStuData.mdb"strArray = Split(sql)con.Open strConnectionIf StrComp(UCase$(strArray(0), &quo

26、t;select", vbTextCompare) = 0 Thenrs.Open Trim$(sql), con, adOpenKeyset, adLockOptimisticSet TransactSQL = rsiflag = 1Elsecon.Execute sqliflag = 1End IfTransactSQL_Exit:Set rs = NothingSet con = NothingExit FunctionTransactSQL_Error:MsgBox "查询错误："& Err.Descriptioniflag = 2Resume T

27、ransactSQL_ExitEnd Function解决关闭窗口后程序任在后台运行类：Public Sub Shutdown(Optional ByVal Force As Boolean = False)Dim I As LongOn Error Resume NextFor I = Forms.Count - 1 To 0 Step -1If Not Force ThenIf Forms.Count > I ThenExit SubEnd IfEnd IfNext IIf Force Or (Forms.Count = 0) Then CloseIf Force Or (Forms

28、.Count > 0) Then EndEnd Sub识别tab键Public Sub TabToEnter(Key As Integer)If Key = 13 ThenSendKeys "TAB"End IfEnd Sub登陆界面设计由于有三类用户同时登陆其中,学生输入学号登陆,教师登陆由教工号于密码登陆,治理员由账号密码登陆.代码如下：Private Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(UserName.Text = "") ThenMsgBox

29、 没有输入用 户名,请重新输入！ ", vbOKOnly +vbExclamation,"警告"UserName.SetFocusElsesql = "select * from Administrator where adName='" &UserName.Text & "'"Set rs = TransactSQL(sql)If iflag = 1 ThenIf rs.EOF = True ThenMsgBox 没有这个用户,请重新输入！", vbOKOnly +vbExclam

30、ation,"警告"UserName.SetFocusElseIf Trim(rs.Fields(2) = Trim(adPassWord.Text) Thenrs.CloseMe.HidegUserName = Trim(UserName.Text)'记录用户adminFrm.ShowUnload MeElseMsgBox 密码不正确,请重新输入！ ", vbOKOnly +vbExclamation,"警告"adPassWord.SetFocusadPassWord.Text =""End IfEnd IfEls

31、eUnload MeEnd IfEnd IfEnd Sub主窗体设计系统选项中提供治理员注册,修改,删除功能其中,注册界面代码如下：添加治理员代码：Private Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(adName.Text) = "" ThenMsgBox 请输入用户名称", vbOKOnly + vbExclamation," 警告"Exit SubadName.SetFocusElsesql = "select * from Admi

32、nistrator where adName= '" & adName.Text & "'"Set rs = TransactSQL(sql)'判断用户名是否存在If rs.EOF = False ThenMsgBox 这个用户已存在,请重新输入！", vbOKOnly +vbExclamation,"警告"adName.SetFocusadName.Text =""passW1.Text =""passW2.Text =""Exit

33、SubElseIf Trim(passW1.Text) = "" ThenMsgBox "请输入密码", vbOKOnly + vbExclamation," 警告 "passWI.SetFocusExit SubElself Trim(passW2.Text) = "" ThenMsgBox 请再次输入密码！ ", vbOKOnly + vbExclamation, “装ii IB 口passW2.SetFocusExit SubElself Trim(passWI.Text) <> Tri

34、m(passW2.Text) ThenMsgBox 两次输入不一致,请重新输入", vbOKOnly +vbExclamation,"警告"passW2.Text =""passW2.SetFocusExit SubElsesql="insertintoAdministrator(adID,adName,adPassword,adDepart )values('" & id.Text & "','" &adName.Text & "'

35、;,'" & passW1.Text & "','" & Depart.Text & "')"Call TransactSQL(sql)MsgBox "注册成功！ ", vbOKOnly + vbExclamation," 添力口结果"Call initEnd IfEnd IfEnd IfEnd Sub学生注册页面优化功能：为用户提供便捷的操作,以及在目标中提到的要求,在学生注册系统中参加 了一些便捷操作：1, 由于没个学生由于院系,专业,班

36、级不同学号有所不同所以学号由系统自动生成,以减少人工干预,降低系统出错率.Private Sub cmdID_Click()Dim sql As StringDim rs As New ADODB.RecordsetDim endID As StringDim tempID As StringDim eID As StringDim rsa As String'Dim faculty, special, class As StringIf facultylD = "" ThenMsgBox "请输入院系！ ", vbOKOnly + vbExcl

37、amation," 告faculty.SetFocusExit SubElseIf specialID = "" ThenMsgBox "请输入专业！ ", vbOKOnly + vbExclamation," 告“special.SetFocusExit SubElseIf classID = "" ThenMsgBox "请输入班级！ ", vbOKOnly + vbExclamation," 告“class.SetFocusExit SubElseenterTime = Mid(

38、entTime.Value, 1,4)sql = "select id from student where id and fID='" & facultyID & "' and speID='" & specialID & "' and cID='" & classID & "' order by id desc"Set rs = TransactSQL(sql)eID = rs(0) eID = Right(eID,

39、 2) + 1'native.Text = classID'native.Text = sqlendID = Right(Format(1000 + elD), 2) 'rs.ClosetempID = enterTime & facultyID & specialID & classID & endIDid.Text = tempIDEnd IfEnd Sub2, 院系,专业,班级都从数据库中提取,在学生表中只存储编号代码.Dim sql As StringDim rs As ADODB.Recordsetsql = "sel

40、ect * from special where sName='" & special.Text & "'Set rs = TransactSQL(sql)classID = rs(0)rs.Close3, 由于院系,专业,班级有包含关系所以在这里combobox控件参加代码, 实现选择院系后所包含的专业自动参加队列.Private Sub faculty_click()Dim sql As StringDim rs As ADODB.Recordset'Dim fID As StringDim s As Stringspecial.

41、Clear'选定院系后刷新获得院系所含专业speciallD =""class.ClearclassID =""sql = "select * from faculty where fName='" & faculty.Text & "'Set rs = TransactSQL(sql)facultyID = rs(0)'rs.Closesql = "select * from special where sfID='" & facultyI

42、D & "'Set rs = TransactSQL(sql)Do While Not rs.EOFs = rs(1)special.AddItem (s)rs.MoveNextLooprs.CloseEnd Sub4, 由于在表中只存储编号信息,程序中显示名称我们以添加新的班级为例.在窗口加载时得将院系信息参加到combobox控件队列,实现代码如下:Private Sub Form_Load()Dim sql As StringDim rs As ADODB.RecordsetDim f As Stringsql = "select * from fac

43、ulty where fName "Set rs = TransactSQL(sql)Do While Not rs.EOFf = rs(1)fID.AddItem rs.MoveNextLooprs.CloseEnd Sub在选取院系信息后要将院系所包含的专业信息参加到队列,实现代码如下:Private Sub fID_Click()Dim sql As StringDim rs As ADODB.RecordsetDim s As StringsID.Clear'选定院系后刷新获得院系所含专业sql = "select * from faculty where

44、fName='" & fID.Text & "'Set rs = TransactSQL(sql)facID = rs(0)rs.Closesql = "select * from special where sfID='" & facID & "'Set rs = TransactSQL(sql)Do While Not rs.EOFs = rs(1)sID.AddItem (s)rs.MoveNextLooprs.CloseEnd Sub由于班级编号在同一专业不能重复,所以编号

45、由系统自动生成.中选定院系,专业后系统将从所数据库获得选定院系,专业现存的班级编号,按倒序排列后获得最后的编码,由系统自动加 1显示在控件上.实现代码如下：Private Sub init()Dim tempID As StringDim sql As StringDim rs As ADODB.RecordsetDim num As Integersql = "select cID from class where fID='" & facID & "' and sID='" & speID& &

46、quot;' order by cID desc"Set rs = TransactSQL(sql)num = rs(0)num = num + 1 + 0rs.ClosecID.Text = numEnd Sub其中参数facID, speID在选取时记录如以下代码：Private Sub sID_Click()Dim sql As StringDim rs As ADODB.Recordsetsql = "select * from special where sfID='" & facID & "'"

47、;Set rs = TransactSQL(sql)speID = rs(0)rs.CloseCall initEnd Sub5, 修改用户信息由严谨的逻辑关系限制,保证数据库中信息平安.以修改治理员密码为例根本流程为：验证原密码-新密码与确认密码相同然后执行修改.代码实现如下：Private Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(oldPas.Text) = "" ThenMsgBox 请输入旧密码！ ", vbOKOnly + vbExclamation,"

48、; 警告" oldPas.SetFocusExit SubElseIf Trim(newPas1.Text) = "" ThenMsgBox 请输入新密码！ ", vbOKOnly + vbExclamation," 警告" newPas1.SetFocusExit SubElseIf Trim(newPas2.Text = "") ThenMsgBox 请再次输入新密码", vbOKOnly + vbExclamation," 警告" newPas2.Text =""newPas2.SetFocusExit SubElself Trim(newPasl.Text) <> Trim(newPas2.Text) ThenMsgBox "两次输入不一致！ ", vbOKOnly + vbExclamation," 警告" newPas2.Text =""newPas2.SetFocusElsesql = "select * from