VF課程設(shè)計(jì)點(diǎn)名系統(tǒng),VF課程設(shè)計(jì),VisualFoxPro課程設(shè)計(jì),VFP課程設(shè)計(jì)

1、 VF課程設(shè)計(jì)-點(diǎn)名系統(tǒng) NO. 22點(diǎn)名系統(tǒng)方案設(shè)計(jì)1、課程設(shè)計(jì)的目的數(shù)據(jù)庫(kù)基礎(chǔ)及應(yīng)用是一門實(shí)用性很強(qiáng)的學(xué)科，是進(jìn)行軟件開發(fā)的主要基礎(chǔ)。只有進(jìn)行實(shí)際操作，才能將理論知識(shí)和實(shí)際應(yīng)用有機(jī)地結(jié)合起來，鍛煉學(xué)生分析解決問題得能力，提高學(xué)生實(shí)際運(yùn)用的技能，為日后工作中的軟件開發(fā)打下良好的基礎(chǔ)。VFP是微軟公司推出的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，它是一種地形的第四代計(jì)算機(jī)語(yǔ)言，VFP全面支持可視化編程和面向?qū)ο蟮木幊?，是最為使用的?shù)據(jù)庫(kù)管理系統(tǒng)和中小型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的軟件開發(fā)之一，它為數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用軟件開發(fā)而設(shè)計(jì)，是功能強(qiáng)大的面向?qū)ο蟮能浖?。本課程設(shè)計(jì)結(jié)合數(shù)據(jù)庫(kù)內(nèi)容，運(yùn)用VFP設(shè)計(jì)，使學(xué)生掌握數(shù)據(jù)庫(kù)基礎(chǔ)內(nèi)容。

2、2、需求分析2.1需求在大學(xué)課堂中，課堂提問是上課環(huán)節(jié)中不可缺少的部分，也是教師與學(xué)生課堂互動(dòng)，交流，最直接的方式。但在大學(xué)的課堂中缺存在一些問題。對(duì)于學(xué)生來說，現(xiàn)在在大學(xué)生心理普遍的思想是：“千萬(wàn)別點(diǎn)我！”，一旦被老師點(diǎn)到則：“哎呀媽呀！今天點(diǎn)子真背！那么多人，怎么就點(diǎn)到我了呢？！"。還有一種情況就是，有些同學(xué)每節(jié)課都被提問，有些同學(xué)整個(gè)學(xué)期都得不到一次提問機(jī)會(huì)。 對(duì)于教師來說，同樣存在一些提問上的問題。老師每次提問之前都會(huì)拿著點(diǎn)名表看了又看：“點(diǎn)誰(shuí)好呢？”面對(duì)幾百人的課堂想在其中“公平的”選出回答問題的同學(xué)，這是令我們教師非常頭疼的事情。針對(duì)上述問題，提出程序設(shè)計(jì)需求如下：（1）

3、此程序可以公平的選出提問的同學(xué)（2）此程序可以排除掉已經(jīng)被提問過的同學(xué)（3）此程序可以從提問次數(shù)少的同學(xué)中選一同學(xué)（4）此程序可以為多個(gè)班級(jí)的同學(xué)提供點(diǎn)名服務(wù)（5）此程序最后可以打印出一個(gè)學(xué)期整體提問次數(shù)和分?jǐn)?shù)（6）此程序可以提供最多的點(diǎn)名次數(shù)不少于15次2.2分析首先，內(nèi)部程序需要班級(jí)名次表作為點(diǎn)名表；對(duì)于公平的提問這一需求，可以使用VF自帶的隨機(jī)數(shù)函數(shù)，隨機(jī)數(shù)函數(shù)可以返回一個(gè)隨機(jī)值，將這個(gè)隨機(jī)值作為學(xué)號(hào)來進(jìn)行提問。每個(gè)班級(jí)每節(jié)課都配置一張?zhí)釂柋恚@樣就可以為多個(gè)班級(jí)多個(gè)課程提供點(diǎn)名服務(wù)。其次，對(duì)于“排除提問過的同學(xué)”這一需求可以這樣滿足：將點(diǎn)名表增加一個(gè)特殊的字段，把提問過的同學(xué)對(duì)應(yīng)的字段

