设计一个文件名和表单名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置完成。表单的标题为“外币市值情况”。表单中有一个“姓名”标签控件Label1、文本框控件Text1、一个表格控件Grid1和两个命令按钮“查询”(Command1)和“退出”(Command2),如下图所示。
运行表单时,在文本框Text1中输入姓名,然后单击“查询”命令按钮,则在表格控件Grid1中会显示出他所持有的全部“外币名称”及对应的“人民币数量”,并按人民币数量降序排序,同时将结果存储到自由表DBFA中。
注意:某种外币相当于人民币数量的计算公式:人民币数量=该种外币的“现钞买入价”*该种外币的“持有数量”。
单击“退出”按钮时关闭并释放表单。
运行该表单,查询“林诗因”的外币市值情况。
参考答案:
[微步骤]
步骤1:在命令窗口中输入“Create Form currency_form”并执行,新建一个表单。
步骤2:在属性窗口将表单的Name属性设置为“currency_form”、Caption属性设置为“外币市值情况”。然后向表单添加1个标签控件Label1(Caption属性为“姓名”)、1个文本框控件Text1、1个表格控件Grid1和两个命令按钮Command1(Caption属性为“查询”)与Command2(Caption属性为“退出”),如图6.8所示。
步骤3:添加表rate_exchange和表currency_s1到表单的数据环境中。
步骤4:双击“查询”按钮,编写其Click事件代码如下。
Select 外币名称,现钞买入价 * 持有数量 as 人民币数量;
From rate_exchange,currency_s1;
Where rate_exchange.外币代码=currency_s1.外币代码 and currency_s1 姓名=thisform.text1.value;
Order by 人民币数量 Desc;
Into dbf dbfa
thisform.arid1.recordsource="dbfa"
步骤5:双击“退出”按钮,编写其Click事件代码如下。
ThisForm.Release
步骤6:保存表单并运行。
解析:
本题关键字有:设置表单控件的属性,SQL语句中ORDER BY与INTO TABLE短语的使用。
表格控件的RecordSoirce属性用于表示表格控件所对应的数据来源,与其搭配使用的RecordSourceType属性用于表示数据来源的类型。