学生信息管理系统VFP课程设计

1、目录 1 引言 1 2 系统技术及运行环境 1. 2.1 Visual Foxpro 6.0 简介 1. 2.2 系统开发及运行环境 1. 3 系统分析 2 3.1 需求分析 2 3.2 可行性分析 2. 4 总体设计 2 4.1 设计目标 2. 4.2 项目规划 3 4.3 系统功能图 4. 5 系统详细设计 5 5.1 数据库设计 5. 5.2 登陆界面设计 6. 5.3 学生信息录入 8. 5.4 学生信息修改 9. 5.5 学生信息查询 1.1. 5.6 系管理表单设计 1.2. 5.7 班级管理 1.5. 5.8 学生成绩录入 1.7. 5.9 修改学生成绩 1.9. 5.10 学生

2、成绩查询 2.1. 5.11 用户管理 2.2. 5.12 修改用户密码 2.5. 5.13 关于系统 2.6. 6 结论 2.7. 致 谢 2.8. 参考文献 2.9. 1 引言 学生信息管理系统( Student Information Management System ), 以下简称 SIMS，是针 对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统( Management Information System )。它是一个教育单位不可缺少的部分 , 它的内容对于学校的决策者和管 理者来说都至关重要 , 它能够为用户提供充足的信息和快捷的查询手段。 能有效的帮助学校和

3、 老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生 信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据， 更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大 困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高 , 计算机科学日渐成熟 , 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大 的功能已为人们深刻认识 , 它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计 算机应用的一部分 ,使用计算机对学生信息进行管理 ,具有着手工管理所无法比拟的优点 .

4、例 如: 检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、 寿命长、 成本低、便于打印等。 这些优点能够极大地提高学生信息管理的效率 , 也是学校的科学化、正 规化管理,与世界接轨的重要条件。 用计算机制作的学生信息管理系统还可以通过功能强大的 Internet 网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动， 为更好地把握学校的教育方针一定的促进作用！因此，开发这样一套管理软件成为很有必要 的事情。 2 系统技术及运行环境 2.1 Visual Foxpro 6.0 简介 Visual Foxpro 6.0 是计算机优秀的数据管理系统软件之一，

5、正如其名称中的“ Visual ” 一样，它采用了可视化的、面向对象的程序设计方法，大大简化了应用系统的开发过程，并 提高了应用系统的开发过程，并提高了系统的模块性和紧凑型。是新一代的小型数据库管理 系统的杰出代表，它以其强大的性能、完整而又丰富的工具、较高的处理速度、友好的界面 以及较完备的兼容性，备受广大用户的欢迎。面前， Visual Foxpro 6.0 是用户收集信息、 查询数据、创建集成数据库系统、进行应用系统开发较为理想的微机数据库管理系统。 2.2 系统开发及运行环境 该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。 ( 1)运行环境 Windows98或更高版本

6、的操作系统 数据库系统： Microsoft Visual Foxpro 6.0 (2)开发环境： 开发工具： Microsoft Visual Foxpro 6.0 数据库系统： Microsoft Visual Foxpro 6.0 3 系统分析 3.1 需求分析 21 世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及 普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。 许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们 高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。 （一）教育系

7、统学生管理现状分析 学校工作流程分析 学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据 的维护，包括这些信息的增加、修改及对各项信息的变动都将在这进行操作。 新的学年，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息 录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。 （二）学校具体需求分析 学生：对各科成绩的查询 任课老师：输入并维护所教科目的学生成绩 教务处： 学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对 学生的信息进行必要的维护。 通过研究调查，本系统需以下功能： 综合学生信息、学生成绩以及信息查询等信息。

8、方便用户了解和管理学生的全面动态信息。 良好的界面设计，更人性化的设计理念，使用户拥有更轻松的使用心情。 3.2 可行性分析 目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。 经济性： 由于学校等中小型管理系统并不复杂，且 Visual Foxpro 6.0 本身要求的运行环境不高， 所以一般 Windows 2000 以上的系统环境都可以使用。 实用性： 本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性 化的设计界面可以使操作者轻易运用自如 4 总体设计 4.1 设计目标 本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理

9、。大节省 了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了 学籍信息管理的精确度。 方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且 操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学 校节约了开支。为学校增加了财富。 数据库分析 用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充 分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系 统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独 立性。 4.2 项目规划 学生管理系

10、统是各大中专院校不可缺少的一部分，是一个 VF 数据库开发应用程序，它 主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、 系统用户管理等几个页面，因而该系统具有较强的实用性。 4.3 系统功能图 学 生 生信 息 录 入 学 生 生信 息 录 入 学 生 生信 息 录 入 系管理 专业管理 班级管理 课 程 管 理 修改密码 退出系统 5 系统详细设计 5.1 数据库设计 （1）deandma.dbf，见表 1 表1 字段名 数据类型 备注 班级 Char（8） 主键 Not null 系 Char（10） Not null 专业 Char（14） Not nu

