《VFP程序設(shè)計與應(yīng)用》實訓(xùn)報告

1、 VFP程序設(shè)計與應(yīng)用實訓(xùn)報告實訓(xùn)名稱： 專 業(yè)：班 級： 學(xué) 號：姓 名：指導(dǎo)教師： 年月日實訓(xùn)成績考核、評價項目考核內(nèi)容得分實訓(xùn)評價實訓(xùn)表現(xiàn)與態(tài)度（20分）對實訓(xùn)期間的出勤情況、實訓(xùn)態(tài)度、安全意識、職業(yè)道德素質(zhì)評定成績職業(yè)素質(zhì)、實訓(xùn)態(tài)度、效率觀念、協(xié)作精神實訓(xùn)操作過程（40分）根據(jù)學(xué)生實訓(xùn)操作的過程進(jìn)行考核，評定成績根據(jù)學(xué)生在實訓(xùn)操作過程中的知識掌握情況、程序設(shè)計方法和技巧、基本操作技能、知識應(yīng)用能力、分析問題和解決問題的能力，以及創(chuàng)新能力進(jìn)行考核。實訓(xùn)考核（30分）根據(jù)學(xué)生實訓(xùn)，程序設(shè)計的結(jié)果進(jìn)行考核，評定成績根據(jù)實訓(xùn)項目任務(wù)要求，對程序設(shè)計的結(jié)果，分模塊進(jìn)行測試考核實訓(xùn)文檔（10分）實

2、訓(xùn)日記、實訓(xùn)報告等評定成績表達(dá)能力、文檔寫作能力、文檔的規(guī)范性總分一、實訓(xùn)目的1. 運用數(shù)據(jù)庫管理技術(shù)，初步形成對實際問題科學(xué)評價的能力；2. 熟練掌握建立、查詢系統(tǒng)、維護(hù)關(guān)系數(shù)據(jù)庫；3. 獨立完成一個完整的數(shù)據(jù)庫應(yīng)用系統(tǒng)，提高運用計算機(jī)技術(shù)的素質(zhì)；4. 培養(yǎng)學(xué)生開展研究與合作的能力。二、課程設(shè)計報告內(nèi)容1.實訓(xùn)內(nèi)容VFP數(shù)據(jù)庫采用了可視化、面向?qū)ο蟮某绦蛟O(shè)計方法，大大的簡化了應(yīng)用系統(tǒng)的開發(fā)過程，并提升了系統(tǒng)的模塊性和緊湊性，引進(jìn)和完善了關(guān)系數(shù)據(jù)庫的實體完整性、參照完整性和用戶定義完整性，是快速掌握面向?qū)ο蟮某绦蛟O(shè)計、運用計算機(jī)解決常用數(shù)據(jù)處理問題的最佳入門語言。1) 理解關(guān)系數(shù)據(jù)庫系統(tǒng)的作用

3、，明確數(shù)據(jù)庫基本知識。2) 學(xué)會建立、查詢系統(tǒng)、維護(hù)關(guān)系數(shù)據(jù)庫，包括菜單設(shè)計、表單設(shè)計、面向?qū)ο缶幊痰幕痉椒ǖ?。?) 掌握關(guān)系數(shù)據(jù)庫中的庫、表、字段、記錄等概念，理解關(guān)系所表達(dá)的意義。4) 了解結(jié)構(gòu)化查詢語言SQL。2. 系統(tǒng)運行環(huán)境 硬件： PC兼容機(jī)，128以上內(nèi)存，彩顯。 軟件： WINDOWS操作系統(tǒng)，Visual FoxPro 6.0 。3. 軟件功能分析1) 用戶界面友好，操作簡單。2) 完成數(shù)據(jù)的錄入和修改，并提交數(shù)據(jù)庫保存。3) 實現(xiàn)信息查詢，主要包括學(xué)生信息查詢、成績信息查詢等。4) 實現(xiàn)數(shù)據(jù)的刪除功能：對數(shù)據(jù)進(jìn)行刪除操作。系統(tǒng)能夠通過用戶給出的條件查找出所要刪除的信息，

