VF課程設計點名系統(tǒng)-VF課程設計-VisualFoxPro課程設計-VFP課程設計

《VF課程設計點名系統(tǒng)-VF課程設計-VisualFoxPro課程設計-VFP課程設計》由會員分享，可在線閱讀，更多相關《VF課程設計點名系統(tǒng)-VF課程設計-VisualFoxPro課程設計-VFP課程設計（22頁珍藏版）》請在裝配圖網上搜索。

1、 VF課程設計-點名系統(tǒng) NO. 22 點名系統(tǒng)方案設計 1、課程設計的目的 數據庫基礎及應用是一門實用性很強的學科，是進行軟件開發(fā)的主要基礎。只有進行實際操作，才能將理論知識和實際應用有機地結合起來，鍛煉學生分析解決問題得能力，提高學生實際運用的技能，為日后工作中的軟件開發(fā)打下良好的基礎。 VFP是微軟公司推出的關系型數據庫管理系統(tǒng)，它是一種地形的第四代計算機語言，VFP全面支持可視化編程和面向對象的編程，是最為使用的數據庫管理系統(tǒng)和中小型數據庫應用系統(tǒng)的軟件開發(fā)之一，它為數據庫結構和應用軟件開發(fā)而設計，是功能強大的面向對象的

2、軟件。本課程設計結合數據庫內容，運用VFP設計，使學生掌握數據庫基礎內容。 2、需求分析 2.1需求 在大學課堂中，課堂提問是上課環(huán)節(jié)中不可缺少的部分，也是教師與學生課堂互動，交流，最直接的方式。但在大學的課堂中缺存在一些問題。 對于學生來說，現在在大學生心理普遍的思想是：“千萬別點我！”，一旦被老師點到則：“哎呀媽呀！今天點子真背！那么多人，怎么就點到我了呢？！"。還有一種情況就是，有些同學每節(jié)課都被提問，有些同學整個學期都得不到一次提問機會。 對于教師來說，同樣存在一些提問上的問題。老師每次提問之前都會拿著點名表看了又看：“點誰好呢？”面對幾百人的課堂想在其中“公平的”選

3、出回答問題的同學，這是令我們教師非常頭疼的事情。 針對上述問題，提出程序設計需求如下： （1）此程序可以公平的選出提問的同學 （2）此程序可以排除掉已經被提問過的同學 （3）此程序可以從提問次數少的同學中選一同學 （4）此程序可以為多個班級的同學提供點名服務 （5）此程序最后可以打印出一個學期整體提問次數和分數 （6）此程序可以提供最多的點名次數不少于15次 2.2分析 首先，內部程序需要班級名次表作為點名表；對于公平的提問這一需求，可以使用VF自帶的隨機數函數，隨機數函數可以返回一個隨機值，將這個隨機值作為學號來進行提問。每個班級每節(jié)課都配置一張?zhí)釂柋恚@樣

4、就可以為多個班級多個課程提供點名服務。 其次，對于“排除提問過的同學”這一需求可以這樣滿足：將點名表增加一個特殊的字段，把提問過的同學對應的字段做標記，用判斷語句判斷如果特殊字段已經做了標記則下次不在提問。對于“從提問次數少的同學中選一個”需求可以這樣滿足：在點名表中增加一個次數字段，每次點名到時，將次數字段增加1次，點名時先中表中找到次數字段最少的同學提問，在使用隨機函數隨機選出一名同學。 最后，在程序中增加報表功能，報表中包括次次數、總分等滿足需求，對于“次數不少于15次”的需求，可以將表增加序列次數字段，每次提問都將獲得的分數存放到相應的次數中。 3、設計方案論證 3.1系統(tǒng)

5、結構 3.2核心算法 3.2.1隨機數算法 在本程序中多次用到了隨機函數，在VF中的rand()函數只能返回（0，1）之間的隨機數，并不能返回我們需要的“學號”，因此我們必須對rand()函數做適當的操作，使其返回我們需要的“學號”。分析，假如一個班級有40名同學，那么隨機數算法給我們返回的數的范圍一定是在0~40之間。假如一個班級有100名同學，那么隨機數算法給我們返回的數的范圍一定是在0~100之間。因此根據數學算法，將rand()進行變形。 X=int(10000*rand()%(max-mix)+mix) 其中，max為序列的最大值，mix為序列的最小值，X為返回的隨機數