11、ll 2）grade.dbf ，见表 2 表2 字段名 数据类型 备注 学号 Char（8） 主键 Not null 班级 Char（10） Not null 课程 Char（18） Not null 成绩 Int （5） Not null 学期 Char（2） Not null 备注 Memo Null 3）stduents.dbf ，见表 3 表3 字段名 数据类型 备注 班级 Char（8） 主键 Not null 学号 Char（8） Not null 姓名 Char（8） Not null 性别 Char（6） Not Null 出生日期 Datetime Null 政治面貌 Cha

12、r（8） Null 身份证号码 Char（16） Null 入学时间 Datetime Null 籍贯 Char（16） Null 家庭住址 Char（28） Null 邮政编码 Char（6） Null 照片 General Null 备注 Memo Null （4）.dbf ，见表 4 表 4 用户信息表 字段名 数据类型 备注 姓名 Char(8) 主键 Not null 密码 Char(6) Not null 标识 Logical Not null 5.2 登陆界面设计 进入”按钮的 click 事件添加如下的代码 sele yonghu 为空，请输入！ if allt(thisfor

13、m.text1.value)= messagebox(left(allt(thisform.label1.caption),6)+ ,64, 提示 ) thisform.text1.setfocus else if allt(thisform.text2.value)= messagebox( 密码为空，请输入！ ,64, 提示) thisform.text2.setfocus else n=n+1 locate for allt(姓名 )=allt(thisform.text1.value); .and. allt（ 密码 ）=allt（thisform.text2.value） if fo

14、und（） if thisform.check1.value=1 .and.标识 checked=1 thisform.release do menu.mpr else if thisform.check1.value=1.and.!标识 messagebox（你不是管理员！ ,48, 警告 ） thisform.check1.value=0 else checked=0 cyonghu=allt（ 姓名 ） cmima=allt（ 密码 ） thisform.release do menu.mpr endif endif else if n=3 messagebox（你不是合法用户，请与管理

15、员联系！ ,48, 警告 ） thisform.release clear event quit else messagebox（left（allt（thisform.label1.caption）,6）+ 或密码错误，请重新 输入！ ,64, 提示） thisform.text1.value= thisform.text1.setfocus thisform.text2.value= endif endif endif endif “取消”按钮的 click 事件添加如下的代码 nr=messagebox（ 你选择了退出登录，是否退出？ ,68, 用户登录 ） if nr=6 thisfor