4、并提示用戶確認(rèn)是否刪除。若確定，則把相關(guān)信息從數(shù)據(jù)庫中刪除。4. 系統(tǒng)總體框架圖學(xué)生信息管理系統(tǒng)用戶登錄密碼正確? N Y系統(tǒng)主界面成 績 查 詢學(xué)生信息瀏覽新生不及格查詢?nèi)脤W(xué)生統(tǒng)計5. 模塊功能分析根據(jù)題目要求，將題目分解成子模塊，從而設(shè)計完整系統(tǒng)功能流程。三、結(jié)論本實訓(xùn)項目通過分析并實現(xiàn)了學(xué)生信息管理系統(tǒng)。本系統(tǒng)的設(shè)計讓大家了解如何根據(jù)實際問題，分析功能需求，將復(fù)雜的問題分析成子問題，達(dá)到模塊化設(shè)計系統(tǒng)功能的目標(biāo)。同時，理解了關(guān)系數(shù)據(jù)庫系統(tǒng)作用及所表達(dá)的意義，明確了數(shù)據(jù)庫基本知識，掌握了關(guān)系數(shù)據(jù)庫中的庫、表、字段、記錄等概念，此外，本次實訓(xùn)培養(yǎng)了我們學(xué)習(xí)VFP的思維能力，讓我們對VFP數(shù)

5、據(jù)庫有了更深層次的學(xué)習(xí)與理解，通過兩周的實訓(xùn)可以去獨立完成一個完整的數(shù)據(jù)庫應(yīng)用系統(tǒng)，并對其出現(xiàn)的錯誤能以與改正和討論的同時，也對以前自己朦朧而不解的問題有了很好的理解，對VFP數(shù)據(jù)庫的理論學(xué)習(xí)有了更深的學(xué)習(xí)，同時也可以運用本次的實訓(xùn)設(shè)置一些簡單的系統(tǒng)，VFP作為數(shù)據(jù)庫和開發(fā)工具，其操作都比較簡單，學(xué)習(xí)起來都比較入門。窗口的操作界面，都比較簡單，但是功能卻非常強大，所開發(fā)出來的項目，基本能滿足日常工作的需要。學(xué)習(xí)了VFP,讓我更深的了解到，什么是數(shù)據(jù)庫，什么是程序，讓我從最基本的OFFICE的學(xué)習(xí)中，直接從次底層認(rèn)識了什么是計算機(jī)。VFP是小型的數(shù)據(jù)庫，盡管其開發(fā)非常靈活，功能強大，得究其本質(zhì)而

6、已，數(shù)據(jù)庫文件沒有任何的安全性，因為，只要別人直接設(shè)計打開DBF數(shù)據(jù)表文件，就可以瀏覽里面的所有記錄了?？傊?，本次實訓(xùn)讓我們受益匪淺，給了我們更深的認(rèn)識。四、結(jié)束語 VFP雖然由于太過簡單和過時以至于沒有多少企業(yè)在實際應(yīng)用中使用它，但是數(shù)據(jù)庫的概念和對數(shù)據(jù)庫管理的知識和信息化管理的理念是在任何工作中都會用得到的。通過兩周的實訓(xùn)學(xué)習(xí)，除了學(xué)到數(shù)據(jù)庫的基本知識外，我還掌握了分析解決問題的能力。只要努力與用心學(xué)了，就會有收獲。學(xué)習(xí)過程中讓我對自己的智力更加有了信心。學(xué)習(xí)VFP，堅定了我努力提高英語水平的決心，在學(xué)習(xí)過程中發(fā)現(xiàn)不懂英語要搞懂那些命令真是難上加難，再一次體會英語的無處不在。 VFP里面包

7、含了豐富的數(shù)學(xué)思維和邏輯思維的影子，對我們培養(yǎng)邏輯思維還是大有好處的。 五、附錄：(源程序清單)表：表1.學(xué)生原始檔案表字段名數(shù)據(jù)類型及寬度是否允許為空備注學(xué)號字符型(7)主索引姓名字符型(6)性別字符型(2)出生年月日期型(8)政治面貌邏輯性(1)T表示團(tuán)員簡歷備注型(4)籍貫通用型(4)表2.學(xué)生成績表字段名數(shù)據(jù)類型及寬度是否允許為空備注學(xué)號字符型(7)普通索引姓名字符型(6)班級字符型(5)語文數(shù)值型(2,0)普通索引數(shù)學(xué)數(shù)值型(2,0)普通索引英語數(shù)值型(2,0)普通索引體育數(shù)值型(2,0)普通索引表3.三好生表字段名數(shù)據(jù)類型及寬度是否允許為空備注學(xué)號字符型(7)普通索引姓名字符型(6

8、)班級字符型(5)普通索引平均成績數(shù)值型(2,0)干部邏輯型(1)T是干部表4.系代碼表字段名數(shù)據(jù)類型及寬度是否允許為空備注系代碼字符型(2)系名字符型(10)主索引表5.專業(yè)代碼表字段名數(shù)據(jù)類型及寬度是否允許為空備注系名字符型(10)普通索引專業(yè)字符型(10)主索引專業(yè)簡稱字符型(10)專業(yè)代碼數(shù)值型(1)表6.班級情況表字段名數(shù)據(jù)類型及寬度是否允許為空備注系別字符型(10)專業(yè)字符型(10)普通索引班級字符型(5)主索引表7.口令表字段名數(shù)據(jù)類型及寬度是否允許為空備注用戶名字符型(6)口令字符型(3)可用*顯示表單： 進(jìn)入 do form 用戶登錄thisform.release 退出 q

