信息管理系統(tǒng)VFP課程設(shè)計(jì).doc信息管理系統(tǒng)VFP課程設(shè)計(jì)(word文檔良心出品)

1、目錄1引言 .12系統(tǒng)技術(shù)及運(yùn)行環(huán)境 .12.1 Visual Foxpro 6.0簡(jiǎn)介 .12.2系統(tǒng)開(kāi)發(fā)及運(yùn)行環(huán)境 .13系統(tǒng)分析 .23.1需求分析 .23.2系統(tǒng)可行性分析 .24總體設(shè)計(jì) .24.1設(shè)計(jì)目標(biāo) .24.2項(xiàng)目規(guī)劃 .34.3系統(tǒng)功能圖 .45系統(tǒng)詳細(xì)設(shè)計(jì) .55.1數(shù)據(jù)庫(kù)設(shè)計(jì) .55.2登陸界面設(shè)計(jì) .65.3學(xué)生信息錄入 .85.4學(xué)生信息修改 .95.5學(xué)生信息查詢 .115.6系管理表單設(shè)計(jì) .125.7班級(jí)管理 .155.8學(xué)生成績(jī)錄入 .175.9修改學(xué)生成績(jī) .195.10 學(xué)生成績(jī)查詢 .215.11 用戶管理 .225.12 修改用戶密碼 .255.13

2、 關(guān)于系統(tǒng) .266結(jié)論 .271 引言學(xué)生信息管理系統(tǒng)（ Student Information Management System） , 以下簡(jiǎn)稱 SIMS，是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開(kāi)發(fā)的管理軟件，是典型的管理信息系統(tǒng)（ Management Information System ）。它是教育單位不可缺少的一個(gè)部分 , 對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要 , 它能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍?能有效的幫助學(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績(jī)跟課程方面的查詢。 在傳統(tǒng)模式下利用人工進(jìn)行學(xué)生信息管理，存在著較多的缺點(diǎn)，如：效率底，保密性差，時(shí)間一長(zhǎng)將產(chǎn)生大量的文

3、件和數(shù)據(jù)，更不便于查找，更新，維護(hù)等。諸如這些情況，令學(xué)校管理者對(duì)學(xué)生的信息管理帶來(lái)了很大困難，嚴(yán)重影響了教育工作者的工作效率。 隨著科學(xué)技術(shù)的不斷提高 , 計(jì)算機(jī)科學(xué)日漸成熟 , 使用日趨成熟的計(jì)算機(jī)技術(shù)來(lái)代替?zhèn)鹘y(tǒng)的人工模式，來(lái)實(shí)現(xiàn)學(xué)生信息的現(xiàn)代化管理，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) , 它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分 , 使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理, 具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn). 例如 : 檢索迅速、查找方便、易修改、可靠性高、存儲(chǔ)量大、數(shù)據(jù)處理快捷、保密性好、壽命長(zhǎng)、成本低、便于打印等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率, 也是學(xué)校的

4、科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。用計(jì)算機(jī)制作的學(xué)生信息管理系統(tǒng)還可以通過(guò)功能強(qiáng)大的 Internet 網(wǎng)及時(shí)的向?qū)W生的家長(zhǎng)傳遞該生在校的最新成績(jī)，有助于學(xué)校與家長(zhǎng)的信息互動(dòng)，為更好地把握學(xué)校的教育方針一定的促進(jìn)作用！因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情。2 系統(tǒng)技術(shù)及運(yùn)行環(huán)境2.1 Visual Foxpro 6.0簡(jiǎn)介Visual Foxpro 6.0是計(jì)算機(jī)優(yōu)秀的數(shù)據(jù)管理系統(tǒng)軟件之一，它采用了可視化的、面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，大大簡(jiǎn)化了應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程，并提高了應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程，并提高了系統(tǒng)的模塊性和緊湊型。是新一代的小型數(shù)據(jù)庫(kù)管理系統(tǒng)的杰出代表，它以其強(qiáng)大的性能、

