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

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

　　设计一个文件名和表单名均为myaccount的表单。表单的标题为

　　"外汇持有情况"。表单中有一个选项按钮组控件(myOption)、一个表格控件

　　(Grid1)以及两个命令按钮"查询"(Command1)和"退出"(Command2)。其中，选项

　　按钮组控件有两个按钮"现汇"(Option1)、"现钞"(Option2)。

　　运行表单时，首先在选项组控件中选择"现钞"或"现汇"，单击"查询"命令

　　按钮后，根据选项组控件的选择将"外汇账户"表的"现钞"或"现汇"(根据钞汇标

　　志字段确定)的情况显示在表格控件中。

　　单击"退出"按钮，关闭并释放表单。

　　注：在表单设计器中将表格控件Grid1的数据源类型设置为"SQL说明"。

　　本题主要考核点

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

　　本题解题思路：

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

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

　　相关控件的属性值如下：

　　对象 属性 属性值

　　Form1 Caption 外汇持有情况

　　选项组 Name myOption

　　ButtonCount 2

　　MyOption.option1 Caption 现汇

　　MyOption.option2 Caption 现钞

　　Command1 Caption 查询

　　Command2 Caption 退出

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

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额;

　　FROM 外汇账户;

　　WHERE 钞汇标志 = [现汇];

　　INTO CURSOR TEMP"

　　CASE THISFORM.myOption.VALUE=2

　　THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额;

　　FROM 外汇账户;

　　WHERE 钞汇标志 = [现钞];

　　INTO CURSOR TEMP"

　　ENDCASE

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

　　thisform.release