二、基本操作题

　　[操作步骤]

　　(1)利用“文件”菜单下的“打开”命令来打开考生文件夹

　　下的表单one，或使用命令“MODIFY FORM one”打开表单one。双击“显示”命令按钮，在其Click事件中输入代码：ThisForm.Text1.Value=year(date())保存并运行修改后的表单，查看运行结果。

　　(2)单击工具栏中的“打开”按钮，打开考生文件夹下的表单two，在“表单”菜单中选择“新建方法程序”命令，新建-个名为test的方法，在属性窗口中双击此方法，在弹出的窗口中编写用户自定义过程代码：ThisForm.Commandl.Enabled=.f.在表单设计器环境下双击“测试”命令按钮，编写Click事件代码：ThisForm.Test保存并运行修改后的表单，查看运行结果。

　　(3)单击工具栏中的“新建”按钮，在“新建”对话框中选择“报表”，单击“新建文件”按钮;选择“报表”菜单下的“快速报表”命令，在“打开”对话框中选择考生文件夹下的“课程表”，在“快速报表”对话框中单击“确定”按钮;单击工具栏中的“保存”按钮，将快速报表名保存为study_report.

　　(4)在命令窗口输入命令：alter table教师表alter职工号set check LEFT(职工号，3)=〝110〞按下回车键运行命令。

　　[易错误区]在Visual FoxPro中，新建的-个方法必须通过相应的语句调用才能使用。在第(2)小题中，按照题目要求新建test方法后，还需要在命令按钮的Click事件中对该方法进行调用。

　　三、简单应用题

　　(1)[操作步骤]

　　步骤1：单击工具栏中的“打开”按钮，打开考生文件夹下的数据库文件“课程管理”。

　　步骤2：单击工具栏中的“新建”按钮，新建-个程序，输入如下代码。

　　CREATE sql VIEW salary AS SELECT教师表.系号，AV

　　(教师表.工资)As平均工资FROM教师表;

　　GROUP BY教师表.系号0RDER BY 2 DESC

　　步骤3：保存程序为four.prg，并运行该程序。

　　(2)[操作步骤]

　　步骤1：单击工具栏中的“打开”按钮，打开考生文件夹下的表单six.SCX，“登录”按钮中的代码如下。

　　**********“登录”按钮的Click事件代码**********

　　USE用户表

　　GOTOP

　　flag=0

　　&&下面语句有错误

　　WHILE.NOT.EOF()

　　IF Alhrim(用户名)==Alltrim(Thisform.Tma1.Value)

　　IF Alltrim(口令)==Alhrim(Thisfonn.Texl2.Value)

　　WAIT”欢迎使用”WINDOW TIMEOUT 2

　　ELSE

　　WAIT”口令错误”WINDOW TIMEOUT 2

　　ENDIF

　　nag=l

　　EXIT

　　ENDIF

　　&&下面语句有错误

　　NEXT

　　ENDDO

　　&&下面语句有错误

　　CASE FLAG=0

　　WAIT”用户名错误”WINDOW TIMEOUT 2

　　ENDIF

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

　　步骤2：修改程序中的错误如下。

　　错误l：将“WHILE”改为“DO WHIIE”。

　　错误2：将“NEXT”改为“SKIP”。

　　错误3：将“CASE”改为“IF”。

　　步骤3：保存并运行表单。

　　四、综合应用题

　　[操作步骤]

　　步骤1：单击工具栏中的“新建”按钮，新建-个表单文件，通过表单控件工具栏向表单中添加两个复选框、-个选项组和两个命令按钮，并将“教师表”和“学院表”添加到表单的数据环境中。

　　步骤2：设置表单的Name属性为m#orm，Caption属性为“教师情况”;设置两个命令按钮的Caption属性分别为。生成表”和“退出”;设置两个复选框的Caption属性分别为。系名”和“工资”;两个单选按钮的Caption属性分别为“按职工号升序”和“按职工号降序”。

　　步骤3：双击“生成表”按钮，为“生成表”命令按钮编写

　　Click"事件代码。

　　*****“生成表”按钮的Click事件代码*****

　　a=ThisForm.Checkl.Value

　　b=ThisForm.Cheek2.Value

　　C=ThisFafm.Olptiongroupp1.Option1.Value

　　d=TlaisForm.0ptiongroup1.option2.Value

　　if a=l and b=l

　　if c=l

　　select职工号。姓名，系名，工资，课程号from教师表，

　　学院表;

　　Where教师表.系号=学院表.系号;

　　order by职工号;

　　into tablevtwo.dbf

　　else

　　if d=1

　　sdect职工号，姓名，系名，工资，课程号from教

　　师表，学院表;

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　曲inw n1ldC two.dbf

　　endif

　　endif

　　endif

　　if a=l andb=0

　　ifc=l

　　select职工号，姓名，系名，课程号from教师表，掣

　　院表;

　　whem教师表.系号=学院表.系号;

　　order by职工号;

　　into table one_x.dbf

　　else

　　ifd=l

　　select职工号，姓名，系名，课程号from教师表，

　　学院表;

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　into table one.x.dbf

　　endif

　　endif

　　endif

　　if a=O and b=1

　　ife=1

　　∞leet职工号，姓名，工资，课程号from教师表，掣

　　院表;

　　where教师表.系号=学院表.系号;

　　order by职工号;

　　into talde olle_xx.dbf

　　else

　　if d=1

　　select职工号，姓名，工资，课程号from教师表，

　　学院表：

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　into table one xx.dbf

　　endif

　　endif

　　cndif

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

　　步骤4：保存表单名为myform，按题目要求运行表单并执行相关操作。

　　相关推荐：

　　各地2016年全国计算机等级考试报名时间汇总

　　各地2016年计算机等级考试准考证打印时间汇总

　　各地2016年全国计算机等级考试费用汇总