(vf考试国家试题库题目75.docVIP

第十五套 第一题：基本操作 在考生文件夹下，完成如下操作： 1．打开考生文件夹下的表单one，如下图所示，编写显示命令按钮的Click事件代码，使表单运行时单击该命令按钮则在Text1文本框中显示当前系统日期的年份(提示：通过设置文本框的Value属性实现，系统日期函数是date()，年份函数是year())。 2．打开考生文件夹下的表单two，如下图所示，选择表单菜单中的新建方法程序命令，在新建方法程序对话框中，为该表单新建一个test方法，然后双击表单，选择该方法编写代码，该方法的功能是使测试按钮变为不可用，即将该按钮的Enabled属性设置为．F.。 3．创建一个名为study_report的快速报表，报表包含表课程表中的所有字段。 4．为教师表的职工号字段增加有效性规则：职工号左边3位字符是110，表达式为：LEFT(职工号，3)＝110。 答案： 【解题思路】打开表单，在表单设计器环境下修改控件的相关属性，为命令按钮编写Click事件代码，在新建方法程序对话框中为表单新建方法；在报表设计器中创建快速报表；通过ALTER TABLE命令为字段增加有效性规则。 【操作步骤】 (1)利用文件菜单下的打开命令来打开表单one，或使用命令MODIFY FORM one打开表单one。在显示命令按钮的Click事件中输入代码： ThisForm.Text1.Value=year(date()) 保存并运行修改后的表单，查看运行结果。 (2)打开表单two，在表单菜单中选择新建方法程序命令，新建一个名为test的方法，在属性窗口中双击此方法，在弹出的窗口中编写用户自定义过程代码： ThisForm.Command1.Enabled=.f. 在表单设计器环境下双击测试命令按钮，编写Click事件代码： ThisForm.Test。 保存并运行修改后的表单，查看运行结果。 (3)创建一个快速报表(详细设计过程见图书对应位置)。预览报表，查看设计后的效果。 (4)在命令窗口输入命令： alter table 教师表 alter 职工号 set check LEFT(职工号,3)=110 按下回车键。 【易错误区】在Visual FoxPro中，新建的一个方法必须通过相应的语句调用才能使用。在第2小题中，按照题目要求新建test方法后，还需要在命令按钮的Click事件中对该方法进行调用。 第二题：简单应用 在考生文件夹下完成如下简单应用： 1．打开课程管理数据库，使用SQL语句建立一个视图salary，该视图包括系号和平均工资两个字段，并且按平均工资降序排列。将该SQL语句存储在four.prg文件中。 2．打开考生文件夹下的表单six，如下图所示，登录命令按钮的功能是：当用户输入用户名和口令以后，单击登录按钮时，程序在自由表用户表中进行查找，若找不到相应的用户名，则提示用户名错误，若用户名输入正确，而口令输入错误，则提示口令错误。修改登录命令按钮Click事件中标有错误的语句，使其能够正确运行。注意：不得做其他修改。 答案： 【解题思路】DO WHILE循环语句的格式是DO WHILE － ENDDO，而不是WHILE － ENDDO；在表中，使记录指针后移一位的命令是SKIP而不是NEXT；条件语句的格式应为IF － ENDIF，而不是CASE － ENDIF。 (1)【操作步骤】 步骤1：打开考生文件夹下的数据库文件课程管理。 步骤2：新建一个程序，输入如下代码。 CREATE sql VIEW salary AS SELECT 教师表.系号, AVG(教师表.工资) AS 平均工资 FROM 教师表; GROUP BY 教师表.系号 ORDER BY 2 DESC 步骤3：保存程序名为four.prg，并运行该程序。 (2)【操作步骤】 步骤1：打开考生文件夹下的表单six.scx，登录按钮中的代码如下。 **********登录按钮的Click事件代码********** USE 用户表 GO TOP flag=0 下面语句有错误 WHILE .NOT. EOF() IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value) IF Alltrim(口令)==Alltrim(Thisform.Text2.Value) WAIT 欢迎使用 WINDOW TIMEOUT 2 ELSE WAIT 口令错误 WINDOW TIMEOUT 2 ENDIF flag=1 EXIT ENDIF 下面语句有错