任务 学生信息管理系统的设计与实现.doc

1、华北科技学院计算机系综合性实验实 验 报 告课程名称 Visual FoxPro 及其应用系统开发 实验学期 2010 至 2011 学年 第 二 学期学生所在系部 土木工程系 年级 大一 专业班级 工房B101 学生姓名 刘永良 学号 201005034104 任课教师 耿子林 实验成绩 计算机系制实验报告须知1、 学生上交实验报告时,必须为打印稿（A4纸），左侧装订,装订线距左边0。5cm.页面空间不够，可以顺延。2、 学生应该填写的内容包括：封面相关栏目、实验地点、时间、目的、设备环境、内容、结果及分析等。3、 教师应该填写的内容包括：实验成绩、教师评价等。4、 教师根据本课程的综合性实

2、验指导单中实验内容的要求，评定学生的综合性实验成绩;要求在该课程期末考试前将实验报告交给任课教师。综合性实验中，所涉及的程序，文档等在交实验报告前，拷贝给任课教师。任课教师统一刻录成光盘，与该课程的期末考试成绩一同上交到系里存档.5、 未尽事宜，请参考该课程的实验大纲和教学大纲。 计算机技术基础 课程综合性实验报告开课实验室：信息楼基础七 2011 年6 月 22 日一、实验题目：学生信息管理系统的设计与实现二、实验目的通过此综合实验练习，让同学将本课程所学主要知识有机综合起来，理解数据库原理的基本概念，能够在数据库应用程序中正确应用数据(库)表、程序、菜单、表单和报表等文件，为以后开发应用程

