數(shù)據(jù)庫應(yīng)用技術(shù)-Visual FoPro 0（第2版）第八章

第8章VisualFoxPro程序設(shè)計(jì)基礎(chǔ)課題：結(jié)構(gòu)化程序設(shè)計(jì)基礎(chǔ)教學(xué)目的：1、掌握accept、input、wait三個(gè)語句的使用2、學(xué)會順序結(jié)構(gòu)程序的編制通過學(xué)習(xí)，學(xué)會編制簡單的應(yīng)用程序。順序結(jié)構(gòu)程序設(shè)計(jì)教具教學(xué)方法網(wǎng)絡(luò)機(jī)房講授法、演示法、練習(xí)法、觀察討論法

教學(xué)重點(diǎn)難點(diǎn)教學(xué)步驟導(dǎo)入新課：1、交互式命令由教師給出accept、input、wait三個(gè)命令格式演示并講解三個(gè)命令的使用。2、程序設(shè)計(jì)教師按如下要求演示并編制程序，學(xué)生觀察：用ACCEPT命令輸入一個(gè)“圖書ID”數(shù)據(jù)，在“圖書”表中查找并顯示該圖書的記錄信息。＊教師給出分析提示：1、用modifycommand命令編制程序

2、用LIST命令實(shí)現(xiàn)程序如下：SETTALKOFFUSE圖書ACCEPT"輸入要查找的圖書ID："TOTSLISTFOR圖書ID=TSuseSETTALKON＊教師用do命令運(yùn)行程序，引導(dǎo)學(xué)生觀察結(jié)果并練習(xí)該程序。＊練習(xí)：要求學(xué)生按以下要求完成程序設(shè)計(jì)用INPUT命令輸入一個(gè)日期，在"借閱"表中查找該日期以后借書的記錄。程序如下：SETTALKOFFINPUT"輸入要查詢的日期："TORQSELECT*FROM借閱WHERE借書日期>RQUSEsettalkon由學(xué)生進(jìn)行運(yùn)行并調(diào)試程序，教師對出現(xiàn)的錯(cuò)誤加以指導(dǎo)。＊練習(xí)：學(xué)生按如下要求編制程序從鍵盤上輸入待查詢讀者的"借書證號"，顯示該讀者的基本信息。程序如下：CLEAROPENDATABASEbooksUSE讀者ACCEPT"輸入讀者借書證號："TOZHLOCATEFOR借書證號=ZHIFNOTEOF()?"讀者姓名："+姓名?"性別："+性別?"出生日期："+DTOC(出生日期)?"工作單位："+單位ELSE?"查無此人！"ENDIFCLOSEDATABASERETURN教師總結(jié)：1、本節(jié)程序設(shè)計(jì)中出現(xiàn)的問題2、程序設(shè)計(jì)中的方法板書設(shè)計(jì)：1、交互式命令2、簡單程序設(shè)計(jì)課題：選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)教學(xué)目的：1、學(xué)會選擇結(jié)構(gòu)的程序設(shè)計(jì)2、學(xué)會循環(huán)結(jié)構(gòu)的程序設(shè)計(jì)通過學(xué)習(xí)，掌握用兩種結(jié)構(gòu)設(shè)計(jì)程序的方法。循環(huán)結(jié)構(gòu)程序設(shè)計(jì)方法教具教學(xué)方法網(wǎng)絡(luò)機(jī)房講授法、演示法、練習(xí)法、觀察討論法

教學(xué)重點(diǎn)難點(diǎn)教學(xué)步驟導(dǎo)入新課：1、選擇結(jié)構(gòu)教師給出三種選擇結(jié)構(gòu)并進(jìn)行講解。按如下要求講解并演示docase選擇結(jié)構(gòu)，學(xué)生觀察：用DOCASE…ENDCASE多分支結(jié)構(gòu)編寫程序，計(jì)算下列分段函數(shù)：SETTALKOFFINPUT"輸入X的值："TOXDOCASECASEX<=0?EXP(2)CASEX<=5?X*X+7CASEX<=10?10*X-2CASEX<=20?X*X*X-5OTHERWISE?3*X+1ENDCASESETTALKON教師講解并運(yùn)行上述程序，由學(xué)生觀察結(jié)果并按要求練習(xí)。2、循環(huán)結(jié)構(gòu)教師給出三種循環(huán)結(jié)構(gòu)，并按如下要求進(jìn)行演示練習(xí)：（1）FOR循環(huán)結(jié)構(gòu)

USE圖書EXCLUSIVELOCATEFOR單價(jià)>20FORI=1TO100IFNOTEOF()DISPLAYCONTINUEENDIFENDFOR教師講解該程序的功能，引導(dǎo)學(xué)生練習(xí)。（2）DO循環(huán)結(jié)構(gòu)USE圖書EXCLUSIVEDOWHILENOTEOF()IF單價(jià)>20DISPLAYENDIFSKIPENDDO＊教師講解該程序的功能，引導(dǎo)學(xué)生練習(xí)。（3）SCAN循環(huán)結(jié)構(gòu)USE圖書EXCLUSIVESCANFOR單價(jià)>20

