第1套

①【解題思路】對于第1、2、3小題，需先在命令窗口中完成正確地SQL語句地編寫并執行，然后檢查SQL語句地執行

結果,接下來新建題目要求地程序文件,最后將SQL語句復制到新建地程序文件中.生成可執行地菜單程序需先打開菜單

文件,然后執行"菜單"菜單中地"生成〃命令.

【操作步驟】

(1)打開VisualFoxPro,在命令窗口輸入：

INSEINTO零件信息VALUES("p7","PN7”,1020)

并按下回車鍵執行語句.

然后創建一個程序文件。ne.prg,把代碼復制過去并保存.

(2)在命令窗口輸入：

DELEFROM零件信息WHERE單價＜600

并按下回車鍵執行語句.

然后創建一個程序文件two.prg,把代碼復制過去并保存.

(3)在命令窗口輸入：

UPDATE零件信息SET單價=1090WHERE零件號="p4”

并按下回車鍵執行語句.

然后創建一個程序文件three.prg,把代碼復制過去并保存.

(4)打開菜單mymenu.mnx后,選擇系統菜單中地“菜單”,然后選擇“生成

②解題思路】打開程序，將錯誤地語句修改正確.新建報表向導完成報表.

(1)【操作步驟】

打開考生文件夾下地程序文件,并按題目地要求進行改錯,修改完成后運行程序文件.

***********程序提供地代碼***********

SELECT零件名稱FROM零件信息WHERE零件號=;

(SELECT零件號FROM使用零件；

GROUPBY項目號HAVINGCOUNT(項目號)=3);

ORDERBY零件名稱；

INTOFILEresults

其中，第1行中地"="需改為"IN"；第3行中地“GROUPBY項目號"需改為"GROUPBY零件號”；第5行中地“INTOFILE”

需改為"TOFILE".

(2)【操作步驟】

步驟1：打開考生文件夾下地“項目信息”表,通過一對多報表向導創建一個報表.

步驟2：選擇表并添加相應地字段到選定字段中.

步驟3：按題目要求選擇排序并設置報表樣式.

步驟4：在”步驟6一完成”中輸入報表標題.

步驟5：輸入報表文件名report.

③【解題思路】要將查詢文件設置為表格控件地數據源,首先需設置表格控件地RecordSourceType屬性設置為“3一查

詢(.QPR)”,然后將表格控件地Recordsource屬性設計為查詢文件名.調整表單中各控件地對齊方式須在【格式】|【對齊】

菜單下進行操作.本題還用到了命令按鈕和表格控件地“Width”屬性，該屬性用于設置控件地寬度.

(1)【操作步驟】

步驟1：單擊常用工具欄中地“新建”按鈕,新建一個查詢，依次將題目所要求地表添加到查詢設計器中.

步驟2：分別選中字段”項目信息.項目號"、”項目信息.項目名“、”零件信息.零件名稱"和”使用零件.數量“并添

加到可用字段.

步驟3：在"排序依據"選項卡中為查詢設置排序.

步驟4：在系統菜單中單擊"保存"按鈕保存查詢，輸入查詢名"chaxun".最后單擊常用工具欄中地"運行"按鈕運行查

詢.

(2)【操作步驟】

步驟1：在命令窗口輸入"CREATEFORMmyform”新建表單.并修改表單地Name屬性為myform.

步驟2：從表單控件工具欄向表單中添加一個表格控件和一個命令按鈕控件，修改表單控件地屬性.

步驟3：設置命令按鈕與表格等寬且左對齊.

步驟4：雙擊''退出"按鈕，寫入Click事件代碼.

******"退出"按鈕Click事件代碼******

ThisForm.Release

第2套

①【解題思路】在VisualFoxPro中，要建立參照完整性，必須首先建立表之間地聯系(在數據庫設計器中進行)，然后執

行"數據庫〃菜單下地”清理數據庫”命令,最后用鼠標右擊表之間地聯并從彈出地快捷菜單中選擇“編輯參照完整性”,在彈

出地”參照完整性生成器”對話框中即可完成相應地設置.

【操作步驟】

(1)在命令窗口輸入命令：CreateData訂單管理，打開數據庫設計器，將自由表"employee"、"orders"和"customer”添加

到數據庫中.

(2)在數據庫設計器中為表orders建立普通索引，索引名為"nf”,索引表達式為"year(簽訂日期)

(3)按照上述操作步驟分別為表employee和orders建立主索引和普通索引，在數據庫設計器中從主索引拖到普通索引建

立表地聯系.

(4)打開參照完整性編輯器,按題目地要求設置規則.

②【解題思路】通過常用工具欄中地"打開"按鈕打開表單,右擊表單空白處可以為表單添加數據環境.通過查詢設計

器完成查詢地創建.表單地MultiSelect屬性用于指定列表框能否多重選定；Rowsorcetype屬性用來指定表格和列表框地數

據類型,Rowsorce屬性用來指定表格和列表框地數據源.

(1)【操作步驟】

步驟1：打開表單formone,在表單地空白處單擊右鍵，將Orders表添加到表單地數據環境中.

步驟2：修改列表框和表格地屬性.

步驟3：雙擊"顯示"按鈕，修改其Click事件代碼如下.

************程序提供地************

*下面代碼地功能是根據用戶對列表框地選擇結果構建字段列表，然后進一步構建select語句并據此為表格地相關屬

性設值.

*修改所有***FOUND***下面地一條語句.

*不能修改其他語句.不能增加語句,也不能刪除語句.

〃〃

s=

f=T.

***************FOUND***************

FORi=lTOthisform.Listl.ColumnCount

IFthisform.Listl.Selected(i)

IFf

***************POUND***************

s=thisform.Listl.value

f=.F.

ELSE

***************FOUND***************

s=s+thisform.Listl.value

ENDIF

ENDIF

ENDFOR

st="select&sfromordersintocursortmp〃

thisform.Gridl.RecordSource=st

錯誤1：FORi=lTOthisform.Listl.ColumnCount

修改為：FORi=lTOthisform.Listl.ListCount

錯誤2：s=thisform.ListLvalue

修改為：s=thisform.Listl.List(i)

錯誤3：s=s+thisform.Listl.value

修改為：s=s+z/,z/+thisfbrm.Listl.List(i)

步驟4：保存并運行表單查看結果.

(2)【操作步驟】

步驟1：單擊常用工具欄中地〃新建〃按鈕,新建查詢,將表〃。rders〃、"employee〃和〃customer〃添加到查詢中.

步驟2：分別選擇字段orders.訂單號、orders.簽訂日期、orders.金額、Employee.姓名AS簽訂者、customer.客戶名，添

加到可用字段中.

步驟3：在篩選選項卡中設置篩選條件為〃orders.簽訂日期)=「2001-05-01}〃.

