三、
1. 建立表單
CREATE FORM form
2. 在“表單設計器”中,在“屬性”的Caption處輸入“錄取研究生”。
3. 在“表單設計器”中,添加兩個命令按鈕,在第1個命令按鈕“屬性”窗口的Caption處輸入“統(tǒng)計”,在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。
4. 在“表單設計器”中,雙擊“Command1”命令按鈕,在“Command1.Click”編輯窗口中輸入下列命令語句,接著關閉編輯窗口。
close all
CREATE TABLE test(考生號 C(4), 政治成績 N(5,1), 外語成績 N(5,1), 高數(shù)成績 N(5,1), 專業(yè)課成績 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 高數(shù)成績 with kscjb->成績
case kscjb->考試科目="104"
replace 專業(yè)課成績 with kscjb->成績
endcase
select kscjb
skip
enddo
close all
update test set 總成績=政治成績+外語成績+高數(shù)成績+專業(yè)課成績
SELECT Ksb.考生號, Ksb.姓名, Ksb.性別, Ksb.單位, Test.政治成績,;
Test.外語成績, Test.高數(shù)成績, Test.專業(yè)課成績, 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”,接著關閉編輯窗口。
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |