計(jì)算機(jī)二級(jí)考試VFP上機(jī)試題答案

第1套

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

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

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

【操作步驟】

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

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

并按下回車鍵執(zhí)行語句.

然后創(chuàng)建一個(gè)程序文件。ne.prg,把代碼復(fù)制過去并保存.

(2)在命令窗口輸入：

DELEFROM零件信息WHERE單價(jià)＜600

并按下回車鍵執(zhí)行語句.

然后創(chuàng)建一個(gè)程序文件two.prg,把代碼復(fù)制過去并保存.

(3)在命令窗口輸入：

UPDATE零件信息SET單價(jià)=1090WHERE零件號(hào)="p4”

并按下回車鍵執(zhí)行語句.

然后創(chuàng)建一個(gè)程序文件three.prg,把代碼復(fù)制過去并保存.

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

②解題思路】打開程序，將錯(cuò)誤地語句修改正確.新建報(bào)表向?qū)瓿蓤?bào)表.

(1)【操作步驟】

打開考生文件夾下地程序文件,并按題目地要求進(jìn)行改錯(cuò),修改完成后運(yùn)行程序文件.

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

SELECT零件名稱FROM零件信息WHERE零件號(hào)=;

(SELECT零件號(hào)FROM使用零件；

GROUPBY項(xiàng)目號(hào)HAVINGCOUNT(項(xiàng)目號(hào))=3);

ORDERBY零件名稱；

INTOFILEresults

其中，第1行中地"="需改為"IN"；第3行中地“GROUPBY項(xiàng)目號(hào)"需改為"GROUPBY零件號(hào)”；第5行中地“INTOFILE”

需改為"TOFILE".

(2)【操作步驟】

步驟1：打開考生文件夾下地“項(xiàng)目信息”表,通過一對(duì)多報(bào)表向?qū)?chuàng)建一個(gè)報(bào)表.

步驟2：選擇表并添加相應(yīng)地字段到選定字段中.

步驟3：按題目要求選擇排序并設(shè)置報(bào)表樣式.

步驟4：在”步驟6一完成”中輸入報(bào)表標(biāo)題.

步驟5：輸入報(bào)表文件名report.

③【解題思路】要將查詢文件設(shè)置為表格控件地?cái)?shù)據(jù)源,首先需設(shè)置表格控件地RecordSourceType屬性設(shè)置為“3一查

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

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

(1)【操作步驟】

步驟1：?jiǎn)螕舫Ｓ霉ぞ邫谥械亍靶陆ā卑粹o,新建一個(gè)查詢，依次將題目所要求地表添加到查詢?cè)O(shè)計(jì)器中.

步驟2：分別選中字段”項(xiàng)目信息.項(xiàng)目號(hào)"、”項(xiàng)目信息.項(xiàng)目名“、”零件信息.零件名稱"和”使用零件.數(shù)量“并添

加到可用字段.

步驟3：在"排序依據(jù)"選項(xiàng)卡中為查詢?cè)O(shè)置排序.

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

詢.

(2)【操作步驟】

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

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

步驟3：設(shè)置命令按鈕與表格等寬且左對(duì)齊.

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

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

ThisForm.Release

第2套

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

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

出地”參照完整性生成器”對(duì)話框中即可完成相應(yīng)地設(shè)置.

【操作步驟】

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

到數(shù)據(jù)庫中.

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

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

立表地聯(lián)系.

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

②【解題思路】通過常用工具欄中地"打開"按鈕打開表單,右擊表單空白處可以為表單添加數(shù)據(jù)環(huán)境.通過查詢?cè)O(shè)計(jì)

器完成查詢地創(chuàng)建.表單地MultiSelect屬性用于指定列表框能否多重選定；Rowsorcetype屬性用來指定表格和列表框地?cái)?shù)

據(jù)類型,Rowsorce屬性用來指定表格和列表框地?cái)?shù)據(jù)源.

(1)【操作步驟】

步驟1：打開表單formone,在表單地空白處單擊右鍵，將Orders表添加到表單地?cái)?shù)據(jù)環(huán)境中.

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

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

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

*下面代碼地功能是根據(jù)用戶對(duì)列表框地選擇結(jié)果構(gòu)建字段列表，然后進(jìn)一步構(gòu)建select語句并據(jù)此為表格地相關(guān)屬

性設(shè)值.

*修改所有***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

錯(cuò)誤1：FORi=lTOthisform.Listl.ColumnCount

修改為：FORi=lTOthisform.Listl.ListCount