4、做標(biāo)記，用判斷語(yǔ)句判斷如果特殊字段已經(jīng)做了標(biāo)記則下次不在提問。對(duì)于“從提問次數(shù)少的同學(xué)中選一個(gè)”需求可以這樣滿足：在點(diǎn)名表中增加一個(gè)次數(shù)字段，每次點(diǎn)名到時(shí)，將次數(shù)字段增加1次，點(diǎn)名時(shí)先中表中找到次數(shù)字段最少的同學(xué)提問，在使用隨機(jī)函數(shù)隨機(jī)選出一名同學(xué)。最后，在程序中增加報(bào)表功能，報(bào)表中包括次次數(shù)、總分等滿足需求，對(duì)于“次數(shù)不少于15次”的需求，可以將表增加序列次數(shù)字段，每次提問都將獲得的分?jǐn)?shù)存放到相應(yīng)的次數(shù)中。3、設(shè)計(jì)方案論證3.1系統(tǒng)結(jié)構(gòu)3.2核心算法3.2.1隨機(jī)數(shù)算法在本程序中多次用到了隨機(jī)函數(shù)，在VF中的rand()函數(shù)只能返回（0，1）之間的隨機(jī)數(shù)，并不能返回我們需要的“學(xué)號(hào)”，因此我

5、們必須對(duì)rand()函數(shù)做適當(dāng)?shù)牟僮?，使其返回我們需要的“學(xué)號(hào)”。分析，假如一個(gè)班級(jí)有40名同學(xué)，那么隨機(jī)數(shù)算法給我們返回的數(shù)的范圍一定是在040之間。假如一個(gè)班級(jí)有100名同學(xué)，那么隨機(jī)數(shù)算法給我們返回的數(shù)的范圍一定是在0100之間。因此根據(jù)數(shù)學(xué)算法，將rand()進(jìn)行變形。X=int(10000*rand()%(max-mix)+mix)其中，max為序列的最大值，mix為序列的最小值，X為返回的隨機(jī)數(shù)。如，一個(gè)班級(jí)有40人，則max的值就為40，mix的值就為1。則X返回的隨機(jī)數(shù)一定在040之間。3.2.2隨機(jī)查找算法在隨機(jī)輸出“學(xué)號(hào)”時(shí)，有一種情況是我們沒有考慮到的：當(dāng)2個(gè)或者很多個(gè)同

6、學(xué)回答的都沒被提問過。換句話說，有n個(gè)同學(xué)的次數(shù)字段相同！那么我們就需要從這些回答次數(shù)相同的同學(xué)中隨機(jī)的選擇一個(gè)！具體算法程序如下,其中X為查找的次數(shù)字段。located for cishu=Xif found()skip int(10000*rand()%(mixx-1)+1)contendifif found()顯示此名同學(xué)的信息,定位指針elsego toplocated for cishu=0if found()顯示此名同學(xué)的信息，定位指針endifendif下面的流程圖會(huì)幫助理解隨機(jī)查找算法圖1：隨機(jī)查找算法流程圖3.2.3中介表思想在需求中教師不只是教一個(gè)班級(jí)，還有很多個(gè)班級(jí)，很多

7、課要教，對(duì)點(diǎn)名模塊的設(shè)計(jì)絕對(duì)不能只對(duì)一個(gè)表操作，一定要有很多張表，且可以隨意切換，用戶選擇哪張表，就點(diǎn)哪張表內(nèi)的同學(xué)。首先，將用戶選擇的表所對(duì)應(yīng)的表名存進(jìn)一張“中介表”中；點(diǎn)名時(shí)在從“中介表”中“拿”出對(duì)應(yīng)的表名，再在點(diǎn)名模塊中打開這張表進(jìn)行操作，思想體現(xiàn)如下：biao=thisform.text1.valueuse mediatablereplace c with biao其中，biao中存放的是用戶想點(diǎn)名的表的名字；mediatable為“中介表”；將biao中的內(nèi)容存放在mediatable的C字段中，每次在使用點(diǎn)名模塊點(diǎn)名的時(shí)候，都必須打開所有對(duì)應(yīng)的表。use mediatablebi

8、ao=cclose mediatable use &biao點(diǎn)名主程序3.2.4臨時(shí)表和數(shù)據(jù)環(huán)境問題在生成報(bào)表設(shè)計(jì)時(shí)，通過用戶輸入想生成報(bào)表的點(diǎn)名表的表名生成報(bào)表。但點(diǎn)名表都是用戶自行創(chuàng)建的，此表當(dāng)然也不在數(shù)據(jù)環(huán)境中，報(bào)表操作時(shí)，表必須在當(dāng)前的數(shù)據(jù)環(huán)境中，為了解決這一問題，可以將“臨時(shí)表”、“中介表”思想聯(lián)合到一起，首先新建一個(gè)名為“baobiao“的報(bào)表和一個(gè)叫“baobiao”的臨時(shí)表，將表“baobiao“加入當(dāng)前數(shù)據(jù)環(huán)境中，生成報(bào)表時(shí)運(yùn)行如下代碼：set talk off set safety offbiao=thisform.text1.valueuse baobiaodel

9、e all &&邏輯刪除所有記錄zap &&物理刪除所有記錄append from &biao fields xh,xm,cishu,zongfen &&追加表項(xiàng)report form baobiao to print preview &&瀏覽報(bào)表thisform.releaseuse &biao首先將表“baobiao“的內(nèi)容刪除，然后將用戶選擇的表中相關(guān)字段的內(nèi)容加載到報(bào)表“baobiao“中，并瀏覽報(bào)表“baobiao“中的內(nèi)容。3.3表結(jié)構(gòu)設(shè)計(jì)3.3.1 Student 表1：student表結(jié)構(gòu)字段名類型

10、寬度備注xhXmcishuFirstSeconddfourthzongfen數(shù)值型字符型數(shù)值型數(shù)值型數(shù)值型數(shù)值型數(shù)值型81032223用于存放學(xué)生的學(xué)號(hào)用于存放學(xué)生的姓名用于存放回答次數(shù)用于存放回答次數(shù)用于存放回答次數(shù)用于存放回答次數(shù)用于存放總分3.3.2 Login表2：login表的結(jié)構(gòu)字段名類型長(zhǎng)度備注namepassword字符字符1010用于存放用于的登錄名用于存放登錄的密碼3.3.2mediatable表3：mediatable的結(jié)構(gòu)字段名類型長(zhǎng)度備注ABCD字符字符字符字符10101010用于存放中介變量的臨時(shí)字段用于存放中介變量的臨時(shí)字段用于存放中介變量的臨時(shí)字段用于存放中介變

11、量的臨時(shí)字段3.4表單設(shè)計(jì)3.4.1登錄框圖2：登錄框的表單設(shè)計(jì)其中的控件信息如下表所示：表4：登錄框模塊中的控件控件名屬性名屬性值備注Label1Label2Text1captionCaption用戶名密碼提示輸入用戶名提示輸入密碼Value接收用戶名續(xù)表4：Test2Command1Command2Command2valueCaptionCaption登錄清除接收用戶密碼登錄按鈕清除按鈕Caption退出退出按鈕以下是登錄框各個(gè)按鈕的click事件：表5：登錄框代碼表登錄清除退出name=alltrim(thisform.text1.value)password=alltrim(thisf

12、orm.text2.value)use login &&在login表里查找locate for =name and login.password=passwordif found()thisform.releasedo form 主頁(yè)面 &&打開主頁(yè)面elsemessagebox("用戶名或密碼不正確","提示")thisform.text2.value=""thisform.text1.value=""thisform.text1.setfocusEndift

