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

会计考友

　　第38套
/ \  Y. f+ w8 Z. @# @, n5 b- ^  ]　　一、
　　1. 打开并修改表单
& O. \/ g9 f6 Y; R+ k# c& i) c' ^  N　　MODIFY FORM one
　　2. 双击“显示”命令按钮，在Command1.Click中输入“Thisform.Text1.Value=Year(date())”。
　　1. 打开并修改表单
: _: n* \! b; d5 c　　MODIFY FORM two
' i) \' P! ^' t8 m　　2. 单击“表单\新建方法程序”菜单项，在“新建方法程序”对话框的“名称”输入“Test”，并单击添加按钮，接着单击“关闭”按钮来关闭对话框。
. i0 n' [/ E3 {　　3. 双击在Form1“属性”的test事件输入并“Thisform.command1.enabled=.F.”。
. t" |2 r2 m" @' Z; J　　1. 在命令窗口输入建立报表命令
　　CREATE REPORT study_report
　　2. 单击“报表\快速报表”菜单项，在“打开”对话框中选择表“课程表”并单击“确定”按钮。
0 Q% X. ]8 T$ t9 o% P6 j　　3. 在“快速报表”对话框中，单击“确定”按钮，在“报表设计器-study_report.frx”窗口中。
　　4. 关闭保存该报表。
4 _" D3 _8 T+ t) ~: d　　在文件three.prg中存放
& @5 h9 ~/ Q& Z# |' y2 @! n# u　　ALTER TABLE 教师表 ALTER 职工号 SET CHECK LEFT(职工号,3)="110"
( Y* N- P& U, g9 p- K& F　　二、
　　在文件four.prg中存放
8 I- x8 Y2 K& f' j　　OPEN DATABASE 课程管理
　　CREATE VIEW salary AS SELECT 系号,AVG(工资) AS 平均工资 FROM 教师表 GROUP BY 系号 ORDER BY 平均工资 DESC
　　第1处：DO WHILE not EOF()
4 y+ Z1 A- R' p0 ?; B6 A　　第2处：ENDIF
. a1 d2 u' |# {7 {" w　　第3处：SKIP
0 h0 b: f4 a9 X/ ?　　第4处：IF flag=0

会计考友

　三、　　1. 建立表单
　　CREATE FORM myform
　　2. 在“表单设计器”中，在“属性”的Caption处输入“教师情况”，在Name处输入“myform”。
; i& F& h( x1 F, ?* t8 A& i　　3. 在“表单设计器”中，添加两个复选框，在第1个复选框Check1“属性”的Caption处输入“系名”，在第2个复选框Check1“属性”的Caption处输入“工资”。
　　4. 在“表单设计器”中，添加一个选项按钮组Optiongroup1，并在选定它且单击右键，再选择“编辑”项，接着选定Option1，在其Caption处输入“按职工号升序”，接着选定Option2，在其Caption处输入“按职工号降序”，
# ~0 G4 p: v( e( Z$ |　　5. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“生成表”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
　　6. 双击“生成表”命令按钮，在“Command1.Click”编辑窗口中输入命令组，接着关闭编辑窗口。
, o4 @  p. R: d: I  E3 V　　IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 Then
' F, j8 u( J8 R# q. f% d　　IF ThisForm.Optiongroup1.Value=1 Then
6 W) J& M3 T6 Q! Z, ^　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE TWO
　　ELSE
　　SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE TWO
　　ENDIF
　　ELSE
　　IF ThisForm.Check1.Value=1 Then
　　IF ThisForm.Optiongroup1.Value=1 Then
  X% @, ~6 e9 P" g) L- K　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_X
- q* V0 E  u8 k　　ELSE
, W' [) @5 B5 m4 [+ ?' u　　SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_X
　　ENDIF
+ g' b. }/ X* b6 U　　ELSE
　　If ThisForm.Check2.Value=1 Then
! S  k2 `. l# P. H6 w, X  ], p2 m　　IF ThisForm.Optiongroup1.Value=1 Then
5 h$ {8 M4 a% `$ Y( w- L) |　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 INTO TABLE ONE_XX
　　ELSE
/ N2 P* S* b; N# m9 W　　SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号 = 学院表.系号 ORDER BY 职工号 DESC INTO TABLE ONE_XX
　　ENDIF
# f0 w* D" F( r9 N9 ]( x　　ENDIF
　　ENDIF
　　ENDIF
" Z/ v& w" d% |$ h　　7. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。