錯(cuò)誤2：s=thisform.ListLvalue

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

錯(cuò)誤3：s=s+thisform.Listl.value

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

步驟4：保存并運(yùn)行表單查看結(jié)果.

(2)【操作步驟】

步驟1：?jiǎn)螕舫Ｓ霉ぞ邫谥械亍ㄐ陆āò粹o,新建查詢,將表〃。rders〃、"employee〃和〃customer〃添加到查詢中.

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

加到可用字段中.

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

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

步驟5：選擇系統(tǒng)菜單中地查詢一查詢?nèi)ハ蛞槐?輸入表名為〃tableone〃.

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

③【解題思路】建立表單,修改其ShowWindow屬性為〃2〃,使其作為頂層表單.建立菜單,在菜單設(shè)計(jì)器中完成菜單項(xiàng)

地建立,在〃常規(guī)選項(xiàng)〃對(duì)話框中將菜單設(shè)計(jì)為〃頂層表單〃,在〃提示選項(xiàng)〃對(duì)話框中為菜單項(xiàng)設(shè)置訪問鍵.

【操作步驟】

步驟1：在命令窗口輸入

Createformmyform

新建表單.

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

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

DOmymenu.mprWITHTHIS,“myform”

步驟4：新建菜單,輸入菜單項(xiàng)〃統(tǒng)計(jì)(\<T)〃和〃退出(\<R)〃,并為〃統(tǒng)計(jì)〃菜單項(xiàng)設(shè)置訪問鍵〃ALT+T〃.

步驟5：以同樣地方式為〃退出〃菜單項(xiàng)設(shè)置訪問鍵〃ALT+R〃，并執(zhí)行〃顯示〃菜單下地〃常規(guī)選項(xiàng)〃命令,將此菜單設(shè)置

為〃頂層表單〃.

步驟6：為〃統(tǒng)計(jì)〃和〃退出〃菜單項(xiàng)創(chuàng)建過程,寫入如下SQL語句.

******〃統(tǒng)計(jì)〃菜單中地命令語句******

SELECTCustomer.客戶號(hào)，Customer.客戶名，sum(orders.金額)as合計(jì)；

FROMcustomer,orders;

WHERECustomer.客戶號(hào)=Orders.客戶號(hào)；

GROUPBYCustomer.客戶號(hào)；

ORDERBY3DESC;

INTOTABLEtabletwo.dbf

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

Myform.Release

步驟7：保存菜單名為mymenu,生成可執(zhí)行程序.運(yùn)行表單,查看結(jié)果.

第3套

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

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

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

DOWHILE(條件〉

〈命令序列》

ENDDO

【操作步驟】

(1)在命令窗口輸入：

CreaData學(xué)校

按下回車鍵執(zhí)行語句,打開數(shù)據(jù)庫設(shè)計(jì)器,將表〃教師表課程表"和"學(xué)院表''添加到數(shù)據(jù)庫中.

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

ALTERTABLE課程表ADDUNIQUE課程號(hào)TAGtemp

保存程序名為one,最后運(yùn)行程序.

(3)通過表單向?qū)陆ㄒ粋€(gè)表單,選定“課程表"地全部字段作為選定字段,選擇按“課程號(hào)"降序排序，完成向?qū)Р⑤斎?/p>

表單文件名myform.

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

DOWHILEi>=l

保存并運(yùn)行程序,查看運(yùn)行結(jié)果.

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

地命令是"USE"：SCAN循環(huán)語句表示條件地短語應(yīng)該用FOR,而不是OF；由題意知，變量SUM用于統(tǒng)計(jì)滿足條件地教師

人數(shù)，故應(yīng)使“每找到一條滿足條件地記錄,SUM值自動(dòng)加1”.在第2小題中，視圖設(shè)計(jì)器地使用同查詢?cè)O(shè)計(jì)器,考生可以參

考前面講到地查詢?cè)O(shè)計(jì)器來設(shè)計(jì)本題地視圖.

(1)【操作步驟】

打開考生文件夾下地程序文件temp.prg,并按題目地要求進(jìn)行改錯(cuò),修改完成后運(yùn)行程序文件,如下所示.

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

&&下句只有一處有錯(cuò)誤

SELECT課程號(hào)FROM課程表WHERE課程名="數(shù)據(jù)結(jié)構(gòu)"TOARRAYa

&&下句有錯(cuò)誤

OPEN教師表

STORE0TOsum

&&下句兩處有錯(cuò)誤

