建立一个文件名和表单名均为myfom的表单文件,表单上有:表格控件grid1(RecordSourceType属性手工设置为“别名”),文本框控件Text1,命令按钮控件Command1(文本为“确定”)。 程序运行时在文本框中输入“部门名”,然后

admin2016-12-05  34

问题 建立一个文件名和表单名均为myfom的表单文件,表单上有:表格控件grid1(RecordSourceType属性手工设置为“别名”),文本框控件Text1,命令按钮控件Command1(文本为“确定”)。
    程序运行时在文本框中输入“部门名”,然后单击“确定”命令按钮计算该部门各年度的“销售额”(合计)和“利润”(合计)  (利润为“销售额-工资额”),按“年度”升序将结果(含“年度”、“销售额”和“利润”3个字段)保存在以“部门名”命名的dbf文件的同时,在Grid1控件中显示计算的结果。如图2—23所示。

    要求:程序完成后必须运行,并分别计算“笔记本产品部”和“计算机产品部”按年度的销售额和利润情况。

选项

答案【操作步骤】 步骤1:命令窗口执行:CREATE FORM myform,打开表单设计器新建表单。向表单添加一个文本框、一个表格和一个命令按钮控件。 步骤2:修改对象属性值,见表3—26。 [*] 步骤3:双击“确定”命令按钮(Command1)编写Click事件代码。 *****“确定”按钮的Click事件代码***** 1 BM=ALLTRIM(THISFORM.TEXT1.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:单击“常用”工具栏中的“运行”按钮运行表单,并生成“笔记本产品部”和“计算机产品部”两个表,将表单文件保存到考生文件夹下。

解析
转载请注明原文地址:https://kaotiyun.com/show/ZNIp777K
0

最新回复(0)