5、完整而又豐富的工具、較高的處理速度、友好的界面以及較完備的兼容性，備受廣大用戶的歡迎。面前， Visual Foxpro 6.0 是用戶收集信息、查詢數(shù)據(jù)、創(chuàng)建集成數(shù)據(jù)庫(kù)系統(tǒng)、進(jìn)行應(yīng)用系統(tǒng)開(kāi)發(fā)較為理想的微機(jī)數(shù)據(jù)庫(kù)管理系統(tǒng)。2.2 系統(tǒng)開(kāi)發(fā)及運(yùn)行環(huán)境該運(yùn)行環(huán)境的規(guī)定是保證本需求說(shuō)明的功能得到實(shí)際真正體現(xiàn)的基礎(chǔ)。（ 1）運(yùn)行環(huán)境 Windows98或更高版本的操作系統(tǒng)數(shù)據(jù)庫(kù)系統(tǒng)： Microsoft Visual Foxpro 6.0（ 2）開(kāi)發(fā)環(huán)境：開(kāi)發(fā)工具： Microsoft Visual Foxpro 6.013 系統(tǒng)分析3.1 需求分析21 世紀(jì)以來(lái)，人類經(jīng)濟(jì)的迅速發(fā)展，使得人們的生活發(fā)

6、生了日新月異的變化，計(jì)算機(jī)的應(yīng)用及普到經(jīng)濟(jì)、社會(huì)和生活的各個(gè)領(lǐng)域，原本的舊的管理方法越來(lái)越不適應(yīng)現(xiàn)在社會(huì)的發(fā)展。為了適應(yīng)現(xiàn)代社會(huì)人們高度強(qiáng)烈的時(shí)間觀念，學(xué)校信息管理系統(tǒng)軟件為學(xué)校辦公室?guī)?lái)了極大的方便。（一）教育系統(tǒng)學(xué)生管理現(xiàn)狀分析學(xué)校工作流程分析學(xué)校工作總體規(guī)劃由教務(wù)人員在學(xué)生信息管理系統(tǒng)中完成對(duì)運(yùn)行教務(wù)處所需的基本數(shù)據(jù)的維護(hù)，包括這些信息的增加、修改及對(duì)各項(xiàng)信息的變動(dòng)都將在這進(jìn)行操作。新的學(xué)年，教務(wù)人員首先加入年級(jí)信息，然后編排班級(jí)，再對(duì)來(lái)校學(xué)生進(jìn)行基本的信息錄入，新生入學(xué)后由教務(wù)人員在學(xué)籍系統(tǒng)中完成新學(xué)生信息的維護(hù)。（二）學(xué)校具體需求分析學(xué)生：對(duì)各科成績(jī)的查詢?nèi)握n老師：輸入并維護(hù)所教科目

7、的學(xué)生成績(jī)教務(wù)處： 學(xué)校全體成員的信息管理，并對(duì)任課老師，班主任等輸入的信息進(jìn)行存庫(kù)，對(duì)學(xué)生的信息進(jìn)行必要的維護(hù)。通過(guò)研究調(diào)查，本系統(tǒng)需以下功能：綜合學(xué)生信息、學(xué)生成績(jī)以及信息查詢等信息。方便用戶了解和管理學(xué)生的全面動(dòng)態(tài)信息。良好的界面設(shè)計(jì)，更人性化的設(shè)計(jì)理念，使用戶擁有更輕松的使用心情。3.2 系統(tǒng)可行性分析目的：可行性研究的目的是用最小的代價(jià)在盡可能的時(shí)間內(nèi)確定問(wèn)題是否能解決。經(jīng)濟(jì)性：由于學(xué)校等中小型管理系統(tǒng)并不復(fù)雜，且 Visual Foxpro 6.0 本身要求的運(yùn)行環(huán)境不高，所以一般 Windows 2000 以上的系統(tǒng)環(huán)境都可以使用。實(shí)用性：本學(xué)生信息管理系統(tǒng)管理系統(tǒng)無(wú)太多復(fù)雜的操

