學(xué)生信息管理系統(tǒng)的設(shè)計與實現(xiàn)報告

1、管理信息系統(tǒng)課程設(shè)計報告 題 目 學(xué)生信息管理系統(tǒng) 學(xué)生姓名 繆 惠 學(xué) 號 200717020203 專業(yè)班級 信息管理與信息系統(tǒng) 指導(dǎo)老師 方霞老師 設(shè)計日期 指導(dǎo)老師評閱意見：評閱成績： 簽名：目 錄1 詳細設(shè)計31.1. 新生管理子系統(tǒng)31.2 畢業(yè)生管理子模塊81.3 教學(xué)評價打分121.4學(xué)生成績網(wǎng)上查詢132 系統(tǒng)維護和改進142.1 運行維護142.1.1運行模塊組合142.1.2運行控制142.1.3運行時間142.1.4人工處理過程142.2 系統(tǒng)的改進與提高14需求分析（含業(yè)務(wù)流程圖，數(shù)據(jù)流程圖，e-r圖等）概要設(shè)計（模塊劃分等）1 詳細設(shè)計1.1. 新生管理子系統(tǒng)總體設(shè)

2、計：新生管理子系統(tǒng)包含新生錄取信息的導(dǎo)入，新生預(yù)分學(xué)號，新生班級分配，新生寢室安排，新生報到管理，新生報到信息統(tǒng)計，新生欠費統(tǒng)計，新生分布信息，新生高考成績分布等。設(shè)計：下面給出設(shè)計方案與實現(xiàn)方法。新生基本信息管理招生數(shù)據(jù)導(dǎo)入報到預(yù)處理新生報到新生信息查詢與統(tǒng)計預(yù)分學(xué)號班級編排寢室安排預(yù)處理查詢現(xiàn)場報到處理欠費查詢統(tǒng)計報到情況統(tǒng)計新生比例分布高考成績統(tǒng)計功能：完成對新錄取學(xué)生數(shù)據(jù)的導(dǎo)入 完成對新生數(shù)據(jù)的報到預(yù)處理（初始化）實現(xiàn)新生報到現(xiàn)場完成，并統(tǒng)計報到情況統(tǒng)計新生的各種分布比例和成績分布 設(shè)計：總體設(shè)計：用delphi的pagectrl控件來實現(xiàn)各項菜單功能招生數(shù)據(jù)導(dǎo)入：可以通過選擇來指定全

3、國網(wǎng)上錄取系統(tǒng)的導(dǎo)出數(shù)據(jù)所在路徑，并根據(jù)使用手冊檢查21個.dbf文件是否存在，來決定是否允許導(dǎo)入；在導(dǎo)入時采用記錄的查重處理，所以，只能借助記錄集的循環(huán)來完成；其中，對政治面貌與民族表要單獨處理。主要實現(xiàn)文件檢查的代碼：function checkdbfile(var strrst:string):boolean;var i,j:integer; blfound:boolean;begin arrstrfilename0:=t_tddw;arrstrfilename1:=t_jhk; /此處對表名賦值 checkdbfile:=false; blfound:=true;i:=0; strrs

4、t:=數(shù)據(jù)表; while (i21)do begin j:=dbfilelistbox.items.indexof(arrstrfilenamei+.dbf); if j=-1 then/某個文件未找到，返回“假” begin blfound:=false; strrst:=strrst+arrstrfilenamei+.dbf ; end; i:=i+1; end; strrst:=strrst+不存在!; if blfound then /全部數(shù)據(jù)文件檢查正確 checkdbfile:=true;end;學(xué)號預(yù)處理：將導(dǎo)入的數(shù)據(jù)從信息庫表到在校生表，并根據(jù)考生的考號及其它信息填入其基本信

