vf系统程序实验报告.doc

石家庄四中学生缴费系统一、实验目的伴随着经济的快速发展，计算机的广泛运用及网络的普及，各学校也越来越多的考虑如何利用信息技术改善学生对信息收集渠道拓展；以及如何利用计算机实现学校的信息录入更改；本次实验目的是根据所学的计算机知识及vfp的相关知识简单的建立一个学生缴费信息查看录入系统，初步了解VFP软件的编制。二、实验内容1.系统介绍这次实验是对学校学生入学缴费情况，学生信息，班级信息的查看，录入，修改，保存等体系，简单方便实用，并且广大学生可登陆看，并给出建议和意见。2系统主要功能本系统一共分为四个模块、缴费系统 主要包括缴费信息的查询、录入和更改、班级信息 主要包括班级信息的查询、录入和更改、学生信息 主要包括学生信息的查询、录入和更改、留言及报表打印 主要有留言板块和报表打印板块3系统功能模块图缴费信息查询缴费报表打印留言及打印石家庄四中学生缴费系统缴费系统缴费信息更改缴费信息录入班级信息班级信息查询班级信息更改缴费信息录入学生信息学生信息查询学生信息更改学生信息录入意见建议留言4.系统所需表缴费信息表：学生编号、学生姓名、班级、缴费日期、应缴费用、应缴费用、找零。班级信息表：班级、班主任、班主任编号、教师号、班主任电话、任课老师、学生人数。缴费形式表：缴费地点、缴费方式、日期限制、所需证件、优惠政策。学生基本信息表：学号、姓名、性别、年龄、民族、政治面貌、监护人、联系电话。留言板表：姓名、留言内容。Passwordinfo:用户名、密码三、实验步骤1、数据库、数据库表、数据库定义数据库：在计算机系统中按一定的数据模型组织、存储和使用的相关联的数据集合成为数据库。数据库中常用的数据模型有三种：层次模型、网状模型、关系模型。关系模型：是用由行和列构成的二维表格来描述实体之间联系的一种结构模型，因此，可将关系理解为二维表。、各表所需要字段具体如下所示：2、系统首页及登陆界面的制作、系统首页，点击可进入登陆界面此界面所需主要的闹钟代码如下：*-如果进度条的最大值if Thisform.bar.Value Thisform.bar.Max*-将值增1Thisform.bar.value = Thisform.bar.value + 1*-在标签栏显示数值Thisform.Label1.Caption=启动已完成 +;ALLTRIM(STR(INT(Thisform.bar.value/Thisform.bar.max*100) + %else*-停止计时器This.Interval = 0*-退出表单?Thisform.release*-调用系统登录表单DO FORM 登陆界面.scxendif3、登陆界面图2确定按钮程序如下：IF mm#123456 5,10 say密码错误，请重新输入 else thisform.release do FORM FORMS缴费管理.scxendif4、登陆后的主界面此界面主要属性值如下：缴费信息代码：do form 缴费信息.scxthisform.release缴费形式代码：do form 缴费形式thisform.release班级信息代码：do form 班级信息.scxthisform.release学生信息表单代码：DO FORM 学生信息表单.scxthisform.release信息更改登陆表单代码：DO Form 信息更改登陆表单.scxthisform.release报表代码：label form 缴费信息报表.frx for 学生编号=缴费信息.txt 学生编号.value previewthisform.release留言板代码：do form 留言板.scxthisform.release退出代码：Thisform.ReleaseClear Events5、新建表单“缴费信息”利用数据环境添加“缴费信息表”信息增加首记录、上记录、下记录、末记录及退出按钮增加首记录代码：GO TOP&到首记录THISFORM.REFRESH&刷新表单上记录代码：*-如果到了数据表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统)ELSE*-如果数据指针不位于数据表首部 SKIP-1ENDIF*-刷新表单THISFORM.REFRESH下记录代码：*-如果记录指针位于数据表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统)*-如果记录指针不位于数据表末尾ELSE*-记录指针下移 SKIPENDIF*-刷新表单THISFORM.REFRESH末记录代码：GO BOTTOM &到数据表末尾THISFORM.REFRESH&刷新表单退出代码：do form FORMS缴费管理.scxthisform.release6、新建表单“缴费形式”利用数据环境添加“缴费形式表”信息增加首记录、上记录、下记录、末记录及退出按钮增加首记录代码：GO TOP&到首记录THISFORM.REFRESH&刷新表单上记录代码：*-如果到了数据表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统)ELSE*-如果数据指针不位于数据表首部 SKIP-1ENDIF*-刷新表单THISFORM.REFRESH下记录代码：*-如果记录指针位于数据表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统)*-如果记录指针不位于数据表末尾ELSE末记录代码：GO BOTTOM &到数据表末尾THISFORM.REFRESH&刷新表单退出代码：do form FORMS缴费管理.scxthisform.release7、新建表单“班级信息”利用数据环境添加“班级信息表”信息增加首记录、上记录、下记录、末记录及退出按钮增加首记录代码：GO TOP&到首记录THISFORM.REFRESH&刷新表单上记录*-如果到了数据表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统)ELSE*-如果数据指针不位于数据表首部 SKIP-1ENDIF*-刷新表单THISFORM.REFRESH下记录代码：*-如果记录指针位于数据表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统)*-如果记录指针不位于数据表末尾ELSE*-记录指针下移 SKIPENDIF*-刷新表单THISFORM.REFRESH末记录代码：GO BOTTOM &到数据表末尾THISFORM.REFRESH&刷新表单退出代码：do form FORMS缴费管理.scxthisform.release8、新建表单“学生信息表单”利用数据环境添加“学生信息表”信息增加首记录、上记录、增加、下记录、末记录及退出按钮增加首记录GO TOP&到首记录THISFORM.REFRESH&刷新表单上记录*-如果到了数据表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统)ELSE*-如果数据指针不位于数据表首部 SKIP-1ENDIF*-刷新表单THISFORM.REFRESH增加Append下记录*-如果记录指针位于数据表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统)*-如果记录指针不位于数据表末尾ELSE*-记录指针下移 SKIPENDIF*-刷新表单THISFORM.REFRESH末记录GO BOTTOM &到数据表末尾THISFORM.REFRESH&刷新表单退出do form FORMS缴费管理.scxthisform.release9、新建表单“信息更改登录表单”确定键代码为：IF mm#123456 5,10 say密码错误，请重新输入 else thisform.release do FORM 信息更改.scxendif10、新建“留言板”表单增加“我要留言”按钮代码为Append增加第一条GO TOP&到首记录THISFORM.REFRESH&刷新表单上一条*-如果到了数据表首部IF BOF() .OR. RECNO() = 1 MessageBox(已到首记录,48,人力资源管理系统)ELSE*-如果数据指针不位于数据表首部 SKIP-1ENDIF*-刷新表单THISFORM.REFRESH下一条*-如果记录指针位于数据表末尾IF EOF() or RecNO() = RecCount() MessageBox(已到末记录,48,人力资源管理系统)*-如果记录指针不位于数据表末尾ELSE*-记录指针下移 SKIPENDIF*-刷新表单THISFORM.REFRESH最后一条GO BOTTOM &到数据表末尾THISFORM.REFRESH&刷新表单退出do form FORMS缴费管理.scxthisform.release11、新建程序“主程序”代码为：Set sysmenu offSet talk offSet stat offSet safety offClear allSet century onDO form 登陆界面.scxRead EventsSet sysmenu onSet talk