yhq表单综合实验.doc

Visual FoxPro综合实验报告学生姓名易红全学号0093335教学班092BH4密12n实验项目面向对象程序设计-表单设计与应用实验地点M104实验最后完成时间2010年06月23日必修选修指导教师舒老师批阅教师电子稿记录迟交(抄习)报告电子稿在此录迟抄指导教师评语及成绩：红笔批阅：成绩：指导教师签名：日期： 打印稿记录等级迟交：抄习：一、实验综述实验目的及要求在面向对象程序设计思想和理论的指导下，运用Visual FoxPro对面向对象方法的支持，使用表单设计、表单控件、数据环境设计器及常用的若干基本控件（命令按钮（组），标签，文本框，计时器控件，页框等），设计一个集登录、查询、修改、删除等功能的表单综合应用系统。通过多功能表单的设计，一方面可以提高学生的动手操作能力，另一方面，可以综合利用所学知识的能力。学生通过自己的实验设计成果，进一步加深理解面向对象程序设计的基本理论和方法。学生在完成本综合实验的情况下，须条理清晰、步骤明确、认真总结，撰写综合实验报告，以提高文档写作能力。综合实验报告电子稿、VFP的表单文件及对应的含新增记录的数据库文件存放在以实验者学号和姓氏拼写命名的文件夹中提交给任课老师，以便任课老师能够查验实验者的结果。请在正式稿件(打印稿和电子稿)中删除此段。特别注意正确填补其它位置上阴影部分的内容实验仪器、设备或软件Visual Foxpro 6.0关系数据库软件。网络环境。实验任务表单设计前的操作任务已知图1所示数据库（当前盘根目录下以学号加姓氏拼写为目录的数据库），综合实验前必须在现有数据库和表的基础上增加若干记录：1）在“班级表”中新增班级：班级号=ICS0403，专业名称=数据库系统管理XYZ-XYZ即是现数据库应用教学班号，年级=200t,代班主任=现任课教师等。2）在“学生表”中增加4条记录，班级号均为ICS0403。其中：1条记录相关实验者真实身份 学号：7位学号，姓名：姓 名，等相对真实信息；另2条记录：1条是与你的姓相同的记录，另1条是名中有一个字与你的名相同的记录；第4条记录：0069999，苏炬，男，北京，12/29/1987，610等。前3条记录籍贯各不同，并性别、出生日期等数据在合理的范围中。3）在“课程表”中增加2门课程：1门是实验者真实所在学院的专业基础课，类别号定为03；另1门是：B1002，数据库应用，3，02，80和4。4）在“成绩表“中，对每个新增学生记录至少在成绩表中增加2个成绩。而实验者本人的成绩至少有3个成绩。图1 教学管理数据库表单设计要求1、设计一个标题名为“数据库应用系统”、Name为姓氏拼写的表单，表单包括页框、页面，构建5个选项卡(图2 表单设计外观)。第一个选项卡是登录功能，第二个选项卡查询功能（查询时不能修改或删除数据），第三个选项卡修改（仅能修改），第四个选项卡删除。第五个选项卡浏览学生信息。表单最大外观尺寸800600以内。图2 表单设计外观2、没有经过登录则不能进行查询修改等操作。登录时，以学号为用户名，出生日期为密码则为合法有效的登录；若3次登录均无效则提示“非法用户，谢绝访问！”，并退出表单。3、查询分为2种：依次顺序地自动查询（5秒钟左右自动查询下一个学生）和手工输入学生学号查询，查询时不能修改任何数据。查询的内容包括学号，姓名，性别，出生日期，是否少数民族，课程代号，课程名称和成绩。4、修改数据只能对学生表和成绩表进行，且学生学号和姓名不可修改（籍贯和照片不在考虑之列）。至少对成绩表中不及格的成绩修改成及格以上。5、删除0040004，阿里木和0069999，苏炬的记录。删除时要求显示被删记录更多的信息，并再次得到确认后方可删除。注：删除密码可定为被删除记录的学号。6、记录修改或删除之前与之后分别在浏览学生信息的选项卡功能中列出（可考虑以表格形式在一个画面中显示）。浏览学生信息时只考虑学号、姓名、性别、出生日期、班级号及入学成绩等6个字段。7、尽量在表单设计中运用更多的控件对象；并可以尽量发挥创造力，创建更多合理的功能，例如录入数据，统计等。 二、实验过程（试验步骤、源程序代码）1、表单设计前的操作1)增加班级表记录过程: use classinsert into class;values(ICS0403,;数据库系统管理BH4,;2010,;舒老师,;,;)2)学生表记录添加过程：自己的：insert into student; values(0093335,;易红全,;男,;1993/09/04,;.f.,;ICS0403,;江西,;511,;,;) 与自己姓相同的： insert into student;values(0092578,;易志刚,;男,;1991/02/23,;.F.,;ICS0403,;福建福州,;531,;,;) 与自己名相同的： insert into student; values(0092515,;李红全,;男,;1992/08/01,;.F.,;ICS0403,;湖南长沙,;546,;,;) 苏炬的： insert into student; values(0069999,;苏炬,;男,;1987/12/29,;.t.,;ICS0403,;北京,;610,;,;)3）课程表记录添加过程： 专业课添加过程; insert into course; values(92BH4,;旅游地理学,;2,;03,;48,;2) 数据库应用添加过程： insert into course; values(B1002,;数据库应用 ,;3,;02,;80,;4)4）成绩表记录添加过程： 易志刚：insert into achievement; values(0092578,; 92BH4,; 89）insert into achievement; values(0092578,; B1002,; 80) 李红全：insert into achievement; values(0092515,; 92BH4,; 78）insert into achievement; values(0092515,; B1002,; 68) 苏炬：insert into achievement; values(0069999,; A0101,; 91）insert into achievement; values(0069999,; B1002,; 85) 自己的：insert into achievement;values(0093335,;B1002,;80）insert into achievement;values(0093335,;92Bh4,;86)insert into achievement;values(0093335,;A0101,;81）2、表单设计（设计步骤，属性与代码设计）实验步骤：（1）在系统工具单击“新建”按钮，打开“新建”对话框。打开“表单设计器”。修改默认NameForm1为“yihongquan”，修改默认表单名form1为“数据库应用系统”。（2）在“表单控件”中添加一个“命令按钮”到表单，修改默认名command1为“关闭系统”，定义“关闭系统”的“click”事件代码：thisform.release。（3）在“表单控件”中添加一个“页框”到表单，修改属性pagecount为5，右键单击页框“编辑”按钮，修改默认页面名“page1”“page2”“page3”“page4”“page5”为“系统登录”“查询”“修改”“删除”“浏览学生信息”；保持页框编辑状态，并确定在“系统登录”页面，在“表单控件”中添加两个“标签”(label1 and label2)、“文本框”(text1 and text2)、“命令按钮”（command1 and command2）到页框，并保持美观。修改command1为“确认”，command2为“重新输入”，label1为“用户账号”，label2为“密码”。定义“确认”的“click”事件代码如下： if trim(this.parent.text1.text)=0093335 and;trim(this.parent.text2.text)=19930904thisform.pageframe1.page2.enabled=.t.thisform.pageframe1.page3.enabled=.t.thisform.pageframe1.page4.enabled=.t.thisform.pageframe1.page5.enabled=.t.thisform.pageframe1.page1.enabled=.f.else if n=2messagebox(非法用户，谢绝访问！,0+48,提示)thisform.releaseelsen=n+1endifEndif定义“重新输入”的“click”事件代码如下：this.parent.text1.value=this.parent.text2.value= 代码输完后点击“保存”，储存数据（4）保持页框编辑状态，单击“查询”按钮，在页框外右键单击选择“数据环境”，出现数据库表的选择，选中“student”表文件，出现如下界面：点击字段名并且按住，将“sno”“sname”“sex”“birthday”“ifnation”“enrollment”拖入页框，在单击右键，选择“编辑”，进入查询页面编辑状态。在“表单控件”首先，添加一个“计时器”，一个“命令按钮”（command1），在属性框中修改command1为“自动查询”，定义计时器的“timer”事件代码如下：skipif eof() go topendif thisform.refresh 定义“自动查询”的“click”事件代码如下：this.parent.timer1.enabled=.erval=1000 保存！运行成功！其次，在“表单控件”上添加一个“命令按钮”（command2），四个标签（label1、label2、label3、label4）和一个文本框（text），在属性框中修改command2为“手动查询”，修改label1为“请输入学号”，label2、label3、label4去除标签名。定义“手动查询”的“click”事件代码如下：locat for sno=trim(this.parent.text1.text)if found() this.parent.label2.caption=sname this.parent.label3.caption=sex this.parent.label4.caption=dtoc(birthday)else messagebox (查无此人!,0+48,提示)Endif 保存 查询页面完成后图如下：（5）保持编辑状态，单击“修改”页面（6）保持编辑状态，单