VisualFoxPro課程設計實驗報告

中國文案中國最大的商務辦公文檔下載基地： / -項目方案 調查報告 可研分析 廣告策劃 案例分析商業(yè)計劃 項目管理 電子商務 財稅管理 法律文書戰(zhàn)略管理 企業(yè)文化 行政管理 人力資源 管理制度合同文本 個人簡歷 年終總結 公文寫作 視頻講座-中國文案： 中國商務辦公文案的下載基地.娛樂中國： 免費電影下載 在線電影觀看.辦公休閑小游戲： 超多FLASH游戲免費玩.以下為文案正文：Visual FoxPro 課程設計實驗報告“學生信息管理系統(tǒng)”國貿2班200204074224佘楷一.設計題目學生信息管理系統(tǒng)二.開發(fā)軟件VFP6.0三.課題要求(1) 掌握課堂講授的基本數據庫知識和VFP的基本技巧： 1. 數據庫管理系統(tǒng)合數據庫應用系統(tǒng)； 2. VFP的界面組成與操作； 3. VFP的工作方式； 4. 標的基本操作（表的建立與修改、表達式、維護命令）； 5. 表的查詢與統(tǒng)計（排序與索引，SELECT-SQL查詢，數據庫于視圖）； 6. 程序設計初步（程序文件，程序的控制，多模塊程序）。(2) 自學部分書本關于VFP的內容： 1. 菜單設計； 2. 表單設計； 3. 表單控件設計； 4. 實例：汽車修理管理系統(tǒng)的開發(fā)。(3) 要求能夠獨立設計。完成一個簡單的學生信息管理系統(tǒng)，此系統(tǒng)必須有如下基本功能： 1. 數據的查詢； 2. 記錄的增加，刪除，修改等功能； 3. 系統(tǒng)界面良好； 4. 操作方便，運行穩(wěn)定。四.目的掌握基本的數據庫知識，熟悉VFP的使用。學習VFP數據庫應用系統(tǒng)開發(fā)的一般步驟：1. 需求分析2. 數據庫設計3. 應用程序設計4. 軟件的運行測試通過簡單的系統(tǒng)設計、開發(fā)，激發(fā)學生的學習興趣和動手能力。五.設計時間第12周第19周六.設計主要流程流程圖：用戶登陸logo.scx管理員登陸普通用戶登陸選擇用戶類型查詢維護退出統(tǒng)計退出查詢統(tǒng)計成績信息課程信息學生信息成績信息課程信息學生信息個人統(tǒng)計課程統(tǒng)計成績信息課程信息學生信息課程統(tǒng)計個人統(tǒng)計(1) 數據庫設計根據此系統(tǒng)需要建立數據庫sexxdb.dbc，數據庫中有如下幾個數據表：student.dbf、course.dbf、score.dbf、password.dbf、passwordm.dbf。student.dbf記錄的是學生的個人信息，如：學號、姓名、性別、民族、出生日期、所在專業(yè)、籍貫。Course.dbf記錄的是有關課程的信息，如：課程編號、課程名稱、學分、任課老師。Score.dbf記錄的是每個同學不同科目的考試成績，有以下這些內容：課程編號、課程名稱、學號、成績。Password.dbf記錄系統(tǒng)普通用戶的用戶名和密碼。Passwordm.dbf記錄系統(tǒng)管理員的用戶名和密碼。(2) 應用程序設計由于本系統(tǒng)是多用戶登陸，當是管理員登陸時此系統(tǒng)的所有功能都可能用，當是普通用戶登陸時此系統(tǒng)時將無法使用系統(tǒng)的維護功能。下面就各個表單功能和使用作如下簡述：1. 用戶登錄先選擇用戶類型：普通用戶、管理員，輸入密碼，按確定鍵進入（按重寫鍵重新填寫；按退出鍵退出系統(tǒng)）。主要代碼如下：optiongroup1.click事件：do case case this.value=0 bo1.rowsource= case this.value=1 bo1.rowsource=password.用戶名 case this.value=2 bo1.rowsource=passwordm.管理員endcase“確定”鍵command1.click事件：public guestprivate Password1do case case thisform.optiongroup1.value=1 select password password1=alltrim(thisform.text1.value) locate for alltrim(用戶名)=alltrim(bo1.value) if found() and password1=alltrim(密碼) guest=2 thisform.release do form main.scx else =messagebox(用戶名或密碼錯誤,請重新輸入!) thisform.text1.setfocus endif case thisform.optiongroup1.value=2 select passwordm password1=alltrim(thisform.text1.value) locate for alltrim(管理員)=alltrim(bo1.value) if found() and password1=alltrim(密碼) guest=1 thisform.release do form main.scx else =messagebox(用戶名或密碼錯誤,請重新輸入!) thisform.text1.setfocus endifendcase在此代碼中定義了公共變量guest，是為了判斷用戶類型以確定進入系統(tǒng)界面后“維護”鍵是否可用?！爸貙憽辨Icommand2.click事件：bo1.value=thisform.text1.value=thisform.text1.setfocus“退出”鍵command3.click事件：thisform.release2. 系統(tǒng)界面當使用者是普通用戶時，系統(tǒng)界面中的“維護”鍵是不可用的。當管理員登陸時則可以使用“維護”鍵?！熬S護”鍵可否使用是通過form.activate來實現的：if guest=1 thisform.Command2.enabled=.t. else thisform.Command2.enabled=.f.endif“查詢”、“維護”、“統(tǒng)計”、“退出”鍵的click代碼分別為：do form chaxun.scxdo form weihu.scxdo form statistic.scxthisform.releasedo form logo3. 查詢界面用戶可以在此查詢學生信息、課程信息和成績信息。查詢學生信息時“確定”鍵的代碼是：thisform.pageframe1.page1.grid1.recordsource=XH=alltrim(thisform.pageframe1.page1.text1.value)thisform.pageframe1.page1.grid1.recordsource=select student.學號, student.姓名, student.性別, student.民族, student.出生日期, student.專業(yè), student.籍貫 from student where alltrim(學號)=XH or alltrim(姓名)=XH into cursor tempthisform.pageframe1.page1.text1.value=查詢課程信息時的代碼為：kcmc=alltrim(thisform.pageframe1.page2.text1.value)thisform.pageframe1.page2.grid1.recordsource=select course.課程編號, course.課程名稱, course.學分, course.任課老師 from course where alltrim(課程名稱)=kcmc or alltrim(課程編號)=kcmc into cursor tempthisform.pageframe1.page2.text1.value=查詢成績信息時的代碼為：xh=alltrim(thisform.pageframe1.page3.text1.value)thisform.pageframe1.page3.grid1.recordsource=select student.學號,student.姓名,course.課程名稱,score.成績 from student,course,score where alltrim(score.學號)=xh and alltrim(student.學號)=alltrim(score.學號) and alltrim(course.課程編號)=alltrim(score.課程編號) into cursor tempthisform.pageframe1.page3.text1.value=4. 維護界面只有管理員才能進入此界面。進入此界面后，選擇組合框里的一項可以查詢此項的數據，但不能修改，只有按下“進行修改”鍵后才能進行修改，修改后按“確定”鍵確認修改。按“退出”鍵退出此界面。此界面中optiongroup1的click事件代碼為：do casecase thisform.optiongroup1.option1.value=1thisform.grid1.recordsource=studentthisform.grid1.refreshcase thisform.optiongroup1.option2.value=1thisform.grid1.recordsource=coursethisform.grid1.refreshcase thisform.optiongroup1.option3.value=1thisform.grid1.recordsource=mand1.enabled=.mand2.enabled=.mand3.enabled=.t.“進行修改”鍵的click代碼為：thisform.grid1.enabled=.t.thisform.grid1.readonly=.f.thisform.grid1.allowaddnew=.mand1.enabled=.f.“確定”鍵的click代碼為：usethisform.grid1.enabled=.t.thisform.grid1.allowaddnew=.f.thisform.grid1.readonly=.t.&thisform.grid1.recordsource=mand1.enabled=.mand2.enabled=.mand3.enabled=.f.5. 統(tǒng)計界面通過選擇組合框中的選項，可以統(tǒng)計個人成績或某一課程的成績。此界面中optiongroup1的click事件代碼為：Do caseCase this.value=0 Tbo1.rowsource=Case this.value=1 Tbo1.rowsource=student.學號Case this.value=2 Tbo1.rowsource=course.課程名稱Endcase“確定”鍵的click代碼為：do case case thisform.optiongroup1.value=1xh=alltrim(bo1.value)select scorecalculate max(成績),min(成績),avg(成績),cnt(); for 學號=xh to a1,a2,a3,a4&顯示統(tǒng)計結果Thisform.text1.value=alltrim(str(a1)Thisform.text2.value=alltrim(str(a2)Thisform.text3.value=alltrim(str(a3)Thisform.text4.value=alltrim(str(a4)Case thisform.optiongroup1.value=2 Kcmc=alltrim(bo1.value) Select course Locate for 課程名稱=kcmc Select score Calculate max(成績),min(成績),avg(成績),cnt(); For 課程名稱=kcmc to a1,a2,a3,a4 &顯示統(tǒng)計結果Thisform.text1.value=alltrim(str(a1)Thisform.text2.value=alltrim(str(a2)Thisform.text3.value=alltrim(str(a3)Thisform.text4.value=alltrim(str(a4)Endcase(3) 程序測試登陸系統(tǒng)，選擇選項按鈕組中的“普通用戶”，在組合框中選擇用戶（如用 “王儀”登陸，密碼為111111），查看