VFP上机练习题及参考操作答案

1、 PAGE 3第三题根据以下要求，完成基本操作，所需文件在指定文件夹下：1从 SCORE_MANAGER 数据库中删除名为 NEW_VIEW1 的视图(在数据库设计器中，右单 击视图，选择删除即可)。2用 SQL 命令向 SCORE1 表中插入一条记录：学号为“993503433”、课程号为“0001”、 成绩为 99。(在 VFP 命令窗口中执行命令：insert into score1 (学号,课程号,成绩) values(993503433,0001,99)，不用考虑打开表 ) p100第四题1.在指定文件夹下打开数据库文件 college（modi data college），物理删除

2、该数据库 中的 temp 表(在数据库设计器中右单击该表选择删除，在提示框中再选择删除，注意此操作 要求物理删除表，所以不要选择移去，移去操作仅把表转换为自由表，而不是从磁盘上物理 删除表)，然后将三个自由表“教师表”、“课程表”和“学院表”添加到该数据库中。3.使用 SQL 语句查询“教师表”中工资大于 4500 的教师的全部信息，将查询结果按职 工号升序排列，查询结果存储于文本文件 one.txt 中，SQL 语句存储于文件 two.prg 中。SQL 命令： select * from 教师表 where 工资4500 order by 职工号to fileone.txt用 modi c

3、omm 命令建立一个程序文件 two.prg,把上面的语句输入后保存即可。第五题在指定文件夹下打开数据库“宾馆”，完成以下操作： 1.打开“客户”表，为“性别”字段增加约束性规则：性别只能取“男”或“女”，默认值为“女”，表达式为性别$“男女”。2为“入住”表创建一个主索引，索引名为 fkkey，索引表达式为“客房号+客户号”。 (在表设计器中建立入住字段的索引，？在索引标签中设置其为主索引，在索引名处输入 fkkey，在表达式处输入：客房号+客户号)3.根据各表的名称、字段名的含义和存储的内容建立表之间的永久联系（参见课本3.7.3 节的第二部分），并根据要求建立相应的普通索引，索引名与创建

4、索引的字段名相同， 升序排序。第六题 本题应该归入简单应用题第七题根据以下要求，完成基本操作，所需文件（或要保存文件）均在指定文件夹下： 1.在指定文件夹下建立一个名为外汇管理的数据库。（create data 外汇管理） 2.将表currency_sl和表rate_exchange添加到新建立的数据库中。3. 将 表 rate_exchange 中 买 出 价 字 段 的 名 称 改 为 现 钞 卖 出 价 。（ modi stru rate_exchange，或者在数据库设计器中右单击表rate_exchange，选择“修改”后在表设计器 中修改）4.通过外币代码字段为表rate_exch