8、作要求，也沒(méi)有過(guò)分花哨的裝飾品，人性化的設(shè)計(jì)界面可以使操作者輕易運(yùn)用自如4 總體設(shè)計(jì)4.1 設(shè)計(jì)目標(biāo)本系統(tǒng)可以能減少很多不必要的資源，不用象以前那樣用冗余的紙張式的管理。大節(jié)省2了學(xué)校能源。并且計(jì)算機(jī)的存儲(chǔ)與快速查詢功能大大提高了學(xué)籍管理的效率，并且還提高了學(xué)籍信息管理的精確度。方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯(cuò)誤，并且操作非常簡(jiǎn)單，可減少許多不很必要的人員，這無(wú)論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開(kāi)支。為學(xué)校增加了財(cái)富。數(shù)據(jù)庫(kù)分析用戶需求具體有學(xué)籍管理系統(tǒng)提供保存、更新、查詢、維護(hù)，這就需求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸入與輸出，實(shí)現(xiàn)有組織地、動(dòng)態(tài)

9、地存儲(chǔ)大量關(guān)聯(lián)數(shù)據(jù)，方便用戶訪問(wèn)系統(tǒng)中的數(shù)據(jù)，它與文件系統(tǒng)的重要區(qū)別是數(shù)據(jù)的充分共享，交叉訪問(wèn)，與應(yīng)用程序的高度獨(dú)立性。4.2 項(xiàng)目規(guī)劃學(xué)生管理系統(tǒng)是各大中專院校不可缺少的一部分，是一個(gè)VF 數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序，它主要包括用戶登錄、學(xué)生信息輸入修改、學(xué)生信息查詢以及學(xué)生成績(jī)輸入、學(xué)生成績(jī)查詢、系統(tǒng)用戶管理等幾個(gè)頁(yè)面，因而該系統(tǒng)具有較強(qiáng)的實(shí)用性。34.3 系統(tǒng)功能圖學(xué)生信息管理系統(tǒng)登錄系統(tǒng)主界面學(xué) 生 信 息 管學(xué)生課程信息管學(xué)生成績(jī)信息管系統(tǒng)管理學(xué)學(xué)學(xué)學(xué)學(xué) 學(xué)生生生系專班課生生 生用 修 退信信信業(yè)級(jí)程成成 班戶 改 出管息息息管管管績(jī)績(jī) 級(jí)管 密 系理錄錄錄理理理錄管 管理 碼 統(tǒng)入入入入理

10、 理45 系統(tǒng)詳細(xì)設(shè)計(jì)5.1 數(shù)據(jù)庫(kù)設(shè)計(jì)（1）deandma.dbf，見(jiàn)表 1表 1字段名數(shù)據(jù)類型備注班級(jí)Char（8）主鍵 Not null系Char（10）Not null專業(yè)Char（14）Not null（2）grade.dbf ，見(jiàn)表 2表 2字段名數(shù)據(jù)類型備注學(xué)號(hào)Char（8）主鍵 Not null班級(jí)Char（10）Not null課程Char（18）Not null成績(jī)Int (5)Not null學(xué)期Char（2）Not null備注MemoNull（3）stduents.dbf，見(jiàn)表 3表 3字段名數(shù)據(jù)類型備注班級(jí)Char（8）主鍵 Not null學(xué)號(hào)Char（8）Not

11、 null姓名Char（8）Not null性別Char（6）Not Null出生日期DatetimeNull政治面貌Char（8）Null身份證號(hào)碼Char（16）Null入學(xué)時(shí)間DatetimeNull籍貫Char（16）Null家庭住址Char（28）Null郵政編碼Char（6）Null照片GeneralNull備注MemoNull(4).dbf，見(jiàn)表 45表 4 用戶信息表字段名數(shù)據(jù)類型備注姓名Char（8）主鍵 Not null密碼Char（6）Not null標(biāo)識(shí)LogicalNot null5.2 登陸界面設(shè)計(jì)“進(jìn)入”按鈕的 click事件添加如下的代碼 :sele yongh

