2. 计算机
  3. 建立一个文件名和表单名均为myform的表单文件，表单上有：表格控件gridl(RecordSourceT’ype属性手工设置为“别名”)，文本框控件Textl，命令按钮控件Commandl(文本为“确定”)。 程序运行时在文本框中输入“部门名”，

建立一个文件名和表单名均为myform的表单文件，表单上有：表格控件gridl(RecordSourceT’ype属性手工设置为“别名”)，文本框控件Textl，命令按钮控件Commandl(文本为“确定”)。 程序运行时在文本框中输入“部门名”，

admin2014-11-30  79
问题 建立一个文件名和表单名均为myform的表单文件，表单上有：表格控件gridl(RecordSourceT’ype属性手工设置为“别名”)，文本框控件Textl，命令按钮控件Commandl(文本为“确定”)。
    程序运行时在文本框中输入“部门名”，然后单击“确定”命令按钮计算该部门各年度的“销售额”(合计)和“利润”(合计)(利润为“销售额-工资额”)，按“年度”升序将结果(含“年度”、“销售额”和P利润”3个字段)保存在以“部门名”命名的dbf文件的同时，在Gridl控件中显示计算的结果。如图3-23所示。

要求：程序完成后必须运行，并分别计算“笔记本产品部”和“计算机产品部”按年度的销售额和利润情况。
选项
答案步骤1：命令窗口执行：CREATE FORM mvform，打开表单设计器新建表单。向表单添加一个文本框、一个表格和一个命令按钮控件。 步骤2：修改对象属性值，见表4-29。 [*] 步骤3：双击“确定”命令按钮(Commandl)编写Click事件代码。 *****“确定”按钮的C1ick事件代码***** 1 BM=KLLTRIM(THISFORM．TEXTl．VALUE) 2 SELECT sell．年度，suM(sell．销售额) AS销售额，； 3 suM(Sell．销售额-Sell．工资额)AS利润； 4 FROM TEST DB!Dept INNER JOIN TEST_DB!Sell ； 5 ON Dept．部门号=sell．部门号； 6 WHERE Dept．部门名=BM； 7 GRouP BY sell．年度； 8 ORDER BY sell．年度； 9 INTO TABLE &BM 10 THISFORM．GRID1．RECORDSOURCE=BM 步骤4：单击“常用”工具栏中的“运行”按钮运行表单，并生成“笔记本产品部”和“计算机产品部”两个表，将表单文件保存到考生文件夹下。
解析 本题考查了表单及控件的常用属性和方法的设置；SQL分组与计算查询。
    由于本题限制了表格的数据源类型为“1-别名”，因此，可以先将查询结果输出到表中，然后再通过表格的Recordsource属性指定数据源，完成表格数据的显示。
    本题关键是SQL查询语句中怎样将文本框中显示的“部门名”命名为表名，解决此问题的方法就是先定义一个变量等于文本框中的数据，然后使用宏替换函数(＆)将变量值替换出来，替换出来的数据都是当前文本框显示的值。
    本题可利用SUM()函数进行计算，GROUP BY分组，ORDERBY排序，表Dept表和Sell表联接字段为“部门号”。
转载请注明原文地址:https://www.kaotiyun.com/show/jsEp777K
本试题收录于： 二级VF题库NCRE全国计算机二级分类
0

二级VF

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)