5、息（如省份、入年年份等）；基本處理思想是：根據(jù)考生年份（報考號前兩位）與當前系統(tǒng)數(shù)據(jù)庫的絕對學(xué)期時間，篩選相應(yīng)的考生信息，然后從這些信息中依次在學(xué)生基本信息表（jbxx2）中查詢是否重復(fù)，來決定是否寫入；如果寫入，則根據(jù)報考號（第3、4位）的信息，寫入考生所在省份代碼。新生班級編排：將分配學(xué)號的新生編排到指定班級中。用兩個dbgrid（可多選）分別將未分班學(xué)生和班級信息列出來，通過手工選中一個或多個學(xué)生，即可分配班級或從班級中取消分班。實現(xiàn)dbgrid多選并在數(shù)據(jù)庫中完成添加的代碼：with studbgrid.datasource.dataset dobegin for i:=0 to in

6、tselstucnt-1 do begin gotobookmark(pointer(studbgrid.selectedrows.itemsi); strstuno:=fields0.asstring; strsql:=update jbxx2 set bjid=+strclasno+; strsql:=strsql+ where xh=+strstuno+; database.execute(strsql); end;end;寢室分配與班級編排可類似處理。新生現(xiàn)場報到：對新生的報到程序進行計算機管理，自動檢查該新生是否已到校，是否已完成所有報到手續(xù)，以及新生的欠費情況（只記載欠費，不記載繳

7、費）；并根據(jù)各項手續(xù)的完成，來確認新生的報到狀態(tài)，為下一步查詢提供足夠信息。此處關(guān)鍵在于如何把數(shù)據(jù)表中“0”和“1”狀態(tài)標志以checkbox的狀態(tài)輸出，代碼如下：讀出：if adoreginfo.active thenbegin strstate:=adoreginfo.fieldbyname(sfqd).asstring; if strstate=1 then /是否簽到 reg1check.checked:=true else reg1check.checked:=false; strstate:=adoreginfo.fieldbyname(zzgx).asstring; if str

8、state=1 then /組織關(guān)系 reg2check.checked:=true else reg2check.checked:=false; strstate:=adoreginfo.fieldbyname(hkqy).asstring; if strstate=1 then /戶口遷移 reg3check.checked:=true else reg3check.checked:=false; strstate:=adoreginfo.fieldbyname(jck).asstring; if strstate=1 then /就餐卡 reg4check.checked:=true e

9、lse reg4check.checked:=false; strstate:=adoreginfo.fieldbyname(tj).asstring; if strstate=1 then /體檢 reg1check.checked:=true else reg1check.checked:=false;end;寫回數(shù)據(jù)庫：adoreginfo.edit;if reg1check.checked then adoreginfo.fieldbyname(sfqd).asstring:=1else adoreginfo.fieldbyname(sfqd).asstring:=0;if reg2c

10、heck.checked then adoreginfo.fieldbyname(zzgx).asstring:=1else adoreginfo.fieldbyname(zzgx).asstring:=0;if reg3check.checked then adoreginfo.fieldbyname(hkqy).asstring:=1else adoreginfo.fieldbyname(hkqy).asstring:=0;if reg4check.checked then adoreginfo.fieldbyname(jck).asstring:=1else adoreginfo.fie

11、ldbyname(jck).asstring:=0;if reg1check.checked then adoreginfo.fieldbyname(tj).asstring:=1else adoreginfo.fieldbyname(tj).asstring:=0;adoreginfo.post;欠費查詢可相應(yīng)處理。報到情況統(tǒng)計：可以按性別、專業(yè)、班級、省份等統(tǒng)計學(xué)生的報到情況，并以柱狀圖和表格顯示；提供自由控制條件查詢未報到學(xué)生信息。統(tǒng)計功能實現(xiàn)代碼如下：cntbysexdbchar.title.text.clear;/清除標題cntbysexdbchar.title.text.add(新

12、生報到情況(按班級統(tǒng)計);cntbysexdbchar.series0.clear;/清除圖形strsql:=; cntstrgrid.rowcount:=adoqfcntquery.recordcount+1;for i:=0 to 4 do /設(shè)置stringgrid的標題begin cntstrgrid.colsi.clear; cntstrgrid.colsi.add(titlenamei);end;i:=0;regsextlbl.lines.clear; /清空統(tǒng)計顯示while not adoqfcntquery.eof dobeginintcntregdi:=adoqfcntqu

13、ery.fieldbyname(classregdcnt).asinteger; cntbysexdbchar.series0.add(intcnttoti,inttostr(i)+應(yīng)到,clblue); cntbysexdbchar.series0.add(intcntregdi,到,clred); strsql:=inttostr(i)+trim(strclassnamei)+報到比例:;strsql:=strsql+floattostr(trunc(intcntregdi/intcnttoti*10000)/100)+%+#13; regsextlbl.lines.add(strsql)

14、; cntstrgrid.rowsi+1.add(inttostr(i+1); cntstrgrid.rowsi+1.add(strclassnamei); cntstrgrid.rowsi+1.add(inttostr(intcnttoti); cntstrgrid.rowsi+1.add(inttostr(intcntregdi);cntstrgrid.rowsi+1.add(floattostr(trunc(intcntregdi/intcnttoti*10000)/100)+%); i:=i+1; adoqfcntquery.next; /下一個班end;新生分布情況統(tǒng)計：從學(xué)生的擴展

15、信息與高考資料中提取信息，統(tǒng)計新生的各種分布情況，以餅狀圖和表格信息顯示出來。相應(yīng)地，高考成績信息也可以按科目繪制出柱狀圖來反映分布情況，對新生的整體情況有一個大概了解，以便有針對性地開展工作。成績統(tǒng)計的代碼如下：strsql:=select max(+fieldname+) as maxscore,min(+fieldname+) as minscore,avg(+fieldname+) as avgscore;strsql:=strsql+ from t_tdd,xs_base,xs_expend where t_tdd.ksh=xs_expend.bkh and xs_expend.xh

16、=xs_base.xh;strsql:=strsql+ and nj=+midstr(currentxqsj,1,4);adoqfcntquery.sql.clear;adoqfcntquery.sql.add(strsql);adoqfcntquery.open;if adoqfcntquery.eof thenbegin showmessage(對不起,未找到相關(guān)學(xué)生的成績!); abort;end;for i:=0 to 2 dobegin cntscorestrgrid.colsi.clear; cntscorestrgrid.colsi.add(titlenamei);end;cnt

17、scoredbchart.title.text.clear;cntscoredbchart.title.text.add(新生高考成績統(tǒng)計+itemname+);cntscoredbchart.series0.clear;maxscore:=adoqfcntquery.fieldbyname(maxscore).asinteger;minscore:=adoqfcntquery.fieldbyname(minscore).asinteger;avgscore:=adoqfcntquery.fieldbyname(avgscore).asinteger;itemscount:=trunc(max

18、score-minscore)/1)+1;intcrntscore:=trunc(minscore/1)*1;i:=0;iswrite:=true;cntscorestrgrid.rowcount:=itemscount+4;intcrntcnti:=adoqfcntquery.fieldbyname(crntcnt).asinteger; strsql:=; if (iswrite) or (itemscount12) then strsql:=inttostr(intcrntscore-1)+-;cntscoredbchart.series0.add(intcrntcnti,strsql,

19、intcolori mod 11);cntscorestrgrid.rowsi+1.add(inttostr(intcrntscore-1)+-+inttostr(intcrntscore); cntscorestrgrid.rowsi+1.add(inttostr(intcrntcnti);cntscorestrgrid.rowsi+1.add(floattostr(trunc(intcrntcnti/19*10000)/100)+%); iswrite:=not iswrite; i:=i+1;end;cntscorestrgrid.rowsi+1.add(最高分);cntscorestr

20、grid.rowsi+1.add(inttostr(maxscore);cntscorestrgrid.rowsi+2.add(最低分);cntscorestrgrid.rowsi+2.add(inttostr(minscore);cntscorestrgrid.rowsi+3.add(平均分);cntscorestrgrid.rowsi+3.add(inttostr(avgscore);1.2 畢業(yè)生管理子模塊畢業(yè)生基本信息管理綜合信息查詢基礎(chǔ)編碼維護擇業(yè)與就業(yè)檔案與經(jīng)費證書發(fā)放畢業(yè)生離校畢業(yè)生標記職業(yè)類別檔案材料擇業(yè)意向處理就業(yè)去向處理擇業(yè)與就業(yè)統(tǒng)計畢業(yè)生檔案材料畢業(yè)生經(jīng)費證書發(fā)放登記證書

21、發(fā)放統(tǒng)計功能：編輯學(xué)生（班級）的學(xué)習(xí)狀態(tài)（在讀、畢業(yè)班、已畢業(yè)等）畢業(yè)班級學(xué)生（畢業(yè)生）綜合信息查詢職業(yè)類別與檔案材料基礎(chǔ)代碼的維護畢業(yè)生擇意向與就業(yè)去向的處理畢業(yè)生檔案材料與畢業(yè)經(jīng)費的管理畢業(yè)生證書的發(fā)放管理設(shè)計：總體設(shè)計：采用與新生管理統(tǒng)一的界面，用pagectrl來實現(xiàn)。畢業(yè)學(xué)生狀態(tài)設(shè)置：完成在校生到畢業(yè)班學(xué)生狀態(tài)的改變或畢業(yè)班學(xué)生向已畢業(yè)學(xué)生狀態(tài)的改變。實現(xiàn)是通過修改學(xué)生基本信息的狀態(tài)標志。修改學(xué)生狀態(tài)代碼如下：/設(shè)置畢業(yè)班procedure tselgraform.addclassbtnclick(sender: tobject);var strsql,strcrntclassid:

22、string;begin if (valclasslistbox.items.count1) or (valclasslistbox.itemindex0) then abort; strcrntclassid:=strvalclassidvalclasslistbox.itemindex; strsql:=update jbxx2 set zt=+畢業(yè)班+ where bjid=+strcrntclassid+; mainform.database.execute(strsql); selgraform.formshow(sender);end;畢業(yè)生綜合信息查詢：查詢畢業(yè)生的綜合信息（成績

23、除外，有單獨模塊提供查詢功能），按類分為若干頁顯示，提供打印功能。響應(yīng)數(shù)據(jù)源控件的代碼：procedure tsrchform.dssrchstudatachange(sender: tobject; field: tfield); /查詢學(xué)生數(shù)據(jù)源數(shù)據(jù)改變begin srchform.refreshbaseinfo();/刷新基本信息 srchform.refreshjcinfo(); /刷新獎懲信息 srchform.refreshqtinfo(); /刷新干部信息等end;procedure tsrchform.refreshbaseinfo();/刷新基本信息var strsql,cr

24、ntxh:string;/查詢語句與學(xué)號begin crntxh:=trim(adosrchstuquery.fieldbyname(學(xué)號).asstring); strsql:=select xs_base.*, jbxx2.xm, jbxx2.xb, bjxx.bjmc,; strsql:=strsql+ xs_zyb.zymc,xs_bjxx.cc,xs_bjxx.xz, zzmmb.zzmm,mzb.mz,jgb.jgmc,; strsql:=strsql+ sfb.sfmc,xs_expend.cym,xs_expend.sg, xs_expend.xx,xs_expend.byxx

25、,; strsql:=strsql+ xs_expend.tc,xs_expend.email, xs_expend.homepage,xs_expend.jkxx; strsql:=strsql+ from jbxx2 inner join; strsql:=strsql+ bjxx on jbxx2.bjid = bjxx.bjid left outer join; /外連接班級擴展信息 strsql:=strsql+ xs_bjxx on bjxx.bjid = xs_bjxx.bjid left outer join; /外連接專業(yè)表 strsql:=strsql+ xs_zyb on

26、 bjxx.zyid = xs_zyb.zyid left outer join; /外連接籍貫表 strsql:=strsql+ sfb on xs_base.sysf = sfb.sfid left outer join; strsql:=strsql+ jgb on xs_base.jgid = jgb.jgid; strsql:=strsql+ where jbxx2.xh=+crntxh+; adobasequery.sql.clear; adobasequery.sql.add(strsql); adobasequery.open;end;基礎(chǔ)編碼維護：直接維護職業(yè)類別表與檔案材料

27、表。通過adotable對象來實現(xiàn)與數(shù)據(jù)庫中表的聯(lián)系，直接讀取或編輯更新數(shù)據(jù)表。擇業(yè)意向登記與就業(yè)去向登記：根據(jù)學(xué)生的擇業(yè)要求和志向，登記其擅長的職業(yè)類別；按照畢業(yè)生的實際就業(yè)去向，登記畢業(yè)生的畢業(yè)單位、職務(wù)、聯(lián)系方式等信息，以進行各種數(shù)據(jù)的統(tǒng)計和信息的交流。采用dbgrid來顯示學(xué)生信息，而用數(shù)據(jù)庫控件來綁定就業(yè)詳細信息；用按鈕來實現(xiàn)數(shù)據(jù)的添加、修改和刪除。關(guān)鍵在于按鈕狀態(tài)（增、刪、改）的實現(xiàn)：procedure tmainform.refreshstujob();/刷新就業(yè)信息var strsql,strjobxh:string;begin strjobxh:=trim(dbtext10.

28、field.text);/取得學(xué)號 if strjobxh= then /為空，程序出錯，退出 abort; strsql:=select xs_jyxx.* from xs_jyxx where xh=+strjobxh+; /查詢是否已有該生就業(yè)信息 adostugraquery.sql.clear; adostugraquery.sql.add(strsql); adostugraquery.open; /控制權(quán)限 if edittb.down then /處于編輯狀態(tài) begin if not adostugraquery.eof then /有該生就業(yè)信息 begin firmdbe

29、dit.enabled:=true; /可編輯 protypelookup.enabled:=true; posdbedit.enabled:=true; teldbedit.enabled:=true; emaildbedit.enabled:=true; bzmemo.enabled:=true; addjobbtn.enabled:=false; deljobbtn.enabled:=true; /刪除為有效 confirmjobbtn.enabled:=true; /確認編輯為有效 end else /無就業(yè)信息，可添加 begin firmdbedit.enabled:=false;

30、 protypelookup.enabled:=false; posdbedit.enabled:=false; teldbedit.enabled:=false; emaildbedit.enabled:=false; bzmemo.enabled:=false; addjobbtn.enabled:=true; /添加為有效 deljobbtn.enabled:=false; /刪除無效 confirmjobbtn.enabled:=false; /確認無效 end; end; /end of edittb.downend; /end of procedure畢業(yè)生檔案材料管理：登記畢業(yè)生

31、的檔案材料信息，并提供查詢，以確認該生是否具備正常的可畢業(yè)手續(xù)。代碼如下：procedure tmainform.refreshdocustu();/刷新檔案材料信息var strsql,strcrntxh:string;begin strsql:=select jbxx2.xh as 學(xué)號,xm as 姓名,xb as 性別,; strsql:=strsql+xs_daxx.dacldm as 檔案材料代碼,daclmc as 檔案材料名稱,; strsql:=strsql+ xs_daxx.bz as 備注; strsql:=strsql+ from jbxx2,xs_daxx,xs_da

32、mc; strsql:=strsql+ where jbxx2.xh=xs_daxx.xh and xs_daxx.dacldm=xs_damc.dacldm; strcrntxh:=trim(adodstuquery.fieldbyname(學(xué)號).asstring); strsql:=strsql+ and xs_daxx.xh=+strcrntxh+; adodocustuquery.sql.clear; adodocustuquery.sql.add(strsql); adodocustuquery.open;end;畢業(yè)經(jīng)費處理與檔案材料基本相同。畢業(yè)證書發(fā)放管理：對畢業(yè)證和學(xué)位證的

33、發(fā)放進行管理，登記畢業(yè)證和學(xué)位證的發(fā)放情況，并對數(shù)據(jù)的完整性進行控制：畢業(yè)證發(fā)放日期如果不為空，則畢業(yè)證編號不能為空；學(xué)位證發(fā)放日期不為空，則學(xué)位證編號不能為空；若畢業(yè)證發(fā)放日期為空，則必須說明證書未發(fā)放原因。進行數(shù)據(jù)完整性控制的代碼如下：procedure tmainform.confirmcertibtnclick(sender: tobject);var strbyzrq,strbyzbh,strxwzrq,strxwzbh:string;begin strbyzrq:=trim(byzrqedit.text); /畢業(yè)證日期 strbyzbh:=trim(byzbhedit.text)

34、; /畢業(yè)證編號 strxwzrq:=trim(xwzrqedit.text); /學(xué)位證日期 strxwzbh:=trim(xwzbhedit.text); /學(xué)位證編號 if (strbyzrq=) xor (strbyzbh=) then /異或運算 if messagedlg(畢業(yè)證頒發(fā)日期和畢業(yè)證編號不符!+#13+要取消本次更新操作嗎?,mtwarning,mbyes,mbno,0)=mryes then begin adocertiquery.cancelupdates; /選擇取消 mainform.refreshcertiinfo(); abort; end else abo

35、rt; if (strbyzrq=) and (strbyzbh=) and (strxwzrq)then / 處理學(xué)位證 if (strbyzrq=) and (strbyzbh=) and (strxwzrq=) and (strxwzbh=) and (trim(yyedit.text)=) then /未獲證 if messagedlg(未獲得畢業(yè)證和或?qū)W位證的請寫明原因!+#13+要取消本次更新操作嗎?,mtwarning,mbyes,mbno,0)=mryes then begin adocertiquery.cancelupdates; mainform.refreshcerti

36、info(); abort; end1.3 教學(xué)評價打分基礎(chǔ)教學(xué)信息模塊教室簡況管理課程名稱簡況管理教材簡況管理系科簡況管理增加刪除修改增加刪除修改增加刪除修改增加刪除修改功能： 對基礎(chǔ)教學(xué)信息（主要指全院系科信息、課程信息、教室信息、教材信息）整理、規(guī)范，相應(yīng)名稱及全院統(tǒng)一編制的id(identfier)號插、查、刪、改；制表輸出。設(shè)計：本模塊處理的數(shù)據(jù)比較簡單，主要完成系科信息表(depart)、課程信息表(courseinfo)、教室信息表(classroom)、教材信息表(jcxx)等相應(yīng)數(shù)據(jù)及編碼的輸入、刪除、修改，在輸入系科類似的已編碼數(shù)據(jù)時，要通過名稱下選而保存的是相應(yīng)的id信息

37、。這主要通過tdblookupcombobox來實現(xiàn)，設(shè)置好如下幾個重要屬性： datasource /待輸入數(shù)據(jù)的數(shù)據(jù)源 datafield /待輸入數(shù)據(jù)的字段名 keyfield /關(guān)聯(lián)字段 listfield /下選顯示字段 listsource /下選數(shù)據(jù)源在數(shù)據(jù)瀏覽的網(wǎng)格圖表中，各編碼字段要顯示為相應(yīng)的名稱，這要通過在數(shù)據(jù)集中新建lookup類型的字段來實現(xiàn)，設(shè)置好如下幾個重要屬性： field property fieldtype:=lookup lookup definition key field /待輸入數(shù)據(jù)字段名 dataset /待輸入數(shù)據(jù)數(shù)據(jù)集 lookupkey /關(guān)聯(lián)關(guān)鍵字段 result field /顯示字段基礎(chǔ)教學(xué)信息模塊教室簡