第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项组"控件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 转贴于：计算机二级考试_考试大

[1] [2] [3]