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

会计考友

　一、　　ALTER TABLE ksb ADD COLUMN 备注 C(30)
, b" m. p& n( A* C! a
- v' O( l5 x: N5 j　　ALTER TABLE kscjb ALTER 成绩 SET CHECK 成绩>=0 AND 成绩

会计考友

三、
$ x$ E5 Z+ T! ?5 m　　1. 建立表单
　　CREATE FORM form
. I8 i* |$ r) z7 l! H2 s( L' q: R& l　　2. 在“表单设计器”中，在“属性”的Caption处输入“录取研究生”。
. \) W6 l( u5 l3 n' B( b　　3. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“统计”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
' A) U1 K' c( a1 f/ E& |　　4. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入下列命令语句，接着关闭编辑窗口。
- @, w9 D, x! ]" Q　　close all
5 ^$ ^0 f9 v' N( F　　CREATE TABLE test(考生号 C(4), 政治成绩 N(5,1), 外语成绩 N(5,1), 高数成绩 N(5,1), 专业课成绩 N(5,1), 总成绩 N(5,1))
　　use
　　select 2
　　use test
, v* N6 [! q1 t. m7 U　　select 1
　　use kscjb
　　do while .not.eof()
/ P2 w; }0 ]% J* ~. M　　select test
( D+ |$ M) F* A; G　　locate for 考生号=kscjb->考生号
　　if not found() then
$ T& }6 H& k0 d: q　　append blank
4 \( ~0 Y0 e, |" r4 e! }3 n+ ]　　replace 考生号 with kscjb->考生号
# Y/ w7 Q* D' t: p7 s　　endif
　　do case
8 L+ f& A. h1 v: h3 X1 a3 K6 N/ }　　case kscjb->考试科目="101"
　　replace 政治成绩 with kscjb->成绩
% N, U3 S0 b" r8 ^7 ]( c1 U　　case kscjb->考试科目="102"
6 J. o6 z+ |& s+ \　　replace 外语成绩 with kscjb->成绩
　　case kscjb->考试科目="103"
　　replace 高数成绩 with kscjb->成绩
/ M  N' F0 q4 E3 `! y, l　　case kscjb->考试科目="104"
2 C9 G  C; z$ B) d; c2 }1 s　　replace 专业课成绩 with kscjb->成绩
) |$ F6 Z+ L7 _( N　　endcase
( X; f0 l4 f' }. i" u　　select kscjb
　　skip
　　enddo
7 x0 O4 f; x2 `) B　　close all
6 F* u, v& D3 D7 s6 G: X) q/ L) A+ [　　update test set 总成绩=政治成绩+外语成绩+高数成绩+专业课成绩
　　SELECT Ksb.考生号, Ksb.姓名, Ksb.性别, Ksb.单位, Test.政治成绩,;
: p) I2 b! A. E3 K　　Test.外语成绩, Test.高数成绩, Test.专业课成绩, Test.总成绩;
　　FROM sdb!ksb INNER JOIN test ;
　　ON Ksb.考生号 = Test.考生号;
　　WHERE Test.总成绩 >= 330;
　　ORDER BY Test.总成绩 DESC INTO TABLE four
; ]. m7 {; t' U4 I/ {- l　　5. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。