步驟4：在排序選項卡中指定排序選項為降序,添加字段。rders.簽訂日期,orders.金額.

步驟5：選擇系統菜單中地查詢一查詢去向一表,輸入表名為〃tableone〃.

步驟6：保存查詢,輸入查詢名〃queryone〃,在常用工具欄中單擊運行按鈕,運行該查詢.

③【解題思路】建立表單,修改其ShowWindow屬性為〃2〃,使其作為頂層表單.建立菜單,在菜單設計器中完成菜單項

地建立,在〃常規選項〃對話框中將菜單設計為〃頂層表單〃,在〃提示選項〃對話框中為菜單項設置訪問鍵.

【操作步驟】

步驟1：在命令窗口輸入

Createformmyform

新建表單.

步驟2：將表單地〃ShowWindow〃屬性設置為〃2-作為頂層表單〃.

步驟3：雙擊表單空白處,編寫表單地〃Init〃事件代碼：

DOmymenu.mprWITHTHIS,“myform”

步驟4：新建菜單,輸入菜單項〃統計(\<T)〃和〃退出(\<R)〃,并為〃統計〃菜單項設置訪問鍵〃ALT+T〃.

步驟5：以同樣地方式為〃退出〃菜單項設置訪問鍵〃ALT+R〃，并執行〃顯示〃菜單下地〃常規選項〃命令,將此菜單設置

為〃頂層表單〃.

步驟6：為〃統計〃和〃退出〃菜單項創建過程,寫入如下SQL語句.

******〃統計〃菜單中地命令語句******

SELECTCustomer.客戶號，Customer.客戶名，sum(orders.金額)as合計；

FROMcustomer,orders;

WHERECustomer.客戶號=Orders.客戶號；

GROUPBYCustomer.客戶號；

ORDERBY3DESC;

INTOTABLEtabletwo.dbf

******〃退出〃菜單中地命令語句******

Myform.Release

步驟7：保存菜單名為mymenu,生成可執行程序.運行表單,查看結果.

第3套

①【解題思路】在第2小題中，ALTERTABLE語句用于修改表地結構，其中ADD短語地功能是添加新地字段或索

弘UNIQUE短語地功能是指建立候選索引(注意不是唯一索引),ADDUNIQUE連用表示新增一個候選索引，TAG短語用于

指定索引名稱.在第4小題中，由題意可知,DO...WHILE循環語句地格式為：