5、ange和currency_sl建立一对多永久联系(需要首 先建立相关索引)。（参见课本3.7.3节的第二部分）第八题在指定文件夹下完成如下操作：1. 创建一个名为订单管理的数据库，并将已有的 employee 和 orders 两个表添加到 该数据库中。新建一个名为 customer 的表，表结构如下：客户号 字符型(4) 客户名 字符型(36) 地址 字符型(36)执行 Create customer 命令，在表设计器中设置以上字段；也可以使用 SQL 命令直接建立：create table customer(客户号 C(4),客户名 C(36), 地址 C(36)2. 为 orders

6、表建立一个普通索引，索引名为 je，索引表达式为金额，降序索引。 3. 通过客户号分别为 customer 表建立主索引，为 orders 建立普通索引，索引名和 索引表达式均为客户号，通过客户号为 customer 表和 orders 表之间建立一个一对多的永久联系。第九题在指定文件夹下完成如下操作：1. 创建一个名为订单管理的数据库，并将已有的 employee、orders 和 customer 三 个表添加到该数据库中。他的字段是哪个？2. 为 orders 表建立一个普通索引，索引名为 nf，索引表达式为year(签订日期)。 为 employee 表建立主索引，为 orders 建

7、立普通索引，索引名和索引表达式均为职员号。 通过职员号在 employee 表和 orders 表之间建立一个一对多的永久联系。（参见课本 3.7.3 节的第二部分）3. 为上述建立的联系设置参照完整性约束：更新规则为限制，删除规则为级联， 插入规则为限制。（参见课本 3.8.3 节） PAGE 9第十题在指定文件夹下，完成如下操作:1. 将当前文件夹下的自由表 CLASS(班级表)和 TEACHER(教师表)添加到学生数据库 SDB 中；为班级表 CLASS 创建一个主索引和普通索引（升序），主索引的索引名和索引表达 式均为班级号；普通索引的索引名和索引表达式均为班主任号。为教师表 TEAC

8、HER 创建一个 主索引，索引名和索引表达式均为教师号；2. 通过班级号字段建立班级表 CLASS 和学生表 STUDENT 表间的永久联系。通过班级 表 CLASS 的班主任号字段与教师表 TEACHER 的教师号字段建立班级表 CLASS 和教师表 TEACHER 间的永久联系；（参见课本 3.7.3 节的第二部分）？3为以上建立的两个联系设置参照完整性约束：更新规则为级联；删除规则为限 制；插入规则为限制。（参见课本 3.8.3 节）前面的已经看了第十一题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 rsgz 添加到该数据库

9、中。2.将表 RSGZ 的所有记录的应发工资和实发工资计算出来填充到相应字段中，应发工资 为基本工资、职务补贴的和，实发工资为应发工资减去社会保险和公积金。方式 1 使用 replace 命令， use rsgzrepl all 应发工资 with 基本工资+职务补贴，实发工资 with 应发工资-社会保 险-公积金方式 2 使用 SQL 的 update 命令,此时不用考虑表是否打开，直接执行以下命令: update rsgz set 应发工资=基本工资+职务补贴,实发工资=应发工资-社会保险-公积金3.为表 RSGZ 建立普通索引 PK，索引表达式为“实发工资”，并用 select 统计实

10、发工资 在 1000 元以上（含 1000）的人数，将结果保存在表 ren.Dbf 中SQL 命令：select count(*) from rsgz where 实发工资=1000 into table ren第十二题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 rsda 添加到该数据库中。2.在表 RSDA 中物理删除姓名为“马超频”的记录,将“职称”为“讲师”的进行逻辑 删除，并将姓名为“王为冬”的职称改为“教授”。（可以使用命令方式，或许打开表在浏览 方式下用鼠标点击删除、修改更快些哦，总共 11 条记录，不会很累的）3.

11、为表 RSDA 建立以工作时间长短进行索引,索引名称为 PK，按降序排列。第十三题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 RSGL 添加到该数据库中。2.为表 RSGZ 的“性别”字段，添加字段有效性，该字段的有效性规则为只能是“男” 或“女”（打开数据库设计器，右单击表选择修改，在表设计器中选择性别字段，在下方的 字段有效性规则栏内填写： 性别$“男女”），输入错误则显示“该字段只能是男或女”(规 则框内填写,注意提示信息是字符串，需要用字符串界定符界定)，其默认值为“男”（默认 值为字符型的不要忘记字符串界定符）。3.将

12、表 RSGL 中的“职务”字段删除，并修改“文化程度”字段的宽度为 10。第十四题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 RSGZ 和 RSDA 添加到该数据库中,把数据表 RSGL 从数据库中移去(注意“移去”和“删除”的区别) 。2.为表 RSGZ 建立以“编号”为关键字的普通索引，为表 RSDA 建立以“编号”为关键 字的主索引，删除表 RSDA 中以 PK 为索引名的索引。3.为表 RSDA 和 RSGZ 建立以“编号”作为关联字的一对多永久关系。（参见课本 3.7.3 节的第二部分）第十五题根据以下要求，完成基本操

13、作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 RSBM 添加到该数据库中,移去数据表RSGZ 和 RSda。(注意移去不是物理删除)2. 为表 RSBM 建立以“部门名”为关键字的主索引，为表 RSgl 建立以“部门名”为关 键字的普通索引，删除表 RSDA 中以 PK 为索引名的索引。3.为表 RSBM 和 RSGL 建立以“部门名”作为关联字的一对多永久关系。（参见课本 3.7.3 节的第二部分）第十六题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 RSBM 添加到该数据库中,移去数据表

14、RSGL。2.将表 RSGZ 的基本工资超过 800 的所有记录的应发工资和实发工资计算出来填充到相 应字段中，应发工资为基本工资、职务补贴的和，实发工资为应发工资减去社会保险和公积 金。方式 1使用 replace 命令，use rsgzrepl all 应发工资 with 基本工资+职务补贴，实发工资 with 应发工资-社会保 险-公积金 for 基本工资800方式2使用 SQL 的 update 命令,此时不用考虑表是否打开，直接执行以下命令: update rsgz set 应发工资=基本工资+职务补贴,实发工资=应发工资-社会保险-公积金 where 基本工资8003.为表 RSG

15、Z 建立索引表达式为“编号”的主索引，并用 SELECT 统计已计算出实发工 资记录的个数，将结果保存在表 ren.Dbf 中。SQL 命令：select count(*) from rsgz where 实发工资0 into table ren第十七题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 XSDA 和 XSCJ 添加到该数据库中。2.将表 XSCJ 的所有记录的总分计算出来填充到相应字段中(打开表后，使用 replace all 总分 with 各科成绩相加,也可以使用菜单或 SQL 的 update 命令)，为表 XS

16、CJ 建立以 “学号”作为关键字的主索引，为表 XSDA 建立以“学号”作为关键字的主索引。3.为表 XSDA 和 XSCJ 建立以“编号”作为关联字的一对一永久关系。（参见课本 3.7.3 节的第二部分）第十八题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 XSDA 和 XSCJ 添加到该数据库中。2.将表 XSCJ 的所有记录的总分计算出来填充到相应字段中（同上题），按总分建立以 PK 为索引名的索引，降序排列。3.使用 SELECT 统计出 XSCJ 数据表中总分 320 以上（含 320）的人数，将结果保存在表 ren.D

17、bf 中。SQL 命令： select count(*) from xscj where 总分=320 into table ren 注意必须正确执行第二步，算出总分后才可以做这一步，否则表 REN.DBF 中的结果可能不对。第十九题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下打开数据库 BOOK，并把数据表 XSDA 和 XSCJ 添加到该数据库中,移去数据表 RSGZ。2. 为表 XSDA 建立以“学号”为关键字的主索引，索引标识名为“学号”，为表 XSCJ 建立以“学号”为关键字的候选索引，索引标识名为“xh”，删除表 XSDA 中以 PK 为索引名 的索

18、引。3.为表 XSDA 和 XSCJ 建立以“学号”作为关联字的一对一永久关系。（参见课本 3.7.3 节的第二部分）第二十题根据以下要求，完成基本操作题，所有文件保存在指定文件夹下： 1.在指定文件下建立数据库 BOOK，并把数据表 XSDA 和 XSCJ 添加到该数据库中。2.将表 XSCJ 的所有记录的总分和平均分计算出来填充到相应字段中，建立按总分由高 到低的索引（降序索引），索引名称为 PK。（参照前面类似的操作，或用菜单方式做）3.逻辑删除总分大于 360 的记录。正确执行第二步后再执行命令：delete for 总分360,当然也可以使用 SQL 的 delete from xs

19、cj where 总分360,再不会的话就打开表的浏览窗口， 用鼠标点击删除标记吧，反正只有一个记录需要删 除，我就不信这个题不得分嘎嘎六 根据以下要求，完成基本操作，所需文件在指定文件夹下：1打开表单 one，向其中添加一个组合框(Combo1)，并将其设置为下拉列表框（设置 Combo1 的 style 属性）。设置组合框的 RowSource 和 RowSourceType 属性，使组合框 Combo1 的显示条目为“上海”、“北京”(不要使用命令方式指定这两个属性)，显示情况如下图所示 (设置 Combo1 的 RowSource 属性值为“上海,北京” 注意不要输入双引号啦！， Ro

20、wSourceType 属性设置为 1-值)。2向表单 one 中添加两个命令按钮“统计”和“退出”，名称分别为 Command1 和 Command2（Command1 命令按钮的 caption 属性设置为“统计”，Command2 命令按钮的 caption 属性设 置为“退出”）。为“退出”命令按钮的 Click 事件编写一条命令，执行该命令时关闭并释放 表单（Command2 命令的单击事件程序为：thisform.release）。3为表单 one 中的统计命令按钮的 Click 事件编写一条 SQL 命令，执行该命令时， 将“歌手表”中所有歌手出生地与组合框(Combo1)指定的

21、内容相同的歌手的全部信息存入 自由表 birthplace 中。（select * from 歌手表 where 歌手出生地=bo1.value into table birthplace） PAGE 24简单应用题要做好本部分题目，必须详细学习课本第六章的表单基本操作，属性设置，常用控件的使用及课本示例，特别要熟练掌握课本第六章的全部例子（6.3.11 页框、6.3.13 图像、6.3.14 ActiveX 控件除外，本学期这三种控件不在要求的考核范围内）。第一题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1(注意表单名称和表单保存后的磁盘文件名

22、没 有直接关系，可以不同)）标题改为“成绩管理系统”(form1 对象的 caption 属性设置为“成 绩管理系统”,在表单设计器界面中点击表单空白处，使表单为当前对象，然后在属性框中 设置 caption 的文本为指定的内容，不要输入引号)，将文本“欢迎使用成绩查询系统”（名 称为 label1 的标签）改为颜色属性值为 222,100,50(标签的 forecolor 属性)，黑体(标签 的 fontname 属性设置为黑体)。最后在表单上添加“关闭”（名称为 Command1）命令按钮 (Command1 命令按钮的 caption 属性设置为“关闭”)，单击此按钮关闭表单（Comma

23、nd1 命 令的单击事件程序为：thisform.release）。保存并运行表单。2. 打开表单 myform002，表单中已有一个标签（名称为 label1），按标签要求完成操作。需 要建立二个命令按钮“计算”和“关闭”（名称分别为 Command1 和 Command2）(Command1 命令按钮的 caption 属性设置为“计算”，Command2 命令按钮的 caption 属性设置为“关闭”， 注意题目中添加多个控件的，要严格按题目说明对应控件的名称关系，否则影响得分)，三 个文本框（text1、text2、text3），结果放在 text3 中，单击“计算”按钮,完成标签要求

24、， 单击“关闭”按钮关闭表单（Command2 命令的单击事件程序为：thisform.release）。在 text 中输入 22，在 text2 中输入 36，保存并运行表单。注意把三个文本框按钮的属性 value 值事先设置为 0，使得他们默认接收的数据为数值型， 否则无法进行数学计算。其他方法可以处理，但是麻烦些。Command1 计算按钮的单击事件程序： thisform.text3.value=thisform.text1.value+thisform.text2.value 注意：完成表单设计后要运行表单的所有功能。第二题在指定文件夹下完成如下简单应用：1.打开表单 myform

25、001，把表单（名称为 Form1）标题改为“欢迎您”（设置表单的 caption）， 将文本“欢迎您访问系统”（名称为 label1 的标签）改为 25 号（设置 label1 的 fontsize）黑体（设置 label1 的 fontname）。最后在表单上添加“关闭”（名称为 Command1）命令按钮（Command1 命令按钮的 caption 属性设置为“关闭”，单击此按钮关闭表单（Command1 按钮 的单击事件程序为：thisform.release）。保存并运行表单。2.打开表单 myform002,在表单上已有二个标签按钮（名称为 label1 和 label2）,添加

26、两个 命令按钮“计算”和“关闭”（名称分别为 Command1 和 Command2）（设置方式同第一题）。 一个文本框（名称为 text1），一个标签按钮（名称为 label3）（1）单击“计算”命令按钮，计算出输入圆半径的圆的面积，圆半径在文本框中输入,圆面 积在标签 label3 中显示。（注意 text1 文本框默认数据类型是文本，需要首先设置其 value 值为 0，这样该文本框把接收的数字符号默认就是数值型了，后面才可以计算圆面积） 计算按钮的单击事件程序为：（caption 属性为字符型，所以使用 STR 函数转换后赋值） thisform.label3.caption=str(

27、thisform.text1.value)*2*pi(),10,2)（2）单击“关闭”命令按钮关闭表单。（关闭按钮的单击事件程序为：thisform.release） 注意：完成表单设计后要运行表单的所有功能。第三题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）背景色改为“100,100,200”（单击表单空 白处，然后设置表单的 backcolor 属性），将文本“欢迎您访问系统”（名称为 label1 的标 签）改为 20 号黑体（同前）。最后在表单上添加“关闭”（名称为 Command1）命令按钮（Command1 命令按钮的 captio