6、。 如，一個班級有40人，則max的值就為40，mix的值就為1。則X返回的隨機數一定在0~40之間。 3.2.2隨機查找算法 在隨機輸出“學號”時，有一種情況是我們沒有考慮到的：當2個或者很多個同學回答的都沒被提問過。換句話說，有n個同學的次數字段相同！那么我們就需要從這些回答次數相同的同學中隨機的選擇一個！具體算法程序如下,其中X為查找的次數字段。 located for cishu==X if found() skip int(10000*rand()%(mixx-1)+1) cont endif if found() 顯示此名同學的信息,

7、定位指針 else go top located for cishu==0 if found() 顯示此名同學的信息，定位指針 endif endif 下面的流程圖會幫助理解隨機查找算法 圖1：隨機查找算法流程圖 3.2.3中介表思想 在需求中教師不只是教一個班級，還有很多個班級，很多課要教，對點名模塊的設計絕對不能只對一個表操作，一定要有很多張表，且可以隨意切換，用戶選擇哪張表，就點哪張表內的同學。首先，將用戶選擇的表所對應的表名存進一張“中介表”中；點名時在從“中介表”中“拿”出對應的表名，再在點名模塊中打開這張表進行操作

8、，思想體現如下： biao=thisform.text1.value use mediatable replace c with biao 其中，biao中存放的是用戶想點名的表的名字；mediatable為“中介表”；將biao中的內容存放在mediatable的C字段中，每次在使用點名模塊點名的時候，都必須打開所有對應的表。 use mediatable biao=c close mediatable use &biao 點名主程序 3.2.4臨時表和數據環(huán)境問題 在生成報表設計時，通過用戶輸入想生成報表的點名表的表名生成報表。但點名表都是用戶自

9、行創(chuàng)建的，此表當然也不在數據環(huán)境中，報表操作時，表必須在當前的數據環(huán)境中，為了解決這一問題，可以將“臨時表”、“中介表”思想聯合到一起，首先新建一個名為“baobiao“的報表和一個叫“baobiao”的臨時表，將表“baobiao“加入當前數據環(huán)境中，生成報表時運行如下代碼： set talk off set safety off biao=thisform.text1.value use baobiao dele all &&邏輯刪除所有記錄 zap

10、 &&物理刪除所有記錄 append from &biao fields xh,xm,cishu,zongfen &&追加表項 report form baobiao to print preview &&瀏覽報表 thisform.release use &biao 首先將表“baobiao“的內容刪除，然后將用戶選擇的表中相關字段的內容加載到報 表“baobiao“中，并瀏覽報表“baobiao“中的內容。 3.3表結構設計 3.3.1 Student 表1：student表結構 字段名 類型 寬度 備注

11、xh Xm cishu First Secondd fourth zongfen 數值型 字符型 數值型 數值型 數值型 數值型 數值型 8 10 3 2 2 2 3 用于存放學生的學號 用于存放學生的姓名 用于存放回答次數 用于存放回答次數 用于存放回答次數 用于存放回答次數 用于存放總分 3.3.2 Login 表2：login表的結構 字段名 類型 長度 備注 name password 字符 字符 10 10 用于存放用于的登錄名 用于存放登錄的密碼 3.3.2mediatable 表3：mediat

12、able的結構 字段名 類型 長度 備注 A B C D 字符 字符 字符 字符 10 10 10 10 用于存放中介變量的臨時字段 用于存放中介變量的臨時字段 用于存放中介變量的臨時字段 用于存放中介變量的臨時字段 3.4表單設計 3.4.1登錄框 圖2：登錄框的表單設計 其中的控件信息如下表所示： 表4：登錄框模塊中的控件 控件名 屬性名 屬性值 備注 Label1 Label2 Text1 caption Caption 用戶名 密碼 提示輸入用戶名 提示輸入密碼 Value 接收用戶名 續(xù)表4

