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

会计考友

　　一、
　　1. 打开并修改表单
9 p" r% x+ }' n$ H　　MODIFY FORM one
( K' S3 f: a  G$ D9 ]　　2. 双击“显示”命令按钮，在Command1.Click中输入“Thisform.Text1.Value=Year(date())”。
& n' h/ `3 N8 _" K, w2 B. u　　1. 打开并修改表单
　　MODIFY FORM two
3 }% e6 i2 D9 q" I7 K( [　　2. 单击“表单\新建方法程序”菜单项，在“新建方法程序”对话框的“名称”输入“Test”，并单击添加按钮，接着单击“关闭”按钮来关闭对话框。
　　3. 双击在Form1“属性”的test事件输入并“Thisform.command1.enabled=.F.”。
　　1. 在命令窗口输入建立报表命令
5 X, H. n( H5 \1 M! g　　CREATE REPORT study_report
; X  F; S: [5 D% j4 B! y; z$ f　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“课程表”并单击“确定”按钮。
4 V0 S9 K0 [$ O% V& z! S+ q; l$ C; @/ w　　3. 在“快速报表”对话框中，单击“确定”按钮，在“报表设计器-study_report.frx”窗口中。
　　4. 关闭保存该报表。
　　在文件three.prg中存放
　　ALTER TABLE 教师表 ALTER 职工号 SET CHECK LEFT(职工号,3)="110"
0 F( n$ Q7 C7 ^2 Y" \　　二、
　　在文件four.prg中存放
　　OPEN DATABASE 课程管理
7 U5 n, c" Z9 `　　CREATE VIEW salary AS SELECT 系号,AVG(工资) AS 平均工资 FROM 教师表 GROUP BY 系号 ORDER BY 平均工资 DESC
　　第1处：DO WHILE not EOF()
　　第2处：ENDIF
　　第3处：SKIP

0 }! U3 o  M9 L5 y+ }; ]　　第4处：IF flag=0

会计考友

　　三、</p>　　1. 建立表单
  ^$ w" i: Q. T9 D! b1 f% b) }　　CREATE FORM myform
7 m0 C" f1 k7 I" ^6 @　　2. 在“表单设计器”中，在“属性”的Caption处输入“教师情况”，在Name处输入“myform”。
　　3. 在“表单设计器”中，添加两个复选框，在第1个复选框Check1“属性”的Caption处输入“系名”，在第2个复选框Check1“属性”的Caption处输入“工资”。
3 G) s5 a+ O3 U; l3 c8 s　　4. 在“表单设计器”中，添加一个选项按钮组Optiongroup1，并在选定它且单击右键，再选择“编辑”项，接着选定Option1，在其Caption处输入“按职工号升序”，接着选定Option2，在其Caption处输入“按职工号降序”，
　　5. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“生成表”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
7 x3 Z, N. |  C; I　　6. 双击“生成表”命令按钮，在“Command1.Click”编辑窗口中输入命令组，接着关闭编辑窗口。
　　IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 Then
　　IF ThisForm.Optiongroup1.Value=1 Then
9 ?6 f1 v% |! e3 n; ?+ `　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE TWO
/ D1 d7 R- o% m! i! C4 U1 L　　ELSE
　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE TWO
　　ENDIF
, P' Y- F* u$ o; s# h　　ELSE
9 N5 Z* A; F/ ^$ Y+ F　　IF ThisForm.Check1.Value=1 Then
　　IF ThisForm.Optiongroup1.Value=1 Then
* k3 e5 a3 J1 E# i; x; K　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_X
& M; w% Z7 G0 }3 r　　ELSE
　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_X
/ U# t* G5 z2 n! Z2 u( [! }1 z　　ENDIF
* }% X9 A" A1 D　　ELSE
8 P# A7 Q  _. @) H+ ~　　If ThisForm.Check2.Value=1 Then
" `% d4 ?  X5 n　　IF ThisForm.Optiongroup1.Value=1 Then
6 P. i1 m. a+ Q* b1 i　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_XX
( W* _% f& ]" M) l3 g" C3 T* O　　ELSE
　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_XX
4 m- C1 n8 y# C' ~5 Z- J　　ENDIF
　　ENDIF
, w) y& {* C% b" Z　　ENDIF
2 w7 ]0 q# U7 R' e; I　　ENDIF
　　7. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。