學(xué)生信息管理系統(tǒng)論文范文_計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文范文_優(yōu)

1、1系統(tǒng)技術(shù)及運(yùn)行環(huán)境1.1 Visual Foxpro 6.0是計(jì)算機(jī)優(yōu)秀的數(shù)據(jù)管理系統(tǒng)軟件之一，正如其名稱中的“Visual”一樣，它采用了可視化的、面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，大大簡化了應(yīng)用系統(tǒng)的開發(fā)過程，并提高了應(yīng)用系統(tǒng)的開發(fā)過程，并提高了系統(tǒng)的模塊性和緊湊型。是新一代的小型數(shù)據(jù)庫管理系統(tǒng)的杰出代表，它以其強(qiáng)大的性能、完整而又豐富的工具、較高的處理速度、友好的界面以及較完備的兼容性，備受廣大用戶的歡迎。面前，Visual Foxpro 6.0是用戶收集信息、查詢數(shù)據(jù)、創(chuàng)建集成數(shù)據(jù)庫系統(tǒng)、進(jìn)行應(yīng)用系統(tǒng)開發(fā)較為理想的微機(jī)數(shù)據(jù)庫管理系統(tǒng)。1.2系統(tǒng)開發(fā)及運(yùn)行環(huán)境該運(yùn)行環(huán)境的規(guī)定是保證本需求說明的功

2、能得到實(shí)際真正體現(xiàn)的基礎(chǔ)。（1）運(yùn)行環(huán)境Windows98或更高版本的操作系統(tǒng)（2）開發(fā)環(huán)境：2 系統(tǒng)分析2.1需求分析21世紀(jì)以來，人類經(jīng)濟(jì)高速發(fā)展，人們發(fā)生了日新月異的變化，特別是計(jì)算機(jī)的應(yīng)用及普及到經(jīng)濟(jì)和社會生活的各個(gè)領(lǐng)域。使原本的舊的管理方法越來越不適應(yīng)現(xiàn)在社會的發(fā)展。許多人還停留在以前的手工操作。這大大地阻礙了人類經(jīng)濟(jì)的發(fā)展。為了適應(yīng)現(xiàn)代社會人們高度強(qiáng)烈的時(shí)間觀念，學(xué)校信息管理系統(tǒng)軟件為學(xué)校辦公室?guī)砹藰O大的方便。（一）教育系統(tǒng)學(xué)生管理現(xiàn)狀分析學(xué)校工作流程分析學(xué)校工作總體規(guī)劃由教務(wù)人員在學(xué)生信息管理系統(tǒng)中完成對運(yùn)行教務(wù)處所需的基本數(shù)據(jù)的維護(hù)，包括這些信息的增加、修改及對各項(xiàng)信息的變動

3、都將在這進(jìn)行操作。新的學(xué)年，教務(wù)人員首先加入年級信息，然后編排班級，再對來校學(xué)生進(jìn)行基本的信息錄入，新生入學(xué)后由教務(wù)人員在學(xué)籍系統(tǒng)中完成新學(xué)生信息的維護(hù)。（二）學(xué)校具體需求分析學(xué)生：對各科成績的查詢?nèi)握n老師：輸入并維護(hù)所教科目的學(xué)生成績教務(wù)處： 學(xué)校全體成員的信息管理，并對任課老師，班主任等輸入的信息進(jìn)行存庫，對學(xué)生的信息進(jìn)行必要的維護(hù)。通過研究調(diào)查，本系統(tǒng)需以下功能：綜合學(xué)生信息、學(xué)生成績以及信息查詢等信息。方便用戶了解和管理學(xué)生的全面動態(tài)信息。良好的界面設(shè)計(jì)，更人性化的設(shè)計(jì)理念，使用戶擁有更輕松的使用心情。2.2可行性分析目的：可行性研究的目的是用最小的代價(jià)在盡可能的時(shí)間內(nèi)確定問題是否能解

4、決。經(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)無太多復(fù)雜的操作要求，也沒有過分花哨的裝飾品，人性化的設(shè)計(jì)界面可以使操作者輕易運(yùn)用自如 3總體設(shè)計(jì)3.1 設(shè)計(jì)目標(biāo)本系統(tǒng)可以能減少很多不必要的資源，不用象以前那樣用冗余的紙張式的管理。大節(jié)省了學(xué)校能源。并且計(jì)算機(jī)的存儲與快速查詢功能大大提高了學(xué)籍管理的效率，并且還提高了學(xué)籍信息管理的精確度。方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯(cuò)誤，并且操作非常簡單，可減少許多不很必要的