SCANOF課程號(hào)=aOR工資>=4000

&&下句有錯(cuò)誤

sum+1

ENDSCAN

?sum

錯(cuò)誤1：將TO改為INTO.

錯(cuò)誤2：將OPEN改為USE.

錯(cuò)誤3：將SCANOF改為SCANFOR.

錯(cuò)誤4：將OR改為AND.

錯(cuò)誤5：將sum+1改為sum=sum+l.

(2)【操作步驟】

步驟1：?jiǎn)螕粝到y(tǒng)菜單中地"新建”命令,新建一個(gè)視圖,將表〃教師表〃和"學(xué)院表”添加到新建地視圖中.

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

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

步驟4：在排序選項(xiàng)卡中,設(shè)置按"工資"降序排序,再按"系名"升序排序.

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

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

命令按鈕地代碼；當(dāng)列表框要求為數(shù)組時(shí),可以在表單地load事件中進(jìn)行定義：為選項(xiàng)按鈕組設(shè)置標(biāo)題,需要右鍵單擊選項(xiàng)

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

【操作步驟】

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

CreateFormoneform

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

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

件地屬性.

步驟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：保存表單，并按題目要求運(yùn)行表單.

第4套

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

在彈出地窗口中對(duì)表中記錄進(jìn)行修改.在第2小題中，修改表中字段地名稱需在表設(shè)計(jì)器中進(jìn)行.在第3小題中，ALTER

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

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

【操作步驟】

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

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

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

ALTERTABLEstudentADDUNIQUE學(xué)號(hào)TAG學(xué)號(hào)

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

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

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

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

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

(1)【操作步驟】

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

Createformtab

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

將頁框改為3個(gè)頁面.

步驟2：在頁框上單擊右鍵在彈出地快捷菜單中選擇"編輯”項(xiàng),設(shè)置頁框各頁地標(biāo)題屬性.

PagelCaption學(xué)生

Page2Caption課程

Page3Caption成績(jī)

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

到數(shù)據(jù)環(huán)境中.

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

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

ThisForm.Release.

步驟6：保存并運(yùn)行表單查看結(jié)果.

(2)【操作步驟】

步驟1：打開表單modi2,修改"計(jì)算”命令按鈕地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

錯(cuò)誤1：改為STORE0TOx,si,s2,s3.

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

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

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

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

【操作步驟】

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

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

SELECTStudent.姓名，Course.課程名稱，Score.考試成績(jī)；

FROMstudentINNERJOINscore;

INNERJOINcourse;

ONScore.課程編號(hào)=Course.課程編號(hào)；

ONStudent.學(xué)號(hào)二Score.學(xué)號(hào)；

where&cn;

ORDERBYCourse.課程名稱，Score.考試成績(jī)DESC;

INTOTABLEzonghe.dbf

步驟2：保存并運(yùn)行表單.

第5套

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

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

【操作步驟】

(1)打開數(shù)據(jù)庫SCORE_MANAGER,在父表中選中主索引，按住鼠標(biāo)左鍵拖動(dòng)至子表相應(yīng)地普通索引上,釋放鼠標(biāo).

(2)打開表COURSE,在系統(tǒng)菜單中執(zhí)行〃顯示〃菜單下地〃表設(shè)計(jì)器〃命令,在最下面輸入字段名〃開課學(xué)期〃,數(shù)據(jù)類型

為數(shù)值型(2,0).

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

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

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

認(rèn)值中填入”.NULL.".

②【解題思路】在第1小題中，可以在命令窗口中完成SQL語句地編寫,然后通過報(bào)表向?qū)瓿蓤?bào)表地建立.在第2小題

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

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

(1)【操作步驟】

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

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

FROMstudent;

INTOTABLEnew_tablel.dbf

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

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

步驟4：?jiǎn)螕粝乱徊降讲襟E5,選擇按字段"年齡”升序排序.

步驟5：?jiǎn)螕粝乱徊?，輸入?bào)表標(biāo)題“姓名一年齡

步驟6：完成報(bào)表,輸入報(bào)表名為"new_reportl".

(2)【操作步驟】

步驟1：新建菜單,分別輸入''查詢"和''退出"兩個(gè)菜單項(xiàng).

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

SETSYSMENUTODEFAULT

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

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

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

到地提示文字,后面兩項(xiàng)為可選項(xiàng).

【操作步驟】

步驟1：打開考生文件夾下地?cái)?shù)據(jù)庫"SCORE_MANAGER".

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

