毕业设计（论文）-VB学籍管理系统论文.doc

毕业论文（设计）报告纸摘要学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人 们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。关键字：学籍管理，vb连接sql，计算机应用 abstractstudent management system is an indispensable part of the education unit, its contents for the school administrators and policy makers is crucial, so student management system should be able to provide users with sufficient information and efficient means of the inquiry.but since people use traditional artificial waymanagement document file, this management way has many shortcomings, such as: low efficiency, confidentiality of the poor, another time a long, will produce the massive documents and the data, this find, update and maintenance has brought a lot of difficulties.with the continuous improvement of science and technology, computer science increasingly mature, its powerful features for people to have a profound understanding, it has entered the human society in various fields and play an increasingly important role in.keywords： school management, vb connection sql, computer application目录摘要iabstractii1.绪论iv1.1 引言iv1.2 本系统实现了如下功能iv1.3 设计目的：v3.系统特色v4.系统开发环境vi4.1 microsoft visual basic 6.0 中文版简介vi4.2 ms sql server 2005简介vi4.3 系统运行平台vi5. 系统所用关键技术vii6.本系统功能结构x6.1 本系统er图x7. 数据库结构的设计xiii8.vb系统模块设计xix8.1 主体窗体的设计xix8.2 系统登陆窗口设计xxii8.3 学生信息的查询xxv谢 辞xxviii参考文献xxix1.绪论1.1 引言人类有几千年的历史，计算机从产生到现在只不过50多年，而网络的迅速发展也不过10年的时间。但是，计算机和网络对社会的影响已经迅速扩大，甚至在改变人们的生活。特别是90年代以来，多媒体和网络技术的飞速发展正在以惊人的速度改变着人们的工作方式、交往方式和生活方式。正像著名的未来学家尼葛洛庞帝（1997）所说的：“数字不再只和计算有关，它决定我们的生存。”由于一直以来在教育单位中人们都是使用传统人工的方式管理学生学籍档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难.学籍管理管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要, 学籍管理管理系统能够为用户提供充足的信息和快捷的查询手段。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生信息进行日常管理，如查询、修改 、增加、删除等在设计开始，通过上网的查询，找相似系统的参考，并通过于学校老师进行沟通，并在书上找到一些相关资料进入查阅。经过一系列的了解，深入，便明确了本系统要有哪些功能 ，要如果去实现这些功能 ，要怎么样才能去实现，并进行相关操作，因此，本系统采用了，visual basic和ms sql service 2005数据库系统进行开发。1.2 本系统实现了如下功能1.2.1 管理员的登录1.2.2 学籍信息的管理 增加学生信息 删除学生信息 修改学生信息 打印、查询学生信息 1.2.3 课程信息的管理 管年级，班级，学期等信息 管理课程信息 按年级设置开设的课程1.2.4 成绩信息的管理 登记学生各科成绩 查询，打印各科成绩1.2.5基本信息的管理1.3 设计目的：信息技术的发展，计算机应用技术更是应用到了我们生活的每一个角落，作为计算机应用的一部分，对信息的处理，已经具有人工管理无法比较的优点，所以，本系统设计的目的是：实现学生学籍的信息化管理，提高工作人员的效率并提高学生信息管理的可靠性，保密性，降低管理成本 3.系统特色 本系统使用windows可视化操作界面 减少数据的重复录入。年级、 班级信息，课程信息等数据只需录入一次， 即可在其他模块中使用 可以进行实用的查询功能 快捷，准确的输入方式。对于需要在系统中反复使用的数据，系统可以 实现下拉列表框，从中可以减少输入的出错几率。 4.系统开发环境4.1 microsoft visual basic 6.0 中文版简介visual basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，vb都是世界上使用人数最多的语言不仅是盛赞vb的开发者还是抱怨vb的开发者的数量。它源自于basic编程语言。vb拥有图形用户界面（gui）和快速应用程序开发（rad）系统，可以轻易的使用dao、rdo、ado连接数据库，或者轻松的创建activex控件。程序员可以轻松的使用vb提供的组件快速建立一个应用程序。4.2 ms sql server 2005简介ms sql server是一个全面的数据库平台，使用集成的商业智能 (bi) 工具提供了企业级的数据管理。ms sql server 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。 ms sql server数据引擎是本企业数据管理解决方案的核心。此外ms sql server结合了分析、报表、集成和通知功能。这使您的企业可以构建和部署经济有效的 bi 解决方案，帮助您的团队通过记分卡、dashboard、web services 和移动设备将数据应用推向业务的各个领域。4.3 系统运行平台建议使用windowsxp系统 5. 系统所用关键技术5.1 vb连接 sql 数据 1)添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。注意，一个是“引用”（图1），一个是“部件”（图2）。图 1 图 22)添加一个模块 （名称），并把图下面的复制粘贴到模块中。程序代码：连接sql的模块public conn as adodb.connectionpublic rs as adodb.recordsetpublic addflag as boolean 声明部分public function opencn(byval cip as string, byval users as string, byval pw as string) as boolean 连接模块 填写数据库等信息dim mag as stringon error goto strerrmagset conn = new adodb.connectionconn.connectiontimeout = 25conn.provider = sqloledbconn.properties(data source).value = jojo 服务器的名字conn.properties(initial catalog).value = student 库名conn.properties(integrated security).value = sspi 登陆类型conn.properties(user id).value = sa sql库名conn.properties(password).value = 1111 密码conn.connectionstring = sql conn.openopencn = trueif conn.state = 1 then addflag = trueexit functionstrerrmag:mag = data cant connectcall msgbox(mag, vbokonly, error:data connect)addflag = falseexit function 连接错误消息end function 5.2 建立数据库在ms sql service 2005中，数据定义语言（data definition language 。ddl ）用来执行数据库中的任务，这些语言包括create ，alter ， drop 等，分别来创建和修改、删除数据库，下面为实现数据库所用代码：use mastergo if exists(select * from sysdatabases where name=student) drop database student/*用于检查是否有student这个数据库，如果有将其删除*/gocreate database student on primary ( name = student_data, filename = e:student_data.mdf , size = 1984kb , maxsize = unlimited, filegrowth = 10%) log on ( name = student_log, filename = e:student_log.ldf , size = 1024kb , maxsize = unlimited, filegrowth = 10%)5.3 使用vb中datarepor创建报表使用datareport可根据数据库中的记录来创建报表。使用datereport对象时，可以通过更改每一个section对象的布局，在设计中改变数据报表的外观。数据报表设计对象：datareport对象，section对象，报表控件，6.本系统功能结构6.1 本系统er图6.1.1系统流程er图6.1.2 操作员实体，学校实体er图6.1.3 年级实体，班级实体er图6.1.4 学期实体，课程实体er图6.1.5 成绩实体，年级开课信息实体er6.1.6 学生实体，课程实体er图7. 数据库结构的设计本系统因所实现的功能共建立10张表：操作员（s_admin）、学校（s_school）、年级(s_grade)、班级(s_class)、学生(s_student)、课程类型(s_coursetype)、所学课程 (s_course)、学期(s_term)、学生成绩(s_result)、开课信息(s_gradecourse)，具体数据库建设如下：7.1 操作员表所实现代码：create table dbo.s_admin(admin_id int identity(1,1) not null,admin_name varchar(20) collate chinese_prc_ci_as not null,admin_pwd varchar(16) collate chinese_prc_ci_as not null,admin_right int not null,admin_memo varchar(50) collate chinese_prc_ci_as null,) on primary7.2 学校（s_school）所实现代码：gocreate table dbo.s_school(scl_name varchar(40) collate chinese_prc_ci_as not null,scl_address varchar(50) collate chinese_prc_ci_as null,scl_head varchar(10) collate chinese_prc_ci_as null,scl_tele varchar(20) collate chinese_prc_ci_as null,scl_memo varchar(50) collate chinese_prc_ci_as null) on primary7.3 年级(s_grade)所实现代码：gocreate table dbo.s_grade(grade_id int not null,grade_name varchar(20) collate chinese_prc_ci_as not null,grade_memo varchar(50) collate chinese_prc_ci_as null, constraint pk_s_grade primary key clustered /*设置为主键*/(grade_id asc)with (ignore_dup_key = off) on primary/*设置标识为是*/) on primary7.4 班级(s_class)所实现代码：gocreate table dbo.s_class(class_id int not null,grade_id int not null,class_name varchar(20) collate chinese_prc_ci_as not null,class_memo varchar(50) collate chinese_prc_ci_as null) on primary7.5 学生(s_student)所实现代码：gocreate table dbo.s_student(stu_id int identity(1,1) not null,stu_name varchar(20) collate chinese_prc_ci_as not null,stu_sex char(2) collate chinese_prc_ci_as not null,stu_birthday datetime null,stu_father varchar(20) collate chinese_prc_ci_as null,stu_tele varchar(20) collate chinese_prc_ci_as null,stu_address varchar(50) collate chinese_prc_ci_as null,stu_date datetime null,class_id int not null,stu_memo varchar(50) collate chinese_prc_ci_as null) on primary7.6 课程类型(s_coursetype)所实现代码：gocreate table dbo.s_coursetype(ct_id int identity(1,1) not null,ct_name varchar(20) collate chinese_prc_ci_as not null) on primary7.7 所学课程 (s_course)所实现代码：gocreate table dbo.s_course(course_id int not null,course_name varchar(40) collate chinese_prc_ci_as not null,ct_id int not null,course_memo varchar(50) collate chinese_prc_ci_as null) on primary7.8 学期(s_term)所实现代码：gocreate table dbo.s_term(term_id int identity(1,1) not null,term_name varchar(20) collate chinese_prc_ci_as not null) on primary7.9 学生成绩(s_result)所实现代码：gocreate table dbo.s_result(result_id int not null,term_id int not null,stu_id int not null,course_id int not null,result float not null,result_memo varchar(50) collate chinese_prc_ci_as null) on primary7.10 开课信息(s_gradecourse)所实现代码：gocreate table dbo.s_gradecourse(gc_id int identity(1,1) not null,term_id int not null,grade_id int not null,course_id int not null,gc_memo varchar(50) collate chinese_prc_ci_as null) on primary8.vb系统模块设计本部分主要内容为本系统的各个运行界面以及主要界面的源代码。主要模块包括： 系统。包括管理员的增加，修改密码，删除管理员等。 基础数据。包括学校信息，学期信息，课程信息等。 课程设置。包括课程类型，开设课程等。 学生信息。包括学生资料，学生成绩等。 查询。包括查询学生信息，学生成绩等。8.1 主体窗体的设计 8.1.1主窗体设计 打开 visual basic 6.0，新建一个标准工程，添加mdiform，设置名称属性为“frmmain”，标题为“学籍管理系统”。 然后在菜单栏中选择“工程”“部件”，添加如下图部件 然后进行一些设置，完成如下图主窗体主窗体8.1.2主窗体代码private sub mdiform_load() 窗体装载事件，从注册表中获取窗体的位置、大小me.left = getsetting(app.title, settings, mainleft, 1000) 左边位置me.top = getsetting(app.title, settings, maintop, 1000) 窗体顶部坐标me.width = getsetting(app.title, settings, mainwidth, 6500) 窗体宽度me.height = getsetting(app.title, settings, mainheight, 6500) 窗体高度end subprivate sub mdiform_unload(cancel as integer) 窗体卸载事件，保存窗体位置和大小if me.windowstate vbminimized then 窗体不是最小化savesetting app.title, settings, mainleft, me.left 保存左侧位置savesetting app.title, settings, maintop, me.top 保存顶部位置savesetting app.title, settings, mainwidth, me.width 保存宽度savesetting app.title, settings, mainheight, me.height 保存高度end ifend subprivate sub menustu1_click() 学生资料frmstudent.show 显示“学生信息”窗体end subprivate sub mnubaseclass_click() 班级信息frmclass.show 显示“班级设置”窗体end subprivate sub mnubasecourse_click() 课程类型frmcoursetype.show 显示“课程类型设置”窗体end subprivate sub mnubasegrade_click() 年级信息frmgrade.show 显示“年级设置”窗体end subprivate sub mnubaseschool_click() 学校信息frmschool.show 显示“学校信息设置”窗体end subprivate sub mnubaseterm_click() 学期信息frmterm.show 显示“学期设置”窗体end subprivate sub mnucourse1_click() 课程信息frmcourse.show 显示“课程设置”窗体end subprivate sub mnucoursegrade_click() 开设课程frmgradecourse.show 显示“年级课程设置”窗体end subprivate sub mnuqueryresult_click() 查询学生成绩frmqueryresult.show 显示“成绩信息查询”窗体end subprivate sub mnuquerystu_click() 查询学生信息frmquerystu.show 显示“学生信息查询”窗体end subprivate sub mnusturesult_click() 登记成绩frmresult.show 显示“成绩信息设置”窗体end subprivate sub mnusystemuseradd_click() 增加操作员frmuseradd.show 显示“增加操作员”窗体end subprivate sub mnusystemuserdel_click() 删除操作员frmuserdel.show 显示“删除操作员”窗体end subprivate sub mnusystemuserpwd_click() 修改密码frmuserpwd.show 显示“修改密码”窗体end subprivate sub mnuhelpabout_click() 关于frmabout.show 显示“关于”窗体end subprivate sub mnufileexit_click() 退出unload me 卸载窗体end sub8.2 系统登陆窗口设计 8.1.2系统登陆窗口添加一个窗体（frmlogin）。该部分主要包括用户的验证以及登录次数的限制。窗体运行情况如下图所示：8.1.2系统登陆窗口代码public ok as boolean 登录成功private sub cmdcancel_click() “取消”按钮ok = false 登录失败标记me.hide 隐藏当前窗体end subprivate sub cmdok_click() “确定”按钮dim j as single, namekey as string, passwordkey as stringdim strusername as string, strpassword as stringstatic itry as integer 重试次数dim rs as new adodb.recordsetstrusername = txtusername.text 获取用户名strpassword = txtpwd.text 获取用户密码if strusername = then 若用户名为空msgbox 请输入用户名, vbokonly + vbcritical, 警告 显示提示信息txtusername.setfocus 设置输入焦点exit sub 退出过程end ifif strpassword = then 若密码为空msgbox 请输入密码, vbokonly + vbcritical, 警告 显示提示信息txtpwd.setfocus 设置输入焦点exit sub 退出过程end ifstrusername = makestr(strusername) 处理非法字符strpassword = makestr(strpassword)strsql = select * from s_admin where admin_name= & strusername & 查询用户名set rs = queryext(strsql) 读取指定用户名的资料if not rs.eof then 若记录集不为空if rs(admin_pwd) = strpassword then 若密码相同ok = true 登记成功username = strusername 保存用户名到全局变量right = rs(admin_right) 保存用户权限unload me 卸载当前窗体exit sub 退出当前过程end ifend ifmsgbox 用户名或密码错误！, vbokonly + vbcritical, 警告 错误登录提示txtusername = 清空用户名txtpwd = 清空密码txtusername.setfocus 设置输入焦点itry = itry + 1 累加重试次数if itry = 3 then 重试次数超限msgbox 非法用户，系统将关闭！, vbokonly + vbcritical, 警告 提示关闭dbapi_disconnect 断开数据库连接end 结束程序else 未超过重试次数限制exit sub 退出过程end ifend subprivate sub lbllabels_click(index as integer)end sub8.3 学生信息的查询8.3.1 学生信息查询窗体的设计“查询”模块包括两个功能：查询学生资料和查询学生成绩。对于查询结果可以使用报表打印出来。查询学生资料可按姓名，班级，出生日期，入学时间等来进行查询。“查询学生资料”窗体如下：8.3.2 学生信息查询窗体代码dim rs as adodb.recordset 记录集dim strsql as string 保存sql语句dim gradeid as integer, classid as integer 保存年级编号、班级编号private sub cmbclass_lostfocus() 班级组合框classid = cmbclass.itemdata(cmbclass.listindex) 获取班级编号end subprivate sub cmbgrade_lostfocus() 年级组合框if cmbgrade.text = 全部 then 若选择“全部”set rs = queryext(select * from s_class order by class_name) 获取全部班级信息else 选中某一年