5、人員，這無論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開支。為學(xué)校增加了財(cái)富。數(shù)據(jù)庫分析用戶需求具體有學(xué)籍管理系統(tǒng)提供保存、更新、查詢、維護(hù)，這就需求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入與輸出，實(shí)現(xiàn)有組織地、動態(tài)地存儲大量關(guān)聯(lián)數(shù)據(jù)，方便用戶訪問系統(tǒng)中的數(shù)據(jù)，它與文件系統(tǒng)的重要區(qū)別是數(shù)據(jù)的充分共享，交叉訪問，與應(yīng)用程序的高度獨(dú)立性。3.2項(xiàng)目規(guī)劃學(xué)生管理系統(tǒng)是各大中專院校不可缺少的一部分，是一個(gè)VF數(shù)據(jù)庫開發(fā)應(yīng)用程序，它主要包括用戶登錄、學(xué)生信息輸入修改、學(xué)生信息查詢以及學(xué)生成績輸入、學(xué)生成績查詢、系統(tǒng)用戶管理等幾個(gè)頁面，因而該系統(tǒng)具有較強(qiáng)的實(shí)用性。3.3系統(tǒng)功能圖學(xué)生課程信息管理學(xué)生成績信息管理

6、系統(tǒng)管理學(xué)生成績管理系管理學(xué)生成績錄入專業(yè)管理用戶管理修改密碼退出系統(tǒng)班級管理學(xué)生班級管理學(xué)生信息管理學(xué)生信息錄入學(xué)生信息錄入學(xué)生信息錄入課程管理學(xué)生信息管理系統(tǒng)登錄系統(tǒng)主界面4系統(tǒng)詳細(xì)設(shè)計(jì)4.1數(shù)據(jù)庫設(shè)計(jì)（1）deandma.dbf，見表1表1字段名數(shù)據(jù)類型備注班級Char（8）主鍵Not null系Char（10）Not null專業(yè)Char（14）Not null（2）grade.dbf，見表2表2字段名數(shù)據(jù)類型備注學(xué)號Char（8）主鍵Not null班級Char（10）Not null課程Char（18）Not null成績Int (5)Not null學(xué)期Char（2）Not nu

7、ll備注MemoNull（3）stduents.dbf，見表3表3字段名數(shù)據(jù)類型備注班級Char（8）主鍵 Not null學(xué)號Char（8）Not null姓名Char（8）Not null性別Char（6）Not Null出生日期DatetimeNull政治面貌Char（8）Null身份證號碼Char（16）Null入學(xué)時(shí)間DatetimeNull籍貫Char（16）Null家庭住址Char（28）Null郵政編碼Char（6）Null照片GeneralNull備注MemoNull(4).dbf，見表4表4 用戶信息表 字段名數(shù)據(jù)類型備注姓名Char（8）主鍵 Not null密碼Char

8、（6）Not null標(biāo)識LogicalNot null4.2登陸界面設(shè)計(jì)“進(jìn)入”按鈕的click事件添加如下的代碼:sele yonghuif allt(thisform.text1.value)=""messagebox(left(allt(thisform.label1.caption),6)+"為空，請輸入！",64,"提示")elseif allt(thisform.text2.value)=""messagebox("密碼為空，請輸入！",64,"提示")else

9、n=n+1locate for allt(姓名)=allt(thisform.text1.value);.and. allt(密碼)=allt(thisform.text2.value)if found()if thisform.check1.value=1 .and. 標(biāo)識checked=1elseif thisform.check1.value=1.and.!標(biāo)識messagebox("你不是管理員！",48,"警告")thisform.check1.value=0elsechecked=0cyonghu=allt(姓名)cmima=allt(密碼)

10、eleaseendifendifelseif n>=3messagebox("你不是合法用戶，請與管理員聯(lián)系！",48,"警告")clear eventquitelsemessagebox(left(allt(thisform.label1.caption),6)+"或密碼錯(cuò)誤，請重新輸入！",64,"提示")thisform.text1.value=""2.value=""endifendifendifendif“取消”按鈕的click事件添加如下的代碼nr=mess