CREATEFORMmyforml

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

步驟3：添加數(shù)據(jù)環(huán)境表"course"和"scorel".

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

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

SELECTcourse.課程名，scorel.成績(jī)；

FROMcourse,scorel;

WHEREcourse.課程號(hào)=scorel.課程號(hào)ANDscorel.學(xué)號(hào)=ThisForm.Textl.text;

INTOTABLEcoruse_cursor

IFRECC()=0

MESSAGEBOX("學(xué)號(hào)不存在,請(qǐng)重新輸入學(xué)號(hào)”)

ELSE

ThisForm.Gridl.RecordSource="coruse_cursor”

ThisForm.Gridl.refresh

ENDIF

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

ThisForm.Release

步驟5：保存并運(yùn)行表單.

第6套

①【考點(diǎn)分析】本大題主要考查地知識(shí)點(diǎn)是：新建項(xiàng)目、將數(shù)據(jù)庫添加到項(xiàng)目中、為表建立永久聯(lián)系，以及為表中字

段設(shè)置有效性規(guī)則.

【操作步驟】

(1)啟動(dòng)VisualFoxPro6.0,按照題目地要求新建一個(gè)名為''供應(yīng)"地項(xiàng)目文件.

(2)按照題目地要求,將“供應(yīng)零件"數(shù)據(jù)庫添加到項(xiàng)目"供應(yīng)''中.

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

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

步驟3：在數(shù)據(jù)庫設(shè)計(jì)器中從主索引拖拽到普通索引建立聯(lián)系.

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

②【解題思路】打開本題涉及地?cái)?shù)據(jù)表,分析字段來源,然后完成SQL語句地編寫.通過菜單設(shè)計(jì)器完成快捷菜單地創(chuàng)

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

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

(1)【操作步驟】

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

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

SELECT供應(yīng).供應(yīng)商號(hào),供應(yīng).工程號(hào),供應(yīng).數(shù)量；

FROM零件，供應(yīng)WHERE供應(yīng).零件號(hào)=零件.零件號(hào)；

AND零件.顏色="紅"；

ORDERBY供應(yīng).數(shù)量desc;

INTODBFsupply_temp

步驟2：以queryl為文件名保存并運(yùn)行程序.

也可以先按照題目地要求通過查詢?cè)O(shè)計(jì)器建立查詢,然后打開查詢?cè)O(shè)計(jì)器工具欄中地切工具按鈕將其中地SQL語句

復(fù)制到指定地程序文件中,操作過程如圖3.9所示.一般來說,簡(jiǎn)單地SQL查詢語句都可以通過查詢?cè)O(shè)計(jì)器來實(shí)現(xiàn),且比較簡(jiǎn)

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

(2)【操作步驟】

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

步驟2：為快捷菜單添加菜單項(xiàng),并生成可執(zhí)行文件menu_quick.mpr.

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

步驟4：保存并運(yùn)行表單.

【小技巧】也可以通過以下方法獲得查詢?cè)O(shè)計(jì)器中地SQL語句：在查詢?cè)O(shè)計(jì)器中右鍵單擊空白處,在彈出地快捷菜單

中單擊“查看SQL”命令.

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

代碼.表單地Name屬性用于設(shè)置表單地名稱,Caption屬性用于設(shè)置表單地標(biāo)題；標(biāo)簽地Caption屬性用于設(shè)置標(biāo)簽地標(biāo)題；

命令按鈕地Caption屬性用于設(shè)置命令按鈕地標(biāo)題；表格控件地RecordSource屬性用于設(shè)置表格地?cái)?shù)據(jù)來源.在作答本題地

過程中還用到了”設(shè)置表單地?cái)?shù)據(jù)環(huán)境''地知識(shí)點(diǎn)，為表單建立數(shù)據(jù)環(huán)境,可以方便地設(shè)置控件與數(shù)據(jù)之間地綁定關(guān)系，并

且數(shù)據(jù)環(huán)境中地對(duì)象(表、視圖或表間地關(guān)聯(lián))會(huì)隨著表單地運(yùn)行而打開和建立，隨著表單地關(guān)閉或釋放而關(guān)閉.

【操作步驟】

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

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

各控件地屬性.

步驟3：將"供應(yīng)"表和''零件"表添加到表單地?cái)?shù)據(jù)環(huán)境中.

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

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

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

From供應(yīng)，零件；

Where零件.零件號(hào)=供應(yīng).零件號(hào)and供應(yīng).工程號(hào)=111151?01'111.textl.value;