13、hisform.text1.value=""thisform.text2.value=""Thisform.release3.4.2普通點(diǎn)名圖5：普通點(diǎn)名的表單設(shè)計(jì)單擊“下一個(gè)”按鈕，可以顯示隨機(jī)函數(shù)返回的隨機(jī)數(shù)?！跋乱粋€(gè)”按鈕的click事件代碼為：use mediatablego topa0=val(mediatable.a) &&將從中介表接收的值存進(jìn)當(dāng)前變量b0=val(mediatable.b)thisform.label1.caption=alltr(str(10000*rand()%(b0-a0)+a0) &&

14、;隨機(jī)數(shù)算法3.4.2普通設(shè)置圖6：普通設(shè)計(jì)的表單設(shè)計(jì) 此表單可以將起始值，終止值存如程序中，單擊“確定”按鈕，完成設(shè)置?！按_定”按鈕的click事件的代碼為：aa=thisform.text1.valuebb=thisform.text2.valuereplace a with aa &&將獲得的初始值存進(jìn)表中replace b with bbmessagebox("設(shè)置成功","提示")thisform.release3.4.3高級(jí)點(diǎn)名圖7：高級(jí)點(diǎn)名的表單設(shè)計(jì) 單擊“隨便選一個(gè)”按鈕可以隨機(jī)挑選一名同學(xué)?！半S便選一個(gè)”按鈕的click

15、事件代碼為：use mediatable biao=c thisform.label6.caption="正在使用"+allt(mediatable.c)+"表" &&顯示當(dāng)前使用的表 use mediatable xh=0 publ X use &biao &&利用宏替換打開表 mixx=recc() &&將表中的記錄數(shù)賦給變量mixx x=int(10000*rand()%(mixx-1)+1) &&隨機(jī)產(chǎn)生隨機(jī)數(shù) locate for xh=xif found() thisfo

16、rm.label1.caption="請(qǐng)"+allt(str(xh)+"號(hào)"+allt(xm)+"同學(xué)回答問題" replace cishu with cishu+1 &&將表中的cishu字段+1 thisform.label2.caption="請(qǐng)為"+allt(str(xh)+"號(hào)同學(xué)打分" thisform.label5.caption="未打分" endif pingjun=(first+secondd+third+fourth+fifth+sixt

17、h+seventh+ +thirtieth)/30 int(pingjun) &&計(jì)算平均分 thisform.label3.caption="這名同學(xué)已經(jīng)獲得"+allt(str(cishu)+"次提問的機(jī)會(huì)，平均分為"+allt(str(pingjun)+"分" 單擊“從沒點(diǎn)到的同學(xué)選一個(gè)”按鈕可以隨機(jī)挑選出一個(gè)同學(xué)?！皬臎]點(diǎn)到的同學(xué)選一個(gè)”按鈕的click事件代碼為：use mediatablebiao=mediatable.cthisform.label6.caption="正在使用"+al

18、lt(mediatable.c)+"表"use mediatablexh=0use &biao &&利用宏替換打開表 go topmixx=recc() &&將表中的記錄數(shù)賦給變量mixxstr(10000*rand()%(mixx-1)+1) &&隨機(jī)產(chǎn)生隨機(jī)數(shù)loca for cishu=0if found()skip int(10000*rand()%(mixx-1)+1) &&向下條隨機(jī)數(shù)個(gè)記錄contendifif found() thisform.label1.caption="請(qǐng)

19、"+allt(str(xh)+"號(hào)"+allt(xm)+"同學(xué)回答問題" replace cishu with cishu+1 thisform.label2.caption="請(qǐng)為"+allt(str(xh)+"號(hào)同學(xué)打分" thisform.label5.caption="未打分"elseendifpingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eighth +thirtieth)/30int(pingjun)this

20、form.label3.caption="這名同學(xué)已經(jīng)獲得"+allt(str(cishu)+"次提問的機(jī)會(huì)，平均分為"+allt(str(pingjun)+"分"if eof()=.T. &&如果指針定位到表尾，說明沒有查找到thisform.label3.caption="同學(xué)們至少被提問了一次，請(qǐng)選擇左側(cè)提問一個(gè)次數(shù)少的同學(xué)"thisform.label1.caption=""endif單擊“從次數(shù)少的同學(xué)中選一個(gè)”按鈕可以將隨機(jī)挑選一個(gè)回答次數(shù)少的同學(xué)?！皬拇螖?shù)少的同學(xué)中

21、選一個(gè)”按鈕的click事件代碼為：use mediatablebiao=mediatable.cthisform.label6.caption="正在使用"+allt(mediatable.c)+"表"use mediatableuse &biao &&利用宏替換打開表go topmixx=recc() &&將表中的記錄數(shù)賦給變量mixxmix=cishuskipdo while .not.eof() &&利用while循環(huán)找到cishu字段最少的值if cishu<mixmix=cishu

22、endifskipenddogo toploca for cishu=mix &&查找次數(shù)少的同學(xué)if found()skip int(10000*rand()%(mixx-1)+1) &&向下條隨機(jī)數(shù)個(gè)指針contendifif found() thisform.label1.caption="請(qǐng)"+allt(str(xh)+"號(hào)"+allt(xm)+"同學(xué)回答問題" replace cishu with cishu+1 thisform.label2.caption="請(qǐng)為"+a

23、llt(str(xh)+"號(hào)同學(xué)打分" thisform.label5.caption="未打分"elsego toploca for cishu=mix if found() thisform.label1.caption="請(qǐng)"+allt(str(xh)+"號(hào)"+allt(xm)+"同學(xué)回答問題" replace cishu with cishu+1 thisform.label2.caption="請(qǐng)為"+allt(str(xh)+"號(hào)同學(xué)打分" t

24、hisform.label5.caption="未打分" endifendif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eighttwentynint+thirtieth)/30int(pingjun)thisform.label3.caption="這名同學(xué)已經(jīng)獲得"+allt(str(cishu)+"次提問的機(jī)會(huì)，平均分為"+allt(str(pingjun)+"分"“打分條”按鈕組可以設(shè)置同學(xué)獲得的分?jǐn)?shù)?！按蚍謼l”的click事件代碼為：

25、do case case this.value=1 thisform.label5.caption="該同學(xué)將獲得1分" &&每次點(diǎn)擊時(shí)，在label5上顯示狀態(tài) case this.value=2 thisform.label5.caption="該同學(xué)將獲得2分" case this.value=3 thisform.label5.caption="該同學(xué)將獲得3分" case this.value=4 thisform.label5.caption="該同學(xué)將獲得4分" case this.v

26、alue=5 thisform.label5.caption="該同學(xué)將獲得5分"endcase“打分”按鈕的click事件代碼為：n=thisform.optiongroup1.value &&將選項(xiàng)按鈕組的返回值賦給ndo case case cishu=1 &&將次數(shù)對(duì)應(yīng)的字段值賦予對(duì)應(yīng)的分?jǐn)?shù) replace first with n case cishu=2 replace secondd with n （省略） case cishu=30 replace thirtieth with nendcasethisform.label5.

27、caption="打分成功"3.4.4選擇表圖8：選擇表的表單設(shè)計(jì) 單擊“使用”按鈕可以將想要點(diǎn)名的“表”輸入進(jìn)程序?！笆褂谩卑粹o的click事件代碼為：biao=thisform.text1.valueuse mediatablereplace c with biao &&將用戶的表名傳遞給中介表wait "選擇成功" windows at 30,120 timeout 1thisform.releaseclose tables3.4.5選擇同學(xué)圖9：打分的表單設(shè)計(jì)點(diǎn)擊“打分”按鈕給同學(xué)打分?！按蚍帧卑粹o的click事件代碼為：xx=v

28、al(thisform.text1.value) locate for xh=xx if found () replace cishu with cishu+1 &&將當(dāng)前cishu字段+1 else messagebox("未找到","提示") endifn=thisform.optiongroup1.valuedo case case cishu=1 replace first with ncase cishu=2replace secondd with ncase cishu=3replace third with ncase ci

29、shu=4replace fourth with ncase cishu=5replace fifth with n（省略）case cishu=30replace thirtieth with nendcasewait "打分成功" windows at 30,120 timeout 1close tablesthisform.release3.4.6查詢表圖10：查詢的表單設(shè)計(jì)“查詢”按鈕的click事件代碼為：thisform.grid1.recordsource=thisform.text1.value3.4.7生成報(bào)表圖11：生成報(bào)表的表單設(shè)計(jì)“生成”按鈕的cli

30、ck事件代碼為：set talk off &&關(guān)閉安全提示set safety off &&關(guān)閉安全提示biao=thisform.text1.valueuse baobiaodele all &&邏輯刪除所有記錄zap &&物理刪除所有記錄append from &biao fields xh,xm,cishu,zongfen &&將用戶所輸入表中的內(nèi)容追加到中介表中report form baobiao to print preview &&閱覽中介表（報(bào)表）thisform.relea

31、seuse &biao3.4.8修改表圖11：編輯的表單設(shè)計(jì)各個(gè)按鈕的click事件如下：代碼表3.4.8確定添加修改刪除publ biaobiao=alltrim(thisform.text1.value)thisform.grid1.recordsource=biaogo bottomappend blankeditthisform.refresheditthisform.refreshtempstr=messagebox("確定要?jiǎng)h除這個(gè)同學(xué)嗎?",4+32+256,"刪除記錄")if tempstr=6deletepackthisform

32、.grid1.recordsource='學(xué)生'thisform.refreshendif3.5菜單設(shè)計(jì)表2：主菜單一級(jí)菜單二級(jí)菜單過程代碼文件退出Quit點(diǎn)名普通點(diǎn)名高級(jí)點(diǎn)名添加表修改表查詢生成報(bào)表Do form 普通點(diǎn)名Do form 高級(jí)點(diǎn)名Do form添加表Do form修改表Do form查詢Do form生成報(bào)表編輯3.6表設(shè)計(jì)3.6.1中介表表3：mediatableABCD3.6.2登錄表表4：loginNamepassword王詩(shī)洋123admin123123admin3.6.3點(diǎn)名表表5：studentXhXmcishuFirstSeconddThirthFourthzongfen1李蕾2湯勤書3李純漪4鞠振東5趙曉宇6趙海年4、運(yùn)行結(jié)果與反饋4.1運(yùn)行結(jié)果4.1.1登錄模塊輸入用戶