框(各控件的主要属性参照图形尺寸自 定)。其中: (1)表单的标题还要显示考生自己的和考号; (2)该程序的作用是输入月份值,显示对应季节的中文名字;
(3) 要求检查输入的数值是否在1~12区间, 如果超出, 要报错, 等待下一次正确录入, 不退出程序; (4)双击表单任意空白处,结束表单程序的运行。 参考答案 2. 1)SELECT TOP 1 XS.营销员编号,YX.,职务 ; FROM YX INNER JOIN XS ON XS.营销员编号=YX.营销员编号 ; ORDER BY 数量 DESC 2
)SELECT YX.,产品编号,数量*单价 AS 销售金额,销售月份; FROM YX INNER JOIN XS ON XS.营销员编号=YX.营销员编号 ; WHERE XS.营销员编号= ANY (SELE YX.营销员编号 FROM YX WHERE 职务='主管') 3)select 数量*单价 AS 销售金额,销售月份 ; from xs group by 销售月份 3. 界面设计,主要属性、事件代码: text1.valid n=val(thisform.text1.value) if n<0 or n>12 wait windows '月份错误!!!' return .f. endif thisform.label2.visible=.t. do case case n>=3 and n<=5 thisform.label2.caption='春' case n>=6 and n<=8 thisform.label2.caption='夏' case n>=9 and n<=11 thisform.label2.caption='秋' case n=12 or n=2 or n=1 thisform.label2.caption='冬'
endcase form.dblclick thisform.release 1、建立一商场消费数据库,文件名为:db812.DBC,并输入数据。 该数据库中包括两个表文件: 顾客信息表(GK.DBF)和顾客消费数据表(XF.DBF)。 其数据 形式如下: 顾客信息表(GK.DBF) 顾客编 号 085422 074561 081313 072453 085211 王小凤 孙丽 吴远平 程志龙 李娟娟 女 女 男 男 女 性别 员 .T. .F. .F. .T. .T. 号 74561 81313 85211 72453 81313 74561 85422 品 化妆品 西服 靴子 食品 食品 帽子 皮鞋 额 588.00 1280.00 566.00 218.80 78.00 128.00 358.00 分 是否会 顾客消费数据表(XF.DBF) 顾客编 购买商 消费金 消费积
要求:将数据库中的 GK.DBF(父表)和 XF.DBF(子表)以“顾客编号”建立一对多的永久 关系。 2、建立程序文件 COM-SQL812.PRG,要求将完成下列各小题任务的 VFP 数据表操作命令或 VFP-SQL 命令写在该程序文件中。在程序首行用注释语句注明考生和准考证号,并用注 释语句标注小题号。 (1)计算消费积分,并填入 XF.DBF 表中。(其中会员的积分为消费金额,不是会员的 积分为消费金额的一半); (2)输入任一顾客的并查询顾客的消费明细,包括购买商品、消费金额和消费积 分: (3)汇总每位顾客的消费积分,并按总积分从大到小的顺序显示。 3、表单设计。按以下要求设计程序界面,表单文件名为 FORM812.SCX 设计如图所示一个表单,包括2个标签,1个文本框(各控件的主要属性参照图形尺寸自 定)。其中:
(1)表单顶部的标签用采显示考生自己的和考号; (2)文本框 textl、text2和 text3的显示初值为0,text4最初显示为空白; (3)该表单运行后,可以在文本框 textl、text2、text3中分别输入三个数,左键单 击“比较”命令按钮,则在文本框 text4中显示较大的一个数。 4. 参考答案 2. 1)SELE 1 USE GK INDEX ON 顾客编号 TAG BH SELE 2 USE XF SET RELATION TO 顾客编号 INTO GK REPLACE 消费积分 WITH 消费金额/2 FOR NOT 是否
会员 REPLACE 消费积分 WITH 消费金额 FOR 是否会员 2)USE GK ACCEPT “输入顾客的:” TO XM LOCATE FOR =XM BH=顾客编号 USE XF
LIST 购买商品,消费金额,消费积分 FOR 顾客编号=BH 3)USE XF INDEX ON 顾客编号 TAG BH TOTAL ON 顾客编号 TO HZ USE HZ INDEX ON 消费积分 TAG JF DESC LIST 3.界面设计,主要属性、事件代码: “比较”命令按钮的“CLICK”事件: X=thisform.text1.value Y=THISFORM.text2.value