13、： Test2 Command1 Command2 Command2 value Caption Caption 登錄 清除 接收用戶密碼 登錄按鈕 清除按鈕 Caption 退出 退出按鈕 以下是登錄框各個按鈕的click事件： 表5：登錄框代碼表 登錄 清除 退出 name=alltrim(thisform.text1.value) password=alltrim(thisform.text2.value) use login &&在login表里查找 locate for login.name==name and login.passw

14、ord==password if found() thisform.release do form 主頁面 &&打開主頁面 else messagebox("用戶名或密碼不正確","提示") thisform.text2.value="" thisform.text1.value="" thisform.text1.setfocus Endif thisform.text1.value="" thisform.text2.value="" Thisform.release 3.4.2普通點名 圖5：普通點名的表單設計 單擊“下一個”按鈕，可以顯示隨機函數返

15、回的隨機數。 “下一個”按鈕的click事件代碼為： use mediatable go top a0=val(mediatable.a) &&將從中介表接收的值存進當前變量 b0=val(mediatable.b) thisform.label1.caption=alltr(str(10000*rand()%(b0-a0)+a0)) &&隨機數算法 3.4.2普通設置 圖6：普通設計的表單設計 此表單可以將起始值，終止值存如程序中，單擊“確定”按鈕，完成設置。 “確定”按鈕的click事件的代碼為： aa=thisform.text1.v

16、alue bb=thisform.text2.value replace a with aa &&將獲得的初始值存進表中 replace b with bb messagebox("設置成功","提示") thisform.release 3.4.3高級點名 圖7：高級點名的表單設計 單擊“隨便選一個”按鈕可以隨機挑選一名同學。 “隨便選一個”按鈕的click事件代碼為： use mediatable biao=c thisform.label6.caption="正在使用"+allt(mediatable.c

17、)+"表" &&顯示當前使用的表 use mediatable xh=0 publ X use &biao &&利用宏替換打開表 mixx=recc() &&將表中的記錄數賦給變量mixx x=int(10000*rand()%(mixx-1)+1) &&隨機產生隨機數 locate for xh==x if found() thisform.label1.caption="請"+allt(st

18、r(xh))+"號"+allt(xm)+"同學回答問題" replace cishu with cishu+1 &&將表中的cishu字段+1 thisform.label2.caption="請為"+allt(str(xh))+"號同學打分" thisform.label5.caption="未打分" endif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+………… +thirtieth)/30 int(pingjun)

19、&&計算平均分 thisform.label3.caption="這名同學已經獲得"+allt(str(cishu))+"次提問的機會，平均分為"+allt(str(pingjun))+"分" 單擊“從沒點到的同學選一個”按鈕可以隨機挑選出一個同學。 “從沒點到的同學選一個”按鈕的click事件代碼為： use mediatable biao=mediatable.c thisform.label6.caption="正在使用"+allt(mediatable.c)+"表" use mediatable xh=0 use &biao

20、 &&利用宏替換打開表 go top mixx=recc() &&將表中的記錄數賦給變量mixx str(10000*rand()%(mixx-1)+1) &&隨機產生隨機數 loca for cishu==0 if found() skip int(10000*rand()%(mixx-1)+1) &&向下條隨機數個記錄 cont endif if found() thisform.label1.caption="請"

21、+allt(str(xh))+"號"+allt(xm)+"同學回答問題" replace cishu with cishu+1 thisform.label2.caption="請為"+allt(str(xh))+"號同學打分" thisform.label5.caption="未打分" else endif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eighth………… +thirtieth)/30 int(pingjun) thisform.label3.caption="

22、這名同學已經獲得"+allt(str(cishu))+"次提問的機會，平均分為"+allt(str(pingjun))+"分" if eof()==.T. &&如果指針定位到表尾，說明沒有查找到 thisform.label3.caption="同學們至少被提問了一次，請選擇左側………提問一個次數少的同學" thisform.label1.caption="" endif 單擊“從次數少的同學中選一個”按鈕可以將隨機挑選一個回答次數少的同學。 “從次數少的同學中選一個”按鈕的click事件代碼為： use mediatable biao=me

