计算机等级考试二级VF题库75套上机试题(66)
一、 ALTER TABLE ksb ADD COLUMN 备注 C(30)ALTER TABLE kscjb ALTER 成绩 SET CHECK 成绩>=0 AND 成绩
计算机等级考试二级VF题库75套上机试题(66)
三、1. 建立表单
CREATE FORM form
2. 在“表单设计器”中，在“属性”的Caption处输入“录取研究生”。
3. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“统计”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。
4. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入下列命令语句，接着关闭编辑窗口。
close all
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
select 1
use kscjb
do while .not.eof()
select test
locate for 考生号=kscjb->考生号
if not found() then
append blank
replace 考生号 with kscjb->考生号
endif
do case
case kscjb->考试科目="101"
replace 政治成绩 with kscjb->成绩
case kscjb->考试科目="102"
replace 外语成绩 with kscjb->成绩
case kscjb->考试科目="103"
replace 高数成绩 with kscjb->成绩
case kscjb->考试科目="104"
replace 专业课成绩 with kscjb->成绩
endcase
select kscjb
skip
enddo
close all
update test set 总成绩=政治成绩+外语成绩+高数成绩+专业课成绩
SELECT Ksb.考生号, Ksb.姓名, Ksb.性别, Ksb.单位, Test.政治成绩,;
Test.外语成绩, Test.高数成绩, Test.专业课成绩, Test.总成绩;
FROM sdb!ksb INNER JOIN test ;
ON Ksb.考生号 = Test.考生号;
WHERE Test.总成绩 >= 330;
ORDER BY Test.总成绩 DESC INTO TABLE four
5. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。
页:
[1]