a我考网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 158|回复: 1

[考试试题] 计算机等级考试二级VF题库75套上机试题(9)

[复制链接]
发表于 2012-7-31 22:22:49 | 显示全部楼层 |阅读模式
第9套  一、5 l1 K/ Z1 E$ c1 @
  OPEN DATABASE SELLDB1 m* z/ O1 t* |) V  s% `0 g
  CREATE TABLE 客户表(客户号 C(4), 客户名 C(20), 销售金额 N(9,2))
9 A0 |' W7 U) n2 w# I  1. 打开并修改数据库- s) K$ c( w) U2 g+ U
  MODIFY DATABASE selldb5 p7 z+ W6 B  @& m
  2. 在“数据库设计器-Selldb”中,选择表“客户表”并单击鼠标右键,选择“修改”命令,在“表设计器-客户表.dbf”中,单击“索引”选项卡,然后输入索引名“客户号”,选择类型为“主索引”,表达式为“客户号”,最后单击“确定”按钮,再单击“是(Y)”就可以建立索引了。- D: r8 D& ^' [7 I# l( o2 B, S' K
  ALTER TABLE 部门成本表 ADD COLUMN 备注 C(20)
8 H4 r$ R8 W5 C. S* F9 K9 p  1. 选择"客户表"为当前表
  u6 y. }! [( \5 l# e- v  V  2. 在命令窗口输入建立报表命令* }5 f2 m: X5 q7 G. A' o
  CREATE REPORT p_s
2 z  L0 c9 l- ^' V  2. 单击“报表\快速报表”菜单项,在“打开”对话框中选择表“客户表”并单击“确定”按钮。
" P+ E* J1 z. d& R+ R  3. 在“快速报表”对话框中,单击“确定”按钮。
9 U, Q' g/ i) c, r( q  4. 单击“报表\标题/总结”菜单项,在“标题/总结”对话框的“报表标题”框中的“标题带区”打勾,再单击“确定”按钮。
2 R1 s7 A5 K/ l" \4 v1 ?  5. 如果“报表控件”工具栏没显示,则单击“显示\报表控件工具栏”菜单项,在“标题”区添加一个标签,用于存放标题“客户表一览表”。
4 F; B8 o" S% S2 W* K; B2 o7 c  6. 按“Ctrl+W”键,关闭保存该报表。
; ^2 g* a  [$ v+ _( o) ~  二、
% w% V/ B: C" s6 l4 l/ q" l  文件three.prg正确的内容如下:
9 g) C3 N. x) h2 X& u9 D6 l  SELECT 销售表.部门号, 部门表.部门名, 销售表.商品号, 商品代码表.商品名,;8 w/ T; T7 Z1 ^' Y3 `4 f' ~! O
  销售表.一季度利润+ 销售表.二季度利润+ 销售表.三季度利润+ 销售表.四季度利润 AS 年销售利润;
! p* ?* b- g6 {5 N  FROM (销售表 INNER JOIN 部门表 ON 销售表.部门号 = 部门表.部门号);: l" y5 B% g0 q4 q6 W
  INNER JOIN 商品代码表 ;* ?) f6 P1 @- H; N$ g
  ON 销售表.商品号 = 商品代码表.商品号 ;! _3 H5 J/ ]: l% ?
  WHERE 销售表.年度 = "2006";
* b, K# d6 ~9 v3 B. z0 A' r8 y3 m  ORDER BY 销售表.部门号, 5 DESC INTO TABLE TABA
- x8 h$ N  ^$ e7 Z% \9 \* \, o  文件four.prg正确的内容如下:! l2 N# y+ v  U
  SELECT 销售表.部门号, 部门名, SUM(一季度利润+二季度利润+ 三季度利润+ 四季度利润) AS 年销售利润;
& m5 \% m' K2 Y6 K  FROM 销售表 JOIN 部门表 ON 销售表.部门号 = 部门表.部门号;+ A) I! b, E4 T2 q1 ~
  WHERE 销售表.年度 = "2005";
  ^& }  j7 K8 u  GROUP BY 销售表.部门号 INTO TABLE LS! R8 q: K+ W, x
  SELECT 部门表.部门号, 部门名, SUM(一季度利润) 一季度利润,SUM(二季度利润) 二季度利润,SUM(三季度利润) 三季度利润,SUM(四季度利润) 四季度利润;
9 }9 Y  b( w7 j1 q  FROM 部门表,销售表;- R/ _- z4 u( T6 c' X5 p) V
  WHERE 部门表.部门号 = 销售表.部门号 AND 年度 = "2005";
+ M7 F3 J" ]/ I9 M2 z  GROUP BY 部门表.部门号;' @& C3 `& A( B1 V; `- r# D5 X6 z
  ORDER BY 销售表.部门号 INTO TABLE account
回复

使用道具 举报

 楼主| 发表于 2012-7-31 22:22:50 | 显示全部楼层

计算机等级考试二级VF题库75套上机试题(9)

三、  1. 新建表单
. v6 Q! p; s) |: ]  CREATE FORM xs3 `9 v5 [" S# C6 K: }. h
  2. 在“表单设计器-xs.scx”中,在“属性”的Caption处输入“部门销售查询”。2 x7 h1 [3 t4 y( `7 [. e( a, {0 ]5 ~
  3. 在“表单设计器-xs.scx”中,添加两个标签,在第1个标签Label1“属性”的Caption处输入“部门号”,在第2个标签Label1“属性”的Caption处输入“年度”。
/ L6 k1 q) O/ h6 I. ?7 c  4. 在“表单设计器-xs.scx”中,添加两个文本框(Text1和Text2)。
  W7 `/ }# K; k: n  5. 在“表单设计器-xs.scx”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
4 s% S3 h  X7 d! q2 }  6. 在“表单设计器-xs.scx”中,添加两个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入“查询”,在第2个命令按钮“属性”窗口的Caption处输入“退出”。6 S) L# [+ [8 f: K# `  z
  7. 在“表单设计器”中,双击“查询”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。, J/ r2 H3 X( C* C( {/ q
  X1 = ALLTRIM(ThisForm.Text1.Value)3 y; e9 L* y" d- g0 T) [
  X2 = ALLTRIM(ThisForm.Text2.Value)
$ p/ y8 f# v3 Z9 U) X( d  ThisForm.Grid1.RecordSource = "SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
% [. N- V8 c, J1 ^4 e: f4 ]/ E4 B" G  FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;7 @" i0 s+ H2 _/ Z
  WHERE 部门号 = X1 AND 年度 = X2 INTO CURSOR lsb"& O( A5 p8 g8 f: F. z3 q
  SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 ;
& X$ r5 q3 C0 x/ a$ g% o8 L  FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 ;7 ?+ [- `$ c* u9 p$ d& a; S5 Y
  WHERE 部门号 = X1 AND 年度 = X2 INTO TABLE xs&X1
5 S& W* k8 y+ [& q' o  8. 在“表单设计器”中,双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”语句,接着关闭编辑窗口。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Woexam.Com ( 湘ICP备18023104号 )

GMT+8, 2024-6-18 13:37 , Processed in 0.283630 second(s), 23 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表