【文章內(nèi)容簡介】 ty off if ==取消 = =.f. =.f. =刪除 =.t. =修改 else if alltrim()== =messagebox(缺少完整信息，無法刪除！ ,0+48,警告 ) else use deandma exclusive =alltrim() nn=messagebox(是否確定刪除此班級 ,與其相關(guān)的數(shù)據(jù)都將刪除！ ,1+48,警告 ) if nn==1 t=0 locate for alltrim( )=alltrim() delete pack t=1 if t==0 messagebox(將刪除的內(nèi)容不存在，請重新輸入。 ,64,提示 ) endif endif = amp。amp。重新顯示 List列表 =alltrim() 17 endif endif 學(xué)生成績錄入 “確定”按鈕的 click事件添加如下的代碼 xuehao=allt() banji=allt() kecheng=allt() xueqi=allt() chengji=allt() sele grade if chengji== tt=messagebox(想輸入單科成績嗎？ ,4+32,提示 ) if tt==6 else endif else *locate for allt(學(xué)號 )=xuehao *if eof() locate for allt(課程 )=kecheng if allt(學(xué)號 )==.(班級 )==banji repl 學(xué)號 with xuehao repl 成績 with val(chengji) repl 學(xué)期 with xueqi 18 else * append blank * repl 學(xué)號 with xuehao * repl 班級 with banji * repl 課程 with kecheng * repl 成績 with val(chengji) * repl 學(xué)期 with xueqi *endif *else locate for allt(學(xué)號 )=xuehao .and. allt(課程 )==kecheng .and. allt(學(xué)期 )==xueqi if eof() append blank repl 學(xué)號 with xuehao repl 班級 with banji repl 課程 with kecheng repl 成績 with val(chengji) repl 學(xué)期 with xueqi else tt=messagebox(該科 的成績已存在，是否覆蓋？ ,4+32+256,提示 ) if tt==6 repl 成績 with val(chengji) endif endif endif =.f. endif “查詢”按鈕的 click事件添加如下的代碼 sele ls if allt()== messagebox(請輸入學(xué)號或姓名！ ,64,提示 ) else locate for 學(xué)號 =allt().or. 姓名=allt() if eof() messagebox(該班級沒有此人?。?,64,提示 ) = 19 go nhere else =學(xué)號 endif endif 修改學(xué)生成績 “快速查詢”按鈕的 click事件添加如下的代碼 sele lsbj if allt()== messagebox(請輸入學(xué)號或姓名！ ,16,提示 ) else locate for 學(xué)號 =allt().or. 姓名=allt() if eof() messagebox(本班級沒有此人，請重新輸入！ ,64,提示 ) = else xuehao=allt(學(xué)號 ) 20 =姓名 =學(xué)號 endif endif “下一位”按鈕的 click事件添加如下的代碼 =.t. =.t. if !allt()== sele lsbj skip 1 if eof() =.f. =.f. messagebox(已經(jīng)到最后一條記錄了！ ,48,提示 ) go bottom endif xuehao=allt(學(xué)號 ) =allt(姓名 ) =allt(學(xué)號 ) 21 學(xué)生成績查詢 “補考統(tǒng)計”按鈕的 click事件添加如下的代碼 if allt()== messagebox(請選擇班級 !,64,提示 ) else bkbj= bkxq= do form bukao endif “定位查詢”按鈕的 click事件添加如下的代碼 if allt()== messagebox(請輸入學(xué)號或姓名！ ,64,提示 ) else locate for allt( )=allt().or.。 allt( )=allt() if found() lsxh=allt( ) lsxm=allt( ) buxq=allt() do form dgcj 22 else messagebox(沒有此人，請重新輸入 ,64,提示 ) endif endif 用戶管理 List1的 init事件中添加的代碼如下 sele yonghu (管理員 ) locate for 標識 =.T. do while found() (+姓名 ) continue enddo go top locate for 標識 =.F. (普通用戶 ) do while found() (+姓名 ) continue enddo “注冊”按鈕的 click事件添加如下的代碼 23 Set safety off sele yonghu if alltrim()== messagebox(用戶名不能為空！ ,0+48,警告 ) else locate for 姓名 =alltrim() if(.not. eof()) messagebox(此用戶已存在，請重新輸入！ ,64,警告 ) = else if alltrim()== messagebox(密碼不能為空！ ,0+48,警告 ) else if ()==() append blank repl 姓名 with alltrim(),。 密碼 with alltrim() if ==1 repl 標識 with .T. else repl 標識 with .F. endif = = = =.f. =.f. else tt=messagebox(確認密碼錯誤，請重新輸入！ ,0+48,警告 ) if tt==1 =.t. =.t. = 24 endif endif endif endif endif “刪除” 按鈕的 click事件添加如下的代碼 if allt()== messagebox(請選擇或輸入用戶名 ,64,提示 ) else use yonghu locate for 姓名 =allt()。 . =allt() if eof() messagebox(請選擇或輸入正確的用戶名 ,64,提示 ) = = else tt=messagebox(一定要刪除嗎？ ,4+48,刪除確認 ) if tt==6 delete pack endif endif endif 25 修改用戶密碼 “修改”按鈕的 click事件添加如下的代碼 sele yonghu if allt()== else locate for allt(姓名 )=allt() if eof() messagebox(此用戶不存在，請重新輸入！ ,64,提示 ) = () else if !allt(密碼 )==allt() messagebox(密碼錯誤，請重新輸入！ ,64,提示 ) = () else if allt()== messagebox(請輸入新密碼！ ,64,提示 ) else if !allt()==allt() messagebox(確認密碼錯誤，請重新輸入！ ,64,提示 ) = else 26 repl 密碼 with allt() endif endif endif endif endif 關(guān)于系統(tǒng) 退出系統(tǒng) if messagebox(是否退出學(xué)生信息官系統(tǒng)？ ,36,學(xué)生信息管理系統(tǒng) )=6 Close all amp。amp。關(guān)閉所有打開的文件 Clear Events amp。amp。結(jié)束事件循環(huán)，退出圖書管理系統(tǒng) Endif 27 6 結(jié)論 學(xué)生信息管理系統(tǒng)是學(xué)校信息管理系統(tǒng)的一個重要組成部分。他為其他系統(tǒng)（如學(xué)校圖書管理系統(tǒng)、學(xué)校檔案管理系統(tǒng)、教學(xué)管理系統(tǒng)、總務(wù)后勤管理系統(tǒng)等）提供學(xué)生的基本信息，同時它也需要如教學(xué)管理系統(tǒng)提供課程設(shè)置數(shù)據(jù)等。這些 系統(tǒng)在具體應(yīng)用中構(gòu)成一個大系統(tǒng)，相互調(diào)用對方的數(shù)據(jù)。由以上分析，我們可以充分認識到設(shè)計并開發(fā)一個學(xué)生信息管理系統(tǒng)的必要性和迫切性，本次設(shè)計和開發(fā)的學(xué)生信息管理系統(tǒng)應(yīng)符合學(xué)校學(xué)生信息管理的規(guī)定，滿足對學(xué)校學(xué)生信息管理的需要，并達到操作過程中的直觀，方便，實用，安全等要求。系統(tǒng)采用模塊化程序設(shè)計的方法，既便于系統(tǒng)功能的組合和修改，又便于未參與系統(tǒng)開發(fā)的技術(shù)維護人員補充和維護。 SIMS 通過教育網(wǎng)絡(luò)或互聯(lián)網(wǎng)把整個學(xué)校的學(xué)生信息匯聚起來，為學(xué)校教育主管部門提供全面及時的學(xué)生信息，方便管理，同時亦可通過校園網(wǎng)擴展各類信 息化應(yīng)用，共享學(xué)生信息。 28 致 謝 踉踉蹌蹌地忙碌了 這些天 ，我的畢業(yè)設(shè)計課題也終將告一段落。點擊運行，也基本達到預(yù)期的效果，虛榮的成就感在沒人的時候也總會冒上心頭。但由于能力和時間的關(guān)系，總是覺得有很多不盡人意的地方，譬如功能不全、外觀粗糙、底層代碼的不合理 …… 數(shù)不勝數(shù)。可是，我又會有點自戀式地安慰自己：做一件事情，不必過于在乎最終的結(jié)果，可貴的是過程中的收獲。以此語言來安撫我尚沒平復(fù)的心。 畢業(yè)設(shè)計，也許是我大學(xué)生涯交上的最后一個作業(yè)了。想籍 次機會感謝四年以來給我?guī)椭乃欣蠋?、同學(xué)，你們的友誼是我人生的財富，是我生命中不可或缺的一部分。我的畢業(yè)指導(dǎo)老師 謝鵬 老師，給我不厭其煩的指導(dǎo)。在此，特向 他 道聲謝謝。 29 參考文獻 FoxPro 數(shù)據(jù)庫應(yīng)用實例完全解析 .北京：人民郵電出版社 .2021 年 FoxPro 軟件項目開發(fā)實例 .北京：電子工業(yè)出版社 .2021 年 3. 周佩德 .數(shù)據(jù)庫原理及應(yīng)用 .北京：電子工業(yè)出版社 .2021 年 4．史濟民、湯觀全等 .Visual FoxPro 及其應(yīng)用系統(tǒng)開發(fā) .北京 :清華大學(xué)出版社 .2021 5．鄭硯、周青 .Visual FoxPro 實用編程 100 例 .北京 :中國鐵道出版社 .2021 6．伍軍良 .Visual FoxPro :中國水利水電出版社 .2021 7．邵陽、谷宇等 .Visual FoxPro 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 .北京 :人民郵電出版社 .2021 8．網(wǎng)冠科技 .Visual FoxPro 時尚變編程百例 .北京 :機械工業(yè)出版社 .2021 9．夏輝 王冬等 .Visual FoxPro 函數(shù)和系統(tǒng)變量手冊 .北京 :清華大學(xué)出版社 .2021 10．陳華生 單啟成 .Visual FoxPro 教程 .蘇州 :蘇州大學(xué)出版社 .2021 11．錢培德 朱巧明 .Visual FoxPro 學(xué)習(xí)指導(dǎo) .蘇州 :蘇州大學(xué)出版社 .2021 1 原文已完。下文為附加文檔，如不需要，下載后可以編輯刪除，謝謝！ 施工組織設(shè)計 本施工組織設(shè)計是本著“一流的質(zhì)量、一流的工期、科學(xué)管理”來進行編制的。編制時，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項目部經(jīng)過精心研究、合理組織、充分利用先進工藝 ，特制定本施工組織設(shè)計。 一、 工程概況： 西夏建材