计算机等级考试二级VFP上机试题及解题思路(52)

　　三、综合应用(1小题，计30分)

　　建立一个表单，表单文件名和表单控件名均为myform_db，表单标题为

　　"数据浏览和维护"，表单样例如图所示。其它功能要求如下：

　　1. 用选项按钮组(Optiongroup1)控件选择职工表(employee)(Option1)

　　或订单表(orders)(Option2);(注意：括号使用全角符号)

　　2. 用复选框(Check1)控件确定显示的表是否需要存盘;

　　3. 单击"确定"(Command1)命令按钮，若"存盘"复选框被选中，则用SQL语句

　　将选项组指定的表的内容存入表temp中，否则用SQL语句显示该表的内容;

　　4. 单击"退出"(Command2)命令按钮，关闭并释放表单。

　　本题主要考核点

　　控件的属性的修改、SQL语句运用、表单的退出等知识点

　　本题解题思路：

　　第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮(系统将打开表单设计器);或直接在命令窗口中输入 crea form myform_a。

　　第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项组"控件optiongroup1，用类似的方法为表单再加入一个复选框check1和两个"命令按钮"控件command1和command2。

　　相关控件的属性值如下：

　　对象 属性 属性值

　　myform_db Name myform_db

　　myform_db Caption 数据浏览和维护

　　Optiongroup1.option1 Caption 职工表(employee)

　　Optiongroup1.option2 Caption 订单表(orders)

　　Check1 Caption 存盘

　　Command1 Caption 确定

　　Command2 Caption 退出

　　***********命令按钮command1(确定)的Click事件代码如下************

　　if thisform.check1.value=1

　　if thisform.optiongroup1.value=1

　　sele * from employee into table temp.dbf

　　else

　　sele * from orders into table temp.dbf

　　endif

　　else

　　if thisform.optiongroup1.value=1

　　sele * from employee

　　else

　　sele * from orders

　　endif

　　endif

　　***********命令按钮command2(退出)的Click事件代码如下************

　　thisform.release