首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
建立一个文件名和表单名均为myfom的表单文件,表单上有:表格控件grid1(RecordSourceType属性手工设置为“别名”),文本框控件Text1,命令按钮控件Command1(文本为“确定”)。 程序运行时在文本框中输入“部门名”,然后
建立一个文件名和表单名均为myfom的表单文件,表单上有:表格控件grid1(RecordSourceType属性手工设置为“别名”),文本框控件Text1,命令按钮控件Command1(文本为“确定”)。 程序运行时在文本框中输入“部门名”,然后
admin
2016-12-05
80
问题
建立一个文件名和表单名均为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
本试题收录于:
二级VF题库NCRE全国计算机二级分类
0
二级VF
NCRE全国计算机二级
相关试题推荐
职员.dbf:职员号C(3),姓名C(6),性别C(2),组号N(1),职务C(10)客户.dbf:客户号C(4),客户名C(36),地址C(36),所在城市C(36)订单.dbf:订单号C(4),客户名C(4),职员号C(3),
设有两个数据库表,父表和子表之间是一对多的联系,为控制父表和子表中数据的一致性,可以设置“参照完整性规则”,要求()。
结构化程序设计的3种结构是()。
指定在一个文小框中如何输入和显示数据的属性是()。
下列关于主索引和候选索引的叙述中,不正确的是()。
以下数据结构中,属于非线性数据结构的是()。
在表单设计中,用于控制只有两种取值的字段的控件,最好使用()。
(1)在考生文件夹下,打开DB数据库,完成如下基本操作。给表tabb增加一个字段,字段名为“日期”,数据类型为日期型。(2)使用SQL语句为表“金牌榜”增加一个字段“奖牌总数”(整数型),同时为该字段设置有效性规则:奖牌总数>=0。
随机试题
如图13—1所示,AB为半圆O的直径,C为半圆上一点,且弧AC为半圆的1/3,设扇形AOC,△COB,弓形BMC的面积分别为S1,S2,S3,则下列结论正确的是()。
《古诗十九首》最早见于()。
女,35岁,患慢性肝炎4年,要求给予避孕指导。应选择的避孕措施是
股静脉血栓形成时,下述哪项结局不易发生
(2016年)法院的下列哪些做法是符合审判制度基本原则的?()
上海证券代码和深圳证券代码都为一组()位数字。
()是指贷款人根据借款人的提款申请将贷款资金直接发放至借款人账户,并由借款人自主支付给符合合同约定用途的借款人交易对象。
下列各项中标点符号使用全都正确的是()
属于过度学习的复述策略是()
1.Cellphonesareverycommonamongpeoplenowadays.Theyhavelongbeenmorethanjusttelephones.Theycantakeandsendphot
最新回复
(
0
)