計(jì)算機(jī)等級(jí)考試二級(jí)VF題庫(kù)75套上機(jī)試題(66)

        三、

　　1. 建立表單

　　CREATE FORM form

　　2. 在“表單設(shè)計(jì)器”中，在“屬性”的Caption處輸入“錄取研究生”。

　　3. 在“表單設(shè)計(jì)器”中，添加兩個(gè)命令按鈕，在第1個(gè)命令按鈕“屬性”窗口的Caption處輸入“統(tǒng)計(jì)”，在第2個(gè)命令按鈕“屬性”窗口的Caption處輸入“退出”。

　　4. 在“表單設(shè)計(jì)器”中，雙擊“Command1”命令按鈕，在“Command1.Click”編輯窗口中輸入下列命令語(yǔ)句，接著關(guān)閉編輯窗口。

　　close all

　　CREATE TABLE test(考生號(hào) C(4), 政治成績(jī) N(5,1), 外語(yǔ)成績(jī) N(5,1), 高數(shù)成績(jī) N(5,1), 專業(yè)課成績(jī) N(5,1), 總成績(jī) N(5,1))

　　use

　　select 2

　　use test

　　select 1

　　use kscjb

　　do while .not.eof()

　　select test

　　locate for 考生號(hào)=kscjb->考生號(hào)

　　if not found() then

　　append blank

　　replace 考生號(hào) with kscjb->考生號(hào)

　　endif

　　do case

　　case kscjb->考試科目="101"

　　replace 政治成績(jī) with kscjb->成績(jī)

　　case kscjb->考試科目="102"

　　replace 外語(yǔ)成績(jī) with kscjb->成績(jī)

　　case kscjb->考試科目="103"

　　replace 高數(shù)成績(jī) with kscjb->成績(jī)

　　case kscjb->考試科目="104"

　　replace 專業(yè)課成績(jī) with kscjb->成績(jī)

　　endcase

　　select kscjb

　　skip

　　enddo

　　close all

　　update test set 總成績(jī)=政治成績(jī)+外語(yǔ)成績(jī)+高數(shù)成績(jī)+專業(yè)課成績(jī)

　　SELECT Ksb.考生號(hào), Ksb.姓名, Ksb.性別, Ksb.單位, Test.政治成績(jī),;

　　Test.外語(yǔ)成績(jī), Test.高數(shù)成績(jī), Test.專業(yè)課成績(jī), Test.總成績(jī);

　　FROM sdb!ksb INNER JOIN test ;

　　ON Ksb.考生號(hào) = Test.考生號(hào);

　　WHERE Test.總成績(jī) >= 330;

　　ORDER BY Test.總成績(jī) DESC INTO TABLE four

　　5. 在“表單設(shè)計(jì)器”中，雙擊“Command2”命令按鈕，在“Command2.Click”編輯窗口中輸入“Release Thisform”，接著關(guān)閉編輯窗口。

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP復(fù)習(xí)指導(dǎo)匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP基礎(chǔ)教程匯總