Visual Foxpro編程實(shí)例.doc

實(shí)驗(yàn)五 Visual Foxpro編程實(shí)踐一. 實(shí)驗(yàn)?zāi)康呐c要求掌握利用Visual Foxpro編制開發(fā)自己的應(yīng)用程序的實(shí)踐知識，并學(xué)會在程序調(diào)試中自行發(fā)現(xiàn)問題和修改程序代碼，最終完成應(yīng)用程序的無錯運(yùn)行。二. 相關(guān)知識利用Visual Foxpro自行開發(fā)編制應(yīng)用程序的步驟：1設(shè)置好系統(tǒng)的工作環(huán)境(尤其注意工作目錄的默認(rèn)設(shè)置)。2如果是初次進(jìn)行，應(yīng)當(dāng)先建立一個項(xiàng)目，為該項(xiàng)目命名，激活項(xiàng)目管理器。如果是接著上次的工作進(jìn)行，則打開上次工作的本項(xiàng)目，同樣也激活項(xiàng)目管理器。3在項(xiàng)目管理器的“數(shù)據(jù)”“數(shù)據(jù)庫”下面創(chuàng)建一個數(shù)據(jù)庫，并命名(如已創(chuàng)建，則跳過本步驟)。4在項(xiàng)目管理器的“數(shù)據(jù)”“數(shù)據(jù)庫”“表”下面進(jìn)行數(shù)據(jù)表的創(chuàng)建或修改工作，并輸入少量的正確數(shù)據(jù)以便將來的運(yùn)行調(diào)試(如果已經(jīng)創(chuàng)建了數(shù)據(jù)表，則跳過本步驟)。5在項(xiàng)目管理器的“文檔”下面創(chuàng)建該應(yīng)用程序所用到的所有表單，設(shè)計(jì)好各表單的界面并為表單里的控件填寫程序代碼.(注意為表單添加各自的數(shù)據(jù)環(huán)境，否則會出錯!)6試運(yùn)行各表單，發(fā)現(xiàn)問題后重新修改有問題的表單的代碼，反復(fù)調(diào)試和修改直至最后能無錯運(yùn)行。7將應(yīng)用程序打包發(fā)布或制作成安裝文件。三. 實(shí)驗(yàn)內(nèi)容與步驟本次實(shí)驗(yàn)以一個簡單的學(xué)生成績管理系統(tǒng)為例。首先，對該系統(tǒng)作一個簡單的介紹：該應(yīng)用系統(tǒng)為完成學(xué)生信息和成績的管理系統(tǒng)，主要有以下幾個應(yīng)用模塊：(1) 用戶登錄管理： 系統(tǒng)具有管理員功能，只有取得管理員權(quán)限的人才能使用本系統(tǒng)。(2) 數(shù)據(jù)添加功能： 對學(xué)生基本信息、教師基本信息、班級信息、課程信息、學(xué)生成績信息進(jìn)行添加錄入。(3) 數(shù)據(jù)查詢功能： 對上述信息的基本查詢。(4) 數(shù)據(jù)修改功能： 對上述信息可進(jìn)行修改工作。(5) 統(tǒng)計(jì)操作： 可分別按個人成績、單科成績統(tǒng)計(jì)出最高成績、最低成績和平均成績等。(6) 打印功能： 對上述信息可進(jìn)行打印。實(shí)驗(yàn)步驟如下：1數(shù)據(jù)庫設(shè)計(jì)：首先設(shè)置好系統(tǒng)的運(yùn)行環(huán)境和工作目錄，然后建立項(xiàng)目，為項(xiàng)目命名為“學(xué)生成績管理系統(tǒng)”，激活項(xiàng)目管理器，并在在項(xiàng)目管理器的“數(shù)據(jù)”“數(shù)據(jù)庫”下面創(chuàng)建一個數(shù)據(jù)庫，命名為“學(xué)生成績管理”，在“數(shù)據(jù)庫”的“表”下面創(chuàng)建以下各數(shù)據(jù)表：(1) 用戶信息表user (表名命名為user即可，不要加漢字。以下同。)字段名稱類型寬度用戶名字符型10密碼字符型10(2) 學(xué)生信息表 student字段名稱類型寬度學(xué)號字符型8姓名字符型10性別字符型2班級編號字符型6出生日期日期型8(3) 教師信息表 teacher字段名稱類型寬度教師代碼字符型4姓名字符型10性別字符型2職稱字符型10部門字符型10出生日期日期型8(4) 班級信息表 classes字段名稱類型寬度班級編號字符型6年級字符型4專業(yè)字符型10系代碼字符型2學(xué)制字符型2類型字符型4(5) 課程信息表 course字段名稱類型寬度課程代碼字符型6課程名稱字符型16類別字符型4教師代碼字符型4(6) 分?jǐn)?shù)信息表 score字段名稱類型寬度學(xué)號字符型8課程代碼字符型6成績數(shù)值型4創(chuàng)建好以上數(shù)據(jù)表以后，應(yīng)該向每個表中添加適量合法數(shù)據(jù)以便后面的測試。2.表單設(shè)計(jì)2.1登錄模塊功能描述： 實(shí)現(xiàn)只有指定的用戶才能訪問系統(tǒng)的功能。并且，只有身份為“管理員”的用戶才可以調(diào)用修改模塊修改數(shù)據(jù)。界面設(shè)計(jì)：表單名稱： login文件名： login.scx數(shù)據(jù)環(huán)境： user.dbf對象設(shè)置： 對 象 屬 性 值說 明Form1Caption歡迎使用學(xué)生成績管理系統(tǒng)Lable1Caption學(xué)生成績管理系統(tǒng)Lable2Caption請輸入用戶名：Lable3Caption請輸入密碼：Combo1RowSourceType6-字段指定數(shù)據(jù)值來源類型RowSourceUser.用戶名指定數(shù)據(jù)值來源Cammand1Caption登錄Cammand2Caption退出函數(shù)與方法聲明：(1) Command1中的Click事件功能：完成在登錄時對輸入的用戶名和密碼的檢驗(yàn)，如果數(shù)據(jù)表user中存在輸入的用戶名和密碼信息，則調(diào)用主窗口(如果是管理員則不但調(diào)用主窗口，還允許執(zhí)行主窗口的修改功能)，否則提示輸入錯誤。程序清單：private kl，yh，stst=密碼不正確，請重新輸入!use userkl=alltrim(thisform.text1.value)yh=alltrim(bo1.value)*將用戶輸入的用戶名和密碼的值分別保存在yh和kl變量中l(wèi)ocate for alltrim(bo1.value)= =alltrim(user.用戶名)*在user表中查找是否有與yh和kl匹配的記錄if found() and alltrim(user.密碼)= =kl*正確的用戶名和密碼 thisform.visible=.f. close tables all do form main.scx if yh= =admin *如果是超級用戶管理員，則允許他使用main表單中的第三組按鈕(即修改模塊) main.optiongroup1.option3.enabled=.t. endif this.parent.text1.value=else*錯誤的用戶名和密碼，系統(tǒng)給出提示，延遲2秒wait window st timeout 2thisform.text1.value=thisform.text1.setfocusendif(2) Command2中的Click事件功能：退出學(xué)生成績管理系統(tǒng)程序清單：clear eventsquit(3) Form1的Destroy事件功能：意外關(guān)閉程序窗口時的處理程序清單：clear events2.2 主界面模塊功能描述： 主要是提供本系統(tǒng)各功能模塊的入口.界面設(shè)計(jì)：表單名稱： main文件名： main.scx數(shù)據(jù)環(huán)境： 無對象設(shè)置：對 象 屬 性 值Form1Caption學(xué)生成績管理系統(tǒng)Lable1Caption歡迎使用學(xué)生成績管理系統(tǒng)Lable2Caption請選擇要操作的內(nèi)容：Optiongroup1ButtonCount6Optiongroup1.Option1Caption添加記錄Optiongroup1.Option2Caption查詢記錄Optiongroup1.Option3Caption修改記錄Optiongroup1.Option3Enabled.F.Optiongroup1.Option4Caption統(tǒng)計(jì)數(shù)據(jù)Optiongroup1.Option5Caption打印報(bào)表Optiongroup1.Option6Caption退出系統(tǒng)函數(shù)與方法聲明：(1) Optiongroup1中的IntelactiveChange事件：功能： 根據(jù)Optiongroup1中的選擇單擊按鈕，調(diào)用各重要功能模塊.程序清單：do case case this.value=1 do form 添加 case this.value=2 do form 查詢 case this.value=3 do form 修改 case this.value=4 do form 統(tǒng)計(jì) case this.value=5 do form 打印 case this.value=6 thisform.release quitendcase(2) Optiongroup1中的每一個Option的Click事件：功能： 與(1)中不同，(1)是指在Optiongroup中的各個Option切換時才觸發(fā)的程序，僅這樣還不夠，還要編寫每個Option被單擊時觸發(fā)的程序才完整。程序清單：對應(yīng)Optiongroup1.Option1的Click事件： do form 添加(其余類推)2.3 數(shù)據(jù)添加模塊功能描述： 用戶通過5個不同的頁面來完成對學(xué)生信息表、教師信息表、班級表、課程表和成績表的數(shù)據(jù)添加操作。界面設(shè)計(jì)：表單名稱： 添加文件名： 添加.scx數(shù)據(jù)環(huán)境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf對象設(shè)置： 對 象 屬 性 值說 明Form1Caption添加PageFrame1PageCount5Command1Caption返回主菜單主表單中的Command1Page1Caption學(xué)生表Page2Caption教師表Page3Caption班級表Page4Caption課程表Page5Caption成績表Command1Caption添加與上面的Command1不同，這是在各個頁面中的Command1Command2Caption清空函數(shù)與方法聲明：因?yàn)樘砑颖韱沃袑τ?個表的操作方法類似，所以這里只給出學(xué)生表的添加部分，其余4個頁面的程序請同學(xué)們自己對照思考和編制。(1) Form1中的Active事件功能： 設(shè)置焦點(diǎn)位置程序清單：this.pageframe1.page1.text1.setfocus(2) Form1中的Command1的Click事件功能： 釋放當(dāng)前窗口程序清單： thisform.release(3) Page1中Command1的Click事件功能： 將輸入的新記錄信息添加到學(xué)生表中，完成新記錄的添加工作程序清單：num1=alltrim(thisform.pageframe1.page1.text1.value)num2=alltrim(thisform.pageframe1.page1.text2.value)num3=alltrim(thisform.pageframe1.page1.text3.value)num4=alltrim(thisform.pageframe1.page1.text4.value)num5=alltrim(dtoc(thisform.pageframe1.page1.text5.value) &并非是alltrim(thisform.pageframe1.page1.text5.value)set exact ondo case case num1= messagebox(學(xué)號不能為空!，0+48，系統(tǒng)提示!) thisform.pageframe1.page1.text1.setfocus case num2= messagebox(姓名不能為空!，0+48，系統(tǒng)提示!) thisform.pageframe1.page1.text2.setfocus case num3= messagebox(性別不能為空!，0+48，系統(tǒng)提示!) thisform.pageframe1.page1.text3.setfocus case num4= messagebox(班級編號不能為空!，0+48，系統(tǒng)提示!) thisform.pageframe1.page1.text4.setfocus case num5= messagebox(出生日期不能為空!，0+48，系統(tǒng)提示!) thisform.pageframe1.page1.text5.setfocusotherwise a=messagebox(確認(rèn)添加么?，1+64+0，系統(tǒng)提示!) if a=1 select student go bottom insert into student(學(xué)號，姓名，性別，班級編號，出生日期) values(num1，num2，num3，num4，ctod (num5) messagebox(添加成功!) else thisform.pageframe1.page1.text1.setfocus endifendcase(4) Page1中的Command2的Click事件：功能： 清空當(dāng)前頁面上輸入的數(shù)據(jù)程序清單：this.parent.text1.value=this.parent.text2.value=this.parent.text3.value=this.parent.text4.value=this.parent.text5.value=由于其它各個頁面上的添加數(shù)據(jù)的操作大同小異，這里不再贅述。比如：num1=alltrim(thisform.pageframe1.page2.text1.value)num2=alltrim(thisform.pageframe1.page2.text2.value)num3=alltrim(thisform.pageframe1.page2.text3.value)num4=alltrim(thisform.pageframe1.page2.text4.value)num5=alltrim(thisform.pageframe1.page2.text5.value)num6=alltrim(dtoc(thisform.pageframe1.page2.text6.value) &并非是alltrim(thisform.pageframe1.page2.text6.value)set exact ondo case case num1= messagebox(教師代碼不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text1.setfocus case num2= messagebox(姓名不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text2.setfocus case num3= messagebox(性別不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text3.setfocus case num4= messagebox(職稱不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text4.setfocus case num5= messagebox(部門不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text5.setfocus case num6= messagebox(出生日期不能為空!,0+48,系統(tǒng)提示!) thisform.pageframe1.page2.text6.setfocus otherwise a=messagebox(確認(rèn)添加么?,1+64+0,系統(tǒng)提示!) if a=1 select student go bottom insert into student(教師代碼,姓名,性別,職稱,部門,出生日期) values(num1,num2,num3,num4,num5,ctod(num6) messagebox(添加成功!) else thisform.pageframe1.page2.text1.setfocus endifendcase2.4 數(shù)據(jù)查詢模塊功能描述： 用戶可以通過不同的頁面完成對5個不同表中的數(shù)據(jù)的查詢操作界面設(shè)計(jì)：表單名稱： 查詢文件名： 查詢.scx數(shù)據(jù)環(huán)境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf對象設(shè)置： 查詢主表單中的對象設(shè)置：對 象 屬 性 值說 明Form1Caption查詢PageFrame1PageCount3Command1Caption返回主菜單主表單中的Command1PageFrame1.Page1中的對象設(shè)置：對 象 屬 性 值Combo1RowSourceType6-字段RowSourceClassese.班級編號Combo2RowSourceType6-字段RowSourceStudent.姓名Label1Caption請選擇班級代碼和姓名Label2Caption班級代碼Label3Caption姓名Label4Caption學(xué)號Label5Caption姓名Label6Caption性別Label7Caption出生日期PageFrame1.Page2用來對數(shù)據(jù)表進(jìn)行瀏覽，其界面為：其中的對象設(shè)置：對 象 屬 性 值Combo1RowSourceType1-值RowSource學(xué)生表，教師表，班級表，課程表，成績表Style2-下拉列表框Value1Label1Caption請選擇要瀏覽的表Grid1RecordSourceType0-表PageFrame1.Page3用來進(jìn)行課程瀏覽.其界面為：其中的對象設(shè)置：對 象 屬 性 值CommandGroup1ButtonCount5Label1Caption課程代碼Label2Caption課程名稱Label3Caption類別Label4Caption教師代碼函數(shù)與方法聲明：(1) Thisform.PageFrame1.Page1中的Deactive事件：功能： 當(dāng)前學(xué)生情況查詢頁面被釋放時，使數(shù)據(jù)查詢設(shè)置過濾條件為空.程序清單：set filter to(2) Thisform.PageFrame1.Page1.Combo1中的InteractiveChange事件：功能： 根據(jù)下拉列表框的選擇，設(shè)置班級信息的過濾條件，同時清空文本框信息.程序清單：public mm=bo1.valueselect studentset filter to 班級編號=mthisform.pageframe1.page1.text1.value=thisform.pageframe1.page1.text2.value=thisform.pageframe1.page1.text3.value=thisform.pageframe1.page1.text4.value=(3) Thisform.PageFrame1.page1.Combo2中的InteractiveChange事件：功能： 根據(jù)前面設(shè)置的班級過濾條件對學(xué)生信息進(jìn)行查詢，并將結(jié)果在當(dāng)前頁面顯示程序清單：locate for 姓名=this.value *用組合框中的值進(jìn)行查找if found()thisform.pageframe1.page1.text1.value=學(xué)號thisform.pageframe1.page1.text2.value=姓名thisform.pageframe1.page1.text3.value=性別thisform.pageframe1.page1.text4.value=出生日期bo2.value=endif(4) Thisform.PageFrame1.page2中的Init事件：功能： 在“數(shù)據(jù)表瀏覽”頁顯示時進(jìn)行相關(guān)的初始化工作.程序清單：with this.grid1 .recordsourcetype=6 .recordsource=student .refresh .columncount=5 .column1.width=60 .column2.width=65 .column3.width=40 .column4.width=70 .column5.width=60 .column1.header1.caption=學(xué)號 .column2.header1.caption=姓名 .column3.header1.caption=性別 .column4.header1.caption=出生日期 .column5.header1.caption=班級編號 .readonly=.t. .deletemark=.f.endwith(5) Thisform.PageFrame1.Page2.Combo1中的IntelactiveChange事件功能： 在“數(shù)據(jù)表瀏覽”頁中根據(jù)下拉組合框中的選擇對不同的表進(jìn)行數(shù)據(jù)內(nèi)容顯示程序清單：&加入如下代碼，可防止由字段少的表往字段多的表切換時造成數(shù)據(jù)字段丟失無法顯示的問題with this.parent.grid1 .columncount=6 .column1.width=60 .column2.width=65 .column3.width=50 .column4.width=66 .column5.width=70 .column6.width=70endwith&即每次都事先把grid先刷新成行數(shù)教多的表.do case case this.value=1 with this.parent.grid1 .recordsourcetype=6 .recordsource=student .columncount=5 .column1.width=60 .column2.width=65 .column3.width=40 .column4.width=70 .column5.width=60 .column1.header1.caption=學(xué)號 .column2.header1.caption=姓名 .column3.header1.caption=性別 .column4.header1.caption=出生日期 .column5.header1.caption=班級編號 .refresh .readonly=.t. .deletemark=.f. endwith case this.value=2 with this.parent.grid1 .columncount=6 .recordsource=teacher .column1.header1.caption=教師代碼 .column2.header1.caption=姓名 .column3.header1.caption=性別 .column4.header1.caption=出生日期 .column5.header1.caption=部門 .column6.header1.caption=技術(shù)職務(wù) .column1.width=60 .column2.width=65 .column3.width=50 .column4.width=66 .column5.width=70 .column6.width=70 .refresh .readonly=.t. .deletemark=.f. endwith case this.value=3 with this.parent.grid1 .recordsourcetype=6 .recordsource=classes .columncount=6 .column1.width=60 .column2.width=65 .column3.width=50 .column4.width=70 .column5.width=60 .column6.width=60 .column1.header1.caption=班級編號 .column2.header1.caption=年級 .column3.header1.caption=專業(yè) .column4.header1.caption=系代碼 .column5.header1.caption=學(xué)制 .column6.header1.caption=類別 .refresh .readonly=.t. .deletemark=.f. endwith case this.value=4 with this.parent.grid1 .recordsourcetype=6 .recordsource=course .columncount=4 .column1.width=60 .column2.width=100 .column3.width=50 .column4.width=50 .column1.header1.caption=課程代碼 .column2.header1.caption=課程名稱 .column3.header1.caption=類別 .column4.header1.caption=教師代碼 .refresh .readonly=.t. .deletemark=.f. endwith case this.value=5 with this.parent.grid1 .recordsourcetype=6 .recordsource=score .columncount=3 .column1.width=60 .column2.width=100 .column3.width=50 .column1.header1.caption=學(xué)號 .column2.header1.caption=課程代碼 .column3.header1.caption=成績 .refresh .readonly=.t. .deletemark=.f. endwithendcase(6) Thisform.PageFrame1.Page3中的Init事件功能： 當(dāng)“課程瀏覽”頁面被顯示出來時，進(jìn)行相關(guān)的初始化工作.程序清單：select coursethis.text1.value=課程代碼this.text2.value=課程名稱this.text3.value=類別this.text4.value=教師代碼(7) Thisform.PageFrame1.Page3中的Refresh事件功能： 在“課程瀏覽”頁面中刷新當(dāng)前的數(shù)據(jù)顯示程序清單：select coursethis.text1.value=課程代碼this.text2.value=課程名稱this.text3.value=類別this.text4.value=教師代碼(8) Thisform.PageFrame1.Page3中的CommandGroup1的Click事件功能： 利用按鈕組完成對數(shù)據(jù)庫中的記錄瀏覽程序清單：select coursedo case case this.value=1 go top case this.value=2 skip -1 if bof() messagebox(已到首部!，0+48，系統(tǒng)提示) go top endif case this.value=3 skip if eof() messagebox(已到末尾!，0+48，系統(tǒng)提示) go bottom endif case this.value=4 go bottom case this.value=5 thisform.releaseendcasethisform.refresh2.5 數(shù)據(jù)修改模塊功能描述： 用戶可以通過不同的頁面完成對5個不同表中的數(shù)據(jù)的修改操作界面設(shè)計(jì)：由于修改表單中對于5個表的操作方法類似，這里只給出第一個頁面即“學(xué)生表”的設(shè)計(jì)部分。其余4個頁面的設(shè)計(jì)及相關(guān)的程序代碼請同學(xué)們自己思考并完成。表單名稱： 修改文件名： 修改.scx數(shù)據(jù)環(huán)境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf對象設(shè)置： 對 象 屬 性 值Form1Caption修改PageFrame1PageCount5Command1Caption返回：Page1.Combo1RowSourceType6-字段RowSourceStudent.學(xué)號Page2.Combo1RowSourceType6-字段RowSourceTeacher.教師代碼Page3.Combo1RowSourceType6-字段RowSourceClassess.班級編號Page4.Combo1RowSourceType6-字段RowSourceCourse.課程代碼Page5.Combo1RowSourceType6-字段RowSourceScore.學(xué)號Page1.Command1Caption確定Page1.Command2Caption退出函數(shù)與方法聲明：(1) Thisform.PageFrame1.Page1中的Activate事件：功能： 在學(xué)生信息修改頁面顯示時進(jìn)行初始化操作程序清單：select studentgo topthis.text1.value=學(xué)號this.text2.value=姓名this.text3.value=性別this.text4.value=出生日期this.text5.value=班級編號(2) Thisform.PageFrame1.Page1.Combo1中的IntelactiveChange事件：功能： 根據(jù)學(xué)號，查找對應(yīng)的學(xué)生信息程序清單：select studentlocate for 學(xué)號=this.valueif found() thisform.pageframe1.page1.text1.value=學(xué)號 thisform.pageframe1.page1.text2.value=姓名 thisform.pageframe1.page1.text3.value=性別 thisform.pageframe1.page1.text4.value=出生日期 thisform.pageframe1.page1.text1.value=班級編號endif(3) Thisform.PageFrame1.Page1.Command1中的Click事件：功能： 當(dāng)用戶單擊“確定”按鈕后，將當(dāng)前修改的數(shù)據(jù)保存到數(shù)據(jù)庫中.程序清單：select studenta=alltrim(thisform.pageframe1.page1.text1.value)b=alltrim(thisform.pageframe1.page1.text2.value)c=alltrim(thisform.pageframe1.page1.text3.value)d=alltrim(dtoc(thisform.pageframe1.page1.text4.value)e=alltrim(thisform.pageframe1.page1.text5.value)set exact ondo case case a= messagebox(學(xué)生學(xué)號不能為空，0+48，系統(tǒng)提示) thisform.pageframe1.page1.text1.setfocus case b= messagebox(學(xué)生姓名不能為空，0+48，系統(tǒng)提示) thisform.pageframe1.page1.text2.setfocus case c= messagebox(學(xué)生性別不能為空，0+48，系統(tǒng)提示) thisform.pageframe1.page1.text3.setfocus case d= messagebox(學(xué)生出生日期不能為空，0+48，系統(tǒng)提示) thisform.pageframe1.page1.text4.setfocus case e= messagebox(學(xué)生班級編號不能為空，0+48，系統(tǒng)提示) thisform.pageframe1.page1.text5.setfocus otherwise m=messagebox(確定要修改學(xué)生記錄嗎?，0+48，系統(tǒng)提示) if m=1 select student replace 學(xué)號 with a replace 姓名 with b replace 性別 with c replace 出生日期 with ctod(d) replace 班級編號 with e messagebox(修改成功!) endifendcase(4) Thisform.PageFrame1.Pmand2中的Click事件：功能： 釋放當(dāng)前窗口程序清單：thisform.release2.6 數(shù)據(jù)統(tǒng)計(jì)模塊功能描述： 用戶可以通過不同的頁面完成對5個不同表中的數(shù)據(jù)的修改操作界面設(shè)計(jì)：表單名稱： 統(tǒng)計(jì)文件名： 統(tǒng)計(jì).scx數(shù)據(jù)環(huán)境： student.dbf， score.dbf， course.dbf對象設(shè)置：對 象屬 性值Form1Caption統(tǒng)計(jì)OptionGroup1ButtonCount2Label1Caption最高成績Label2Caption最低成績Label3Caption平均成績List1RowSourceType6-字段Label4Label6(空白標(biāo)簽用于顯示運(yùn)算結(jié)果)Command1Caption返回函數(shù)與方法聲明：(1) Form1中的Init事件功能： 在窗體被調(diào)用時，進(jìn)行顯示的初始化工作程序清單：this.label5.caption=this.label6.caption=this.label7.caption=(2) Thisform.OptionGroup1中的IntelactiveChange事件功能： 根據(jù)單選框的選擇情況，進(jìn)行數(shù)據(jù)源的設(shè)置程序清單：do case case this.value=0 thisform.list1.rowsource= *無選項(xiàng)時不設(shè)置數(shù)據(jù)源 thisform.list1.refresh case this.value=1 thisform.list1.rowsource=student.姓名 thisform.list1.refresh case this.value=2 thisform.list1.rowsource=course.課程名稱 thisform.list1.refreshendcase(3) Thisform.List1中的IntelactiveChange事件功能： 如果選項(xiàng)被改變，則根據(jù)用戶指定的新選項(xiàng)重新統(tǒng)計(jì)并顯示結(jié)果程序清單：do casecase thisform.optiongroup1.value=1 xm=alltrim(t