2010年计算机等考二级VF上机冲刺模拟试题(35)

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

　　设计一个文件名和表单名均为myaccount的表单。表单的标题为"外汇持有情况"。表单中有一个选项按钮组控件(myOption)、一个表格控件(Grid1)以及两个命令按钮"查询"(Command1)和"退出"(Command2)。其中，选项按钮组控件有两个按钮"现汇"(Option1)、"现钞"(Option2)。

　　运行表单时，首先在选项组控件中选择"现钞"或"现汇"，单击"查询"命令按钮后，根据选项组控件的选择将"外汇账户"表的"现钞"或"现汇"(根据钞汇标志字段确定)的情况显示在表格控件中。

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

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

　　解答：

　　新建表单，保存，表单文件名为“myaccount”，表单的name属性也为“myaccount”，表单的Caption属性改为“外汇持有情况”，在表单上添加选项按钮组Optiongroup1,将其name属性改为“myOption”，用鼠标右键单击myOption，在快捷菜单中选择“生成器”，在生成器窗口中设置两个按钮，标准设置为"现汇"(Option1)、"现钞"(Option2)。添加表格控件，将其Recordsourcetype属性设为4;添加两个命令按钮，分别设置其Caption，如下图：

 

　　为“查询”按钮设置Click事件代码为：

　　if thisform.myoption.value=1

　　thisform.grid1.recordsource="sele * from 外汇账户 where 钞汇标志='现汇' into curs t1"

　　else

　　thisform.grid1.recordsource="sele * from 外汇账户 where 钞汇标志='现钞' into curs t2"

　　endif

　　为“退出”按钮设置Click事件代码为：

　　thisform.release

　　附：本题相关表