vf 命令

一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）

（1）在考生文件夹下打开数据库cust_m，为cust表建立主索引，索引名为客户编号，索引表达式为客户编号。

（2）cust表和order1表中必要的索引已经建立，为两表建立永久性联系。

（3）为cust表增加字段：客户等级C（2），字段值允许为空。

（4）为order1表“金额”字段增加有效性规则：金额大于零，否则提示：金额必须大于零。

【答案】

（1）在命令窗口输入命令：MODIFY DATABASE cust_m，打开数据库设计器，右键单击cust数据表文件，选择快捷菜单命令“修改”，系统弹出cust表设计器，在“字段”选项卡中为“客户编号”字段选择一个索引排序，然后单击“索引”选项卡，在此选项卡中，字段索引名默认的为“客户编号”，在“索引”下拉框中选择索引类型为“主索引”。

（2）在数据库设计器中，将cust表中“索引”下面的“客户编号”主索引字段拖到order1表中“索引”下面的“客户编号”索引字段上，建立cust和order1两个表之间的永久性联系，可以看到两个数据表之间增加了一条连线。

（3）打开cust表设计器，在“字段”选项卡列表框内的“所在地”字段后，输入新的字段名“客户等级”，选择“类型”为“字符型”，“宽度”为2，勾选NULL按钮。

（4）在数据库设计器中，右击order1数据表，在弹出的快捷菜单中选择“修改”菜单命令，系统弹出order1的数据表设计器，选中“金额”字段，在“字段有效性”区域内，输入“规则”文本框中的内容为“金额>0”，在“信息”文本框内输入“金额必须大于零”，如图9-1所示。

二、简单应用题（共2小题，每题20分，计40分）

（1）在考生文件夹中有一个数据库sdb，其中有数据库表student2，sc和course2。3个表如下所示：student2(学号，姓名，年龄，性别，院系编号)

sc(学号,课程号，成绩，备注)

course2(课程号，课程名，先修课号，学分)

在考生文件夹下有一个程序dbtest3.prg该程序的功能是定义一个视图vs1，检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号，并按平均成绩降序排序。请修改程序中的错误，并调试该程序，使之正确运行。不得增加或删减程序行。

（2）在考生文件夹下有一个数据库cust_m，数据库中有cust和order1两个表。请使用菜单设计器制作一个名为my_menu的菜单,菜单只有“浏览”一个子菜单。

浏览菜单项中有“客户”、“订单”和“退出”3个子菜单：

客户子菜单使用SELECT * FROM cust命令对cust表查询；

订单子菜单使用SELECT * FROM order1命令对order1表查询；

退出子菜单使用SET SYSMENU TO DEFAULT命令返回系统菜单。

【解析】本大题1小题为改错题，其中要注意的是一些容易混淆

的命令，例如打开数据库的命令应该是OPEN DATABASE，而不是USE DATABASE等；2小题是一个菜单设计，主要分清楚“结果”下拉框中的各个选项的作用，设计下级菜单应该选择“子菜单”，而菜单命令则应该选择“过程”或“命令”。这两个选项中，“命令”选项只用来编写单行命令，而“过程”则是用来编写一个多行命令的程序段。

【答案】

（1）在命令窗口输入命令：MODIFY COMMAND dbtest3.prg，打开程序文件编辑窗口，文件中程序段如下：

****下面是dbtest3.prg文件的源程序内容****

*程序名：dbtest3.prg

*定义一个视图VS1,

*检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号,

*并按平均成绩降序排序,

*以下程序有三处错误，请改正

SET TALK OFF

SET SAFETY OFF

USE DA TABASE sdb &&****Error***修改本行的语法错误,不许注释掉本行或删除本行

CREA TE VIEW vs1

SELECT studen2.学号, 姓名, A VG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) ; 选课门数, 院系编号;

FROM student2,course2;

&&*************Error*************

WHERE student2.学号= sc.学号;

GROUP BY sc.学号HA VING COUNT(课程号) > 3;

ORDER BY 成绩&&*************Error************* CLOSE DATABASE

RETURN

****************************************

根据源程序中提示的3处错误，修改后的程序段如下所示：

****下面是修改后的dbtest3.prg文件内容****

SET TALK OFF

SET SAFETY OFF

OPEN DATABASE sdb && 此处应该是利用OPEN

命令打开数据库

CREA TE VIEW vs1

