第9套

　　一、

　　OPEN DATABASE SELLDB

　　CREATE TABLE 客户表(客户号 C(4), 客户名 C(20), 销售金额 N(9,2))

　　1. 打开并修改数据库

　　MODIFY DATABASE selldb

　　2. 在“数据库设计器-Selldb”中，选择表“客户表”并单击鼠标右键，选择“修改”命令，在“表设计器-客户表.dbf”中，单击“索引”选项卡，然后输入索引名“客户号”，选择类型为“主索引”，表达式为“客户号”，最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。

　　ALTER TABLE 部门成本表 ADD COLUMN 备注 C(20)

　　1. 选择"客户表"为当前表

　　2. 在命令窗口输入建立报表命令

　　CREATE REPORT p_s

　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“客户表”并单击“确定”按钮。

　　3. 在“快速报表”对话框中，单击“确定”按钮。

　　4. 单击“报表\标题/总结”菜单项，在“标题/总结”对话框的“报表标题”框中的“标题带区”打勾，再单击“确定”按钮。

　　5. 如果“报表控件”工具栏没显示，则单击“显示\报表控件工具栏”菜单项，在“标题”区添加一个标签，用于存放标题“客户表一览表”。

　　6. 按“Ctrl+W”键，关闭保存该报表。

　　二、

　　文件three.prg正确的内容如下：

　　SELECT 销售表.部门号, 部门表.部门名, 销售表.商品号, 商品代码表.商品名,;

　　销售表.一季度利润+ 销售表.二季度利润+ 销售表.三季度利润+ 销售表.四季度利润 AS 年销售利润;

　　FROM (销售表 INNER JOIN 部门表 ON 销售表.部门号 = 部门表.部门号);

　　INNER JOIN 商品代码表 ;

　　ON 销售表.商品号 = 商品代码表.商品号 ;

　　WHERE 销售表.年度 = "2006";

　　ORDER BY 销售表.部门号, 5 DESC INTO TABLE TABA

　　文件four.prg正确的内容如下：

　　SELECT 销售表.部门号, 部门名, SUM(一季度利润+二季度利润+ 三季度利润+ 四季度利润) AS 年销售利润;

　　FROM 销售表 JOIN 部门表 ON 销售表.部门号 = 部门表.部门号;

　　WHERE 销售表.年度 = "2005";

　　GROUP BY 销售表.部门号 INTO TABLE LS

　　SELECT 部门表.部门号, 部门名, SUM(一季度利润) 一季度利润,SUM(二季度利润) 二季度利润,SUM(三季度利润) 三季度利润,SUM(四季度利润) 四季度利润;

　　FROM 部门表,销售表;

　　WHERE 部门表.部门号 = 销售表.部门号 AND 年度 = "2005";

　　GROUP BY 部门表.部门号;

　　ORDER BY 销售表.部门号 INTO TABLE account [NextPage]

　　三、

　　1. 新建表单

　　CREATE FORM xs

　　2. 在“表单设计器-xs.scx”中，在“属性”的Caption处输入“部门销售查询”。

　　3. 在“表单设计器-xs.scx”中，添加两个标签，在第1个标签Label1“属性”的Caption处输入“部门号”，在第2个标签Label1“属性”的Caption处输入“年度”。

　　4. 在“表单设计器-xs.scx”中，添加两个文本框(Text1和Text2)。

　　5. 在“表单设计器-xs.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。

　　6. 在“表单设计器-xs.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。

　　7. 在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。

　　X1 = ALLTRIM(ThisForm.Text1.Value)

　　X2 = ALLTRIM(ThisForm.Text2.Value)

　　ThisForm.Grid1.RecordSource = "SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;

　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;

　　WHERE 部门号 = X1 AND 年度 = X2 INTO CURSOR lsb"

　　SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;

　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;

　　WHERE 部门号 = X1 AND 年度 = X2 INTO TABLE xs&X1

　　8. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”语句，接着关闭编辑窗口。