2011春二級Visual FoxPro上機試卷1

    (本試卷完成時間為70分鐘)

  考試說明: 

  1.首先登錄考生信息,然后啟動VFP并在命令窗口中執行下列命令,以設置默認的工作

目錄:

    SET DEFA TO T:

  2.除非題目要求,否則不要對T盤上的文件進行重命名、復制和刪除操作。

  一、項目、數據庫和表操作(12分)

  打開T盤根目錄中的項目文件JXGL,在該項目中已有一數據庫JXSJ。

  1.在JXSJ數據庫中按下表所示的結構創建AB.DBF表,并按表格中的要求設置相關

屬性。

(1)設置表的注釋:蔬菜批發價格表;

(2)設置RQ字段的默認值:當前系統日期;

(3)設置單位字段的顯示類:選項按鈕組;

(4)設置表的更新觸發器:日期字段的值等于當前系統日期時可以更新記錄;

(5)創建普通索引,索引名為abcd,要求按日期排序,日期相同時按單價排序。

2.在AB表中輸入如下記錄:

    3.為項目設置項目信息:項目的圖標為PC.ICO文件。

    4.Kc表已存在主索引KCDM,索引表達式為KCDM;CJ表已存在普通索引KCDM,索引

表達式為KCDM。以KC表為主表、CJ表為子表,根據KCDM建立永久關系,并設置兩表之間

的參照完整性:刪除級聯、插入限制。

  二、設計查詢(8分)

  已知自由表圖書表(TSB)含有分類號(flh,C)、冊數(CS,N)、價格(jg,N)等字段。按如下要求修改JXGL項目中的查詢CHAXUN:

  基于TSB表查詢圖書類別、藏書冊數等信息。要求:查詢輸出字段為圖書類別、藏書冊書和平均單價;查詢結果按藏書冊數降序排序,相同時按平均單價升序排序:輸出去向為文本文件TEMP。

    注:圖書類別為flh中"."前的內容(可用LEFT(..., AT(".",...))形式的表達式求得),藏書冊數為同一圖書類別冊數之和。

  三、設計菜單(5分)

  JXGL項目中已存在菜單MENU,其中已定義了"文件"菜單欄及其

中的"退出菜單,,項。按如下要求設計菜單,菜單運行后的效果如圖1

所示。

    1.在"文件"菜單欄右側創建"圖書管理系統"菜單欄。

    2.為"圖書管理系統"菜單欄創建子菜單"預約"、"借書"和"還書"。

    3.在菜單項"預約"、"借書"和"還書"之間插入分組線。

    4.為"借書"菜單項設置命令代碼:DO FORM js。

    5.在"文件"菜單欄下插入系統菜單"全部關閉"。

 四、設計表單(10分)

表單F102F用來按小組查看世界杯球隊信息。按下列要求修改表單,修改后表單運行如圖2所示

   1.設計表格Grid1的數據只讀,無滾動條,刪除"組別"列

   2.在"組別"標簽下方添加一個列表框控件List1(用來選擇組別),設置其數據源類型為"3-SQL語句",數據源為"SELECT DIST 組別 FROM fifa INTO CURSOR tmp"。

   3.編寫表單的Load事件代碼,實現:定義一個全局變量sGroup,并賦初值為字符"A"。

   4.世界杯球隊信息存儲在自由表fifa中,表結構如下:

組別(C,1)、編號(C,1)、國旗(G)、國家(C,12)、簡介(M),且fifa表已添加在表單的數據環境中。編寫List1的InterActiveChange事件代碼,實現:

    (1)將List1中當前選定的值賦給變量sGroup,并對當前數據工作區中的fifa表設置篩選條件:按sGroup變量中的值對"組別"字段進行記錄篩選:

    (2)將記錄指針指向首行記錄,并刷新表單。

 五、程序改錯題(5分)

    回文數是指正讀和反讀都是一樣的數,如1001、1221等。下列程序的功能是:求出大于1000小于2000的所有回文數,并將它們打印出來(每行打印5個數,最后一行打印總要求:

   1.將下列程序輸入到項目中的程序文件PCODE中,并對其中的2條錯誤語句進行修改。

    2.在修改程序時,不允許修改程序的總體框架和算法,不允許增加或減少語句數目。

    STORE 0 TO n,n1,n2

    s=ALLT(STR(i))

    nl=LEN(s)   

    n2=INT(n1/2)

    s1=''

    FOR j=1 TO n2

      s1=s1+RIGHT(s,1)

      s=LEFt(s,n1-1)

    ENDFOR

    IF LEFT(s,n1)=s1

      n=n+1

      ?? i

      IF INT(n/5)=n/5

        ?

      ENDIF

      ENDFOR

    ENDFOR

    ?'小于2000的回文數共'+STR(n)+'個'

    參考答案

一、項目、數據庫和表操作

字段默認值:DATE()

索引表達式:DTOC(rq,1)+STR(dj,5,1)

觸發器:rq=DATE()

二、設計查詢

    SELECT LEFT(flh,at('.',flh)-1) AS 圖書類別,SUM(CS) AS 藏書冊數,:

      AVG(jg) AS 平均單價;

    FROM tsb;

    GROUP BY 1;

    ORDER BY 2 DESC,3;

    TO FILE temp.txt

三、設計菜單

  命令/ 過程:DO FORM js

四、設計表單