12、uif allt(thisform.text1.value)=messagebox(left(allt(thisform.label1.caption),6)+為空，請(qǐng)輸入！,64,提示 )thisform.text1.setfocuselseif allt(thisform.text2.value)=messagebox( 密碼為空，請(qǐng)輸入！ ,64,提示 )thisform.text2.setfocuselsen=n+1locate for allt(姓名 )=allt(thisform.text1.value);6.and. allt(密碼 )=allt(thisform.text2.v

13、alue)if found()if thisform.check1.value=1 .and.標(biāo)識(shí)checked=1thisform.releasedo menu.mprelseif thisform.check1.value=1.and.!標(biāo)識(shí)messagebox( 你不是管理員！ ,48,警告 )thisform.check1.value=0elsechecked=0cyonghu=allt( 姓名 )cmima=allt(密碼 )thisform.releasedo menu.mprendifendifelseif n=3messagebox( 你不是合法用戶，請(qǐng)與管理員聯(lián)系！,48,警

14、告 )thisform.releaseclear eventquitelsemessagebox(left(allt(thisform.label1.caption),6)+或密碼錯(cuò)誤，請(qǐng)重新輸入！ ,64,提示 )thisform.text1.value=thisform.text1.setfocusthisform.text2.value=endifendifendifendif“取消”按鈕的 click事件添加如下的代碼nr=messagebox( 你選擇了退出登錄，是否退出？,68,用戶登錄 )if nr=6thisform.release7quitendif5.3 學(xué)生信息錄入“增加

15、”按鈕的 click事件添加如下的代碼 :if this.caption=增加 if(bo3.displayvalue=（選擇）).or.(alltrim(thisform.text1.value)=);.or.(alltrim(thisform.text2.value)=)messagebox( 班級(jí)、學(xué)號(hào)和姓名必須填充！,64,提示 )elselocate for alltrim(thisform.text1.value)=alltrim(students.學(xué)號(hào) )if !eof()=messagebox( 此學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！,64,提示 )thisform.text1.valu

