第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
三、
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”语句，接着关闭编辑窗口。