11、agebox("你選擇了退出登錄，是否退出？",68,"用戶登錄")if nr=6quitendif4.3學(xué)生信息錄入“增加”按鈕的click事件添加如下的代碼:if this.caption="增加"if(thisform bo3.displayvalue="（選擇）").or.(alltrim(thisform.text1.value)="");.or.(alltrim(thisform.text2.value)="")messagebox("班級、學(xué)號和姓名必

12、須填充！",64,"提示")elselocate for alltrim(thisform.text1.value)=alltrim(students.學(xué)號)if !eof()=messagebox("此學(xué)號已經(jīng)存在，請重新輸入！",64,"提示")thisform.text1.value=""elsesele studentsappend blankreplace 班級 with alltrim(thisform bo3.value),學(xué)號with alltrim(thisform.text1.valu

13、e);姓名 with alltrim(thisform.text2.value),出生日期with ctod(alltrim(thisform.text4.value);入學(xué)時(shí)間 with ctod(alltrim(thisform.text6.value), 籍貫with alltrim(thisform.text7.value);家庭住址 with alltrim(thisform.text8.value),身份證號碼with alltrim(thisform.text8.value);備注 with alltrim(thisform.edit1.value),郵政編碼 with allt

14、rim(thisform.text3.value)if alltrim(thisform bo4.value)=""replace 性別 with alltrim(thisform bo4.displayvalue)elsereplace 性別 with alltrim(thisform bo4.value)endifif alltrim(thisform bo5.value)=""replace 政治面貌 with alltrim(thisform bo5.displayvalue)elsereplace 政治面貌 with alltrim(thisf

15、orm bo5.value)endif&& if .not.alltrim(thisform.label17.caption)=""if !pictemp=""wait windows "正在導(dǎo)入相片，請等待！." at 100,40 timeout 2 nowait.captionappend general students.照片 from "&pictemp"endifpictemp=""this.caption="繼續(xù)"endifendifel

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

17、with allt(.text7.value),;家庭住址 with allt(.text8.value),身份證號碼 with allt(.text9.value),性別 with allt( bo4.value),;政治面貌 with allt( bo5.value),備注 with allt(.edit1.value)if !pictemp=""wait windows "正在導(dǎo)入相片，請等待！." at 100,40 timeout 2 nowaitappend general 照片 from "&pictemp"en

18、difendifsele lslocate for allt(學(xué)號)=allt(.text1.value)if allt(學(xué)號)=allt(students.學(xué)號)replace 學(xué)號 with students.學(xué)號,姓名 with students.姓名,郵政編碼 with students.郵政編碼,;出生日期 with students.出生日期,入學(xué)時(shí)間 with students.入學(xué)時(shí)間,籍貫 with students.籍貫,;家庭住址 with students.家庭住址,身份證號碼 with students.身份證號碼,性別 with students.性別,;endif

19、pictemp=""this.enabled=.f.endwith4.5 學(xué)生信息查詢“定位查詢”按鈕的click事件添加如下的代碼if allt(thisform.text1.value)=""messagebox("請輸入學(xué)號或姓名！",64,"提示")elsesele stulsext1.value);.or.allt(姓名)=allt(thisform.text1.value)if found()go recn()elsewait window at 18,38 nowait '沒有找到你要查詢的信

20、息！'endifendif“第一個(gè)”按鈕的click事件添加如下的代碼sele stulsskip -1if bof()this.enabled=.f.andgroup1 mand3.enabled=.f.messagebox("已經(jīng)到第一條記錄了！",64,"提示")go topelsego recn()endifthisform mandgroup1 mand2.enabled=.t.thisform mandgroup1 mand4.enabled=.t.“單個(gè)查詢”按鈕的click事件添加如下的代碼nxx=1do form xxxg4.6

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

22、ot;"elseappend blankreplace deandma.系 with alltrim(thisform.text1.value)thisform.text1.value=""cusendifthisform.list1.init &&重新顯示list列表thisform.list1.value=""endif“刪除”按鈕的click事件添加如下的代碼Set safety offif this.caption="取消"thisform.text2.value=""thisfo

23、rm.text2.enabled=.f.thisform.label3.enabled=.f.this.caption="刪除"thisform mand1.enabled=.t.thisform mand2.caption="修改"elseif alltrim(thisform.text1.value)=""messagebox("缺少完整信息，無法刪除！",0+48,"警告")elsethisform.list1.value=alltrim(thisform.text1.value)nn=m

24、essagebox("是否確定刪除此系單位,其所屬的專業(yè)班級的數(shù)據(jù)庫都將刪除！",1+48,"警告")if nn=1t=0use datadeandmago topdo while .not.eof()if alltrim(系)=alltrim(thisform.text1.value)deletepackt=1endifskipenddoif t=0messagebox("將刪除的內(nèi)容不存在，請重新輸入。",60,"提示")endifendifthisform.text1.value=""th

25、isform.list1.init &&重新顯示List列表thisform.text1.value=alltrim(thisform.list1.value)endifendif4.7班級管理“增加”按鈕的click事件添加如下的代碼set order to tagset safety offif alltrim(thisform.text1.value)=""messagebox("班級名為空，請輸入！",64,"提示")elselocate for deandma.班級=alltrim(thisform.text

26、1.value)if .not.eof()messagebox("班級名已經(jīng)存在，請重新輸入！",48,"提示")thisform.text1.value=""elselocate for deandma.專業(yè)=alltrim(thisform bo2.value)if alltrim(deandma.班級)=""replace deandma.班級 with alltrim(thisform.text1.value)elseappend blankreplace deandma.系 with alltrim(th

27、isform bo1.value)replace deandma.專業(yè) with alltrim(thisform bo2.value)replace deandma.班級 with alltrim(thisform.text1.value)endifthisform.text1.value=""endifthisform bo2.click &&重新顯示list列表thisform.list1.value=""endif“刪除”按鈕的click事件添加如下的代碼Set safety offif this.caption="取消

28、"thisform.text2.value=""thisform.text2.enabled=.f.thisform.label5.enabled=.f.this.caption="刪除"thisform mandgroup1 mand1.enabled=.t.thisform mandgroup1 mand2.caption="修改"elseif alltrim(thisform.text1.value)=""=messagebox("缺少完整信息，無法刪除！",0+48,"

29、;警告")elseuse deandma exclusivethisform.list1.value=alltrim(thisform.text1.value)nn=messagebox("是否確定刪除此班級,與其相關(guān)的數(shù)據(jù)都將刪除！",1+48,"警告")if nn=1t=0locate for alltrim(deandma.班級)=alltrim(thisform.text1.value)deletepackt=1if t=0messagebox("將刪除的內(nèi)容不存在，請重新輸入。",64,"提示"

30、)endifendifthisform.text1.value=""thisform bo2.click &&重新顯示List列表thisform.text1.value=alltrim(thisform.list1.value)endifendif 4.8學(xué)生成績錄入“確定”按鈕的click事件添加如下的代碼xuehao=allt(thisform.text1.value)banji=allt(thisform bo3.value)kecheng=allt(thisform bo4.value)xueqi=allt(thisform bo5.value)c

