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

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

　　设计一个表单名和文件名均为currency_form的表单，所有控件的属性必

　　须在表单设计器的属性窗口中设置。表单的标题为："外币市值情况"。表单中

　　有两个文本框(text1和text2)和两个命令按钮"查询"(command1)和"退出"

　　(command2)。

　　运行表单时，在文本框text1中输入某人的姓名，然后单击"查询"，则text2

　　中会显示出他所持有的全部外币相当于人民币的价值数量。注意：某种外币相当

　　于人民币数量的计算公式:人民币价值数量=该种外币的"现钞买入价"* 该种外币

　　"持有数量"。

　　单击"退出"按钮时关闭表单。

　　本题主要考核点

　　控件的属性的修改、如何用SQL语句进行记录的更新、表单的退出等知识点

　　本题解题思路：

　　第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮

　　第二步：系统打开表单设计器;点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"中，选中"文本框"，在表单设计器中拖动鼠标，这样在表单上得到一个"文本框"控件text1，用同样的方法再加入一个"文本框"控件text2;点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"中，选中"命令按钮"，在表单设计器中拖动鼠标，这样在表单上得到一个"命令按钮"对象command1，设置它的caption属性为"查询"，双击command1在打开的代码编辑器窗口中输入以下代码：

　　SELECT Rate_exchange.现钞买入价 * Currency_sl.持有数量;

　　FROM Currency_sl INNER JOIN Rate_exchange;

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

　　WHERE Currency_sl.姓名 = ALLTRIM(THISFORM.text1.VALUE);

　　GROUP BY Currency_sl.姓名;

　　INTO ARRAY sl

　　THISFORM.text2.VALUE=sl

　　用同样的方法，在表单上放置command2对象，它的Click的事件代码为：THISFROM.RELEASE。

　　第三步：以文件名currency_form保存表单，并且保存在考生文件夹下。