设计一个文件名和表单名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置完成。表单的标题为"外币市值情况"。表单中有一个"姓名"标签控件Label1、文本框控件Text1、一个表格控件Grid1和两个命令按钮"查询"(Co

admin2013-04-27  22

问题 设计一个文件名和表单名均为currency_form的表单,所有控件的属性必须在表单设计器的属性窗口中设置完成。表单的标题为"外币市值情况"。表单中有一个"姓名"标签控件Label1、文本框控件Text1、一个表格控件Grid1和两个命令按钮"查询"(Command1)和"退出"(Command2),如下图所示:
   
运行表单时,在文本框Text1中输入姓名,然后单击"查询"命令按钮,则在表格控件Grid1中会显示出他所持有的全部"外币名称"及对应的"人民币数量",并按人民币数量降序排序,同时将结果存储到自由表DBFA中。
注意,某种外币相当于人民币数量的计算公式:人民币数量=该种外币的"现钞买入价"*该种外币的"持有数量"。
单击"退出"按钮时关闭并释放表单。
运行该表单,查询"林诗因"的外币市值情况。

选项

答案【操作步骤】 步骤1:在命令窗口输入"Create Form currency_form",按下回车键新建一个表单。 步骤2:在属性窗口中修改表单的Name属性为currency_form,Caption属性为"外币市值情况"。在表单设计器中为表单添加一个标签控件Label1(Caption属性为"姓名"),一个文本框控件Text1,一个表格控件Grid1和两个命令按钮Command1(Caption属性为"查询")、Command2(Caption属性为"退出")。 步骤3:在表单空白处右击,在弹出的快捷菜单中选择"数据环境"命令,将表rate_exchange和currency_sl添加到表单的数据环境中。 步骤4:双击"查询"按钮,编写Click事件代码如下: ******查询按钮的Click事件代码******** select 外币名称,现钞买入价*持有数量 as 人民币数量; from rate_exchange,currency_sl; where rate_exchange.外币代码 = currency_sl.外币代码 and currency_sl.姓名 = thisform.text1.value; order by 人民币数量 desc; into dbf dbfa thisform.grid1.recordsource = "dbfa" ************************* 步骤5:双击"退出"按钮,编写Click事件代码如下: ThisForm.Release 步骤6:保存表单,并按题目要求运行表单。

解析
转载请注明原文地址:https://jikaoti.com/ti/GVZ0FFFM
0

最新回复(0)