OrderBy零件名；

Intodbfpp

ThisForm.Gridl.RecordSource="pp"

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

THISFORM.RELEASE

步驟5：保存表單名為mysupply,并按要求運(yùn)行表單.

【小技巧】

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

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

(3)為兩表建立永久性聯(lián)系時(shí)，需先選中父表中地主索引，并按下鼠標(biāo)左鍵，移動(dòng)鼠標(biāo)至表中地普通索引上，并松開鼠

標(biāo).

第7套

①【解題思路】通過"新建"菜單或"新建”命令按鈕實(shí)現(xiàn)數(shù)據(jù)庫地建立，在數(shù)據(jù)庫設(shè)計(jì)中完成表地添加；為表建立索引

需要在表設(shè)計(jì)器中進(jìn)行；為兩個(gè)表建立永久性聯(lián)系需要在數(shù)據(jù)庫設(shè)計(jì)器中進(jìn)行,并且兩個(gè)表要分別在對(duì)應(yīng)地字段上建立主

索引和普通索引.

【操作步驟】

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

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

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

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

②【解題思路】標(biāo)簽控件地FontSize屬性用于設(shè)置標(biāo)簽中文本地字號(hào),標(biāo)簽控件地FontName屬性用于設(shè)置標(biāo)簽中文本

地字體.

(1)【操作步驟】

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

步驟2：在表單設(shè)計(jì)器窗口中，按照題目地要求修改文本地相關(guān)屬性.

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

(2)【操作步驟】

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

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

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

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

FROMauthors,books;

WHEREAuthors.作者編號(hào)=Books.作者編號(hào)；

GROUPBYAuthors.作者姓名HAVINGCOUNT（Books.圖書編號(hào)）＞=3;

ORDERBYAuthors.作者姓名;

INTOTABLENEW_VIEW4

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

THISFORM.RELEASE

步驟3：保存表單為myform4并運(yùn)行.

【小技巧】也可以先按照題目地要求通過查詢?cè)O(shè)計(jì)器建立查詢,然后打開查詢?cè)O(shè)計(jì)器工具欄中地生工具按鈕將其中地

SQL語句復(fù)制到指定地程序文件中.

③【解題思路】SQLSELECT語句用于實(shí)現(xiàn)數(shù)據(jù)查詢地功能，其基本格式為：

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

也可以在上述語句中加入"INTO"短語，將查詢結(jié)果存入到指定地?cái)?shù)組（表或文本文件）中.

SQLUPDATE語句用于實(shí)現(xiàn)數(shù)據(jù)更新地功能,其格式為：

UPDATE表名SET字段名1=表達(dá)式1,字段名2=表達(dá)式2……

【操作步驟】

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

行該代碼.

SELECT*FROMBOOKSWHERE書名LIKE"%計(jì)算機(jī)％”INTOTABLEBOOKS_BAK

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

UPDATEBOOKS_BAKSET價(jià)格=價(jià)格*（1-0.05）

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

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

FROMbooks_bak;

GROUPBYBooks_bak.出版單位；

HAVING均價(jià)＞=25;

ORDERBY2;

INTOTABLEnew_table4.dbf

【小技巧】步驟1和步驟3地代碼可以通過建立一個(gè)查詢,并查看其中地SQL語句來完成.其中，步驟3通過查詢?cè)O(shè)計(jì)器

來實(shí)現(xiàn)要簡(jiǎn)單一些.

第8套

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

字段,可以在表設(shè)計(jì)器中完成.為菜單項(xiàng)增加快捷鍵,須在“提示選項(xiàng)''對(duì)話框中完成.

【操作步驟】

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

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

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

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

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

②【解題思路】因?yàn)轭}目沒有明確要求通過什么方式編寫SQL語句，因此,我們可以通過查詢?cè)O(shè)計(jì)器來完成題目地要

求.

(1)【操作步驟】

步驟1：按照題目地要求,通過查詢?cè)O(shè)計(jì)器新建查詢,或者在命令窗口輸入以下命令.

SELECT項(xiàng)目信息.項(xiàng)目號(hào)，項(xiàng)目信息.項(xiàng)目名，零件信息.零件號(hào)，；

零件信息.零件名稱；

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

INNERJOIN使用零件情況!項(xiàng)目信息；

ON使用零件.項(xiàng)目號(hào)=項(xiàng)目信息.項(xiàng)目號(hào)；

ON零件信息.零件號(hào)=使用零件.零件號(hào)；

ORDERBY項(xiàng)目信息.項(xiàng)目號(hào)DESC,零件信息.零件號(hào)；

INTOTABLEitem_temp.dbf

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

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

(2)【操作步驟】

步驟1：打開數(shù)據(jù)庫設(shè)計(jì)器，按照題目地要求新建本地視圖.注意，將表全部添加到視圖中時(shí)，按默認(rèn)聯(lián)接即可.

步驟2：按照題目地要求設(shè)計(jì)視圖.

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

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

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

件地標(biāo)題.

【操作步驟】

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

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

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

關(guān)屬性.

步驟3：按照題目地要求設(shè)置組合框地?cái)?shù)據(jù)源.

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

******"統(tǒng)計(jì)”按鈕地Click事件代碼******

x=allt(bol.value)

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

FROM使用零件，零件信息；

WHERE使用零件.零件號(hào)=零件信息.零件號(hào)；

AND使用零件.項(xiàng)目號(hào)=x;

GROUPBY使用零件.項(xiàng)目號(hào)；

intoarrayb

thisform.textl.value=b

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

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

ThisForm.Release

步驟5：保存并運(yùn)行表單.

第9套

①【解題思路】在數(shù)據(jù)庫設(shè)計(jì)器中刪除其中地表需要注意"移去"和"刪除"地區(qū)別：移去是指從數(shù)據(jù)庫設(shè)計(jì)器中刪除

表，但該表仍存在于磁盤中；刪除是指從數(shù)據(jù)庫設(shè)計(jì)器中刪除表,并從磁盤上刪除該表.建立表間聯(lián)系時(shí),必需有一個(gè)表為

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

動(dòng)關(guān)系線.

【操作步驟】

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

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

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

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

②【解題思路】設(shè)置組合框?yàn)椤ㄏ吕斜砜?,需將其Style屬性值改為“2一下拉列表框?qū)⒔M合框地RowSource屬性設(shè)

置為"employee.姓名”即可使employee表中地"姓名"字段作為組合框地?cái)?shù)據(jù)來源.設(shè)置Textl地Readonly屬性為”.T.一真”

即可使文本框變?yōu)橹蛔x.在VF中，絕對(duì)引用是指從容器地最高層引用對(duì)象，給出對(duì)象地絕對(duì)地址，如forml.textl.value；相對(duì)

引用是指在容器層次中相對(duì)于某個(gè)容器層次地引用，如ThisForm.textl.value.

(1)【操作步驟】

步驟1：打開表單設(shè)計(jì)器，將題目要求地兩個(gè)表添加到其數(shù)據(jù)環(huán)境中.然后關(guān)閉數(shù)據(jù)環(huán)境設(shè)計(jì)器.

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

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

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

*下面代碼地功能是讀取所選職員地職員號(hào),然后計(jì)算該職員所簽訂單地平均金額,并顯示在文本框內(nèi).

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

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

dimea(l,1)

a(l,1)=0

ml=employee.職員號(hào)

selectavg(金額)fromorderswhere職員號(hào)二mlintoarraya

m2=a(l,1)

***FOUND***

textl.value=m2

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

步驟4：保存并運(yùn)行表單.

(2)【操作步驟】

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

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

步驟3：按照題目地要求對(duì)指定地字段進(jìn)行排序，并定義查詢?nèi)ハ驗(yàn)楸怼皌ableone".

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

③【解題思路】對(duì)于本題，考生需掌握兩個(gè)知識(shí)點(diǎn)，一是“常規(guī)選項(xiàng)”對(duì)話框地使用，其中"追加"和''在..?之前”是上機(jī)

考試地考查知識(shí)點(diǎn),〃追加”表示在系統(tǒng)菜單地末尾增加指定地菜單項(xiàng),''在...之前“是在指定地系統(tǒng)菜單之前增加一個(gè)菜單

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

【操作步驟】

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

步驟2：按照題目要求設(shè)計(jì)各級(jí)菜單.

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

*******〃統(tǒng)計(jì)〃菜單項(xiàng)中地代碼*******

SELECTEmployee.組別，Employee.姓名AS負(fù)責(zé)人,sum(orders.金額)as合計(jì)；

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

ONEmployee.職員號(hào)=Orders.職員號(hào)；

WHEREEmployee.職務(wù)="組長”；

GROUPBYEmployee.組別；

ORDERBY3DESC;

INTOTABLEtabletwo.dbf

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

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

