设计一个文件名和表单名均为rate的表单,表单的标题为“外汇汇率查询”,表单界面如图2—17所示,表单中有两个下拉列表框(Combo1和Combo2),这两个下拉列表框的数据源类型(RowSourceType属性)均为字段,且数据源(RowSource属性

admin2016-12-05  26

问题 设计一个文件名和表单名均为rate的表单,表单的标题为“外汇汇率查询”,表单界面如图2—17所示,表单中有两个下拉列表框(Combo1和Combo2),这两个下拉列表框的数据源类型(RowSourceType属性)均为字段,且数据源(RowSource属性)分别是外汇汇率表的“币种1”和“币种2”字段(不要给出表名前缀);另外有币种1(Label1)和币种2(Label2)两个标签以及两个命令按钮“查询”(Command1)和“退出”(Command2)。运行表单时,首先从两个下拉列表框选择币种,然后单击“查询”按钮用SQL语句从外汇汇率表中查询相应币种(匹配币种1和币种2)的信息,并将结果存储到表temp_rate中。
    单击“退出”按钮关闭表单。
    要求:在“币种1”中选择“澳元”,在“币种2”中选择“美元”,单击查询按钮生成temp_rate表。

选项

答案【操作步骤】 步骤1:命令窗口执行:OPEN DATABASE外汇,打开“外汇”数据库。 步骤2:命令窗口执行:CREATE FORM rate,打开表单设计器新建表单。 步骤3:右击表单选择【数据环境】打开表单数据环境,表单数据环境中右击选择【添加】,在“添加表或视图”对话框中双击“外汇汇率”表,将其添加到数据环境中。 步骤4:从“表单工具栏”中向表单添加两个标签、两个组合框和两个命令按钮。在“属性”面板的下拉框中选择表单对象,在“全部”选项卡中修改对象属性值,见表3—18。 [*] 步骤5:双击命令按钮,编写各个命令按钮的Click事件代码如下: *****“查询”按钮的Click事件代码***** 1 IF USED("外汇代码") 2 SELECT 外汇代码 3 ELSE 4 USE外汇代码 5 ENDIF 6 LOCATE FOR 外名称=THISFORM. COMBO1.VALUE 7 MM1=外币代码 8 LOCATE FOR 外币名称=THISFORM. COMBO2.VALUE 9 MM2=外币代码 10 SELECT * FROM RATE; 11 WHERE 币种 1 代码=MM1 AND 币种2代码 =MM2; 12 INTO TABLE temp_rate *****“退出”按钮的Click事件代码***** THISFORM.RELEASE 步骤6:单击“常用”工具栏中的“运行”按钮运行表单。在“币种1”中选择“澳元”,在“币种2”中,选择“美元”,单击“查询”按钮,生成temp_rate表。

解析
转载请注明原文地址:https://kaotiyun.com/show/gVIp777K
0

最新回复(0)