DISPLAYENDSCAN教師講解該程序的功能，引導(dǎo)學(xué)生練習(xí)。＊教師分析總結(jié)：以上3個(gè)程序?qū)崿F(xiàn)的功能相同，但實(shí)現(xiàn)的方法不同，從而提高學(xué)生學(xué)習(xí)程序方法的運(yùn)用。3、雙重循環(huán)教師講解雙重循環(huán)實(shí)現(xiàn)的方法及過程。要求學(xué)生思考并完成以下練習(xí)：編寫一個(gè)雙重循環(huán)結(jié)構(gòu)的程序，要求從鍵盤輸入9個(gè)數(shù)，按從小到大的順序排列并顯示出來。教師給出提示：1、存放9個(gè)數(shù)用數(shù)組實(shí)現(xiàn)2、如何用循環(huán)實(shí)現(xiàn)對數(shù)組元素賦值（教師以實(shí)例演示）3、比較過程用雙重循環(huán)實(shí)現(xiàn)4、如何用循環(huán)顯示數(shù)組元素的值（教師以實(shí)例演示）學(xué)生練習(xí)后，教師對練習(xí)過程做出總結(jié)，并給出如下程序：SETTALKOFFDIMENSIONA(9)FORI=1TO9?"第",I,"個(gè)數(shù)："

INPUTTOA(I)ENDFORFORI=1TO8FORJ=I+1TO9IFA(I)>A(J)T=A(I)A(I)=A(J)A(J)=TENDIFENDFORENDFORFORI=1TO9??A(I)ENDFORRETURN師生共同研討：有一個(gè)7位評委的歌手大獎(jiǎng)賽的數(shù)據(jù)表djx.dbf，如何計(jì)算歌手的最后得分（計(jì)算方法：去掉一個(gè)最高分，去掉一個(gè)最低分，余下5位評委的平均分即為歌手的最后得分）師生共同研討，給出數(shù)據(jù)表的設(shè)計(jì)，并討論如何實(shí)現(xiàn)計(jì)算過程。板書設(shè)計(jì)：1、選擇結(jié)構(gòu)2、循環(huán)結(jié)構(gòu)3、雙重循環(huán)課題：子程序、過程、函數(shù)教學(xué)目的：1、掌握子程序的調(diào)用2、學(xué)會過程文件的編制與調(diào)用3、學(xué)會編制函數(shù)及調(diào)用函數(shù)1、參數(shù)調(diào)用2、過程、函數(shù)的編制教具教學(xué)方法網(wǎng)絡(luò)機(jī)房講授法、演示法、練習(xí)法、觀察討論法

教學(xué)重點(diǎn)難點(diǎn)教學(xué)步驟導(dǎo)入新課：1、子程序的調(diào)用教師演示如下程序，以實(shí)例說明子程序的調(diào)用，學(xué)生觀察：編寫一個(gè)子程序計(jì)算N！，在主程序中通過鍵盤輸入正整數(shù)N，調(diào)用該子程序計(jì)算階乘。*主程序JC.prgSETTALKOFFCLEARINPUT"N="TONDOJC1?"N!=",NRETURN*子程序JC1.prg*計(jì)算N！的階乘STORE1TOL,KFORL=1TONK=K*LENDFORN=KRETURN教師分析以上程序，說明子程序與主程序間的關(guān)系，要求學(xué)生進(jìn)行練習(xí)，體會程序的調(diào)用關(guān)系。2、過程文件教師理論講解過程文件的建立與調(diào)用方法，并提示建立中應(yīng)該注意的問題，特別要講明過程文件名與過程名的區(qū)別。演示并講解P228例23，并要求學(xué)生進(jìn)行練習(xí)。3、參數(shù)傳遞教師參照P229例24演示并講解，強(qiáng)調(diào)出參數(shù)傳值與傳址的區(qū)別及其特點(diǎn)。教師演示并講解如下程序，注意講清參數(shù)傳遞中變量的值的變化：

利用子程序和參數(shù)傳遞，計(jì)算10!+15!+20!。*主程序H.prgCLEARS=0FORI=10TO20STEP5J=IDOJCWITHJS=S+JENDFOR?"S=",SRETURN*子程序JC.prg*計(jì)算N！的階乘PARAMETERNSTORE1TOL,KFORL=1TONK=K*LENDFORN=KRETURN4、內(nèi)存變量的屬性教師參照P231例25、26、27三個(gè)例題演示并講解，讓學(xué)生觀察變量值的變化，并要求學(xué)生完成練習(xí)。5、自定義函數(shù)教師給出自定義函數(shù)的命令格式，特別講清形參與實(shí)參的關(guān)系，以及函數(shù)返回值。

教師按如下要求完成自定義函數(shù)的建立過程：編寫主程序調(diào)用UDF函數(shù)，計(jì)算圓半徑從10~20（步長為1）的圓面積。*主程序main.prgCLEARFORI=10TO20?UDF