步驟6：在命令窗口中輸入"DOmymenu.mpr”運(yùn)行程序,并分別執(zhí)行〃統(tǒng)計(jì)"和"返回''菜單命令.

【易錯(cuò)誤區(qū)】有些題目要求在當(dāng)前VisualFoxPro系統(tǒng)菜單地某個(gè)位置插入一個(gè)子菜單,此時(shí)需要在打開菜單設(shè)計(jì)器地

情況下執(zhí)行"顯示"菜單中地"常規(guī)選項(xiàng)”命令,然后在“常規(guī)選項(xiàng)”對(duì)話框中進(jìn)行設(shè)置.

第10套

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

地''新建"按鈕，最后在彈出地查詢?cè)O(shè)計(jì)器中進(jìn)行操作.

【操作步驟】

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

考生文件夾下.

(2)按照題目地要求在項(xiàng)目管理器中新建一個(gè)數(shù)據(jù)庫.設(shè)計(jì)完成后,關(guān)閉數(shù)據(jù)庫設(shè)計(jì)器.

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

和"loans.dbF'3個(gè)表.

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

步驟2：將"book"表添加到查詢?cè)O(shè)計(jì)器中.

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

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

步驟5：在"排序依據(jù)''選項(xiàng)卡中，按要求設(shè)置排序依據(jù).

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

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

這個(gè)表”地錯(cuò)誤提示,則表明該表是數(shù)據(jù)庫表而不是自由表，則不用添加該表.

②【解題思路】在查詢?cè)O(shè)計(jì)器中，''字段"選項(xiàng)卡相當(dāng)于SQL語句中地SELECT和FROM短語，”篩選〃選項(xiàng)卡相當(dāng)于SQL

語句中地WHERE短語，"排序依據(jù)”選項(xiàng)卡相當(dāng)于SQL語句中地ORDERBY短語，"分組依據(jù)”選項(xiàng)卡相當(dāng)于SQL語句中地

GROUPBY短語.要將表單設(shè)置為''頂層表單''需將表單地ShowWinDOws屬性改為”2—頂層表單”,并在菜單地'‘常規(guī)選項(xiàng)”

對(duì)話框中將菜單設(shè)置為〃頂層表單

(1)【操作步驟】

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

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

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

步驟4：在排序依據(jù)選項(xiàng)卡中按要求設(shè)置排序條件.

步驟5：為查詢?cè)O(shè)置查詢?nèi)ハ?

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

(2)【操作步驟】

步驟1：將菜單設(shè)置為"頂層表單

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

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

DOmenu_lin.mprWithThis,"abc”

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

ReleaseMenuabcExtended

步驟4：保存并運(yùn)行表單.

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

將RowSoure屬性設(shè)置為這些值,且之間要用逗號(hào)隔開,最后還要將其Style屬性設(shè)置為2.

【操作步驟】

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

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

表單添加數(shù)據(jù)環(huán)境"book”表.

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

*******"統(tǒng)計(jì)”命令按鈕地Click事件******

SELECTCOUNT(*)FROMBOOK;

WHERE出版社=THISF0RM.COMBO1.VALUE;

INTOARRAYTEMP

THISFORM.TEXT1.VALUE=TEMP(1)

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

ThisForm.Release

步驟4：保存并運(yùn)行表單.

第11套

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

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

【操作步驟】

(1)打開表單。ne,通過屬性窗口設(shè)置3個(gè)命令按鈕地焦點(diǎn)移動(dòng)順序.

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

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

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

將該程序保存為three.prg并運(yùn)行.

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

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

②【解題思路】

WHILE循環(huán)語句地格式為如下.

DOWHILE條件表達(dá)式

語句體

ENDDO

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

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

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

REPLACE字段名WITH常量

故第3處錯(cuò)誤應(yīng)改為"REPLACE歌手人數(shù)WITHA".

(1)【操作步驟】

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

*******計(jì)算按鈕地Qick事件代碼********

&&根據(jù)〃歌手表〃計(jì)算每個(gè)組地歌手人數(shù)

CLOSEDATA

USEone

GOTOP

WHILE.NOT.EOF()&&錯(cuò)誤

zuhao二組號(hào)

SELECTCOUNT(*)FROM歌手表WHERE歌手表.歌手編號(hào)二zuhaoINTOARRAYA&&錯(cuò)誤

REPLACE歌手人數(shù)INTOA&&錯(cuò)誤

SKIP

ENDDO

步驟2：保存并運(yùn)行程序.

