2011年计算机二级VFP上机考试冲刺模拟试题（9）

会计考友

　　第9套
9 e# Q! Q' D7 f7 O　　一、
6 r' ~" \0 c' v' [& l　　OPEN DATABASE SELLDB
; p+ A! g% v' D, ~　　CREATE TABLE 客户表(客户号 C(4), 客户名 C(20), 销售金额 N(9,2))
( e8 n) ^0 a6 r9 i9 b4 L" R) L　　1. 打开并修改数据库
　　MODIFY DATABASE selldb
) c$ ^6 f% `- \3 e  @　　2. 在“数据库设计器-Selldb”中，选择表“客户表”并单击鼠标右键，选择“修改”命令，在“表设计器-客户表.dbf”中，单击“索引”选项卡，然后输入索引名“客户号”，选择类型为“主索引”，表达式为“客户号”，最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
9 W( \7 }, ?7 Q2 u, {# ~2 ~　　ALTER TABLE 部门成本表 ADD COLUMN 备注 C(20)
　　1. 选择"客户表"为当前表
% @/ v+ E7 U5 U8 p　　2. 在命令窗口输入建立报表命令
" L) o8 Z, B! W, S  f* M　　CREATE REPORT p_s
3 e* H9 N. O" J9 r　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“客户表”并单击“确定”按钮。
　　3. 在“快速报表”对话框中，单击“确定”按钮。
　　4. 单击“报表\标题/总结”菜单项，在“标题/总结”对话框的“报表标题”框中的“标题带区”打勾，再单击“确定”按钮。
) p% }: q. o% [. L　　5. 如果“报表控件”工具栏没显示，则单击“显示\报表控件工具栏”菜单项，在“标题”区添加一个标签，用于存放标题“客户表一览表”。
! t" B% p1 i, y9 j. d: n; _　　6. 按“Ctrl+W”键，关闭保存该报表。
' m/ D/ l9 ?0 ?) V, c: i+ P1 f　　二、
% T  A( f* b% T/ k2 Q- b　　文件three.prg正确的内容如下：
　　SELECT 销售表.部门号, 部门表.部门名, 销售表.商品号, 商品代码表.商品名,;
　　销售表.一季度利润+ 销售表.二季度利润+ 销售表.三季度利润+ 销售表.四季度利润 AS 年销售利润;
　　FROM (销售表 INNER JOIN 部门表 ON 销售表.部门号 = 部门表.部门号);
) _# V  N- ~% i9 _: h　　INNER JOIN 商品代码表 ;
' A5 Z6 I, r, S% ^3 M" P% Z  T) z　　ON 销售表.商品号 = 商品代码表.商品号 ;
　　WHERE 销售表.年度 = "2006";
　　ORDER BY 销售表.部门号, 5 DESC INTO TABLE TABA
& e+ y. J% W4 H, P9 D$ R" @　　文件four.prg正确的内容如下：
8 ]$ Q/ o  ^2 F; u* N　　SELECT 销售表.部门号, 部门名, SUM(一季度利润+二季度利润+ 三季度利润+ 四季度利润) AS 年销售利润;
+ e" D! G) o$ m  s" d2 m　　FROM 销售表 JOIN 部门表 ON 销售表.部门号 = 部门表.部门号;
　　WHERE 销售表.年度 = "2005";
2 w# K+ H( [" t  y6 T( v8 _　　GROUP BY 销售表.部门号 INTO TABLE LS
) @) R4 B) _0 A# c/ B5 C　　SELECT 部门表.部门号, 部门名, SUM(一季度利润) 一季度利润,SUM(二季度利润) 二季度利润,SUM(三季度利润) 三季度利润,SUM(四季度利润) 四季度利润;
: S' Z* o2 F4 w! y+ a　　FROM 部门表,销售表;
+ C; h) C1 k9 r$ W　　WHERE 部门表.部门号 = 销售表.部门号 AND 年度 = "2005";
　　GROUP BY 部门表.部门号;
$ z7 B% n/ I8 W$ S$ i
　　ORDER BY 销售表.部门号 INTO TABLE account

会计考友

</p>　三、
9 T" i& U1 h8 k: _  Z　　1. 新建表单
8 Z3 J! {* h' O8 z$ t) E) L/ u) R　　CREATE FORM xs
　　2. 在“表单设计器-xs.scx”中，在“属性”的Caption处输入“部门销售查询”。
　　3. 在“表单设计器-xs.scx”中，添加两个标签，在第1个标签Label1“属性”的Caption处输入“部门号”，在第2个标签Label1“属性”的Caption处输入“年度”。
　　4. 在“表单设计器-xs.scx”中，添加两个文本框(Text1和Text2)。
  f4 S, ?" |- }. Y0 I5 U0 X　　5. 在“表单设计器-xs.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
　　6. 在“表单设计器-xs.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
　　7. 在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。
　　X1 = ALLTRIM(ThisForm.Text1.Value)
- p* ^/ p. h6 q; [" Y　　X2 = ALLTRIM(ThisForm.Text2.Value)
' @6 c+ J$ M1 r5 W/ E$ _3 `　　ThisForm.Grid1.RecordSource = "SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
- P7 z8 @! u1 A# q3 @/ {　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;
　　WHERE 部门号 = X1 AND 年度 = X2 INTO CURSOR lsb"
0 i$ P6 Q. N( n0 q　　SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
  ]! q( g- ]; b' ^1 I　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;
0 W- v! V. N1 a- o  A6 v: a5 [　　WHERE 部门号 = X1 AND 年度 = X2 INTO TABLE xs&X1
6 @) b8 l# f# X　　8. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”语句，接着关闭编辑窗口。