VisualFoxPro課程設計實驗報告_第1頁
VisualFoxPro課程設計實驗報告_第2頁
VisualFoxPro課程設計實驗報告_第3頁
VisualFoxPro課程設計實驗報告_第4頁
VisualFoxPro課程設計實驗報告_第5頁
已閱讀5頁,還剩6頁未讀 繼續免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

中國文案中國最大的商務辦公文檔下載基地: / -項目方案 調查報告 可研分析 廣告策劃 案例分析商業計劃 項目管理 電子商務 財稅管理 法律文書戰略管理 企業文化 行政管理 人力資源 管理制度合同文本 個人簡歷 年終總結 公文寫作 視頻講座-中國文案: 中國商務辦公文案的下載基地.娛樂中國: 免費電影下載 在線電影觀看.辦公休閑小游戲: 超多FLASH游戲免費玩.以下為文案正文:Visual FoxPro 課程設計實驗報告“學生信息管理系統”國貿2班200204074224佘楷一.設計題目學生信息管理系統二.開發軟件VFP6.0三.課題要求(1) 掌握課堂講授的基本數據庫知識和VFP的基本技巧: 1. 數據庫管理系統合數據庫應用系統; 2. VFP的界面組成與操作; 3. VFP的工作方式; 4. 標的基本操作(表的建立與修改、表達式、維護命令); 5. 表的查詢與統計(排序與索引,SELECT-SQL查詢,數據庫于視圖); 6. 程序設計初步(程序文件,程序的控制,多模塊程序)。(2) 自學部分書本關于VFP的內容: 1. 菜單設計; 2. 表單設計; 3. 表單控件設計; 4. 實例:汽車修理管理系統的開發。(3) 要求能夠獨立設計。完成一個簡單的學生信息管理系統,此系統必須有如下基本功能: 1. 數據的查詢; 2. 記錄的增加,刪除,修改等功能; 3. 系統界面良好; 4. 操作方便,運行穩定。四.目的掌握基本的數據庫知識,熟悉VFP的使用。學習VFP數據庫應用系統開發的一般步驟:1. 需求分析2. 數據庫設計3. 應用程序設計4. 軟件的運行測試通過簡單的系統設計、開發,激發學生的學習興趣和動手能力。五.設計時間第12周第19周六.設計主要流程流程圖:用戶登陸logo.scx管理員登陸普通用戶登陸選擇用戶類型查詢維護退出統計退出查詢統計成績信息課程信息學生信息成績信息課程信息學生信息個人統計課程統計成績信息課程信息學生信息課程統計個人統計(1) 數據庫設計根據此系統需要建立數據庫sexxdb.dbc,數據庫中有如下幾個數據表:student.dbf、course.dbf、score.dbf、password.dbf、passwordm.dbf。student.dbf記錄的是學生的個人信息,如:學號、姓名、性別、民族、出生日期、所在專業、籍貫。Course.dbf記錄的是有關課程的信息,如:課程編號、課程名稱、學分、任課老師。Score.dbf記錄的是每個同學不同科目的考試成績,有以下這些內容:課程編號、課程名稱、學號、成績。Password.dbf記錄系統普通用戶的用戶名和密碼。Passwordm.dbf記錄系統管理員的用戶名和密碼。(2) 應用程序設計由于本系統是多用戶登陸,當是管理員登陸時此系統的所有功能都可能用,當是普通用戶登陸時此系統時將無法使用系統的維護功能。下面就各個表單功能和使用作如下簡述:1. 用戶登錄先選擇用戶類型:普通用戶、管理員,輸入密碼,按確定鍵進入(按重寫鍵重新填寫;按退出鍵退出系統)。主要代碼如下: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,是為了判斷用戶類型以確定進入系統界面后“維護”鍵是否可用。“重寫”鍵command2.click事件:bo1.value=thisform.text1.value=thisform.text1.setfocus“退出”鍵command3.click事件:thisform.release2. 系統界面當使用者是普通用戶時,系統界面中的“維護”鍵是不可用的。當管理員登陸時則可以使用“維護”鍵。“維護”鍵可否使用是通過form.activate來實現的:if guest=1 thisform.Command2.enabled=.t. else thisform.Command2.enabled=.f.endif“查詢”、“維護”、“統計”、“退出”鍵的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.專業, 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. 統計界面通過選擇組合框中的選項,可以統計個人成績或某一課程的成績。此界面中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&顯示統計結果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 &顯示統計結果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) 程序測試登陸系統,選擇選項按鈕組中的“普通用戶”,在組合框中選擇用戶(如用 “王儀”登陸,密碼為111111),查看

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論