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

会计考友

　　一、
. M/ y/ K; b8 g5 D; S; h  P  F　　1. 打开并修改表单
　　MODIFY FORM one
　　2. 双击“显示”命令按钮，在Command1.Click中输入“Thisform.Text1.Value=Year(date())”。
　　1. 打开并修改表单
9 u3 Q% t- M  X) S9 r/ w　　MODIFY FORM two
$ D% t/ _. a! e. c, @　　2. 单击“表单\新建方法程序”菜单项，在“新建方法程序”对话框的“名称”输入“Test”，并单击添加按钮，接着单击“关闭”按钮来关闭对话框。
　　3. 双击在Form1“属性”的test事件输入并“Thisform.command1.enabled=.F.”。
; t% e& b/ [( X8 s3 a　　1. 在命令窗口输入建立报表命令
- F! Z5 q$ V9 ]- z  W* _　　CREATE REPORT study_report
4 U- r' F+ S; j5 {* P. o　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“课程表”并单击“确定”按钮。
2 o; U9 f" Y# u3 O: f! s　　3. 在“快速报表”对话框中，单击“确定”按钮，在“报表设计器-study_report.frx”窗口中。
& U' Z& v  x7 ~  Q　　4. 关闭保存该报表。
　　在文件three.prg中存放
　　ALTER TABLE 教师表 ALTER 职工号 SET CHECK LEFT(职工号,3)="110"
  i6 \: i& w7 m9 _  u. ?  o. [　　二、
+ E( [) p* j# f' A0 x* C/ \　　在文件four.prg中存放
  T# r9 ^' d9 O　　OPEN DATABASE 课程管理
: x* V$ d4 ], d$ o! h, s' a　　CREATE VIEW salary AS SELECT 系号,AVG(工资) AS 平均工资 FROM 教师表 GROUP BY 系号 ORDER BY 平均工资 DESC
　　第1处：DO WHILE not EOF()
　　第2处：ENDIF
　　第3处：SKIP
  q3 _5 r! R: \) [. [1 q$ e# P8 Z4 ^  ]
　　第4处：IF flag=0

会计考友

　　三、</p>　　1. 建立表单
　　CREATE FORM myform
　　2. 在“表单设计器”中，在“属性”的Caption处输入“教师情况”，在Name处输入“myform”。
　　3. 在“表单设计器”中，添加两个复选框，在第1个复选框Check1“属性”的Caption处输入“系名”，在第2个复选框Check1“属性”的Caption处输入“工资”。
　　4. 在“表单设计器”中，添加一个选项按钮组Optiongroup1，并在选定它且单击右键，再选择“编辑”项，接着选定Option1，在其Caption处输入“按职工号升序”，接着选定Option2，在其Caption处输入“按职工号降序”，
　　5. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“生成表”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
$ g# ^2 @/ E1 F! @　　6. 双击“生成表”命令按钮，在“Command1.Click”编辑窗口中输入命令组，接着关闭编辑窗口。
: x0 \! n/ X% t: j+ f) c( C* F　　IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 Then
　　IF ThisForm.Optiongroup1.Value=1 Then
; j9 {: H5 _+ m5 z; k　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE TWO
% V; {- F1 s- S$ l/ O/ U　　ELSE
　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE TWO
　　ENDIF
: M$ B2 b' v, K+ Q* P' a" V# B8 d- O　　ELSE
　　IF ThisForm.Check1.Value=1 Then
　　IF ThisForm.Optiongroup1.Value=1 Then
1 l% K# G8 m5 I) Z" u- Y  q2 ?　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_X
　　ELSE
　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_X
9 \7 e7 E: S' X6 e$ B7 r# V　　ENDIF
! Y. D! Z: H$ n; N0 W6 S9 j　　ELSE
5 G' S# P+ J, L4 r0 l1 w9 }8 I- P　　If ThisForm.Check2.Value=1 Then
, q- ]4 T; T' Z/ f! v2 d　　IF ThisForm.Optiongroup1.Value=1 Then
　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_XX
! T  v: Y" c4 ]8 i6 \6 T　　ELSE
　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_XX
　　ENDIF
　　ENDIF
0 I" g0 T9 H3 f; Y+ q6 \　　ENDIF
3 m  n3 ^# Z; x9 J/ t" A　　ENDIF
6 P5 w( Z/ k0 {# n  q　　7. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。