9、uit確定public ii=0取消thisform.Combo1.value=thisform.text1.value=thisform.text1.setfocusthisform.refresh退出thisform.releaseclose dataquit 瀏覽do form 學(xué)生信息瀏覽查詢 do form 新生不及格查詢統(tǒng)計do form 三好學(xué)生統(tǒng)計排序do form 成績排序 首記錄go topwith mand1.enabled=.f. .command2.enabled=.f.endwiththisform.refresh

10、 上一條skip -1with mand3.enabled=.mand4.enabled=.t.endwithif bof()=messagebox(已經(jīng)是第一條記錄!,48,提醒)go topwith mand1.enabled=.mand2.enabled=.f.endwithendifthisform.refresh下一條skipwith mand1.enabled=.mand2.enabled=.t.c

11、ommand3.enabled=.mand4.enabled=.t.endwithif eof()=messagebox(已經(jīng)是最后一條記錄+chr(13)+返回第一條記錄,48,提醒)go topwith mand1.enabled=.mand2.enabled=.f.endwithendifthisform.refresh末紀(jì)錄go bottomwith mand1.enabled=.mand2.enabled=.mand3.enabled=.f.

12、command4.enabled=.f.endwiththisform.refresh添加with mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.t.endwithappend blankthisform.text1.setfocusthisform.refresh刪除with mand1.enabled=.mand2.enabled=.mand3.enabled=.t

13、.command4.enabled=.t.endwithyn=messagebox(真的要刪除嗎?,4+32,警告)if yn=6deletepackendifthisform.refresh退出thisform.release查詢if thisform.optiongroup1.value=1 set filter to 學(xué)生成績表.語文60.and.學(xué)生成績表.班級=bo3.valueendifif thisform.optiongroup1.value=2 set filter to 學(xué)生成績表.數(shù)學(xué)60.and.學(xué)生成績表.班級=bo3.

14、valueendifif thisform.optiongroup1.value=3 set filter to 學(xué)生成績表.英語60.and.學(xué)生成績表.班級=bo3.valueendifif thisform.optiongroup1.value=4 set filter to 學(xué)生成績表.體育60.and.學(xué)生成績表.班級=bo3.valueendif thisform.grid1.refresh 退出thisform.release 統(tǒng)計if empty(bo1.value)set filter to elsese

15、t filter to 三好生表.班級=bo1.valueendifthisform.refreshthisform.grid1.setfocus退出thisform.release 升序if thisform.optiongroup1.value=1 select 學(xué)號,姓名,語文 from 學(xué)生成績表 order by 語文 ascendifif thisform.optiongroup1.value=2 select 學(xué)號,姓名,數(shù)學(xué) from 學(xué)生成績表 order by 數(shù)學(xué) ascendifif thisform.optiongroup1.value=3 s

16、elect 學(xué)號,姓名,英語 from 學(xué)生成績表 order by 英語 ascendifif thisform.optiongroup1.value=4 select 學(xué)號,姓名,體育 from 學(xué)生成績表 order by 體育 ascendifif thisform.optiongroup1.value=5select 學(xué)號,姓名,總成績 from 學(xué)生成績表 order by 總成績 ascendifthisform.grid1.refresh降序if thisform.optiongroup1.value=1 select 學(xué)號,姓名,語文 from 學(xué)生成績表 order by

17、語文 descendifif thisform.optiongroup1.value=2 select 學(xué)號,姓名,數(shù)學(xué) from 學(xué)生成績表 order by 數(shù)學(xué) descendifif thisform.optiongroup1.value=3 select 學(xué)號,姓名,英語 from 學(xué)生成績表 order by 英語 descendifif thisform.optiongroup1.value=4 select 學(xué)號,姓名,體育 from 學(xué)生成績表 order by 體育 descendifif thisform.optiongroup1.value=5select 學(xué)號,姓名,總成績 from 學(xué)生成績表 order by 總成績 descendifthisform.grid1.refresh退出thisform.release數(shù)據(jù)庫：菜單： River implementation comprehensive, through built reservoir, and built dike,