2010年全国计算机等级考试二级VFP习题及答案：第八章2

会计考友

　　多表操作程序设计题 　　操作步骤如下：
  ]( z5 H1 H' r% r/ P, M　　(1) 新建表单
+ u' G0 I, B" ^* ?" u　　(2) 按题目要求在表单中加入控件：
( h) c6 s) }2 T9 f) r　　命令按纽Command1、Command2;
　　标签 Label1、Label2、Label3;
　　组合框 Combo1;
6 S( F: C( j% j* l3 L6 H　　文本框 Text1、Text2、Text3;
　　容器 Container1, 并在容器 Container1 中加入文本框 Text1、Text2、Text3、Text4、Text5、Text6、Text7、 Text8、Text9、Text10。
　　(3) 数据环境设置：
; t# k& y% b  f　　将表文件“学生”、“课程”、“成绩”添加到数据环境中。
: b, \) c' r- o6 |9 h% r　　(4) 主要属性设置：
　　表单 Form1 的Caption 属性设置为 “学生成绩查询表单”
% o$ w" l+ I8 r7 A( n9 ?5 t5 T　　命令按纽Command1的Caption 属性设置为 “确定”
6 r* O% L! b" f$ L# E9 w, m　　命令按纽Command2的Caption 属性设置为 “退出”
　　标签Label1的Caption 属性设置为 “选择姓名”
2 m( }9 m; X5 I0 s) r1 ?2 e　　标签Label2的Caption 属性设置为 “学号”
$ b# W+ I2 Z- a　　标签Label3的Caption 属性设置为 “姓名”
　　组合框 Combo1的RowSourceType属性设置为 “6-字段”
: X: A% Y$ _% f) V, X　　组合框 Combo1的RowSource属性设置为 “学生.姓名”
　　(5) 主要事件代码
) j; @" Q: J, f# b2 q6 M2 @　　1. FORM1 INIT 事件代码:
! s( _4 R4 C/ j$ o: p3 Q/ m2 R; p4 E　　THISFORM.SETALL("Readonly",.T.,"Textbox")
　　FOR N=1 TO THISFORM.CONTAINER1.CONTROLCOUNT
* j" B1 \* @9 v- m% O, a  M8 [7 A1 U　　THISFORM.CONTAINER1.CONTROLS(N).VISIBLE=.F.
　　ENDFOR
　　2. COMMAND1 CLICK 事件代码:
, x& [& u  S6 K6 R4 m; H1 Y　　SELECT 学生
　　XH=学号
# v& u9 Q1 G3 D" N% Y4 |3 O# G$ N$ l　　XM=姓名
! Z( {+ }! R4 ]& y4 |( R　　THISFORM.TEXT1.VALUE=XH
　　THISFORM.TEXT2.VALUE=XM
　　FOR N=1 TO THISFORM.CONTAINER1.CONTROLCOUNT
& S7 H- h$ D: A+ \, ]　　THISFORM.CONTAINER1.CONTROLS(N).VALUE=""
- U, K( O" ]+ O, u7 \$ C　　THISFORM.CONTAINER1.CONTROLS(N).VISIBLE=.F.
# x- F/ t3 p" }% F2 i- e　　ENDFOR
　　S=0
# p# m. D! ?/ }0 f+ w5 Q　　L=1
7 J# o: O2 J. T! S　　SELECT 成绩
　　LOCATE FOR ALLTRIM(学号)=ALLTRIM(XH)
' f* g9 s' \+ {/ m　　DO WHILE ! EOF()
　　SELECT 课程
　　LOCATE FOR ALLTRIM(课程号)=ALLTRIM(成绩.课程号)
# K7 d8 y( m9 o/ Q　　KCM=课程名
　　SELECT 成绩
4 \" ^, c. {- y　　THISFORM.CONTAINER1.CONTROLS(L).VALUE=KCM+":"+STR(成绩,5,1)
7 Q$ |1 @* P1 X/ D　　THISFORM.CONTAINER1.CONTROLS(L).VISIBLE=.T.
3 ~! N  }, \; R" ?* _4 _9 }　　S=S+成绩
! N" P/ z  Y5 v4 a- q/ {/ _　　L=L+1
　　CONTINUE
) N4 u' m0 ^) O& d2 s+ N　　ENDDO
　　IF L>1
　　THISFORM.TEXT3.VALUE="该生的总平均成绩为:"+STR(S/(L-1),5,1)
0 r! n. L4 b* N: {, T4 Z　　ELSE
　　THISFORM.TEXT3.VALUE="该生没有选修课程!"
　　ENDIF
/ w/ }# l/ C' Z6 l* b　　SELECT 学生
　　THISFORM.REFRESH
3 g+ u9 g- k* P" O　　3. COMMAND2 CLICK 事件代码:
7 o& o1 s& U2 ]/ F' j: ~　　THISFORM.RELEASE
6 s+ X/ {. l1 ?- o, q" ~　　操作步骤如下：
' Z* o7 R; g6 D" r, d, }, Z　　(1) 新建表单
　　(2) 数据环境设置：
　　将表文件“学生”、“课程”、“成绩”添加到数据环境中。
　　(3) 按题目要求在表单中加入控件：
　　命令按纽组Commandgroup1;
　　从数据环境中将“学生”表的“姓名”字段、“课程”表的“课程名”字段、“成绩”表的“学号”字段、“成绩”表的“课程号”字段、“成绩”表的“成绩”字段分别拖入表单对应位置。
　　(4) 主要属性设置：
　　表单 Form1 的Caption 属性设置为 “学生成绩表编辑表单”
　　命令按纽组Commandgroup1的ButtonCount 属性设置为 “7”
　　(5) 主要事件代码：
& w7 P6 z. O. {1 h/ D- n- {! ?　　1. FORM1 INIT 事件代码:
　　SET SAFETY OFF
　　THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.
　　THISFORM.COMMANDGROUP1.COMMAND5.ENABLED=.F.
6 b& y  p% J7 T+ ^# I' [" ]9 V6 s　　C="添加删除退出表头前翻表尾后翻"
　　FOR N=1 TO THISFORM.COMMANDGROUP1.BUTTONCOUNT
( h! P: V- O/ y1 D9 H7 ^　　THISFORM.COMMANDGROUP1.BUTTONS(N).CAPTION=SUBSTR(C,4*(N-1)+1,4)
& r* {2 s3 n4 g3 I) E# P3 I　　ENDFOR
5 T6 w& O* c+ d" R! `* [6 Q) |# [　　SELECT 学生
3 m" g% Q; ?  E3 C0 C! P　　INDEX ON 学号 TO XHI
　　SELECT 课程
　　INDEX ON 课程号 TO KCI
　　SELECT 成绩
　　SET RELATION TO 学号 INTO 学生, 课程号 INTO 课程
　　THISFORM.REFRESH
　　2. COMMANDGROUP1 CLICK 事件代码:
　　SELECT 成绩
! n7 n  ?5 S9 m" l4 e　　DO CASE
: Y) ?: b, L8 V/ x2 K2 D- k: s5 K　　CASE THIS.VALUE=1
　　APPEND BLANK
　　CASE THIS.VALUE=2
+ y# o9 @$ ^1 E; E6 {　　DELETE
　　CASE THIS.VALUE=3
; }& a1 n5 |9 U  W# h5 _& ~* r  ?　　THISFORM.RELEASE
　　CASE THIS.VALUE=4
3 a2 W: ^% \6 X1 J% y) H; I! X　　GO TOP
$ G) [  W2 r6 X5 R0 n* x" F& }　　THIS.COMMAND4.ENABLED=.F.
9 v; Z/ m: B# s; \+ I5 y　　THIS.COMMAND5.ENABLED=.F.
8 N2 D- a3 X, I% I　　THIS.COMMAND6.ENABLED=.T.
　　THIS.COMMAND7.ENABLED=.T.
7 o4 w: _9 a7 ?0 j' n" k% g　　CASE THIS.VALUE=5
8 k5 u1 ^4 z) A  h$ p- I　　SKIP -1
　　IF BOF()
, h$ l. G# G; P- \7 J4 \　　THIS.COMMAND4.ENABLED=.F.
　　THIS.COMMAND5.ENABLED=.F.
　　ENDIF
　　THIS.COMMAND6.ENABLED=.T.
　　THIS.COMMAND7.ENABLED=.T.
　　CASE THIS.VALUE=6
# A( \& Y3 v/ G5 ~+ I5 L% P/ v0 m　　GO BOTTOM
　　THIS.COMMAND4.ENABLED=.T.
6 @$ q! H' Z: l+ _　　THIS.COMMAND5.ENABLED=.T.
; l8 t. ?& p1 A% `0 S　　THIS.COMMAND6.ENABLED=.F.
　　THIS.COMMAND7.ENABLED=.F.
/ z* a3 [1 F' I: e4 Q9 q1 x　　CASE THIS.VALUE=7
# |$ E+ H6 L" m# l/ `- h- f　　SKIP
　　IF EOF()
& G; d. ~' [1 G8 |3 u$ l! `0 G! l　　THIS.COMMAND6.ENABLED=.F.
　　THIS.COMMAND7.ENABLED=.F.
7 K; l& N5 K) x% d( J, n　　ENDIF
8 V* d7 _4 S. ]! t: A. |　　THIS.COMMAND4.ENABLED=.T.
　　THIS.COMMAND5.ENABLED=.T.
' p4 u( w3 |( w, K* `1 \, H　　ENDCASE
　　THISFORM.REFRESH