设计一个表单名和文件名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为:“外币市值情况”。表单中有两个文本框(textl和text2)和两个命令按钮:“查询” (commandl)与“退出”(comman

admin2017-03-29  48

问题 设计一个表单名和文件名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为:“外币市值情况”。表单中有两个文本框(textl和text2)和两个命令按钮:“查询”  (commandl)与“退出”(command2)。
运行表单时,在文本框textl中输入某人的姓名,然后单击“查询”,则text2中会显示出他所持有的全部外币相当于人民币的价值数量。注意:某种外币相当于人民币数量的计算公式:人民币价值数量=该种外币的“现钞买入价”*该种外币“持有数量”。
单击“退出”按钮时关闭表单。

选项

答案步骤1:在命令窗口执行命令: CREATE FORM CURRENCY_FORM,打开表单设计器新建表单。向表单添加两个文本框和两个命令按钮控件。 步骤2:在“属性”面板的下拉框中选择表单对象,在“全部”选项卡中修改对象属性值,见4—41。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。 各按钮代码如下: *****“查询”按钮的Click事件代码(以下SQL查询语句是通过查询设计器生成)***** NAME= ALLTRIM(THISFORM.TEXTl.VALUE) OPEN DATABASE RATE USE CURRENCY SL LOCATE FOR姓名=NAME SUMM=0 DO WHILE NOT EOF() SELECT现钞买入价FROM RATE EXCHANGE; WHERE RATE EXCHANGE.外币代码=CURRENCY SL.外币代码; INTO ARRAY A SUMM=SUMM+A[1]*CURRENCY SL.持确数量 CONTINUE ENDDO THISFORM. TEXT2.VALUE=SUMM *****“退出”按钮的Click事件代码***** THISFORM.RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,将表单文件保存到考生文件夹下。 表单的事件、方法和属性;程序基本结构;SQL简单查询。

解析 本大题考查了表单及控件的常用属性和方法的设置:程序的循环结构;SQL简单查询。
本题的重点是“查询”按钮click事件的编写。由于每个人可能持有多种外币,故应该将某人持有的不同种外币对应的人民币用SUM()函数求和。大致思想为:以currency_sl表为当前表,用locate for命令在该表中查找“姓名”与textl文本框中所输入姓名相同的记录,如果找到的话,就将currency_sl表和rate_exchange表做连接查询,从而求出该记录对应外币的“现钞买入价”,并将其存放到数组a中,然后通过公式求出人民币价值数量之和。在这里,当使用locate for命令查找时,使用了do while循环和continue命令,目的是在currency_sl表中查出所有与textl文本框中所输入姓名相同的记录,然后进行计算。
注意:SQL查询条件表示式中字符串定界符要与指定表格数据源使用的字符定界符不同。
转载请注明原文地址:https://kaotiyun.com/show/lYIp777K
0

最新回复(0)