31、hengji=allt(thisform.text2.value)sele gradeif chengji=""tt=messagebox("想輸入單科成績嗎？",4+32,"提示")if tt=6elseendifelse*locate for allt(學(xué)號)=xuehao*if eof()locate for allt(課程)=kechengif allt(學(xué)號)="".and.allt(班級)=banjirepl 學(xué)號 with xuehaorepl 成績 with val(chengji)repl 學(xué)期

32、with xueqielse* append blank* repl 學(xué)號 with xuehao* repl 班級 with banji* repl 課程 with kecheng* repl 成績 with val(chengji)* repl 學(xué)期 with xueqi*endif*elselocate for allt(學(xué)號)=xuehao .and. allt(課程)=kecheng .and. allt(學(xué)期)=xueqiif eof()append blankrepl 學(xué)號 with xuehaorepl 班級 with banjirepl 課程 with kechengrepl

33、 成績 with val(chengji)repl 學(xué)期 with xueqielsett=messagebox("該科的成績已存在，是否覆蓋？",4+32+256,"提示")if tt=6repl 成績 with val(chengji)endifendifendifthisform mand3.enabled=.f.endif“查詢”按鈕的click事件添加如下的代碼sele lsif allt(thisform.text3.value)=""messagebox("請輸入學(xué)號或姓名！",64,"提示

34、")elselocate for 學(xué)號=allt(thisform.text3.value).or.姓名=allt(thisform.text3.value)if eof()messagebox("該班級沒有此人！",64,"提示")thisform.text3.value=""go nhereelsethisform.text1.value=學(xué)號endifendif4.9 修改學(xué)生成績“快速查詢”按鈕的click事件添加如下的代碼sele lsbjif allt(thisform.text1.value)="&q

35、uot;messagebox("請輸入學(xué)號或姓名！",16,"提示")elselocate for 學(xué)號=allt(thisform.text1.value).or.姓名=allt(thisform.text1.value)if eof()messagebox("本班級沒有此人，請重新輸入！",64,"提示")thisform.text1.value=""elsexuehao=allt(學(xué)號)thisform.label8.caption=姓名thisform.label9.caption=學(xué)號

36、endifendif“下一位”按鈕的click事件添加如下的代碼thisform mand2.enabled=.t.thisform mand4.enabled=.t.if !allt(thisform bo3.value)=""sele lsbjskip 1if eof()this.enabled=.f.thisform mand5.enabled=.f.messagebox("已經(jīng)到最后一條記錄了！",48,"提示")go bottomendifxuehao=allt(學(xué)號)thisform.label8.caption=allt

37、(姓名)thisform.label9.caption=allt(學(xué)號)4.10學(xué)生成績查詢“補(bǔ)考統(tǒng)計(jì)”按鈕的click事件添加如下的代碼if allt(thisform bo3.value)=""messagebox("請選擇班級!",64,"提示")elsedo form bukaoendif“定位查詢”按鈕的click事件添加如下的代碼if allt(thisform.text1.value)=""messagebox("請輸入學(xué)號或姓名！",64,"提示")elsel

38、ocate for allt(students.學(xué)號)=allt(thisform.text1.value).or.;allt(students.姓名)=allt(thisform.text1.value)if found()lsxh=allt(students.學(xué)號)lsxm=allt(students.姓名)buxq=allt(thisform bo4.value)do form dgcjelsemessagebox("沒有此人，請重新輸入",64,"提示")endifendif4.11用戶管理List1的init事件中添加的代碼如下sele yon

39、ghuthis.additem("管理員")locate for 標(biāo)識=.T.do while found()this.additem("-"+姓名)continueenddogo toplocate for 標(biāo)識=.F.this.additem("普通用戶")do while found()this.additem("-"+姓名)continueenddo“注冊”按鈕的click事件添加如下的代碼Set safety offsele yonghuif alltrim(thisform.text1.value)=&

40、quot;"messagebox("用戶名不能為空！ ",0+48,"警告")elselocate for 姓名=alltrim(thisform.text1.value)if(.not. eof()messagebox("此用戶已存在，請重新輸入！",64,"警告")thisform.text1.value=""elseif alltrim(thisform.text2.value)=""messagebox("密碼不能為空！ ",0+48,&

41、quot;警告")elseif (thisform.text2.value)=(thisform.text3.value)append blankrepl 姓名 with alltrim(thisform.text1.value),;密碼 with alltrim(thisform.text2.value)if thisform.check1.value=1repl 標(biāo)識 with .T.elserepl 標(biāo)識 with .F.endifthisform.text1.value=""thisform.text2.value=""thisform

42、.text3.value=""thisform.text3.enabled=.f.thisform.label4.enabled=.f.elsett=messagebox("確認(rèn)密碼錯(cuò)誤，請重新輸入！",0+48,"警告")if tt=1thisform.text3.enabled=.t.thisform.label4.enabled=.t.thisform.text3.value=""endifendifendifendifendif“刪除”按鈕的click事件添加如下的代碼if allt(thisform.te

43、xt1.value)=""messagebox("請選擇或輸入用戶名",64,"提示")elseuse yonghulocate for 姓名=allt(thisform.text1.value);.and.密碼=allt(thisform.text2.value)if eof()messagebox("請選擇或輸入正確的用戶名",64,"提示")thisform.text1.value=""thisform.text2.value=""elsett=me

44、ssagebox("一定要刪除嗎？",4+48,"刪除確認(rèn)")if tt=6deletepackendifendifendif4.12修改用戶密碼“修改”按鈕的click事件添加如下的代碼sele yonghuif allt(thisform.text1.value)=""elselocate for allt(姓名)=allt(thisform.text1.value)if eof()messagebox("此用戶不存在，請重新輸入！",64,"提示")thisform.text1.value=""thisform.text1.setfocus()elseif !allt(密碼)=allt(thisform.text2.value)messagebox("密碼錯(cuò)誤，請重新輸入！",64,"提示")thisform.text2.value=""thisform.text2.setfocus()elseif