23、diatable.c thisform.label6.caption="正在使用"+allt(mediatable.c)+"表" use mediatable use &biao &&利用宏替換打開表 go top mixx=recc() &&將表中的記錄數賦給變量mixx mix=cishu skip do while .not.eof() &&利用while循環(huán)找到cishu字段最少的值 if cish

24、u

25、 thisform.label2.caption="請為"+allt(str(xh))+"號同學打分" thisform.label5.caption="未打分" else go top loca for cishu==mix if found() thisform.label1.caption="請"+allt(str(xh))+"號"+allt(xm)+"同學回答問題" replace cishu with cishu+1 thisform.label2.caption="請為"+allt(str

26、(xh))+"號同學打分" thisform.label5.caption="未打分" endif endif pingjun=(first+secondd+third+fourth+fifth+sixth+seventh+eight……twentynint+thirtieth)/30 int(pingjun) thisform.label3.caption="這名同學已經獲得"+allt(str(cishu))+"次提問的機會，平均分為"+allt(str(pingjun))+"分" “打分條”按鈕組可以設置同學獲得的分數。 “打分條”的cl

27、ick事件代碼為： do case case this.value==1 thisform.label5.caption="該同學將獲得1分" &&每次點擊時，在label5上顯示狀態(tài) case this.value==2 thisform.label5.caption="該同學將獲得2分" case this.value==3 thisform.label5.caption="該同學將獲得3分" case this.value==4 t

28、hisform.label5.caption="該同學將獲得4分" case this.value==5 thisform.label5.caption="該同學將獲得5分" endcase “打分”按鈕的click事件代碼為： n=thisform.optiongroup1.value &&將選項按鈕組的返回值賦給n do case case cishu==1 &&將次數對應的字段值賦予對應的分數 replace first with n case

29、 cishu==2 replace secondd with n （省略） case cishu==30 replace thirtieth with n endcase thisform.label5.caption="打分成功" 3.4.4選擇表 圖8：選擇表的表單設計 單擊“使用”按鈕可以將想要點名的“表”輸入進程序。 “使用”按鈕的click事件代碼為： biao=thisform.text1.value use mediatable replace c with biao

30、 &&將用戶的表名傳遞給中介表 wait "選擇成功" windows at 30,120 timeout 1 thisform.release close tables 3.4.5選擇同學 圖9：打分的表單設計 點擊“打分”按鈕給同學打分。 “打分”按鈕的click事件代碼為： xx=val(thisform.text1.value) locate for xh==xx if found () replace cishu with cishu+1 &&將當前cishu字段+1 e

31、lse messagebox("未找到","提示") endif n=thisform.optiongroup1.value do case case cishu==1 replace first with n case cishu==2 replace secondd with n case cishu==3 replace third with n case cishu==4 replace fourth with n case cishu==5 replace fifth with n （省略）

32、 case cishu==30 replace thirtieth with n endcase wait "打分成功" windows at 30,120 timeout 1 close tables thisform.release 3.4.6查詢表 圖10：查詢的表單設計 “查詢”按鈕的click事件代碼為： thisform.grid1.recordsource=thisform.text1.value 3.4.7生成報表 圖11：生成報表的表單設計 “生成”按鈕的click事件代碼為： set talk off

33、 &&關閉安全提示 set safety off &&關閉安全提示 biao=thisform.text1.value use baobiao dele all &&邏輯刪除所有記錄 zap &&物理刪除所有記錄 append from &biao fields xh,xm,cishu,zongfen &&將用戶所輸入表中的內容追加到中介表中 report form baobiao to print

34、preview &&閱覽中介表（報表） thisform.release use &biao 3.4.8修改表 圖11：編輯的表單設計 各個按鈕的click事件如下： 代碼表3.4.8 確定 添加 修改 刪除 publ biao biao=alltrim(thisform.text1.value) thisform.grid1.recordsource=biao go bottom append blank edit thisform.refresh edit thisform.refresh temps

