建立一个文件名和表单名均为myform的表单文件,向表单中添加以下控件: (1)表格控件grid1,并将其RecordSourseType属性手工设置为"别名"。 (2)文本框控件Text1。 (3)命令按钮控件Command1,名称为"确定"。 程序运行

admin2013-08-29  25

问题 建立一个文件名和表单名均为myform的表单文件,向表单中添加以下控件:
(1)表格控件grid1,并将其RecordSourseType属性手工设置为"别名"。
(2)文本框控件Text1。
(3)命令按钮控件Command1,名称为"确定"。
程序运行时,在文本框中输入部门名,然后单击"确定"命令按钮,计算该部门各年度的销售额(合计)和利润(合计)(利润为"销售额-工资额"),按年度升序将结果(含年度、销售额和利润3个字段)保存在以部门名命名的表文件中,同时在Grid1控件中显示计算的结果。
要求:程序完成后必须运行,并分别计算"笔记本产品部"和"计算机产品部"按年度统计的销售额和利润情况。

选项

答案【操作步骤】 步骤1:通过"新建"对话框新建一个表单,文件名为myform。 步骤2:按题目的要求为表单添加一个表格控件、一个文本框控件和一个命令按钮控件,设置表单的Name属性为myform,表格控件的RowSourceType属性为"1-别名",RowSource属性为sell,命令按钮的Caption属性为"确定"。 步骤3:在"确定"按钮的Click事件代码中输入下列代码。 ******"确定"按钮的Click事件代码****** x="SELECT Sell.年度, sum(Sell.销售额) as 销售额,sum(Sell.销售额 - Sell.工资额) as 利润" x=x+" FROM test_db!sell where 部门号 in (select 部门号 FROM DEPT.DBF WHERE 部门名=’"+myform.text1.value+"’)" x=x+" GROUP BY Sell.年度" x=x+" ORDER BY Sell.年度" x=x+" INTO TABLE "+myform.text1.value &x myform.Grid1.recordsource=myform.text1.value ************************************ 步骤4:保存后,按题目要求输入相应各部门名运行此表单。

解析 新建表单,按要求添加控件并修改属性和方法,写入命令按钮的代码。
转载请注明原文地址:https://kaotiyun.com/show/XJop777K
0

最新回复(0)