3、序打下坚实基础。三、实验设备及环境(1） 硬件设备：PC机一台（2） 软件环境：安装Windows操作系统，安装数据库管理系统Visual FoxPro等。三、实验内容（一） 启动VF系统,设计文件路径，打开表单logo。scx ，运行后显示封面为图-1所示图1学生信息管理系统启动表单logo。scx【任务实现】1依次单击“文件"“新建”菜单，选择新建表单文件，打开表单设计器窗口,向表单内添加5个标签控件,1个时钟控件；2设定表单及5个标签的相关属性，设置时钟控件Interval值为3000,使用布局工具设定各控件位置，如图1所示;3设置时钟控件Timer事件代码如下，保存表单名称为

4、logo。scx,运行表单即如图-1所示.thisform。releasedo form login。scx（二） 封面运行后显示3秒钟退出，并进入系统登录界面为图-2所示图2学生信息管理系统登录表单login【任务实现】1依次单击“文件”“新建”菜单，选择新建表单文件，打开表单设计器窗口，向表单内添加1个行状控件，3个标签控件，1个图形控件，1个组合框,1个文本框，2个命令按钮；2向表单数据环境中添加任务1中创建的用户口令表passwd.dbf，设置表单及主要控件属性；3双击“进入系统"按钮,设置其Click事件代码；set exact onthisform.i=thisform.

5、i+1Select passwdlocate for all trim(用户名）=all trim（bo1。value）if found( ) and all trim(密码)=all trim(thisform。text1.value） Set exact off Release this form Do form mainElse If thisform.i3 message box（”账号或密码错误， 请重试！”，48,”警告”） bo1.value="" thisform。text1。value=”" bo1

6、。setfocus Else message box("非法用户, 系统无法登录!”,16,”警告”) Release this form EndifEndif4双击“退出系统”按钮，设置其Click事件代码；yn = message box（”确定退出?",4+32，”信息窗口”)if yn = 6 thisform。release clear events quitendif5保存表单名称为login.scx，运行表单即如图-2所示(三）在系统登录界面图2中,登录用户名通过下拉列表框选择，正确输入密码后，单击“进入系统”按钮，此界面退出,并启动系统主界面为图3所示；密码

7、错误则显示警告界面如图4所示，单击“确定"按钮，重新输入；密码输入3次错误则显示如图5所示警告界面，并退出运行。在系统登录界面中，若点击退出系统则显示如图6所示“确认退出"窗口，单击“确定”按钮,退出系统;单击“否”按钮则返回系统。 图3 学生信息管理系统主表单main 图4 图-5 图-6【任务实现】在表单中添加以图形控件；在顶层表单中添加菜单:1菜单设计时，在“常规选项"中选择“顶层表单”;2在表单main。scx中,设置其Init事件代码如下：DO menu_sys.mpr with this， 。t.3在表单main.scx中，其属性show Window

8、为2；window state为2系统主程序可如下:主程序 main。prgSET TALK OFF   SET DEBUG OFF    SET ESCAPE OFF   SET SAFETY OFF SET DELETED ON SET DATE ANSI  SET CENTURY ON  SET SYSMENU OFF  _SCREEN.VISIBLE = 。f.   Do form logo   &

9、#160;   read events   (四）依次单击“系统”“退出系统"菜单，会弹出“确认退出”窗口，单击“确定”按钮,退出系统，单击“取消”按钮返回系统。如图7所示。 图7 确认退出系统界面此处“退出系统"菜单运行的是tuichu。prg程序:yn = MESSAGEBOX("确定退出? "，4+32,"信息窗口"）IF yn = 6 CLEAR EVENTS QUITENDIF（五）依次单击“信息查询"“学生基本信息”菜单，在主界面内打开学生信息管理表单studen

10、t。scx.如图-8所示图-8 调用学生基本信息查询表单student【任务实现】利用VF系统提供的表单向导工具,根据向导提示设计一个学生信息管理表单，其可以实现学生信息的浏览、查询、添加、编辑与删除等操作（六)依次单击“信息查询”“课程信息"菜单，在主界面内打开课程信息管理表单course.scx。如图9所示. 图-9 调用课程信息管理表单course【任务实现】利用VF系统提供的表单向导工具，根据向导提示设计一个课程信息浏览窗口，在窗口内单击鼠标时,显示下一条记录信息，当到表尾时提示；右击鼠标则显示上一条记录信息，当到表头时提示。设置表单Click事件代码如下*click 事件代

11、码If eof （) =.t。 message box（"已经到最后一条记录!”)else skipendifthisform。refresh（七） 依次单击“信息查询”“选课信息”菜单，在主界面内打开“学生选课信息管理"表单sc。scx。如图10所示。 图-10 调用学生选课信息管理表单sc【任务实现】利用VF系统提供的表单向导工具,根据向导提示设计一个学生选课信息表单sc，其可以实现学生信息的浏览、查询、添加、编辑与删除等操作（八)依次单击“信息查询”“综合信息”菜单，在主界面内打开“综合信息浏览”表单zh.scx。如图-11所示.图11 调用综合信息浏览表单zh【任务

12、实现】利用页框控件，表格及复选框控件,页框设置为3个页面，每个页面内使用一表格控件显示数据信息。在第一个页面内,利用复选框控制表格控件是否可编辑及是否显示删除标记列。1 新建表单文件，打开表单设计窗口,向表单内添加1个页框控件，设其属性Page Count值为3；编辑页框，分别在3个页面内添加1个表格控件，并在第1个页面内添加2个复选框控件;2 打开数据环境设计器，向表单内添加数据库表student。dbf， course。dbf 和 sc.dbf，若有永久关系，则删除。编辑其相关属性；3 设置“显示删除标记列”复选框Interactive Change事件代码如下 If thisform。p

13、ageframe1.page1.grid1。DeleteMark=.F。 thisform。pageframe1。page1.grid1.DeleteMark=。T.Else thisform.pageframe1.page1.grid1.DeleteMark=。F.Endifthisform。refresh4设置“编辑信息"复选框Interactive Change事件代码如下 If thisform。pageframe1.page1.grid1。readonly=.F。 thisform。pageframe1.page1。grid1。readonly=.T.Else thisfo

14、rm。pageframe1.page1。grid1。readonly=.F。Endifthisform。refresh5保存表单为zh.scx（九）依次单击“信息查询”“定制查询”菜单，在主界面内打开“自定义查询界面”chaxun.scx。如图12所示图12 调用自定义查询表单chaxun【任务实现】1. 新建表单，表单内添加2个标签，1个选项按钮组控件,1个文本框，1个表格控件，2个命令按钮,数据环境中添加数据库表 student。dbf；2. 分别设置它们的相关属性；3. 设置“查找”命令按钮的Click 事件代码如下 Context=all trim (thisform.text1。va

15、lue)do case case thisform。optiongroup1.value=1 set filter to 学号=context case thisform。optiongroup1.value=2 set filter to 姓名=context case thisform。optiongroup1。value=3 set filter to 性别=context case thisform.optiongroup1.value=4 set filter to 籍贯 =context case thisform。optiongroup1.value=5 set filter t

16、o 所在系=contextendcasethisform.refresh4设置“退出"命令按钮的Click 事件代码为thisform。release，保存表单为chaxun。scx(十）依次单击“报表"“打印学生基本信息”菜单，在主界面内打开“考试证打印预览”页面。如图13所示。此处是预览的报表student.frx。图-13 调用考试证打印预览报表student.frx【任务实现】1. 启动VF系统程序，依次单击“文件” “新建"菜单,选择“表单”，单击“新建文件"按钮，打开报表设计器;2. 依次单击“显示” “数据环境”菜单,打开数据环境设计器，添

17、加表student.dbf，一次拖动学号，姓名,性别，出生日期，所在系和照片6个字段，放入报表细节带区；3. 添加7个标签控件并编辑，利用线条控件画出考试证的边框；4. 编辑它们相关的属性；5. 依次选择“文件” “页面设置”菜单,在页面设置对话框中，设置列数为2;6. 保存报表名称为student.frx（十一)依次单击“关于”“关于系统”菜单，在主界面内打开“关于系统"表单about。scx。如图-14所示。图14 调用关于系统表单about【任务实现】1。设计一个学生管理系统关于表单about。scx2。表单中“学生信息管理系统"为滚动字幕：设置一个标签label2和

18、一个时钟控件Timer1,其中Timer1的Click事件代码如下if thisform。label2.left+thisform。label2.width < 0thisform.label2.left=thisform。label2.widthelsethisform.label2.left=thisform。label2。left10endif3。表单中“华北科技学院计算机系”为超级链接：设置一个命令按钮和一个超级链接控件，其中命令按钮的Click事件代码为thisform.hyperlink1.NavigateTo （"http：/单击后会打开一个浏览窗口，并打开计算机系主页：http：/cstd.ncist。4.添加一个命令按钮，其属性Caption = ”(C）确定”，Click事件代码为thisform。release 图-15 华北科技学院计算机系主页四、任务分析通过完成本次综