16、m.release quit endif 5.3 学生信息录入 “增加”按钮的 click 事件添加如下的代码 : if this.caption=增加 if(bo3.displayvalue= ).or.(alltrim(thisform.text1.value)=); .or.(alltrim(thisform.text2.value)=) messagebox(班级、学号和姓名必须填充！ else ,64, 提示 ) locate for alltrim(thisform.text1.value)=alltrim(students. if !eof() =messagebox( 此学号已

17、经存在，请重新输入！ ,64, thisform.text1.value= thisform.text1.setfocus else sele students append blank replace 班 级 with alltrim(bo3.value), alltrim(thisform.text1.value); 姓 名 with alltrim(thisform.text2.value), ctod(alltrim(thisform.text4.value); 入 学 时 间 with ctod(alltrim(thisform.text6.value), alltrim(thisf

18、orm.text7.value); 提示 学号) 学号 日期 籍贯 with with with 家 庭 住 址 with alltrim(thisform.text8.value), 身 份 证 号 码 with alltrim(thisform.text8.value); 备 注 with alltrim(thisform.edit1.value), 邮 政 编 码 with alltrim(thisform.text3.value) if alltrim(bo4.value)= replace 性别 with alltrim(bo4.displayvalue) else replace

19、性别 with alltrim(bo4.value) endif if alltrim(bo5.value)= replace 政治面貌 with alltrim(bo5.displayvalue) else replace 政治面貌 with alltrim(bo5.value) endif 出 生 日 期 with .text4.value,入 学 时 间 with .text6.value,籍 贯 with allt(.text7.value),; 家庭住址 with allt(.text8.value), 身份证号码 with allt(.text9.value), 性别 with a

20、llt(.combo4.value),; 政治面貌 with allt(.combo5.value), 备注 with allt(.edit1.value) if !pictemp= wait windows 正在导入相片，请等待！ at 100,40 timeout 2 nowait append general 照片 from students. 出生日期 , 入学时间 with students. 入学时间 , 籍贯 籍贯,; students. 家庭住址 , 身份证号码 with students. 身份证号码 ,性别 with students. 性别 ,; 政治面貌 with st

21、udents. 政治面貌 , 备注 with students. 备注 , 照片 with students. 照片 endif pictemp= this.enabled=.f. endwith 5.5 学生信息查询 “定位查询”按钮的 click 事件添加如下的代码 if allt(thisform.text1.value)= messagebox(请输入学号或姓名！ ,64, 提示 ) thisform.text1.setfocus else sele stuls locate for allt(学号 )=allt(thisform.text1.value); .or.allt( 姓名

22、)=allt(thisform.text1.value) if found() go recn() else wait window at 18,38 nowait 没有找到你要查询的信息！ endif endif thisform.grid1.refresh thisform.refresh “第一个”按钮的 click 事件添加如下的代码 sele stuls skip -1 if bof() this.enabled=.f. mand3.enabled=.f. messagebox(已经到第一条记录了！ ,64, 提示 ) go top else go recn() endif mand

23、2.enabled=.t. mand4.enabled=.t. “单个查询”按钮的 click 事件添加如下的代码 nxx=1 do form xxxg 5.6 系管理表单设计 增加”按钮的 click 事件添加如下的代码 set order to tag set safety off if alltrim(thisform.text1.value)= messagebox(系名为空，请输入！ ,64, 提示 ) thisform.text1.setfocus else locate for deandma. 系=alltrim(thisform.text1.value) if .not.eo

24、f() messagebox(系名已经存在，请重新输入！ ,48, 提示 ) thisform.text1.value= thisform.text1.setfocus else append blank replace deandma. 系 with alltrim(thisform.text1.value) thisform.text1.value= thisform.text1.setfocus endif thisform.list1.clear thisform.list1.init allt(students. 姓名 )=allt(thisform.text1.value) if

25、found() lsxh=allt(students. 学号 ) lsxm=allt(students. 姓名 ) buxq=allt(bo4.value) do form dgcj else messagebox（没有此人，请重新输入 ,64, 提示 ） endif endif 5.11 用户管理 List1 的 init 事件中添加的代码如下 sele yonghu this.additem（ 管理员 ） locate for 标识 =.T. do while found（） this.additem（ +姓名 ） continue enddo go top locate for 标识 =

26、.F. this.additem（ 普通用户 ） do while found（） this.additem（ +姓名 ） continue enddo “注册”按钮的 click 事件添加如下的代码 Set safety off sele yonghu if alltrim(thisform.text1.value)= messagebox(用户名不能为空！ ,0+48, 警告 ) thisform.text1.setfocus else locate for 姓名 =alltrim(thisform.text1.value) if(.not. eof() messagebox(此用户已存在

27、，请重新输入！ ,64, 警告 ) thisform.text1.value= thisform.text1.setfocus else if alltrim(thisform.text2.value)= messagebox(密码不能为空！ ,0+48, 警告 ) thisform.text2.setfocus else if (thisform.text2.value)=(thisform.text3.value) append blank repl 姓名 with alltrim(thisform.text1.value),; 密码 with alltrim(thisform.text2

28、.value) if thisform.check1.value=1 repl 标识 with .T. else repl 标识 with .F. endif thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus thisform.text3.enabled=.f. thisform.label4.enabled=.f. thisform.list1.clear thisform.list1.init else tt=messagebox( 确认密码错误，请重新输入！

29、,0+48, 警告 ) if tt=1 thisform.text3.enabled=.t. thisform.label4.enabled=.t. thisform.text3.value= thisform.text3.setfocus endif endif endif endif endif “删除”按钮的 click 事件添加如下的代码 if allt(thisform.text1.value)= messagebox(请选择或输入用户名 ,64, 提示 ) thisform.text1.setfocus else use yonghu locate for 姓名 =allt(thi

30、sform.text1.value); .and. 密码 =allt(thisform.text2.value) if eof() messagebox(请选择或输入正确的用户名 ,64, 提示 ) thisform.text1.value= thisform.text2.value= thisform.text1.setfocus else tt=messagebox( 一定要删除吗？ ,4+48, 删除确认 ) if tt=6 delete pack endif thisform.list1.clear thisform.list1.init thisform.list1.click en

31、dif endif 5.12 修改用户密码 “修改”按钮的 click 事件添加如下的代码 sele yonghu if allt(thisform.text1.value)= thisform.text1.setfocus else locate for allt(姓名 )=allt(thisform.text1.value) if eof() messagebox(此用户不存在，请重新输入！ ,64, 提示 ) thisform.text1.value= thisform.text1.setfocus() else if !allt(密码 )=allt(thisform.text2.val

32、ue) messagebox(密码错误，请重新输入！ ,64, 提示 ) thisform.text2.value= thisform.text2.setfocus() else if allt(thisform.text3.value)= messagebox(请输入新密码！ ,64, 提示 ) thisform.text3.setfocus else if !allt(thisform.text3.value)=allt(thisform.text4.value) messagebox(确认密码错误，请重新输入！ ,64, 提示 ) thisform.text4.value= thisfo

33、rm.text4.setfocus else repl 密码 with allt(thisform.text4.value) thisform.release endif endif endif endif endif 5.13 关于系统 退出系统 if messagebox( 是否退出学生信息官系统？ ,36, 学生信息管理系统 )=6 Close all&关闭所有打开的文件 Clear Events&结束事件循环，退出图书管理系统 Endif 6 结论 学生信息管理系统是学校信息管理系统的一个重要组成部分。他为其他系统（如学校图 书管理系统、学校档案管理系统、教学管理系统、总务后勤管理系统等）提供学生的基本信 息，同时它也需要如教学管理系统提供课程设置数据等。这些系统在具体应用中构成一个大 系统，相互调用对方的数据。由以上分析，我们可以充