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

会计考友

　　第9套
2 m) e' S4 j2 K7 x/ N　　一、
; V9 U$ n  P3 v  K; J$ b　　OPEN DATABASE SELLDB
' o7 t2 U  y, j, V; e　　CREATE TABLE 客户表(客户号 C(4), 客户名 C(20), 销售金额 N(9,2))
　　1. 打开并修改数据库
; Y4 _+ T9 E( ~) t5 X! K　　MODIFY DATABASE selldb
3 K2 D5 [4 O& ^" w* W, ]　　2. 在“数据库设计器-Selldb”中，选择表“客户表”并单击鼠标右键，选择“修改”命令，在“表设计器-客户表.dbf”中，单击“索引”选项卡，然后输入索引名“客户号”，选择类型为“主索引”，表达式为“客户号”，最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
　　ALTER TABLE 部门成本表 ADD COLUMN 备注 C(20)
　　1. 选择"客户表"为当前表
% v0 S/ z- c* {　　2. 在命令窗口输入建立报表命令
2 Q9 L0 F. @6 V, h% b　　CREATE REPORT p_s
　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“客户表”并单击“确定”按钮。
% o2 h6 D% {2 }3 [8 S- x　　3. 在“快速报表”对话框中，单击“确定”按钮。
6 `; @; ^' H& I) p6 P: N& A* q" l　　4. 单击“报表\标题/总结”菜单项，在“标题/总结”对话框的“报表标题”框中的“标题带区”打勾，再单击“确定”按钮。
  A+ ^! C7 {  d# Q4 D% u1 }/ p　　5. 如果“报表控件”工具栏没显示，则单击“显示\报表控件工具栏”菜单项，在“标题”区添加一个标签，用于存放标题“客户表一览表”。
# p  @+ W# E) O& H8 t" x　　6. 按“Ctrl+W”键，关闭保存该报表。
" c9 p* a, m6 a! G* [　　二、
　　文件three.prg正确的内容如下：
/ a. a0 r: i/ E, B　　SELECT 销售表.部门号, 部门表.部门名, 销售表.商品号, 商品代码表.商品名,;
  H' u' d. n1 m　　销售表.一季度利润+ 销售表.二季度利润+ 销售表.三季度利润+ 销售表.四季度利润 AS 年销售利润;
- ~0 e0 Y0 V2 u2 {% P# q  @$ X　　FROM (销售表 INNER JOIN 部门表 ON 销售表.部门号 = 部门表.部门号);
* T$ B- ^$ L' |1 ~　　INNER JOIN 商品代码表 ;
　　ON 销售表.商品号 = 商品代码表.商品号 ;
# n8 S0 T( q" f7 \! `4 e+ D　　WHERE 销售表.年度 = "2006";
　　ORDER BY 销售表.部门号, 5 DESC INTO TABLE TABA
　　文件four.prg正确的内容如下：
　　SELECT 销售表.部门号, 部门名, SUM(一季度利润+二季度利润+ 三季度利润+ 四季度利润) AS 年销售利润;
　　FROM 销售表 JOIN 部门表 ON 销售表.部门号 = 部门表.部门号;
　　WHERE 销售表.年度 = "2005";
' `- a; @% j4 Q, D8 Y, M　　GROUP BY 销售表.部门号 INTO TABLE LS
/ u3 U2 M# R4 X1 z( y% X　　SELECT 部门表.部门号, 部门名, SUM(一季度利润) 一季度利润,SUM(二季度利润) 二季度利润,SUM(三季度利润) 三季度利润,SUM(四季度利润) 四季度利润;
　　FROM 部门表,销售表;
4 C+ h" |2 L. F: A( e8 s+ }- o　　WHERE 部门表.部门号 = 销售表.部门号 AND 年度 = "2005";
　　GROUP BY 部门表.部门号;
3 c: K7 h9 y2 A0 {  u$ R
) Y' ]/ v0 u% I& g, R9 t　　ORDER BY 销售表.部门号 INTO TABLE account

会计考友

</p>　三、
　　1. 新建表单
　　CREATE FORM xs
　　2. 在“表单设计器-xs.scx”中，在“属性”的Caption处输入“部门销售查询”。
# U  H7 {) k# t" B　　3. 在“表单设计器-xs.scx”中，添加两个标签，在第1个标签Label1“属性”的Caption处输入“部门号”，在第2个标签Label1“属性”的Caption处输入“年度”。
　　4. 在“表单设计器-xs.scx”中，添加两个文本框(Text1和Text2)。
　　5. 在“表单设计器-xs.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
" J7 Y. T+ M: x* s5 B　　6. 在“表单设计器-xs.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
　　7. 在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。
, n7 l* t/ ]# Z　　X1 = ALLTRIM(ThisForm.Text1.Value)
　　X2 = ALLTRIM(ThisForm.Text2.Value)
　　ThisForm.Grid1.RecordSource = "SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
7 o5 N0 b+ Q% h　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;
, L3 G  l. Z1 O: {. _　　WHERE 部门号 = X1 AND 年度 = X2 INTO CURSOR lsb"
7 W2 i5 p( [) ?* i6 i3 _5 @　　SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
　　FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;
- ^3 K. f3 @$ i6 R1 n( P　　WHERE 部门号 = X1 AND 年度 = X2 INTO TABLE xs&X1
# q7 w0 A9 \- q# T　　8. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”语句，接着关闭编辑窗口。