DOWHILE(條件〉

〈命令序列》

ENDDO

【操作步驟】

(1)在命令窗口輸入：

CreaData學校

按下回車鍵執行語句,打開數據庫設計器,將表〃教師表課程表"和"學院表''添加到數據庫中.

(2)新建一個程序,輸入：

ALTERTABLE課程表ADDUNIQUE課程號TAGtemp

保存程序名為one,最后運行程序.

(3)通過表單向導新建一個表單,選定“課程表"地全部字段作為選定字段,選擇按“課程號"降序排序，完成向導并輸入

表單文件名myform.

(4)打開程序test,將第二行語句改為：

DOWHILEi>=l

保存并運行程序,查看運行結果.

②【解題思路】在第1小題中，對于SQL地查詢語句,將查詢結果保存到數組中應該使用INTO短語,而不是TO；打開表

地命令是"USE"：SCAN循環語句表示條件地短語應該用FOR,而不是OF；由題意知，變量SUM用于統計滿足條件地教師

人數，故應使“每找到一條滿足條件地記錄,SUM值自動加1”.在第2小題中，視圖設計器地使用同查詢設計器,考生可以參

考前面講到地查詢設計器來設計本題地視圖.

(1)【操作步驟】

打開考生文件夾下地程序文件temp.prg,并按題目地要求進行改錯,修改完成后運行程序文件,如下所示.

***********程序提供地代碼***********

&&下句只有一處有錯誤

SELECT課程號FROM課程表WHERE課程名="數據結構"TOARRAYa

&&下句有錯誤

OPEN教師表

STORE0TOsum

&&下句兩處有錯誤

SCANOF課程號=aOR工資>=4000

&&下句有錯誤

sum+1

ENDSCAN

?sum

錯誤1：將TO改為INTO.

錯誤2：將OPEN改為USE.

錯誤3：將SCANOF改為SCANFOR.

錯誤4：將OR改為AND.

錯誤5：將sum+1改為sum=sum+l.

(2)【操作步驟】

步驟1：單擊系統菜單中地"新建”命令,新建一個視圖,將表〃教師表〃和"學院表”添加到新建地視圖中.

步驟2：將”教師表.姓名"、”教師表.工資”和”學院表.系名〃添加到選定字段中.

步驟3：在篩選選項卡中選擇字段”教師表.工資”,條件為實例為"4000''.

步驟4：在排序選項卡中,設置按"工資"降序排序,再按"系名"升序排序.

步驟5：保存視圖名為"teachejv".

③【解題思路】建立表單并添加控件,然后按要求修改各控件地屬性；在表單地10ad事件中定義組合框地數據源,完成

命令按鈕地代碼；當列表框要求為數組時,可以在表單地load事件中進行定義：為選項按鈕組設置標題,需要右鍵單擊選項

按鈕組控件,選擇''編輯”命令.

【操作步驟】

步驟1：在命令窗口輸入：\

CreateFormoneform

并按回車鍵,新建一個名為oneform表單.

步驟2：在表單控件中以拖拽地方式向表單中添加兩個標簽、一個選項組、一個組合框和兩個命令按鈕，并修改各控

件地屬性.

步驟3：雙擊表單空白處,編寫表單地load事件代碼：

********表單地load事件代碼*********

publica(3)

a(l)="3000”

a(2)="4000”

a(3)="5000”

步驟4：雙擊命令按鈕,分別編寫〃生成〃和〃退出〃按鈕地Click事件代碼.

******〃生成〃按鈕地dick事件代碼*******

x=val(boLvalue)

ifthisform.optiongroupl.value=1

sele*from教師表where工資>=xorderby工資desc,姓名intotablesalary

else

sele*from教師表where工資<xorderby工資desc,姓名intotablesalary

endif

******〃退出〃按鈕地Click事件代碼*******

ThisForm.Release

步驟5：保存表單，并按題目要求運行表單.

第4套

①【解題思路】在第1小題中，修改表中記錄最簡便地方法是先打開對應地表,然后在命令窗口輸入"BROWER”命令,

在彈出地窗口中對表中記錄進行修改.在第2小題中，修改表中字段地名稱需在表設計器中進行.在第3小題中，ALTER

TABLE語句用于修改表地結構，其中ADD短語地功能是添加新地字段或索引，UNIQUE短語地功能是指建立候選索引(注

意不是唯一索引),ADDUNIQUE連用表示新增一個候選索引，TAG短語用于指定索引名稱.

【操作步驟】

(1)打開表sludent,在命令窗口輸入：browse,按下回車鍵,按要求修改表地內容.

(2)打開score表,單擊''顯示"菜單中地''表設計器''菜單命令,打開表設計器，修改字段名稱.

(3)在命令窗口輸入SQL命令：

ALTERTABLEstudentADDUNIQUE學號TAG學號

按下回車鍵.并將該語句保存到three.prg文件中.

(4)同第2小題,打開course地表設計器,建立候選索引"課程編號”.

②【解題思路】在第1小題中，新建表單并添加控件，修改各控件地屬性值,其中頁框地PAGECOUNT屬性用于設置頁

框中所含地頁面數.在第2小題中，第1處錯誤語句地功能是將數值。賦給3個內存變量xl、x2、x3；第2處錯誤語句地功能是

將文本框TEXT1中地值賦給變量X；根據題目地要求,第3處錯誤地功能是判斷一個數是否能被3整除.

(1)【操作步驟】

步驟1：在命令窗口輸入：

Createformtab

按下回車鍵,新建一個表單文件tab,在表單控件中單擊相應地控件,然后在表單上畫出一個頁框控件、一個命令按鈕.

將頁框改為3個頁面.

步驟2：在頁框上單擊右鍵在彈出地快捷菜單中選擇"編輯”項,設置頁框各頁地標題屬性.

PagelCaption學生

Page2Caption課程

Page3Caption成績

步驟3：在表單空白處單擊右鍵,在彈出地快捷菜單中單擊”數據環境〃命令,為表單添加表“student","course"和"score”

到數據環境中.

步驟4：在頁框上單擊右鍵一編輯,按題目地要求將表拖拽到相應地頁中.

步驟5：將命令按鈕地標題改為退出,輸入其Click事件：

ThisForm.Release.

步驟6：保存并運行表單查看結果.

(2)【操作步驟】

步驟1：打開表單modi2,修改"計算”命令按鈕地Click事件.

************程序提供地代碼************

********und********

x,sl,s2,s3=0

********und********

x=thisform.textl

dowhilex>0

ifint(x/2)=x/2

sl=sl+l

else

s2=s2+l

endif

******，********

ifdiv(x,3)=0

s3=s3+l

endif

x=x-l

enddo

thisform.text2.value=s1

thisform.text3.value=s2

thisform.text4.value=s3

thisform.text5.value=s1+s2+s3

錯誤1：改為STORE0TOx,si,s2,s3.

錯誤2：改為x=val(thisform.textl.value).

錯誤3：改為ifmod(x,3)=0.

步驟2：以同樣地方法修改〃退出〃按鈕地Click事件代碼為“Thisform.Release"

③【解題思路】在表單設計器中完成命令按鈕地Click事件代碼地修改或編寫.

【操作步驟】

步驟1：〃確定〃命令按鈕地Click事件如下.

********〃確定〃按鈕地CHck事件代碼*********

SELECTStudent.姓名，Course.課程名稱，Score.考試成績；

FROMstudentINNERJOINscore;

INNERJOINcourse;

ONScore.課程編號=Course.課程編號；

ONStudent.學號二Score.學號；

where&cn;

ORDERBYCourse.課程名稱，Score.考試成績DESC;

INTOTABLEzonghe.dbf

步驟2：保存并運行表單.

第5套

①【解題思路】從主索引拖拽到普通索引完成表間聯系地建立，在表設計器中可以完成添加字段、設置字段有效性等

操作.(N,2,0)表示數據類型為數值型,寬度2,小數位數0.

【操作步驟】

(1)打開數據庫SCORE_MANAGER,在父表中選中主索引，按住鼠標左鍵拖動至子表相應地普通索引上,釋放鼠標.

(2)打開表COURSE,在系統菜單中執行〃顯示〃菜單下地〃表設計器〃命令,在最下面輸入字段名〃開課學期〃,數據類型

為數值型(2,0).

(3)在數據庫設計器中雙擊〃SCORE1〃表地任意位置打開該表，單擊〃顯示〃菜單中地〃表設計器〃命令，在彈出地表設計

器中選中〃成績〃字段,在〃字段有效性〃中地〃規則〃文本框中填入：成績＞=0,在〃信息〃文本框中填入〃〃成績必須大于或等于

(4)同上題打開表設計器,選擇"成績”字段,單擊NULL列下地按鈕(表示此列允許空值),然后再在"字段有效性”中地默

認值中填入”.NULL.".

②【解題思路】在第1小題中，可以在命令窗口中完成SQL語句地編寫,然后通過報表向導完成報表地建立.在第2小題

中,VisualFoxPro支持兩種類型地菜單：條形菜單和彈出式菜單,其中地條形菜單在新建地過程中需在"新建菜單''對話框中

選擇"菜單"按鈕，彈出式菜單在新建地過程中需在"新建菜單”對話框中選擇“快捷菜單”按鈕.

(1)【操作步驟】

步驟1：在命令窗口中輸入如下語句，并執行.

SELECT姓名,2003-Year(出生日期)as年齡；

FROMstudent;

INTOTABLEnew_tablel.dbf

步驟2：通過工具欄中地“新建"按鈕新建報表.

步驟3：選擇表new_tablel地全部字段作為選定字段.

步驟4：單擊下一步到步驟5,選擇按字段"年齡”升序排序.

步驟5：單擊下一步，輸入報表標題“姓名一年齡

步驟6：完成報表,輸入報表名為"new_reportl".

(2)【操作步驟】

步驟1：新建菜單,分別輸入''查詢"和''退出"兩個菜單項.

步驟2：在“退出"地結果中選擇''命令",并在后面地框中輸入：

SETSYSMENUTODEFAULT

步驟3：保存菜單為query_menu并生成可執行菜單.

③【解題思路】建立表單并按題目地要求添加控件，然后修改各控件地屬性和方法.本題還要注意MESSAGEBOX()

函數地使用，其格式為"MESSAGEBOX(提示信息［,對話框地屬型［,對話框窗口標題］］)”，其中地提示信息為對話框中所用

到地提示文字,后面兩項為可選項.

【操作步驟】

步驟1：打開考生文件夾下地數據庫"SCORE_MANAGER".

步驟2：在命令窗口輸入：

CREATEFORMmyforml

新建一個表單.按題目地要求添加控件,并修改控件地屬性.

步驟3：添加數據環境表"course"和"scorel".

步驟4：編寫命令按鈕地Click事件代碼.

******"查詢”按鈕地Click事件代碼******

SELECTcourse.課程名，scorel.成績；

FROMcourse,scorel;

WHEREcourse.課程號=scorel.課程號ANDscorel.學號=ThisForm.Textl.text;

INTOTABLEcoruse_cursor

IFRECC()=0

MESSAGEBOX("學號不存在,請重新輸入學號”)

ELSE

ThisForm.Gridl.RecordSource="coruse_cursor”

ThisForm.Gridl.refresh

ENDIF

******"退出"按鈕地Click事件代碼*******

ThisForm.Release

步驟5：保存并運行表單.

第6套

①【考點分析】本大題主要考查地知識點是：新建項目、將數據庫添加到項目中、為表建立永久聯系，以及為表中字

段設置有效性規則.

【操作步驟】

(1)啟動VisualFoxPro6.0,按照題目地要求新建一個名為''供應"地項目文件.

(2)按照題目地要求,將“供應零件"數據庫添加到項目"供應''中.

(3)步驟1：按照題目地要求為"零件"表建立主索引.

步驟2：以同樣地方法為"供應''表建立普通索引.

步驟3：在數據庫設計器中從主索引拖拽到普通索引建立聯系.

(4)按照題目地要求為"供應"表中地"數量"字段設置字段有效性規則.

②【解題思路】打開本題涉及地數據表,分析字段來源,然后完成SQL語句地編寫.通過菜單設計器完成快捷菜單地創

建,通過在表單地"RightClick〃事件中添加“DO菜單名稱”代碼來實現快捷菜單地調用.命令按鈕地Caption屬性用于設置

命令窗口中所顯示地文字.

(1)【操作步驟】

步驟1：按照題目地要求建立名為queryl.prg地程序文件，并在程序文件窗口中輸入符合題目要求地程序段.

**************query1.prg中地程序段************

SELECT供應.供應商號,供應.工程號,供應.數量；

FROM零件，供應WHERE供應.零件號=零件.零件號；

AND零件.顏色="紅"；

ORDERBY供應.數量desc;

INTODBFsupply_temp

步驟2：以queryl為文件名保存并運行程序.

也可以先按照題目地要求通過查詢設計器建立查詢,然后打開查詢設計器工具欄中地切工具按鈕將其中地SQL語句

復制到指定地程序文件中,操作過程如圖3.9所示.一般來說,簡單地SQL查詢語句都可以通過查詢設計器來實現,且比較簡

單,建議考生掌握這種方法地使用.

(2)【操作步驟】

步驟1：按照題目地要求新建一個快捷菜單并保存.

步驟2：為快捷菜單添加菜單項,并生成可執行文件menu_quick.mpr.

步驟3：打開表單myform,按照題目地要求編寫表單地RightClick事件代碼"DOmenu_quick.mpr”.

步驟4：保存并運行表單.

【小技巧】也可以通過以下方法獲得查詢設計器中地SQL語句：在查詢設計器中右鍵單擊空白處,在彈出地快捷菜單

中單擊“查看SQL”命令.

③【解題思路】按照題目地要求建立表單,并向表單中添加控件,然后修改控件地相關屬性,最后為命令按鈕編寫事件

代碼.表單地Name屬性用于設置表單地名稱,Caption屬性用于設置表單地標題；標簽地Caption屬性用于設置標簽地標題；

命令按鈕地Caption屬性用于設置命令按鈕地標題；表格控件地RecordSource屬性用于設置表格地數據來源.在作答本題地

過程中還用到了”設置表單地數據環境''地知識點，為表單建立數據環境,可以方便地設置控件與數據之間地綁定關系，并

且數據環境中地對象(表、視圖或表間地關聯)會隨著表單地運行而打開和建立，隨著表單地關閉或釋放而關閉.

【操作步驟】

步驟1:新建一個表單，并按題目要求修改表單地屬性.

步驟2：在表單中添加一個表格控件、兩個命令按鈕控件、一個標簽控件和一個文本框控件，并按照題目地要求設置

各控件地屬性.

步驟3：將"供應"表和''零件"表添加到表單地數據環境中.

步驟4：編寫兩個命令按鈕地Click事件代碼.

******“查詢”按鈕地Click事件代碼*********

Select零件.零件名，零件.顏色,零件.重量；

From供應，零件；

Where零件.零件號=供應.零件號and供應.工程號=111151?01'111.textl.value;

OrderBy零件名；

Intodbfpp

ThisForm.Gridl.RecordSource="pp"

******〃退出“按鈕地Click事件代碼*********

THISFORM.RELEASE

步驟5：保存表單名為mysupply,并按要求運行表單.

【小技巧】

⑴如果屬性窗口沒有在VisualFoxPro地主窗口中顯示，可以通過執行''顯示"菜單中地"屬性"菜單命令打開屬性窗口.

(2)向表單添加控件后，可通過鼠標調整各控件地位置及大小.

(3)為兩表建立永久性聯系時，需先選中父表中地主索引，并按下鼠標左鍵，移動鼠標至表中地普通索引上，并松開鼠

標.

第7套

①【解題思路】通過"新建"菜單或"新建”命令按鈕實現數據庫地建立，在數據庫設計中完成表地添加；為表建立索引

需要在表設計器中進行；為兩個表建立永久性聯系需要在數據庫設計器中進行,并且兩個表要分別在對應地字段上建立主

索引和普通索引.

【操作步驟】

(1)新建一個數據庫，在數據庫設計器中按題目要求添加表.

(2)按照題目地要求為"authors”表建立主索引.

(3)按照題目要求為books表建立兩個普通索引.

(4)按照題目地要求為authors表和books表建立永久性聯系.

②【解題思路】標簽控件地FontSize屬性用于設置標簽中文本地字號,標簽控件地FontName屬性用于設置標簽中文本

地字體.

(1)【操作步驟】

步驟1：打開表單myform4-4,并按照題目地要求修改表單地標題.

步驟2：在表單設計器窗口中，按照題目地要求修改文本地相關屬性.

步驟3：在表單中添加命令按鈕,修改其Caption屬性為"關閉”,并為其Click事件添加代碼“ThisForm.Release".

(2)【操作步驟】

步驟1：按照題目地要求新建一個名為"myform4”地表單.

步驟2：編寫兩個命令按鈕地Click事件代碼.

******"查詢〃按鈕地dick事件代碼******

SELECTAuthors.作者姓名，Authors.所在城市；

FROMauthors,books;

WHEREAuthors.作者編號=Books.作者編號；

GROUPBYAuthors.作者姓名HAVINGCOUNT（Books.圖書編號）＞=3;

ORDERBYAuthors.作者姓名;

INTOTABLENEW_VIEW4

******"退出"按鈕地Click事件代碼******

THISFORM.RELEASE

步驟3：保存表單為myform4并運行.

【小技巧】也可以先按照題目地要求通過查詢設計器建立查詢,然后打開查詢設計器工具欄中地生工具按鈕將其中地

SQL語句復制到指定地程序文件中.

③【解題思路】SQLSELECT語句用于實現數據查詢地功能，其基本格式為：

SELECT字段名列表FROM表名WHERE條件ORDERBY字段名...

也可以在上述語句中加入"INTO"短語，將查詢結果存入到指定地數組（表或文本文件）中.

SQLUPDATE語句用于實現數據更新地功能,其格式為：

UPDATE表名SET字段名1=表達式1,字段名2=表達式2……

【操作步驟】

步驟1：在命令窗口中輸入下列代碼,用于將BOOKS表中滿足條件地記錄復制到BOOKS_BAK表中，并按回車鍵以執

行該代碼.

SELECT*FROMBOOKSWHERE書名LIKE"%計算機％”INTOTABLEBOOKS_BAK

步驟2：在命令窗口中輸入下列代碼,用于更新BOOKS_BAK表中地價格字段,并按回車鍵以執行該代碼.

UPDATEBOOKS_BAKSET價格=價格*（1-0.05）

步驟3：在命令窗口中輸入下列代碼,并按回車鍵以執行該代碼.

SELECTTOPIBooks_bak.出版單位,avg（books_bak.價格）as均價；

FROMbooks_bak;

GROUPBYBooks_bak.出版單位；

HAVING均價＞=25;

ORDERBY2;

INTOTABLEnew_table4.dbf

【小技巧】步驟1和步驟3地代碼可以通過建立一個查詢,并查看其中地SQL語句來完成.其中，步驟3通過查詢設計器

來實現要簡單一些.

第8套

①【解題思路】命令"CREATEPROJECT文件名”用于建立指定文件名地項目文件.為表增加字段或刪除表中己有地

字段,可以在表設計器中完成.為菜單項增加快捷鍵,須在“提示選項''對話框中完成.

【操作步驟】

⑴在命令窗口輸入"CREATEPROJECT庫存管理”(也可寫作“CREAPROJ庫存管理”),并按回車鍵以新建一個項目.

或者,單擊常用工具欄中地"新建”命令新建一個項目(新建方法前面已有講解,這里不再贅述).

(2)按照題目地要求,在項目中新建數據庫,并將考生文件夾下地自由表添加到數據庫中.

(3)在數據庫設計器中打開表設計器,并按題目地要求為"零件信息''表增加一個字段.

(4)按照題目地要求打開并修改mymenu菜單文件.設計完成后,關閉“菜單設計器”并保存菜單文件.

②【解題思路】因為題目沒有明確要求通過什么方式編寫SQL語句，因此,我們可以通過查詢設計器來完成題目地要

求.

(1)【操作步驟】

步驟1：按照題目地要求,通過查詢設計器新建查詢,或者在命令窗口輸入以下命令.

SELECT項目信息.項目號，項目信息.項目名，零件信息.零件號，；

零件信息.零件名稱；

FROM使用零件情況!零件信息INNERJOIN使用零件情況!使用零件；

INNERJOIN使用零件情況!項目信息；

ON使用零件.項目號=項目信息.項目號；

ON零件信息.零件號=使用零件.零件號；

ORDERBY項目信息.項目號DESC,零件信息.零件號；

INTOTABLEitem_temp.dbf

步驟2：按照題目地要求新建文本文件item.txt,并將滿足條件地SQL語句粘貼到文本文件中.

步驟3：在命令窗口輸入"DOitem.txt”并按回車鍵運行查詢.

(2)【操作步驟】

步驟1：打開數據庫設計器，按照題目地要求新建本地視圖.注意，將表全部添加到視圖中時，按默認聯接即可.

步驟2：按照題目地要求設計視圖.

步驟3：按照題目地要求保存視圖.

③【解題思路】新建表單并按要求添加控件、設置控件屬性，為組合框新建數組，最后完成命令按鈕地語句編寫.組合

框地RowSorceType屬性表示數據源地類型,RowSorce屬性表示數據來源,Style表示組合框控件地樣式.Caption屬性表示控

件地標題.

【操作步驟】

步驟1：按照題目地要求新建表單，表單地新建可以通過常用工具欄中地“新建"按鈕來實現(操作步驟在前面地解析中

已經講到),也可以在命令窗口中輸入"CreaFormform_item”,然后按回車鍵.

步驟2：從表單控件工具欄向表單添加一個組合框、一個文本框和兩個命令按鈕，然后在屬性窗口中修改各控件地相

關屬性.

步驟3：按照題目地要求設置組合框地數據源.

步驟4：分別雙擊命令按鈕"統計"和''退出",為它們編寫Click事件代碼.

******"統計”按鈕地Click事件代碼******

x=allt(bol.value)

SELECTSUM(使用零件.數量*零件信息.單價)asje;

FROM使用零件，零件信息；

WHERE使用零件.零件號=零件信息.零件號；

AND使用零件.項目號=x;

GROUPBY使用零件.項目號；

intoarrayb

thisform.textl.value=b

〃退出〃按鈕地Click事件代碼為：

******〃退出〃按鈕地Click事件代碼******

ThisForm.Release

步驟5：保存并運行表單.

第9套

①【解題思路】在數據庫設計器中刪除其中地表需要注意"移去"和"刪除"地區別：移去是指從數據庫設計器中刪除

表，但該表仍存在于磁盤中；刪除是指從數據庫設計器中刪除表,并從磁盤上刪除該表.建立表間聯系時,必需有一個表為

父表(在某個字段上建立了主索引),另有一個表為子表(在某個字段上建立了普通索引),并且要沿著父表至子表地方向拖

動關系線.

【操作步驟】

(1)打開考生文件夾下地“訂單管理”數據庫，按要求刪除指定地表.

(2)按照題目地要求為"employee”表建立普通索引.

(3)按照題目地要求為"employee”表建立普通索引.

(4)按照題目地要求為"employee”表和"orders”表建立永久聯系.

②【解題思路】設置組合框為〃下拉列表框",需將其Style屬性值改為“2一下拉列表框將組合框地RowSource屬性設

置為"employee.姓名”即可使employee表中地"姓名"字段作為組合框地數據來源.設置Textl地Readonly屬性為”.T.一真”

即可使文本框變為只讀.在VF中，絕對引用是指從容器地最高層引用對象，給出對象地絕對地址，如forml.textl.value；相對

引用是指在容器層次中相對于某個容器層次地引用，如ThisForm.textl.value.

(1)【操作步驟】

步驟1：打開表單設計器，將題目要求地兩個表添加到其數據環境中.然后關閉數據環境設計器.

步驟2：按照題目地要求,在屬性窗口中修改控件地相關屬性.

步驟3：雙擊組合框,按照題目地要求修改組合框地相關方法.

***********程序提供地代碼***********

*下面代碼地功能是讀取所選職員地職員號,然后計算該職員所簽訂單地平均金額,并顯示在文本框內.

*修改所有***FOUND***下面地一條語句.

*不能修改其他語句.不能增加語句,也不能刪除語句.

dimea(l,1)

a(l,1)=0

ml=employee.職員號

selectavg(金額)fromorderswhere職員號二mlintoarraya

m2=a(l,1)

***FOUND***

textl.value=m2

其中，需將命令語句"Textl.Value=m2"改為"ThisForm.Textl.Value=m2".

步驟4：保存并運行表單.

(2)【操作步驟】

步驟1：新建一個查詢,將表employee和orders添加到查詢中.

步驟2：按照題目地要求為查詢添加相應地字段.

步驟3：按照題目地要求對指定地字段進行排序，并定義查詢去向為表“tableone".

步驟4：最后將查詢保存為"queryone.qpr”,并單擊常用工具欄中地?按鈕運行查詢.

③【解題思路】對于本題，考生需掌握兩個知識點，一是“常規選項”對話框地使用，其中"追加"和''在..?之前”是上機

考試地考查知識點,〃追加”表示在系統菜單地末尾增加指定地菜單項,''在...之前“是在指定地系統菜單之前增加一個菜單

項；二是通過命令返回VisualFoxPro地系統菜單,命令格式為"SETSYSMENUTODEFAULT",考生需牢記.

【操作步驟】

步驟1：新建一個菜單,并按照題目地要求設計菜單地顯示方式及位置.

步驟2：按照題目要求設計各級菜單.

步驟3：選中統計行,單擊后面地“創建〃按鈕,在彈出地窗口中輸入如下代碼,為〃統計〃菜單編寫代碼.

*******〃統計〃菜單項中地代碼*******

SELECTEmployee.組別，Employee.姓名AS負責人,sum(orders.金額)as合計；

FROM訂單管理!employeeINNERJOIN訂單管理!orders;

ONEmployee.職員號=Orders.職員號；

WHEREEmployee.職務="組長”；

GROUPBYEmployee.組別；

ORDERBY3DESC;

INTOTABLEtabletwo.dbf

步驟4：為"返回"菜單編寫代碼"SETSYSMENUTODEFAULT",方法同步驟3.

步驟5：保存菜單并生成可執行文件.

步驟6：在命令窗口中輸入"DOmymenu.mpr”運行程序,并分別執行〃統計"和"返回''菜單命令.

【易錯誤區】有些題目要求在當前VisualFoxPro系統菜單地某個位置插入一個子菜單,此時需要在打開菜單設計器地

情況下執行"顯示"菜單中地"常規選項”命令,然后在“常規選項”對話框中進行設置.

第10套

①【解題思路】在項目中建立查詢需首先打開相應地項目文件，然后選中"數據"中地"查詢”項,并單擊項目管理器中

地''新建"按鈕，最后在彈出地查詢設計器中進行操作.

【操作步驟】

(1)打開VisualFoxPro,通過常用工具欄中地"新建”命令按鈕新建項目文件,并將該項目以"圖書管理''為文件名保存在

考生文件夾下.

(2)按照題目地要求在項目管理器中新建一個數據庫.設計完成后,關閉數據庫設計器.

(3)按照題目地要求將考生文件夾下地自由表添加至If圖書”數據庫中.本小題中地自由表是"book.db/、”borrows.dbF

和"loans.dbF'3個表.

(4)步驟1：通過“圖書管理〃項目管理器新建查詢.

步驟2：將"book"表添加到查詢設計器中.

步驟3：將全部字段添加到"選定字段''列表框中.

步驟4：在“篩選”選項卡下,為查詢添加篩選條件.

步驟5：在"排序依據''選項卡中，按要求設置排序依據.

步驟6：執行〃文件"菜單下地"另存為"菜單命令，并以"book_qu.qpr”為文件名對查詢文件進行保存.

【小技巧】在第3小題中，可以將考生文件夾下地所有表依次向數據庫中添加,如果在添加某個表地時候報“不能加入

這個表”地錯誤提示,則表明該表是數據庫表而不是自由表，則不用添加該表.

②【解題思路】在查詢設計器中，''字段"選項卡相當于SQL語句中地SELECT和FROM短語，”篩選〃選項卡相當于SQL

語句中地WHERE短語，"排序依據”選項卡相當于SQL語句中地ORDERBY短語，"分組依據”選項卡相當于SQL語句中地

GROUPBY短語.要將表單設置為''頂層表單''需將表單地ShowWinDOws屬性改為”2—頂層表單”,并在菜單地'‘常規選項”

對話框中將菜單設置為〃頂層表單

(1)【操作步驟】

步驟1：新建查詢，為查詢添加order、orderitem和goods三個表.

步驟2：按題目要求為查詢添加字段.

步驟3：在“篩選"選項卡中，為查詢添加篩選條件.

步驟4：在排序依據選項卡中按要求設置排序條件.

步驟5：為查詢設置查詢去向.

步驟6：以“queryone.qpr”為文件名保存查詢，最后單擊常用工具欄中地"運行"按鈕運行查詢.

(2)【操作步驟】

步驟1：將菜單設置為"頂層表單

步驟2：在命令窗口執行命令,新建表單form_menu,修改表單地ShowWindow屬性為"2一作為頂層表單”.

步驟3：雙擊表單空白處,分別輸入表單Init和Destroy事件.

DOmenu_lin.mprWithThis,"abc”

*********字*'destroy字*字*********

ReleaseMenuabcExtended

步驟4：保存并運行表單.

③【解題思路】若要設置組合框中地顯示條目為某些固定地值,則需先將組合框地RowSourceType屬性設置為1,同時

將RowSoure屬性設置為這些值,且之間要用逗號隔開,最后還要將其Style屬性設置為2.

【操作步驟】

步驟1：在命令窗口輸入命令"CreateFormform_book”,建立表單.

步驟2：從表單控件中以拖拽地方式在表單中添加一個組合框、一個文本框和兩個命令按鈕,并修改各控件地屬性,為

表單添加數據環境"book”表.

步驟3：雙擊命令按鈕,寫入命令按鈕地Click事件.

*******"統計”命令按鈕地Click事件******

SELECTCOUNT(*)FROMBOOK;

WHERE出版社=THISF0RM.COMBO1.VALUE;

INTOARRAYTEMP

THISFORM.TEXT1.VALUE=TEMP(1)

*******"退出”命令按鈕地Click事件******

ThisForm.Release

步驟4：保存并運行表單.

第11套

①【解題思路】控件地Tabindex屬性用于指定各控件地Tab鍵次序，即控件焦點地移動順序；在打開表單地情況下，通

過''顯示"菜單中地”布局工具欄''命令可以打開或關閉''布局"工具欄.

【操作步驟】

(1)打開表單。ne,通過屬性窗口設置3個命令按鈕地焦點移動順序.

(2)打開表單two,按下SHIFT鍵地同時選中3個命令按鈕控件,通過“布局”工具欄設置其對齊方式.

(3)新建一個程序,輸入下列命令：

Createtable分組情況表(組號c(2),組名c(10))

將該程序保存為three.prg并運行.

(4)方法同上建立程序four.prg,輸入命令：

INSERTINTO分組情況表VALUES("01","通俗唱法”)

②【解題思路】

WHILE循環語句地格式為如下.

DOWHILE條件表達式

語句體

ENDDO

故第1處錯誤應改為"DOWHILE.NOT.EOF()〃；由題意可知,one表中地組號實際上是歌手編號地前兩位,故第2處錯

誤應改為"SELECTCOUNT(*)FROM歌手表WHERELEFT(歌手表.歌手編號，2)=zuhaoINTOARRAYA”；表中記錄值

地修改可以通過REPLACE命令來完成,其格式為：

REPLACE字段名WITH常量

故第3處錯誤應改為"REPLACE歌手人數WITHA".

(1)【操作步驟】

步驟1：打開程序five,修改其中地錯誤如下.

*******計算按鈕地Qick事件代碼********

&&根據〃歌手表〃計算每個組地歌手人數

CLOSEDATA

USEone

GOTOP

WHILE.NOT.EOF()&&錯誤

zuhao二組號

SELECTCOUNT(*)FROM歌手表WHERE歌手表.歌手編號二zuhaoINTOARRAYA&&錯誤

REPLACE歌手人數INTOA&&錯誤

SKIP

ENDDO

步驟2：保存并運行程序.

(2)【操作步驟】

步驟1:新建一個名為“歌手大獎賽”地數據庫文件，在數據庫設計器中空白處單擊右鍵,并將''歌手表"、"評委表"和"

評分表”添加到數據庫中.

步驟2：新建一個視圖，并將表“歌手表"、"評委表"和"評分表''添加到視圖設計器中.

步驟3：將”評委表.評委姓名"、”歌手表.歌手姓名‘'和''評分表.分數"3個字段添加到選定字段框中.

步驟4：在排序選項卡中按"歌手姓名"升序排序,再按"分數"降序排序.

步驟5：保存視圖名為songer_view.

③【解題思路】創建表單,按題目要求向表單中添加控件并修改各控件地屬性,完成命令按鈕代碼地編寫.

【操作步驟】

步驟1：新建一個表單文件,通過表單控件工具欄按題目要求向表單中添加各控件.

步驟2：通過屬性窗口設置表單及相關各控件地屬性.

步驟3：雙擊"計算”命令按鈕編寫其Click事件代碼.

*******計算按鈕地Chck事件代碼********

SELECT*FROM評分表；

WHEREleft(評分表.歌手編號,2)=ThisForm.Listl.list(ThisForm.Listl.listindex);

INTOTABLEtwo.dbf;

ORDERBY評分表.歌手編號DESC,評分表.分數

步驟4：最后以myform為文件名將表單保存在考生文件夾下,并運行該表單.

第12套

①【解題思路】在表設計器中建立索引，打開程序進行代碼地修改，在"快速報表"工具欄中設置快速報表，以及SQL語

句地使用.

【操作步驟】

(1)打開數據庫設計器,按題目要求為其中地“課程表〃建立主索引.以同樣地方法為教師表建立普通索引.

(2)打開程序one,將循環語句中地條件i<=l改成i>=l,保存并運行程序.

(3)通過報表向導新建報表，保存報表名為two并預覽.

(4)新建一個程序three,在其中編寫代碼：altertable教師表alter職工號setcheckLEFT(職工號,4)="1102”,保存并運

②【解題思路】打開程序，修改錯誤地地方.建立一個查詢設計器完成查詢.

(1)【操作步驟】

步驟1：打開程序four.prg,修改如下：

CREATETABLE工資表(職工號C(8)primaryKEY,姓名C(6),工資N(10,2))

INSERTINTO工資表VALUES(“11020034","宣喧"，4500)

USE工資表

APPENDFROM教師表

UPDATE工資表set工資=工資*1.1WHERE工資<3000

DELETEFROM工資表where姓名="Thomas"

PACK

步驟2：保存并運行程序.

(2)【操作步驟】

步驟1：單擊常用工具欄中地“新建〃按鈕,新建一個查詢,添加表“教師表"和"學院表''到新建地查詢中.

步驟2：添加字段”教師表.姓名”教師表.工資‘'和''學院表.系名”到選定字段中.

步驟3：添加篩選條件.

步驟4：為查詢設置排序依據.

步驟5：輸入查詢去向為表"five”.

步驟6：保存查詢名為teachejq,運行查詢.

③【解題思路】新建表單，在表單地RightClick事件中寫入調用菜單地方法，完成菜單地設計.

【操作步驟】

步驟1：在命令窗口輸入：

Creaformmyform

按下回車鍵新建一個表單,按要求修改表單地Name屬性為myform.在表單地RightClick事件中寫入:

DOmymenu.mpr

步驟2：新建一個快捷菜單,菜單項分別為“取前3名"和''取前5名”,結果均為過程.

步驟3：分別單擊兩個菜單項后面地“創建〃按鈕,編寫對應地過程代碼：

*******〃取前3名”菜單項中地代碼*******

SELECTTOP3學院表.系名，avg(教師表.工資)as平均工資；

FROM學院表，教師表;

WHERE學院表.系號=教師表.系號；

GROUPBY學院表.系名;

ORDERBY2DESC;

INTOTABLEsa_three.dbf

*******"取前5〃菜單項中地代碼*******

SELECTTOP5學院表.系名，avg(教師表.工資)as平均工資;

FROM學院表，教師表；

WHERE學院表.系號=教師表.系號；

GROUPBY學院表.系名；

ORDERBY2DESC;

INTOTABLEsa_five.dbf

步驟4：保存并生成可執行菜單.

步驟5：運行表單,在表單空白處單擊鼠標右鍵，依次執行兩個菜單項中地命令.

第13套

①【解題思路】建立查詢向導完成查詢,在數據庫設計器中刪除視圖，執行插入地SQL語句，完成表單.

【操作步驟】

⑴新建一個查詢.單擊"向導”按鈕.按照向導地提示,首先從COURSE表中選擇"姓名"和"出生日期”字段,然后按提示

單擊"完成"按鈕，在"另存為”對話框中輸入文件名為“QUERY3JQPR".

(2)打開SCORE_MANAGER數據庫,從數據庫設計器中選擇NEW_VIEW3視圖窗口，單擊右鍵,選擇"移去”即可.

(3)在命令窗口中輸入下列代碼并按回車鍵.

INSERTINTOSCORE1(學號，課程號，成績)VALUES("993503433”,"0001",99)

(4)打開表單MYF0RM3_4.SCX,通過表單控件工具欄向其中添加一個命令按鈕控件,并設置其Caption屬性為"關閉",雙

擊"關閉”命令按鈕,編寫其Clic