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

会计考友

第42套　　一、
3 B) c- J" U2 B/ J& Q　　命令方式：
　　ALTER TABLE cus ADD COLUMN 手机号 C(11)
6 b) _. S( J% d- r1 e9 ^　　ALTER TABLE CBC ALTER 数量 SET CHECK 数量>=1
　　ALTER TABLE CBC ALTER COLUMN 数量 SET DEFAULT 1
  o3 M& I1 ?! m# r/ N/ O　　ALTER TABLE CBC ALTER 单价 SET CHECK 单价>=1
+ }; H& I  O/ b% V$ j6 d9 e- n　　ALTER TABLE CBC ALTER COLUMN 单价 SET DEFAULT 1
9 B( d! C9 _& T% p1 [　　在“数据库设计器-cdb”中，选择表“cbc”并单击鼠标右键，选择“修改”命令，在“表设计器-cbc.dbf”中，单击“索引”选项卡，然后输入索引名“cbc”，选择类型为“主索引”，表达式为“会员号+商品号+DTOC(日期)”，最后单击“确定”按钮，再单击“是(Y)”就可以建立主索引了。
　　1. 在“数据库设计器-cdb”中，选择表“cbc”并单击鼠标右键，选择“修改”命令，在“表设计器-cbc.dbf”中，单击“索引”选项卡，然后输入索引名“会员号”，选择类型为“普通索引”，表达式为“会员号”，再移到下一项，输入索引名“商品号”，选择类型为“普通索引”，表达式为“商品号”，最后单击“确定”按钮，再单击“是(Y)”这样两个普通索引就建立了。
3 ~' l* b" X; x; ^- T& o* \　　2. 在“数据库设计器-cdb”中，然后选择“cus”表中主索引键“会员号”并按住不放，然后移动鼠标拖到“cbc”表中的索引键为“会员号”处，松开鼠标即可。
　　3. 在“数据库设计器-cdb”中，然后选择“comm”表中主索引键“商品号”并按住不放，然后移动鼠标拖到“cbc”表中的索引键为“商品号”处，松开鼠标即可。
, h, Y% ]! w! I/ m, I  g　　SELECT 会员号,会员名,单位 FROM CUS INTO TABLE NCUS
" m9 C& ]1 K# p  F& M  @/ w7 U5 w- e　　二、
6 H3 m4 I$ ~# Q( R' O- _　　1. 建立查询文件TWO
　　CREATE QUERY two
　　2. 在“打开”对话框中，选择表“cus.dbf”，再按“确定”按钮。
　　3. 在“添加表或视图”对话框中，选择表“cbc”，再按“添加”按钮，再选择表“comm”，再按“添加”按钮，接着按“关闭”按钮，关闭“添加表或视图”对话框。
　　4. 在“查询设计器-two”窗口中，单击“字段”选项卡，选择“Cus.会员号”、“Cus.会员名”、“Comm.商品名”，接着在“函数和表达式”输入“数量*单价 AS 金额”后，再单击“添加”按钮。
　　5. 在“查询设计器-two”窗口中，单击“筛选”选项卡，选择“表达式”操作，在“表达式生成器”对话框的表达式处输入“Year(Cbc.日期)”，在实例处输入“2003”。
' n. K7 a# F9 P　　6. 在“查询设计器-two”窗口中，单击“排序依据”选项卡，选择字段“Cus.会员号”并在“排序选项”中选中“升序”，再单击“添加”按钮。
0 W" |/ Z/ M, d6 v* V8 A　　7. 在“查询设计器”中，单击“查询\查询去向”菜单项，并显示“查询去向”对话框，在此对话框中，单击“表”按钮，接着在“表名”处输入表名“two”，单击“确定”按钮。
　　8. 最后保存并运行此查询。
  w. n& D# X; K$ _  t　　第3行：WHERE 性别 = "女" and 会员号 =ANY;
( k, F, Y/ b1 T' N　　第6行：WHERE 数量 >= 10;
　　第7行：GROUP BY 会员号 HAVING SUM(数量*单价) >= 5000);
$ o) y7 M" c# l( J9 m. N6 T　　三、
" |& g' K7 Q" u2 Q# L% T　　1. 建立表单
　　CREATE FORM form
　　2. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“统计”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
# U# A+ Y% v9 Q; P. C2 R! ]　　3. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入SQL的SELECT命令查询语句，接着关闭编辑窗口。
　　UPDATE CUS SET 会员类型="金卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) >= 15000)
　　UPDATE CUS SET 会员类型="银卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 15000 AND SUM(数量*单价)>= 10000)
　　UPDATE CUS SET 会员类型="铜卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 10000 AND SUM(数量*单价)>= 5000)
: N7 \) s7 A+ |4 T% h　　UPDATE CUS SET 会员类型="普通会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 5000)
　　4. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。