28、n 属性设置为“关闭”，单击此按钮关闭表单（关闭按钮的单击事件程序 为：thisform.release）。保存并运行表单。2.设计一个表单 myform002,上有两个标签（名称为 label1 和 label2）和两个计时器（名称 分别为 timer1 和 timer2）。标签 label1 的内容为“学生成绩管理系统”（设置标签 1 的 caption），字号为 20（设置标 签 1 的 fontsize），timer1 事件的时间间隔为 20 毫秒（设置 timer1 的 interval 属性值为 20），timer2 事件的时间间隔为 1000 毫秒（设置 timer2 的 int

29、erval 属性值为 1000），标签2 显示系统时间(设置 time2 控件的 timer 事件代码为：thisform.Label1.caption=time()， 标签 1 能够不停的自右向左移动(移动值设置为-2)，当全部移出表单后再由表单右侧重新进 入。设置 timer1 的 timer 事件代码为：if thisform.Label1.left-thisform.Label1.width then thisform.Label1.left=thisform.Label1.left-2else thisform.Label1.left=thisform.width endif注意：完

30、成表单设计后要运行表单的所有功能。类似操作参见课本 P 222 页 示例 6-19.第四题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“欢迎您”（点击表单空白处，设 置其 caption 属性为“欢迎您”，注意控件的标题 caption 和名称 name 不同，前者一般展示 在表单界面中，后者一般在程序中使用，相当于变量名字），将文本“成绩处理系统”（名称 为 label1 的标签）改为 25 号（设置 label1 的 fontsize）、字体颜色为 RGB（100,200,100）（设置 label1 的 forecolor）。最后

31、在表单上添加“关闭”（名称为 Command1）命令按钮 (Command1 命令按钮的 caption 属性设置为“关闭”)，单击此按钮关闭表单(关闭按钮的单 击事件程序为：thisform.release）。保存并运行表单。2.设计一个表单 myform002,上有两个命令按钮“输出”和“退出”（名称分别为 Command1 和 Command2）(Command1 命令按钮的 caption 属性设置为“输出”，Command2 命令按钮的 caption 属性设置为“退出”)。一个文本框（名称为 TEXT1）（注意 text1 文本框默认数据 类型是文本，需要首先设置其 value 值

32、为 0，这样该文本框的值类型默认就是数值型了，后 面才可以输入一个表示成绩的数值）,一个标签（名称为 label1）。（1）单击“输出”命令按钮，文本框中输入的学生成绩的等级（在标签中显示），等级划分 为：不及格（小于 60）、及格（大于等于 60 小于 70）、良好（大于等于 70 小于 90）、优秀（大于等于 90）,输入其它值则显示“输入错误”。 输出按钮 Command1 的单击事件程序为： fs=thisform.text1.valuelcaption=if fs100 or fs0 then lcaption=输入错误elseif fs60 then lcaption=不及格els

33、eif fs70 lcaption=及格 elseif fs90 lcaption=良好 else lcaption=优秀 endifendifendif endifthisform.label1.caption=lcaption（2）单击“退出”命令按钮关闭表单(退出按钮的单击事件程序为：thisform.release）。 注意：完成表单设计后在文本框中输入 65，运行表单的所有功能。第五题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“考试系统”（点击表单空白处， 设置其 caption 属性为“考试系统”），将文本“进入考试系统”

34、（名称为 label1 的标签）改 为 20 号黑体（设置 label1 的 fontsize 属性）。最后在表单上添加“关闭”（名称为 Command1） 命令按钮（设置其 caption 属性为“关闭”），单击此按钮关闭表单（退出按钮的单击事件程 序为：thisform.release）。保存并运行表单。2.设计一个表单 myform002,表单上有一个标签“请输入密码”（在新建的表单上添加一个标 签控件，设置其 caption 属性为“请输入密码”)和一个文本框（名称分别为 label1 和 text1）。 输入密码时文本框中显示“*”(设置文本框控件 text1 的 passwordc

35、har 属性为*，设置其 controlsource 属性为 newpassword )，输入错误显示提示信息“密码输入不正确，第几次 输入失败！”,三次输入不正确时，则显示提示信息“对不起，您不是合法用户！”，输入密码 正确，则显示“密码正确，进入系统！”，然后结束表单运行。（inputnumber 存放输入次数， oldpassword=123 ,newpassword 存放输入密码 注意：完成表单设计后要运行表单的所有功能。建立新表单，保存表单文件名字为 myform002，设置表单的 init event 事件代码如下: public inputnumber,oldpassword,n

36、ewpasswordinputnumber=0 oldpassword=123 newpassword=文本框控件 text1 的 valid event 事件代码为： if newpassword!=oldpasswordinputnumber=inputnumber+1=messagebox(密码输入不正确，第+str(inputnumber,1)+次输入失败) if inputnumber3newpasssword= this.value= thisform.refreshreturn .f. else=messagebox(对不起，您不是合法用户！) release inputnumb

37、er,oldpassword,newpassword thisform.releaseendi elsemessagebox(密码正确，进入系统！)release inputnumber,oldpassword,newpassword thisform.releaseendi程序中设定的原始密码为 123，运行时输入完成后直接回车即可。 可参见课本 P195 例 6-4第六题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“欢迎您”，将文本“欢迎您访问 系统”（名称为 label1 的标签）改为 25 号。标签背景色改为 100,80,20

38、0，最后在表单上添 加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表单。(如前 类似操作)2.设计一个表单 myform002,表单上有两个命令按钮“计算”和“退出”（名称分别为 Command1 和 Command2），二个标签（名称为 label1，内容为“输入数据”；名称为 label2，显示结果）， 一个文本框（名称为 text1，在此输入数据）。 单击“计算”命令按钮，计算出该数据之内所有奇数的和（该数据为自然数）。（2）单击“退出”命令按钮关闭表单。注意1. text1 文本框默认数据类型是文本，需要首先设置其 value 值为 0，这样该文本框的

39、值类型默认就是数值型了，后面才可以输入一个表示成绩的数值. 其他控件设置属性参照 前面的例子。2. Label1 控件的尺寸设置的稍微大一些，以便清楚的显示结果，或者把标签控件的 autosize 属性设置为.T.。计算按钮的单击事件程序代码如下: s=0for i=1 to thisform.text1.value s=s+ii=i+1endfor thisform.label1.caption=str(s)注意：完成表单设计后输入 1000 运行表单的所有功能。第七题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“欢迎您”，将文本“欢

40、迎您访问 系统”（名称为 label1 的标签）改为 25 号，字体的颜色设置为 RGB（100，50，200）。最后 在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表 单。(如前类似操作)2.设计一个表单 myform002,上有三个命令按钮“查找”、 “替换”和“退出”（名称分别为 Command1、 Command2 和 Command3（建立新表单，保存为 myform002；添加三个命令按钮， 依次设置其 caption 为“查找”、 “替换”和“退出”，注意对应关系，否则影响得分），一 个编辑框（名称为 edit1，内容为“ This is

41、 an example”）(添加 edit 控件，设置其 value 值为 This is an example）。单击“查找”命令按钮，选择 Edit1 中的单词 example(设置 Edit1 按钮的 HideSelection 属性值为 F，以便显示被选中的文本)；单击“替换”，用单词 exercise 置换已选择的单词。 单击“退出”命令按钮关闭表单。注意：完成表单设计后要运行表单的所有功能。 查找按钮的单击事件代码为: thisform.edit1.selstart=at(example,thisform.edit1.value)-1 thisform.edit1.sellengt

42、h=7替换按钮的单击事件代码为: x=at(example,thisform.edit1.value)thisform.edit1.value=STUFF(thisform.edit1.value, x , 7 , exercise) thisform.edit1.selstart=at(exercise,thisform.edit1.value)-1 thisform.edit1.sellength=8退出按钮的单击事件代码为: thisform.release第八题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“欢迎学习”，将文本“V

43、FP 数据库程序设计”（名称为 label1 的标签）改为 20 号黑体。最后在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表单。(如前操作) 2.设计一个表单 myform002（新建表单并保存为 myform002）,表单上有两个命令按钮“求余 数”和“退出”（名称分别为 Command1 和 Command2），有二个标签（名称分别为 label1 和 label2，内容为 “被除数”和“除数”，有三个文本框（名称为 text1、text2 和 text2， 在 text1 和 text2 中输入被除数和除数，text3 中输出余数）。（以上各个

44、控件的 caption 按 要求设置，注意对应关系，如“求余数”的按钮是 Command1） 单击“求余数”命令按钮，则显示出余数，被除数、除数均为整数。设置“求余数”按钮 Command1 的单击事件代码为： if thisform.text2.value!=0 thenthisform.text3.value=mod(thisform.text1.value,thisform.text2.value) endi单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。第九题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为

45、“欢迎学习”，将文本“VFP 数据 库系统”（名称为 label1 的标签）改为 25 号，字体颜色为 RGB（100,60,80）。最后在表单 上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表单。 2.设计一个表单 myform002,表单上有两个命令按钮“计算”和“退出”（名称分别为 Command1 和 Command2），二个标签（名称为 label1，内容为“输入整数数据”，label2，输出结果）， 一个文本框（名称为 text1，在此输入数据）（设计状态设置 text1 按钮的 value 值为 0）。 单击“计算”命令按钮，计算出从 100

46、到输入数据内的所有“水仙花数”的个数，水仙花数 是指一个三位数，其各位数字的立方和等于该数本身。计算按钮 Command1 的单击事件代码为： thisform.label2.caption=str(0) x=thisform.text1.valueif x999 then retuendi n=0for i=101 to x s=str(i,3) a=val(substr(s,1,1) b=val(substr(s,2,1)c=val(substr(s,3,1)if i=a*3+b*3+c*3 then n=n+1endif endforthisform.label2.caption=str

47、(n) 单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。第十题在指定文件夹下完成如下简单应用：1.打开表单 myform001，把表单（名称为 Form1）标题改为“祝同学们”，将文本“身体健康， 学习进步！”（名称为 label1 的标签）改为 25 号，字体颜色为 RGB（255，0，0）。最后在表 单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表单。 2.设计一个表单 myform002,表单上有两个命令按钮“计算阶乘”和“退出”（名称分别为 Command1 和 Command2），二个标签（名称为 label1，内容为“

48、输入一个整数”；label2，内 容为“阶乘为”），二个文本框（名称为 text1，在此输入数据；text2，显示阶乘）。 单击“计算阶乘”命令按钮，则计算出输入数据的阶乘。单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。注意设计状态设置 text 控件按钮的 value 值为 0，运行程序时注意输入一个大于 1 的正整 数；Command1 控件按钮的单击事件代码为： X=thisform.text1.valueS=1For i=1to x S=s*iEndfor Thisform.text2.value=s第十一题根据以下要求，完成简单应用操作，所有文件保存在指定

49、文件夹下：1.打开表单 myform001，把表单（名称为 Form1）标题改为“欢迎您”，将文本“欢迎 您访问系统”（名称为 label1 的标签）改为 25 号黑体。最后在表单上添加“关闭”（名称为 Command1）命令按钮，单击此按钮关闭表单。保存并运行表单。2.设计一个表单 myform002,上有两个命令按钮“查询”和“退出”（名称分别为 Command1和 Command2）。（1）单击“查询”命令按钮，查询 BOOKAUTH 数据库中(authors 数据表中取作者信息， books 表中统计图书数量信息)出版过 3 本以上（含 3 本）图书的作者信息，包括作者姓名 和所在城市

50、；查询结果按作者姓名升序保存在表 NEW_TABLE 中。“查询”命令按钮 Command1 的单击事件代码为：Select 作者姓名,所在城市 from authors,books where authors.作者编号=books.作 者编号 group by books.作者编号 having(count(*)2) order by 作者姓名 into table new_table（2）单击“退出”命令按钮关闭表单。 注意：完成表单设计后要运行表单的所有功能。 意：完成表单设计后要运行表单的所有功能。第十二题根据以下要求，完成简单应用操作，所有文件保存在指定文件夹下：.建立查询文件 MY

51、QUERY，在 SCORE_MANAGEB 数据库中（从 student.dbf 表中）查询学 生的姓名和年龄（计算年龄的公式是：今年年份-Year（出生日期），年龄作为字段名），结 果保存在一个新表 NEW_TABLE1 中。方法 1 打开数据库设计器，从主菜单选择建立查询，添加表 student,在查询设计器中 的字段标签界面中添加姓名字段，在函数和表达式框中输入：year(date()-year(出生日 期)as 年龄，然后点击添加按钮，则选定字段框中出现了需要的 2 个字段。然后保存查询文 件为 myquery，并运行看一下结果。若结果正确则再在查询设计器中右单击选择“输出设置”， 点

52、击“表（T）”，输入表名 new_table1,再次运行查询）方法 2：先执行命令生成结果表：select 姓名,year(date()-year(出生日期) as 年龄 from student into table new_table1再执行命令：modi comm myquery.qpr在打开的程序编辑窗口中输入命令 select 姓名,year(date()-year(出生日期) as 年龄 from student into table new_table1，然后保存即可。2.建立菜单 QUERY_MENU。该菜单中只有“查询”和“退出”两个菜单项（条形菜单）(即 普通的横向菜单，左

53、侧第一项为查询，第二项为退出)，其中单击“查询”菜单项时，运行 查询文件 MYQUERY.QPR(菜单项结果栏选择命令，命令框中输入 do myquery.qpr)；单击“退 出”菜单项时，返回到 Visual FoxPro 系统菜单（菜单项结果栏选择命令，退出命令框填： set sysmenu to defa）。（相应命令写在命令框中，不要写在过程中）。（完成菜单设计后， 接着生成菜单，保存菜单为 QUERY_MENU,然后在 VFP 命令窗口中运行 do query_menu.mpr， 运行各个菜单项）第十三题根据以下要求，完成简单应用操作，所有文件保存在指定文件夹下：1在 SCORE_M

54、ANAGER 数据库中建立一个名为 NEW_VIEW 的视图，该视图含有选修了课 程但没有参加考试(成绩字段值为 NULL)的学生信息(包括“学号”、“姓名”和“系部”3 个 字段)。菜单方式建立视图:在数据库设计器中选择新建本地视图，根据要求设计并保存视图， 注意视图设计器中 student 表到 score1 表的学号联接接改为左联接。命令方式建立视图：Open data score_managerCreate view new_view as select student.学号,姓名,系部 fromstudent student left outer join score1 onstud

55、ent.学号 = score1.学号 where score1.成绩 is not null 2建立表单 MYFORM1，在表单上添加一个表格控件(名称为 grdCourse)，并通过该控件显示表 COURSE 的内容(要求 RecordSourceType 属性必须为 0)。新建表单，把表单拖动的大一些，在表单上添加表格控件，默认名称为 Grid1，更改其 name 属性为 grdCourse。在表单空白处右单击，选择数据环境，添加表 course。选定 grdCourse 控件，在属性框的数据标签中设置其 RecordSourceType 属性值为 0-表，设置其 RecordSource

56、 属性值为 course。保存表单为 MYFORM1，运行表单。第十四题根据以下要求，完成简单应用操作，所有文件保存在指定文件夹下： 1建立查询文件 PJGZ_CX：根据学院表和教师表计算信息管理系教师的平均工资，结果存放到表 tem 中。方法 1 打开数据库设计器，从主菜单选择建立查询，添加表学院表及教师表，在两表 的联接线上双击，设置其联接性质为左联接；在查询设计器中的字段标签界面中添加系名字 段，在函数和表达式框中输入：avg(工资) as 平均工资，然后点击添加按钮，则选定字段 框中出现了需要的 2 个字段。然后保存查询文件为 PJGZ_CX，并运行看一下结果。若结果正 确则再在查询设

57、计器中右单击选择“输出设置”，点击“表（T）”，输入表名 tem,再次运行 查询）方法 2：先执行命令生成结果表：select 系名,avg(教师表.工资) as 平均工资 from 学院表 left outer join 教师表 on 学院表.系号 = 教师表.系号 group by 学院表.系名 into table tem.dbf再执行命令：modi comm PJGZ_CX.qpr在打开的程序编辑窗口中输入命令 select 系名,avg(教师表.工资) as 平均工资 from 学院表 left outer join 教师表 on 学院表.系号 = 教师表.系号 group by 学

58、院表.系名 into table tem.dbf ，然后保存即可。2在 College 数据库中使用视图设计器建立一个名为 course_v 的视图，该视图根据 课程表、学院表和教师表建立，视图中的字段包括姓名、课程名、学时和系名 4 项，视图中只包括学时大于等于 60 的记录，视图中的记录先按系名升序排列，若 系名相同再按姓名降序排列，最后查询该视图中的全部信息，并将结果存放到表 sef 中。在数据库设计器中，首先建立教师表的系号和课程号普通索引，建立学院表的系号主 索引，课程表的课程号主索引；并建立学院表到教师表的一对多联接，课程表到教师表的一 对多联接。然后建立视图。1 菜单方式： 在视

59、图设计其中按要求进行设计。2 命令方式：create view course_v as select 姓名,课程名,学时,系名 from 课程表 inner join 教师表 inner join 学院表 on 学院表.系号=教师表.系号 on 课程表.课程号=教师表.课 程号 where 学时=60 order by 系名,姓名 desc注意以上两种方式都是来建立视图的，视图在建立时是不 能指定输出去向的，所以要把结果保存到 sef 中，还需要在成功 建立视图后，执行查询命令：select * from course_v into table sef。第十五题根据以下要求，完成简单应用操作，

60、所有文件保存在指定文件夹下： 1.使用查询设计器设计一个名为 ONE 的查询文件，查询房价价格大于等于 280 元的每盒(应该为”间”)客房的客户号(应该为客房号)、类型号（取自客房表）、类型名和价格。 查询结果按类型号升序排列，并将结果输出到 TABA 中，设计完成后运行该查询。注意在查询设计器中，先后添加客房表和房价表，设置客房表到房价表的联接方式为 右联接，否则可能无法得到正确结果。2.使用 SQL 的 SELECT 语句查询“客户”表中性别为男的客户号、身份证、姓名和 工作单位字段及相应的记录值，并将结果存储到名为 TABB 的表（注意该表不需要排序）。请 将该语句存储到名为 TWO.