(2)【操作步驟】

步驟1:新建一個(gè)名為“歌手大獎(jiǎng)賽”地?cái)?shù)據(jù)庫文件，在數(shù)據(jù)庫設(shè)計(jì)器中空白處單擊右鍵,并將''歌手表"、"評(píng)委表"和"

評(píng)分表”添加到數(shù)據(jù)庫中.

步驟2：新建一個(gè)視圖，并將表“歌手表"、"評(píng)委表"和"評(píng)分表''添加到視圖設(shè)計(jì)器中.

步驟3：將”評(píng)委表.評(píng)委姓名"、”歌手表.歌手姓名‘'和''評(píng)分表.分?jǐn)?shù)"3個(gè)字段添加到選定字段框中.

步驟4：在排序選項(xiàng)卡中按"歌手姓名"升序排序,再按"分?jǐn)?shù)"降序排序.

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

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

【操作步驟】

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

步驟2：通過屬性窗口設(shè)置表單及相關(guān)各控件地屬性.

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

*******計(jì)算按鈕地Chck事件代碼********

SELECT*FROM評(píng)分表；

WHEREleft(評(píng)分表.歌手編號(hào),2)=ThisForm.Listl.list(ThisForm.Listl.listindex);

INTOTABLEtwo.dbf;

ORDERBY評(píng)分表.歌手編號(hào)DESC,評(píng)分表.分?jǐn)?shù)

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

第12套

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

句地使用.

【操作步驟】

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

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

(3)通過報(bào)表向?qū)陆▓?bào)表，保存報(bào)表名為two并預(yù)覽.

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

②【解題思路】打開程序，修改錯(cuò)誤地地方.建立一個(gè)查詢?cè)O(shè)計(jì)器完成查詢.

(1)【操作步驟】

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

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

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

USE工資表

APPENDFROM教師表

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

DELETEFROM工資表where姓名="Thomas"

PACK

步驟2：保存并運(yùn)行程序.

(2)【操作步驟】

步驟1：?jiǎn)螕舫Ｓ霉ぞ邫谥械亍靶陆āò粹o,新建一個(gè)查詢,添加表“教師表"和"學(xué)院表''到新建地查詢中.

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

步驟3：添加篩選條件.

步驟4：為查詢?cè)O(shè)置排序依據(jù).

步驟5：輸入查詢?nèi)ハ驗(yàn)楸?five”.

步驟6：保存查詢名為teachejq,運(yùn)行查詢.

③【解題思路】新建表單，在表單地RightClick事件中寫入調(diào)用菜單地方法，完成菜單地設(shè)計(jì).

【操作步驟】

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

Creaformmyform

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

DOmymenu.mpr

步驟2：新建一個(gè)快捷菜單,菜單項(xiàng)分別為“取前3名"和''取前5名”,結(jié)果均為過程.

步驟3：分別單擊兩個(gè)菜單項(xiàng)后面地“創(chuàng)建〃按鈕,編寫對(duì)應(yīng)地過程代碼：

*******〃取前3名”菜單項(xiàng)中地代碼*******

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

FROM學(xué)院表，教師表;

WHERE學(xué)院表.系號(hào)=教師表.系號(hào)；

GROUPBY學(xué)院表.系名;

ORDERBY2DESC;

INTOTABLEsa_three.dbf

*******"取前5〃菜單項(xiàng)中地代碼*******

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

FROM學(xué)院表，教師表；

WHERE學(xué)院表.系號(hào)=教師表.系號(hào)；

GROUPBY學(xué)院表.系名；

ORDERBY2DESC;

INTOTABLEsa_five.dbf

步驟4：保存并生成可執(zhí)行菜單.

步驟5：運(yùn)行表單,在表單空白處單擊鼠標(biāo)右鍵，依次執(zhí)行兩個(gè)菜單項(xiàng)中地命令.

第13套

①【解題思路】建立查詢向?qū)瓿刹樵?在數(shù)據(jù)庫設(shè)計(jì)器中刪除視圖，執(zhí)行插入地SQL語句，完成表單.

【操作步驟】

⑴新建一個(gè)查詢.單擊"向?qū)А卑粹o.按照向?qū)У靥崾?首先從COURSE表中選擇"姓名"和"出生日期”字段,然后按提示

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

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

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

INSERTINTOSCORE1(學(xué)號(hào)，課程號(hào)，成績(jī))VALUES("993503433”,"0001",99)

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

擊"關(guān)閉”命令按鈕,編寫其Clic