國家二級VFP題庫.doc

第01套 基本操作題（1）打開考生文件夾下的表單one（如圖所示），在打開命令按鈕的Click事件中增加一條語句，使表單運行時單擊該命令按鈕的結(jié)果是使關(guān)閉按鈕變?yōu)榭捎谩?* 請考生編寫程序 * thisform.Command2.enabled= .t.（2）打開考生文件夾下的表單two（如圖1所示），在選項組中增加一個單選鈕（如圖2所示）。注意：不能改變原先的名稱以及屬性值。 圖1 圖2（3）使用SQL語句為考生文件夾下的學院表增加一個字段教師人數(shù)（整數(shù)型），同時為該字段設(shè)置有效性規(guī)則：教師人數(shù)=0。請將該SQL語句存儲在three.prg文件中，否則不得分。 * 請考生編寫程序 * Alter table 學院表 add 教師人數(shù) I check 教師人數(shù)=0（4）使用SQL語句將考生文件夾下的自由表teacher中教師姓名為Jack的工資修改為8000元。 * 請考生編寫程序 * update teacher set 工資=8000 where 姓名=”Jack”第01套 簡單應(yīng)用題（1）考生文件夾下的程序文件five.prg的功能是：根據(jù)“教師表”計算每個系的教師人數(shù)并將相應(yīng)數(shù)據(jù)填入“學院表”，程序中有三處錯誤，請修改并執(zhí)行程序。只能修改標有錯誤的語句行，不能修改其他語句。&根據(jù)教師表計算每個系的教師人數(shù)并將數(shù)據(jù)填入學院表CLOSE DATAUSE 學院表GO TOPDO .NOT. EOF() &錯誤 * DO后加上 WHILE * xihao=系號 SELECT COUNT(*) FROM 教師表 WHERE 教師表.系號=xihao INTO A &錯誤 * INTO后加上ARRAY * REPLACE 教師人數(shù) WITH A1 NEXT &錯誤 * 把NEXT改為SKIP *ENDDO（2）在“課程管理”數(shù)據(jù)庫中使用視圖設(shè)計器建立視圖teacher_view，該視圖根據(jù)“教師表”和“課程表”建立，視圖包括姓名、工資、課程名和學時4個字段，視圖中的記錄按“工資”升序排列。第01套 綜合應(yīng)用題在考生文件夾下完成下列操作：（1）建立一個名為myform的表單，表單中包括一個列表框（List1）和兩個命令按鈕（Command1和Command2），Command1和Command2的標題分別為“生成表”和“退出”。（2）設(shè)置列表框的數(shù)據(jù)源（RowSource）和數(shù)據(jù)源類型（RowSourceType）兩個屬性，使用SQL語句根據(jù)“學院表”的“系名”字段的內(nèi)容在列表框中顯示“系名”（注意不要使用命令指定這兩個屬性）* 請考生設(shè)置RowSource屬性 * SELECT DISTINCT (系名) FROM 學院表（3）為“生成表”命令按鈕的單擊事件編寫程序。程序的功能是根據(jù)表單運行時列表框中選定的“系名”，將“教師表”表中相應(yīng)系的所有記錄存入以該系名命名的自由表中，自由表中包含“職工號”，“姓名”和“工資”三個字段，并按照“職工號”升序排列。* 請考生編寫Command1的程序 * SELECT 職工號,姓名,工資 FROM 教師表 WHERE 系號 IN(SELECT 系號 FROM 學院表 WHERE 系名=ThisForm.List1.Value) INTO TABLE (ThisForm.List1.Value)* 請考生編寫Command2的程序 * ThisForm.Release（4）運行表單，分別生成存有“計算機”、“通信”、“信息管理”系信息的3個表。第02套 基本操作題在考生文件夾下，打開“點菜”數(shù)據(jù)庫，完成如下操作：（1）打開“菜單表”，增加一個“廚師姓名”字段，字段類型為字符型，寬度為8；（2）使用報表向?qū)Ы⒁粋€簡單報表，要求選擇“菜單表”中所有字段（其他不做要求），并把報表保存為one.frx文件。（3）打開第2題建立的報表文件one，將報表標題修改為“菜單一覽表”，最后保存所做的修改。（4）使用SQL的SELECT語句，根據(jù)顧客點菜表和菜單表查詢顧客點單價大于等于40元菜的顧客號和菜編號、菜名、單價和數(shù)量，結(jié)果按菜編號降序排序并存儲到名為TABA的表中，將SQL的SELECT語句存儲到名為TWO.PRG的文件中。表TABA由SELECT語句自動建立。* 請考生編寫程序 * select 顧客號,菜單表.菜編號,菜名,單價,數(shù)量 from 顧客點菜表,菜單表 where 顧客點菜表.菜編號=菜單表.菜編號 and 單價=40 order by 菜單表.菜編號 Desc into table taba第02套 簡單應(yīng)用題（1）打開“點菜”數(shù)據(jù)庫，使用查詢設(shè)計器設(shè)計一個名稱為THREE的查詢，根據(jù)顧客點菜表和菜單表，查詢顧客的“顧客號”和“消費金額合計”，消費金額由數(shù)量*單價得出。查詢結(jié)果按“消費金額合計”降序排序，并將查詢結(jié)果輸出到表TABB中。表TABB的兩個字段名分別為：顧客號，消費金額合計。設(shè)計完成后，運行該查詢。（2）創(chuàng)建設(shè)計一個文件名為“testA”的表單，如下圖所示。表單的標題名為“選擇磁盤文件”，表單名為“Form1”。該表單完成如下功能：每當在選項按鈕組中選擇一個文件類型，列表框（List1）立即顯示該文件類型的文件目錄。列表框的列數(shù)為1?！巴顺觥卑粹o的功能是“關(guān)閉和釋放表單”。注意：選擇的三種文件類型分別為Word、Excel和TXT文本文件。* 請考生編寫Command1的Click事件程序 * ThisForm.Release* 請考生編寫Option1的Click事件程序 * ThisForm.List1.RowSource=”*.DOC”* 請考生編寫Option2的Click事件程序 * ThisForm.List1.RowSource=”*.XLS”* 請考生編寫Option3的Click事件程序 * ThisForm.List1.RowSource=”*.TXT”第02套 綜合應(yīng)用題在考生文件夾下，先打開“點菜”數(shù)據(jù)庫，然后創(chuàng)建設(shè)計一個標題名為“查詢”、文件名為“testB”的表單，如下圖所示。表單要求如下： 在該表單中設(shè)計一個標簽（Label1）、一個文本框（Text1）、一個表格（Grid1）和三個命令按鈕。 標簽對象標題文本為“結(jié)帳日期”（Label1）；文本框用于輸入結(jié)帳日期（Text1）；表格控件用于顯示結(jié)果。三個命令按鈕的功能如下：1）“查詢”（Command1）按鈕：在該按鈕的“Click”事件中使用SQL的SELECT命令查詢結(jié)帳日期等于從文本框輸入日期的顧客序號、顧客姓名、單位和消費金額，查詢結(jié)果按消費金額降序排序，并將查詢結(jié)果存儲到表TABC中。* 請考生編寫Command1的Click事件程序 * S=ThisForm.Text1.Text S=LEFT(S,4)+/+SUBSTR(S,5,2)+/+RIGHT(S,2)SELECT 顧客序號,顧客姓名,單位,消費金額 FROM 結(jié)帳表 WHERE 結(jié)帳日期=CTOD(S) ORDER BY 消費金額 DESC INTO TABLE TABC2）“顯示”（Command2）按鈕：在該按鈕的“Click”事件中使用命令將表TABC中記錄在表格控件中顯示。注意，表格控件中所有屬性和事件均為默認。* 請考生編寫Command2的Click事件程序 * ThisForm.Grid1.RecordSourceType=0 ThisForm.Grid1.RecordSource=tabc.dbf3）“退出”（Command3）按鈕的功能是“關(guān)閉和釋放表單”。表單設(shè)計完成后，運行該表單，查詢結(jié)帳日期等于2005-10-01的顧客信息。* 請考生編寫Command2的Click事件程序 * CLOSE DATABASE ThisForm.Release第03套 基本操作題在考生文件夾下有一表單文件myform.scx。打開該表單文件，然后在表單設(shè)計器環(huán)境下完成如下操作：（1）在屬性窗口中設(shè)置表單的有關(guān)屬性，使表單在打開時在VFP主窗口內(nèi)居中顯示。（2）在屬性窗口中設(shè)置表單的有關(guān)屬性，使表單內(nèi)的Center、East、South、West和North五個按鈕的大小都設(shè)置為寬60、高25。（3）將West、Center和East三個按鈕設(shè)置為頂邊對齊；將North、Center和South三個按鈕設(shè)置為左邊對齊。* 解題步驟提醒 * 格式（菜單）對齊頂邊（左邊）對齊（4）按Center、East、South、West、North的順序設(shè)置各按鈕的Tab鍵次序。第03套 簡單應(yīng)用題（1）利用查詢設(shè)計器創(chuàng)建查詢，從考生目錄下的xuesheng表和chengji表中查詢數(shù)學、英語和信息技術(shù)三門課中至少有一門課在90分以上（含）的學生記錄。查詢結(jié)果包含學號、姓名、數(shù)學、英語和信息技術(shù)5個字段；各記錄按學號降序排序；查詢?nèi)ハ驗楸韙able1。最后將查詢保存在query1.qpr文件中，并運行該查詢。（2）首先創(chuàng)建數(shù)據(jù)庫cj_m，并向其中添加xuesheng表和chengji表。然后在數(shù)據(jù)庫中創(chuàng)建視圖view1：利用該視圖只能查詢少數(shù)民族學生的英語成績；查詢結(jié)果包含學號、姓名、英語3個字段；各記錄按英語成績降序排序，若英語成績相同按學號升序排序。最后利用剛創(chuàng)建的視圖view1查詢視圖中的全部信息，并將查詢結(jié)果存放在表table2中。第03套 綜合應(yīng)用題利用表設(shè)計器在考生目錄下建立表table3，表結(jié)構(gòu)如下： 學號 字符型（10） 姓名 字符型（6） 課程名 字符型（8） 分數(shù) 數(shù)值型（5，1）然后編寫程序prog1.prg，從xuesheng表和chengji表中找出所有成績不及格（分數(shù)小于60）的學生信息（學號、姓名、課程名和分數(shù)），并把這些數(shù)據(jù)保存到表table3中（若一個學生有多門課程不及格，在表table3中就會有多條記錄）。表table3中的各記錄應(yīng)該按分數(shù)升序排序，分數(shù)相同則按學號降序排序。要求在程序中用SET RELATION命令建立chengji表和xuesheng表之間的關(guān)聯(lián)（同時用INDEX命令建立相關(guān)的索引），并通過DO WHILE循環(huán)語句實現(xiàn)規(guī)定的功能。最后運行程序。* 請考生編寫的程序 *CLOSE DATACREATE TABLE tmp(學號 C(10),姓名 C(6),課程名 C(8),分數(shù) N(5,1)USE xueshengGo topDo while .NOT. EOF( ) Xuehao=學號 SELECT 姓名,數(shù)學,英語,信息技術(shù) FROM xuesheng , chengji WHERE xuesheng.學號=chengji.學號 AND chengji.學號=xuehao INTO ARRAY A IF A(2)60INSERT INTO tmp VALUES(xuehao,A(1),數(shù)學,A(2) END IF IF A(3)60INSERT INTO tmp VALUES(xuehao,A(1),英語,A(3) END IF IF A(4)60INSERT INTO tmp VALUES(xuehao,A(1),信息技術(shù),A(4) END IF SKIPENDDODELETE FROM table3PACKCLOSE ALLUSE tmpSORT TO table3 ON 分數(shù) /A , 學號 /DDROP TABLE tmpCLOSE ALL第04套 基本操作題（1）建立一個“客戶”表，表結(jié)構(gòu)如下 客戶編號C（8） 客戶名稱C（8） 聯(lián)系地址C（30） 聯(lián)系電話C（11） 電子郵件C（20）（2）建立一個“客戶”數(shù)據(jù)庫，并將“客戶”表添加到該數(shù)據(jù)庫中（3）將如下記錄插入到“客戶”表中。 43100112 沈紅霞 浙江省杭州市83號信箱 44225601 唐毛毛 河北省唐山市100號信箱 50132900 劉云亭 北京市1010號信箱 30691008 吳敏霞 湖北省武漢市99號信箱 41229870 王衣夫 遼寧省鞍山市88號信箱（4）利用報表向?qū)梢粋€“客戶”（報表文件名）報表，報表的內(nèi)容包含客戶表的全部字段，報表的標題為“客戶”，其他各項取默認值。第04套 簡單應(yīng)用題在考生文件夾下有student（學生）、course（課程）和score（選課成績）3個表，用SQL語句完成如下操作：（1）查詢每門課程的最高分，要求得到的信息包括課程名稱和分數(shù)，將結(jié)果存儲到max.dbf表文件（字段名是課程名稱和分數(shù)），并將相應(yīng)的SQL語句存儲到命令文件one.prg。* 請考生編寫的程序 *SELECT 課程名稱,MAX(成績) AS 分數(shù) FROM COURSE,SCORE WHERE COURSE.課程編號=SCORE.課程編號 GROUP BY COURSE.課程編號 INTO TABLE max（2）查詢哪些課程有不及格的成績，將查詢到的課程名稱存入文本文件new.txt，并將相應(yīng)的SQL語句存儲到命令文件two.prg。* 請考生編寫的程序 *SELECT 課程名稱 FROM COURSE,SCORE WHERE COURSE.課程編號=SCORE.課程編號 AND SCORE.成績=0) REPLACE X1 WITH (B*(-1)+SQRT(B*B-4*A*C)/(2*A) REPLACE X2 WITH (B*(-1)-SQRT(B*B-4*A*C)/(2*A) ELSE REPLACE Note WITH “無實數(shù)解” ENDIF SKIPENDDOCLOSE ALL2、 打開文件名為testA 的表單，表單界面上有兩個命令按鈕，界面要求如下：(1) 設(shè)置兩個按鈕的高度為：30。寬度為：80?！巴顺觥卑粹o與“查詢”按鈕頂邊對齊。(2) “查詢”按鈕：在該按鈕的Click事件中使用SQL的SELECT命令從表TABA中查詢“無實數(shù)解”的記錄存儲到表TABD中。* 請考生編寫Command1的Click事件程序 * SELECT * FROM Taba WHERE X1 IS NULL INTO TABLE Tabd(3) “退出”按鈕：關(guān)閉并釋放表單。* 請考生編寫Command2的Click事件程序 * ThisForm.Release請按要求完成表單的設(shè)計，表單設(shè)計完成后，運行該表單，單擊“查詢”按鈕進行查詢。第08套 綜合應(yīng)用題在考生文件夾下，打開SDB數(shù)據(jù)庫，完成如下應(yīng)用：創(chuàng)建一個標題名為“查詢”、文件名為testb的表單，如下圖所示。表單要求如下：1、 為表單建立數(shù)據(jù)環(huán)境，向數(shù)據(jù)環(huán)境添加“學生表”。2、 表單啟動后自動居中。3、 在該表單中設(shè)計一個標簽、一個文本框、一個表格和兩個命令按鈕。（1） 標簽對象標題文本為“學生注冊日期”（Label1），文本框用于輸入學生注冊日期（Text1），表格控件用于顯示結(jié)果（Grid1）。（2） 命令按鈕的功能如下：“查詢”按鈕（Command1）：在該按鈕的Click事件中使用SQL的SELECT命令從“學生表”中查詢學生注冊日期等于文本框中指定的注冊日期的學生的學號、姓名、年齡、性別、班級和注冊日期，查詢結(jié)果按年齡降序排序，并將查詢結(jié)果在表格控件中顯示，同時將查詢結(jié)果存儲到表TABE中。注意：查詢結(jié)果存儲到表TABE之前，應(yīng)將表TABE中記錄清空。TABE表是已經(jīng)建立好的表，它與學生表的結(jié)構(gòu)不完全一樣，多兩個字段。* 請考生編寫Command1的Click事件程序 * ThisForm.Grid1.RecordSource=”SELECT * FROM 學生表 WHERE 注冊日期=ThisForm.Text1.Value ORDER BY 年齡 DESC INTO CURSOR tmp USE 學生表 DELETE FROM Tabe LOCATE FOR 注冊日期=ThisForm.Text1.Value DO WHILE .NOT. EOF( ) INSERT INTO Tabe(學號,姓名,年齡,性別,班級,注冊日期) VALUES(學生表.學號,學生表.姓名,學生表.年齡,學生表.性別,學生表.班級,學生表.注冊日期) CONTINUE ENDDO“退出”按鈕（Command2）：的功能是“關(guān)閉和釋放表單”。注意：表格控件的RecordSourceType屬性設(shè)置為“4-SQL說明”。表單設(shè)計完成后，運行該表單，查詢注冊日期等于2005年9月2日的學生信息。* 請考生編寫Command2的Click事件程序 * ThisForm.Release第09套 基本操作題在考生文件夾下完成如下操作：1、 創(chuàng)建一個名為“訂單管理”的數(shù)據(jù)庫，并將已有的employee、orders和customer三個表添加到該數(shù)據(jù)庫中。2、 為orders表建立一個普通索引，索引名為nf，索引表達式為“year（簽訂日期）”。3、 為employee表建立主索引，為orders建立普通索引，索引名和索引表達式均為“職員號”。通過“職員號”在employee表和orders表之間建立一個一對多的永久聯(lián)系。4、 為上述建立的聯(lián)系設(shè)置參照完整性約束：更新規(guī)則為“限制”，刪除規(guī)則為“級聯(lián)”，插入規(guī)則為“限制”。第09套 簡單應(yīng)用題在考生文件夾下，完成如下簡單應(yīng)用：1、 在考生文件夾下已有表單文件formone.scx，如下圖所示，其中包含一個列表框、一個表格和一個命令按鈕。請按下面要求完成相應(yīng)的操作（1） 在表單的數(shù)據(jù)環(huán)境中添加orders表。（2） 將列表框List1設(shè)置成多選，另外將其的RowSourceType屬性值設(shè)置為“8-結(jié)構(gòu)”、RowSource設(shè)置為orders。（3） 將表格Grid1的RecordSourceType的屬性值設(shè)置為“4-SQL說明”。（4） 修改“顯示”按鈕的Click事件代碼。當單擊該按鈕時，表格Grid1內(nèi)將顯示在列表框中所選orders表中指定字段的內(nèi)容。* 下面代碼的功能是根據(jù)用戶對列表框的選擇結(jié)果構(gòu)建字段列表，然后進一步構(gòu)建select語句并據(jù)此為表格的相關(guān)屬性設(shè)值。* 修改所有* FOUND *下面的一條語句。* 不能修改其他語句。不能增加語句，也不能刪除語句。s=f=.T.* FOUND *FOR i=1 TO thisform.List1.ColumnCount * 改為for i=1 to thisform.list1.listcount * IF thisform.List1.Selected(i) IF f* FOUND * s=thisform.List1.value * 改為s=thisform.list1.list(i) * f=.F. ELSE* FOUND * * 改為 s=s+,+thisform.list1.list(i) * s=s+thisform.List1.value ENDIF ENDIFENDFORst=select &s from orders into cursor tmpthisform.Grid1.RecordSource=st2、 利用查詢設(shè)計器創(chuàng)建查詢，從orders、employee和customer表中查詢2001年5月1日以后（含）所簽所有訂單的信息。查詢結(jié)果依次包含“訂單號”、“簽訂日期”、“金額”、“簽訂者”和“客戶名”五項內(nèi)容，其中“簽訂者”為簽訂訂單的職員姓名。各記錄按簽訂日期降序排序，簽訂日期相同按金額降序排序。查詢?nèi)ハ驗楸韙ableone。最后將查詢保存在queryone.qpr文件中，并運行該查詢。第09套 綜合應(yīng)用題在考生文件夾下完成如下操作在考生文件夾下創(chuàng)建一個頂層表單myform.scx（表單的標題為“考試”），然后創(chuàng)建并在表單中添加菜單（菜單的名稱為mymenu.mnx，菜單程序的名稱為mymenu.mpr）。效果如下圖所示。菜單命令“統(tǒng)計”和“退出”的訪問鍵分別為“T”和“R”，功能都通過執(zhí)行過程完成。菜單命令“統(tǒng)計”的功能是以客戶為單位、從customer和orders表中求出訂單金額的和。統(tǒng)計結(jié)果包含“客戶號”、“客戶名”和“合計”三項內(nèi)容，其中“合計”是指與某客戶所簽所有訂單金額的和。統(tǒng)計結(jié)果誚按“合計”降序排序，并存放在tabletwo表中。菜單命令“退出”的功能是釋放并關(guān)閉表單。最后，請運行表單并依次執(zhí)行其中的“統(tǒng)計”和“退出”菜單命令。* 請考生編寫統(tǒng)計的過程代碼 * SELECT customer.客戶號,客戶名,SUM(金額) AS 合計 FROM customer,orders WHERE orders.客戶號=customer.客戶號 GROUP BY customer.客戶號 ORDER BY 3 DESC INTO TABLE tabletwo* 請考生編寫退出的過程代碼 *Myform.Release* 請考生編輯表單Form1的load事件代碼 * Do mymenu.mpr WITH THIS,myMenu* 請考生編輯表單Form1的Destroy事件代碼 *CLOSE ALLRELEASE MENU myMenu EXTENDED第10套 基本操作題在考生文件夾下完成如下操作1、 創(chuàng)建一個名為“訂單管理”的數(shù)據(jù)庫，并將已有的employee和orders兩個表添加到該數(shù)據(jù)庫中。2、 為orders表建立一個普通索引，索引名為je，索引表達式為“金額”，降序索引。3、 在“訂單管理”的數(shù)據(jù)庫中新建一個名為customer的表，表結(jié)構(gòu)如下：客戶號 字符型（4）客戶名 字符型（36）地址 字符型（36）4、 通過“客戶號”分別為customer表建立主索引，為orders建立普通索引，索引名和索引表達式均為“客戶號”，通過“客戶號”為customer表和orders表之間建立一個一對多的永久聯(lián)系。第10套 簡單應(yīng)用題1、 在考生文件夾下已有表單文件formone.scx，如下圖所示，其中包含一個文本框、一個表格和兩個命令按鈕。請按下面要求完成相應(yīng)的操作：（1） 通過“屬性”窗口，將文本框Text1的Value屬性值設(shè)置為當前系統(tǒng)日期（日期型，不含時間）。（2） 通過“屬性”窗口，將表格Grid1的RecordResourceType屬性值設(shè)置為“4-SQL說明”。（3） 修改“確定”按鈕的Click事件代碼。當單擊該按鈕時，表格Grid1內(nèi)顯示指定日期以后（含）簽訂的訂單信息（包括“訂單號”、“簽訂日期”和“金額”等信息）。* 下面代碼的功能首先將年份設(shè)置為用4位數(shù)字表示，然后根據(jù)文本框Text1的值構(gòu)建SQL語句，并設(shè)置表格Grid1的相關(guān)屬性。* 修改所有* FOUND *下面的一條語句。* 不能修改其他語句。不能增加語句，也不能刪除語句。* FOUND * set century to 4 * 改為 set century on to 4 * FOUND * va=text1.value * 改為 va=thisform.text1.value *st=select 訂單號,簽訂日期,金額 from orders where 簽訂日期=va order by 簽訂日期 into cursor tmp* FOUND * this.grid1.RowdSource=st * 改為 thisform.grid1.recordsource=st *（4） 設(shè)置“關(guān)閉”按鈕的Click事件代碼。當單擊該按鈕時，將釋放并關(guān)閉表單。* 請考生編寫的程序 * ThisForm.Release2、 利用查詢設(shè)計