16、e=thisform.text1.setfocuselsesele studentsappend blankreplace班級(jí)withalltrim(bo3.value),學(xué)號(hào) withalltrim(thisform.text1.value);姓名withalltrim(thisform.text2.value),出生日期withctod(alltrim(thisform.text4.value);入 學(xué) 時(shí) 間withctod(alltrim(thisform.text6.value),籍 貫 withalltrim(thisform.text7.value);8家 庭 住 址withal

17、ltrim(thisform.text8.value),身 份 證 號(hào) 碼 withalltrim(thisform.text8.value);備注withalltrim(thisform.edit1.value),郵政編碼withalltrim(thisform.text3.value)if alltrim(bo4.value)=replace性別 with alltrim(bo4.displayvalue)elsereplace性別 with alltrim(bo4.value)endifif alltrim(bo5.value)=replace政治面貌 with alltrim(bo5.

18、displayvalue)elsereplace政治面貌 with alltrim(bo5.value)endif& if .not.alltrim(thisform.label17.caption)= if !pictemp=wait windows 正在導(dǎo)入相片，請(qǐng)等待！. at 100,40 timeout 2nowait& pictemp=thisform.label17.captionappend general students.照片 from &pictempendifpictemp=this.caption=繼續(xù) endifendifelsemand2.clickthis.ca

19、ption=增加 endif5.4 學(xué)生信息修改9“修改”按鈕的 click 事件添加如下的代碼 :ith thisformsele studentslocate for allt(學(xué)號(hào) )=allt(.text1.value)if allt(學(xué)號(hào) )=allt(.text1.value)replace學(xué)號(hào) with allt(.text1.value),姓名 with allt(.text2.value),郵政編碼 with allt(.text3.value),;出生日期 with .text4.value,入 學(xué)時(shí)間 with .text6.value,籍貫 withallt(.text

20、7.value),;家庭住址 withallt(.text8.value),身份證號(hào)碼 with allt(.text9.value),性別 with allt(.combo4.value),;政治面貌 with allt(.combo5.value),備注 with allt(.edit1.value)if !pictemp=wait windows 正在導(dǎo)入相片，請(qǐng)等待！. at 100,40 timeout 2nowaitappend general 照片 from &pictempendifendifsele lslocate for allt(學(xué)號(hào) )=allt(.text1.val

21、ue)if allt(學(xué)號(hào) )=allt(students.學(xué)號(hào) )replace學(xué)號(hào) with students.學(xué)號(hào) , 姓名 with students.姓名 , 郵政編碼with students.郵政編碼 ,;出生日期 withstudents. 出生日期 , 入學(xué)時(shí)間 with students.入學(xué)時(shí)間 , 籍貫with students.籍貫 ,;10家庭住址 with students. 家庭住址 , 身份證號(hào)碼 with students. 身份證號(hào)碼 , 性別 with students. 性別 ,;政治面貌with students.政治面貌 , 備注 with stu

22、dents.備注 , 照片 withstudents.照片endifpictemp=this.enabled=.f.endwith5.5 學(xué)生信息查詢“定位查詢”按鈕的 click 事件添加如下的代碼if allt(thisform.text1.value)=messagebox(請(qǐng)輸入學(xué)號(hào)或姓名！ ,64,提示 )thisform.text1.setfocuselsesele stulslocate for allt(學(xué)號(hào) )=allt(thisform.text1.value);.or.allt(姓名 )=allt(thisform.text1.value)if found()go rec

23、n()elsewait window at 18,38 nowait 沒(méi)有找到你要查詢的信息！11endifendifthisform.grid1.refreshthisform.refresh“第一個(gè)”按鈕的 click 事件添加如下的代碼sele stulsskip -1if bof()this.enabled=.f.mand3.enabled=.f.messagebox(已經(jīng)到第一條記錄了！ ,64,提示 )go topelsego recn()endifmand2.enabled=.t.mand4.enabled=.t.“單個(gè)查詢”按鈕的 click 事件添加如下的代碼nxx=1do

24、form xxxg5.6 系管理表單設(shè)計(jì)12“增加”按鈕的 click事件添加如下的代碼set order to tagset safety offif alltrim(thisform.text1.value)=messagebox(系名為空，請(qǐng)輸入！ ,64,提示 )thisform.text1.setfocuselselocate for deandma.系=alltrim(thisform.text1.value)if .not.eof()messagebox(系名已經(jīng)存在，請(qǐng)重新輸入！,48,提示 )thisform.text1.value=thisform.text1.setfoc

25、uselseappend blankreplace deandma. 系 with alltrim(thisform.text1.value)thisform.text1.value=thisform.text1.setfocusendifthisform.list1.clearthisform.list1.init &重新顯示 list列表thisform.list1.value=endif“刪除”按鈕的 click事件添加如下的代碼Set safety offif this.caption=取消 thisform.text2.value=thisform.text2.enabled=.f.

26、thisform.label3.enabled=.f.this.caption=刪除 mand1.enabled=.t.mand2.caption=修改 elseif alltrim(thisform.text1.value)=messagebox(缺少完整信息，無(wú)法刪除！,0+48,警告 )thisform.text1.setfocuselsethisform.list1.value=alltrim(thisform.text1.value)nn=messagebox(是否確定刪除此系單位, 其所屬的專業(yè)班級(jí)的數(shù)據(jù)庫(kù)都將刪13除！ ,1+48,警告 )if nn=1t=0use datade

27、andmago topdo while .not.eof()if alltrim(系 )=alltrim(thisform.text1.value)deletepackt=1endifskipenddoif t=0messagebox(將刪除的內(nèi)容不存在，請(qǐng)重新輸入。,60,提示 )thisform.text1.setfocusendifendifthisform.text1.value=thisform.list1.requerythisform.list1.clearthisform.list1.init &重新顯示 List 列表thisform.text1.value=alltrim(

28、thisform.list1.value)endifendifthisform.refresh145.7 班級(jí)管理“增加”按鈕的 click事件添加如下的代碼set order to tagset safety offif alltrim(thisform.text1.value)=messagebox(班級(jí)名為空，請(qǐng)輸入！ ,64,提示 )thisform.text1.setfocuselselocate for deandma.班級(jí) =alltrim(thisform.text1.value)if .not.eof()messagebox(班級(jí)名已經(jīng)存在，請(qǐng)重新輸入！,48,提示 )thi

29、sform.text1.value=thisform.text1.setfocuselselocate for deandma.專業(yè) =alltrim(bo2.value)if alltrim(deandma.班級(jí) )=replace deandma. 班級(jí) with alltrim(thisform.text1.value)elseappend blankreplace deandma. 系 with alltrim(bo1.value)replace deandma. 專業(yè) with alltrim(bo2.value)replace deandma. 班級(jí) with alltrim(th

30、isform.text1.value)endifthisform.text1.value=15thisform.text1.setfocusendifbo2.click &重新顯示 list列表thisform.list1.value=endif“刪除”按鈕的 click事件添加如下的代碼Set safety offif this.caption=取消 thisform.text2.value=thisform.text2.enabled=.f.thisform.label5.enabled=.f.this.caption=刪除 mand1.enabled=.t.mand2.caption=修

31、改 elseif alltrim(thisform.text1.value)=messagebox(缺少完整信息，無(wú)法刪除！,0+48,警告 )thisform.text1.setfocuselseuse deandma exclusivethisform.list1.value=alltrim(thisform.text1.value)nn=messagebox(是否確定刪除此班級(jí), 與其相關(guān)的數(shù)據(jù)都將刪除！,1+48,警告 )if nn=1t=0locate for alltrim(deandma.班級(jí) )=alltrim(thisform.text1.value)deletepackt=

32、1if t=0messagebox(將刪除的內(nèi)容不存在，請(qǐng)重新輸入。,64,提示 )thisform.text1.setfocusendifendifthisform.text1.value=thisform.list1.requerybo2.click&重新顯示 List 列表thisform.text1.value=alltrim(thisform.list1.value)16endifendifthisform.refresh5.8學(xué)生成績(jī)錄入“確定”按鈕的 click事件添加如下的代碼xuehao=allt(thisform.text1.value)banji=allt(bo3.val

33、ue)kecheng=allt(bo4.value)xueqi=allt(bo5.value)chengji=allt(thisform.text2.value)sele gradeif chengji=tt=messagebox( 想輸入單科成績(jī)嗎？ ,4+32,提示 )if tt=6thisform.text2.setfocuselseendifelse*locate for allt(學(xué)號(hào) )=xuehao*if eof()locate for allt(課程 )=kechengif allt(學(xué)號(hào) )=.and.allt(班級(jí) )=banjirepl學(xué)號(hào) with xuehaorepl

34、成績(jī) with val(chengji)repl學(xué)期 with xueqi17else* append blank* repl 學(xué)號(hào) with xuehao* repl 班級(jí) with banji* repl 課程 with kecheng* repl 成績(jī) with val(chengji)* repl 學(xué)期 with xueqi *endif*elselocate for allt(學(xué)號(hào) )=xuehao .and. allt(課程 )=kecheng .and. allt(學(xué)期)=xueqi if eof() append blankrepl 學(xué)號(hào) with xuehao repl 班級(jí) with banji repl 課程 with kecheng repl 成績(jī) with val(chengji) repl 學(xué)期 with xueqi elsett=messagebox( 該科的成績(jī)已存在，是否覆蓋？ ,4+32+256, 提示 ) if tt=6repl 成績(jī) with val(chengji)