计算机等级考试二级VFP上机试题及解题思路(35)

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

　　设计一个表单，所有控件的属性必须在表单设计器的属性窗口中设置，表单

　　文件名为"外汇浏览"，表单界面如下所示：

　　其中：

　　1. "输入姓名"为标签控件Label1;

　　2. 表单标题为"外汇查询";

　　3. 文本框的名称为Text1，用于输入要查询的姓名，如张三丰;

　　4. 表格控件的名称为Grid1，用于显示所查询人持有的外币名称和持有数量，RecordSourceType的属性为0(表);

　　5. "查询"命令按钮的名称为Command1，单击该按钮时在表格控件Grid1中按持有数量升序显示所查询人持有的外币名称和数量(如上图所示)，并将结果存

　　储在以姓名命名的DBF表文件中，如张三丰.DBF;

　　6. "退出"命令按钮的名称为Command2，单击该按钮时关闭表单。

　　完成以上表单设计后运行该表单，并分别查询"林诗因"、"张三丰"和"李寻欢"所持有的外币名称和持有数量。

　　本题主要考核点：

　　表单文件的创建、控件的属性的修改、SQL语句运用、表单的退出等知识点

　　本题解题思路：

　　操作过程：

　　①在命令窗口输入命令：CREATE FORM 外汇浏览，打开表单设计器窗口。

　　②在表格上添加各文本框、命令按钮、表格及相关的标签，并进行适当的布置和大小调整。

　　③设置各标签、命令按钮以及表单的Caption属性值。

　　④将表单的RecordSourceType属性值设置为"4-SQL说明"。

　　⑤设置"查询"按钮的Click事件代码：

　　SET TALK OFF

　　SET SAFETY OFF

　　a=ALLTRIM(THISFORM.text1.VALUE)

　　SELECT Rate_exchange.外币名称, Currency_sl.持有数量;

　　FROM 外汇管理!rate_exchange INNER JOIN 外汇管理!currency_sl;

　　ON Rate_exchange.外币代码 = Currency_sl.外币代码;

　　ORDER BY Currency_sl.持有数量;

　　WHERE Currency_sl.姓名=a;

　　INTO TABLE (a)

　　THISFORM.Grid1.RECORDSOURCE="(a)"

　　SET TALK ON

　　SET SAFETY ON

　　⑥设置"退出"按钮的Click事件代码：

　　THISFORM.RELEASE

　　⑦保存表单，关闭表单设计器窗口。