SELECT student2.学号, 姓名, A VG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) ;

选课门数, 院系编号;

FROM student2, sc; && 此处查询的两个表文件应该是student2和sc

WHERE student2.学号= sc.学号;

GROUP BY sc.学号HA VING COUNT(课程号) > 3;

ORDER BY 平均成绩DESC && 此处缺少降序关键字DESC

CLOSE DATABASE

RETURN

****************************************

（2）在命令窗口输入命令：CREA TE MENU my_menu，系统弹出一个“新建”对话框，在对话框中单击“菜单”图形按钮，进入菜单设计器环境。根据题目要求，首先输入主菜单名称“浏览”，在“结果”下拉框中选择“子菜单”。

单击“浏览”菜单行中的“创建”按钮进入下级菜单的设计界面，编写每个子菜单项的名称“客户”、“订单”和“退出”。根据题意，为3个子菜单命令编写单行命令，因此在3个子菜单命令的“结果”对话框中选择“命令”，分别在3个子菜单命令行中的文本框内输入对应的命令，如图9-2所示。

图9-2

选择菜单命令“菜单”－“生成”，生成一个菜单文件“my_menu.mpr”。

关闭设计窗口，在命令窗口输入命令：DO my_menu.mpr，看到V isual FoxPro的菜单栏被新建的菜单所代替，单击“退出”菜单命令将恢复系统菜单。

三、综合应用题（1小题，计30分）

在考生文件夹下有学生管理数据库stu_3，数据库中有score_fs表，其表结构是学号C(10)、物理I、高数I、英语I和平均分N(6，2)。成绩如果用-1表示，说明学生没有选学该门课程。其中，该表前4项已有数据。

请编写并运行符合下列要求的程序：

设计一个名为my_form的表单，表单中有两个命令按钮，按钮的名称分别为cmdyes和cmdno，标题分别为“统计”和“关闭”。

程序运行时，单击“统计”按钮应完成下列操作：

1）计算每一个学生的平均分存入平均分字段。注意：分数为-1不记入平均分，例如一个学生的3门成绩存储的是90，-1，70，平均分应是80。

单击“退出”菜单项，程序终止运行。

（注：相关数据表文件存在于考生文件夹下）

2）根据上面的计算结果，生成一个新的表pjf，该表只包括学号和平均分两项，并且按平均分的降序排序，如果平均分相等，则按学号升序排序。

单击“关闭”菜单项，程序终止运行。

【解析】本大题考查的是表单设计，在设计控件属性中，不要将控件的标题（Caption）和名称（Name）属性弄混淆了，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称；程序部分可以利用一个DO循环来依次浏览表中的记录，然后利用IF语句来进行判断各科的数据。

【答案】

在命令窗口输入命令：CREA TE FORM my_form，打开表单设计器。单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮，选中第一个命令按钮（command1），在属性对话框中将命令按钮的Name属性值修改为“cmdyes”，将Caption属性值修改为“统计”，如图9-3所示。以同样的方法，将第二个命令按钮（command2）的Name属性值修改为“cmdno”，将Caption属性值修改为“关闭”。

图9-3

双击命令按钮cmdyes（统计），在Click事件代码中编写如下程序段：

****“统计”命令按钮的Click事件代码****

SET TALK OFF

SET SAFETY OFF

OPEN DATABASE stu_3

USE score_fs

GO TOP

DO WHILE NOT EOF()

STORE 0 TO rs,pjf

IF 物理<>-1 THEN

rs = rs +1

pjf = pjf +物理

ENDIF

IF 高数<>-1 THEN

rs = rs +1

pjf = pjf +高数

ENDIF

IF 英语<>-1 THEN

rs = rs +1

pjf = pjf +英语

ENDIF

IF rs<>0 THEN

REPLACE 平均分WITH pjf / rs

ENDIF

SKIP

ENDDO

SELECT 学号,平均分FROM score_fs ORDER BY 平均分DESC,学号;

INTO TABLE pjf

CLOSE ALL

SET SAFETY ON

SET TALK ON

***************************************

双击命令按钮cmdno（关闭），在Click事件代码中编写如下程序段：

****“关闭”命令按钮的Click事件代码****

ThisForm.Release

***************************************

保存表单，在命令窗口输入命令：DO FORM my_form。在运行的表单界面中单击“统计”命令按钮，系统将计算统计结果并排序。