35、tr=messagebox("確定要刪除這個同學嗎?",4+32+256,"刪除記錄") if tempstr=6 delete pack thisform.grid1.recordsource='學生' thisform.refresh endif 3.5菜單設計 表2：主菜單 一級菜單 二級菜單 過程代碼 文件 退出 Quit 點名 普通點名 高級點名 添加表 修改表 查詢 生成報表 Do form 普通點名 Do form 高級點名 Do form添加表 Do form修改表 Do form查詢 Do form生成報表 編輯

36、 3.6表設計 3.6.1中介表 表3：mediatable A B C D 3.6.2登錄表 表4：login Name password 王詩洋 123 admin 123 123 admin 3.6.3點名表 表5：student Xh Xm cishu First Secondd Thirth Fourth zongfen 1 李蕾 2 湯勤書 3 李純漪 4 鞠振東 5 趙曉宇

37、 6 趙海年 4、運行結果與反饋 4.1運行結果 4.1.1登錄模塊 輸入用戶名和密碼點擊“登錄”按鈕，如圖12所示。 圖12：登錄模塊運行結果 4.1.2普通點名模塊 打開菜單-點名-普通點名，點擊“設置”如圖13所示，并且設置隨機數范圍，點擊“確定”觀察到設置成功，回到普通點名模塊,點擊“下一個”觀察到有在范圍內生成的隨機數如圖14所示： 圖13：設置隨機數范圍 圖14:產生的在范圍內的隨機數 4.1.3高級點名模塊 選擇“高級點名”，高級點名主窗體打開，程序提示先選擇表，根據提示選擇想要點名的表，如圖15所示： 分

38、別點擊“隨便選一個”，“從沒點到的同學中選一個”，“從次數少的同學中選擇一個”按鈕，并且測試打分項目，如圖16,17.18所示： 圖16：隨便選一名同學 圖17：從沒點到的同學中選一個 圖18：成功為同學打分 點擊“給主要回答問題的同學打分”如圖19所示： 圖19：成功給主動回答問題的同學打分 4.1.4生成報表模塊 點擊編輯“報表”按鈕，在文本框中輸入想要生成報表的表名，點擊“確定”按鈕，如圖20所示： 圖20：生成報表模塊 4.2反饋 通過設計，現在所呈現的效果已基本達到預期效果，用VF制作的點名系統(tǒng)系統(tǒng)提供了點名功能，但是仍還有許多不足

39、之處，例如沒有考慮到用戶權限問題。我認為完善數據庫功能，讓內部信息直接和網絡上的數據庫服務器上傳下載數據，實時同步消息，期末匯總成分數表，這些問題在以后的學習中我會更多注意。 5、設計體會 通過這次的課程設計，我收獲了很多。在設計的過程中，我對課本的內容有了進一步的了解，編程及調試程序的能力都得到了較大的提高。在寫第一個模塊還是比較輕松的，但我覺得第二個模塊對我的能力的提高更有幫助，每個模塊都調試了n多次，經常報錯，當時真的很想砸電腦，不過當我寫完了之后又非常地高興很有成就感，從而促使我繼續(xù)下去。 整體感覺可以，但在表的創(chuàng)建和查看方面還應該加強。整個系統(tǒng)花了大概3個星期的時間，其中遇到問

40、題能夠耐下心來解決真的很不容易，VF是一個非常適合開發(fā)數據庫的軟件，其中自身自帶的數據庫語言也方便了我對學生表的查找。 之后我會繼續(xù)對點名系統(tǒng)完善，將這個系統(tǒng)的功能更加的完善，如，增加后端數據庫服務器，在WEB端使用，水平移植到android系統(tǒng)上，等等。 6、參考文獻 [1] 范立南,張 宇. Visual FoxPro程序設計與應用教程（第二版）[M]. 北京: 科學出版社, 2014.1 [2] 薩師煊 王 珊．數據庫系統(tǒng)概論[M]．北京：高等教育出版社，2000年2月第三版 [3] 劉 志, 杜小慧. 21天學會Visual FoxPro[M]. 北京: 北京大學出版社, 2010.1：123-130 沈 陽 大 學