數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告通用成績(jī)管理系統(tǒng)

1、江 南 大 學(xué) 太 湖 學(xué) 院數(shù) 據(jù) 庫(kù) 課 程 設(shè) 計(jì) 報(bào) 告課題 通用成績(jī)管理系統(tǒng) 設(shè) 計(jì) 者 專(zhuān) 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù)軟件 班 級(jí) 計(jì)科 74 學(xué) 號(hào) 同組成員名單 指導(dǎo)老師 評(píng)定成績(jī) 2010年 1 月 8 日 目錄1、 概述2、 系統(tǒng)需求分析3、 功能需求分析31系統(tǒng)功能的描述32系統(tǒng)功能模塊示意圖4、 系統(tǒng)設(shè)計(jì)5、6、1 概述本系統(tǒng)是成績(jī)查詢管理系統(tǒng)，主要用于學(xué)生成績(jī)的管理，包括成績(jī)錄入、查找、添加、刪除。學(xué)生通用成績(jī)管理是學(xué)校管理中異常重要的一個(gè)環(huán)節(jié)，它的實(shí)現(xiàn)關(guān)系到學(xué)校辦學(xué)整體效率的高低，運(yùn)用通用成績(jī)管理系統(tǒng)可以減輕學(xué)院教學(xué)人員的工作量，加快查詢速度，加強(qiáng)管理， 也讓同學(xué)們能在任

2、何時(shí)候都能查閱到有關(guān)自己學(xué)科成績(jī)有關(guān)的信息，也有利于讓他們充分了解有關(guān)自己在大學(xué)期間所有課程的學(xué)習(xí)情況，提高查詢速度。學(xué)生成績(jī)管理系統(tǒng)是系科綜合管理信息系統(tǒng)中很重要的組成部分。課題設(shè)計(jì)內(nèi)容：按學(xué)院的“機(jī)電系”“文法系”“經(jīng)管系”三個(gè)部分設(shè)計(jì)，先要求用戶密碼登陸界面，能實(shí)施各系的成績(jī)錄入和查詢操作，并且可以管理賬戶。其中系統(tǒng)包含學(xué)生的基本信息，各課程的成績(jī)，也可以通過(guò)輸入學(xué)號(hào)查出總成績(jī)和平均成績(jī)，便于學(xué)校管理，也方便查詢與修改。關(guān)鍵使用工具與設(shè)備：一臺(tái)計(jì)算機(jī)，要裝有數(shù)據(jù)庫(kù)軟件microsoft sql server 或者access，用編程工具delphi或者vb，以及畫(huà)圖軟件visio，美工軟

3、件photoshop。通過(guò)sql server創(chuàng)建數(shù)據(jù)庫(kù)與delphi所實(shí)現(xiàn)的各界面功能相連接結(jié)合實(shí)現(xiàn)成績(jī)管理系統(tǒng)的各操作功能。四、技術(shù)難點(diǎn)：掌握delphi這個(gè)開(kāi)發(fā)工具是重點(diǎn)也是難點(diǎn)，要熟悉開(kāi)發(fā)工具的各函數(shù)、事件等，更要熟悉其環(huán)境并且熟練地與數(shù)據(jù)庫(kù)連接。這樣才能順利的進(jìn)行開(kāi)發(fā)。2 系統(tǒng)需求分析成績(jī)管理系統(tǒng)是面向各校的管理系統(tǒng)，其目的是提高學(xué)校對(duì)學(xué)生的科學(xué)化管理。經(jīng)過(guò)充分的系統(tǒng)調(diào)研，發(fā)現(xiàn)本系統(tǒng)主要應(yīng)包括系統(tǒng)管理、成績(jī)管理、成績(jī)查詢管理，進(jìn)一步還發(fā)現(xiàn)各需管理的信息有：添加或者刪除用戶，密碼修改，各系學(xué)生基本信息，學(xué)生選課信息等。本系統(tǒng)的具體要求為：（1） 能管理學(xué)生的基本成績(jī)信息，可錄入，修改，

4、查詢。（2） 通過(guò)使用計(jì)算機(jī)能方便地維護(hù)各信息表。（3） 方便同時(shí)查出總成績(jī)和平均成績(jī)，實(shí)現(xiàn)表的統(tǒng)計(jì)功能。（4） 需要時(shí)能即時(shí)進(jìn)行輸出與打印。（5） 系統(tǒng)具有操作方便、簡(jiǎn)捷等特點(diǎn)。 2.1 本系統(tǒng)需要管理的實(shí)體信息（1）、賬戶管理：用戶名、密碼（2）、系別：機(jī)電系、文法系、經(jīng)管系（3）、成績(jī)錄入：機(jī)電系成績(jī)錄入、文法系成績(jī)錄入、經(jīng)管系成績(jī)錄入（4）、成績(jī)查詢：機(jī)電系成績(jī)查詢、文法系成績(jī)查詢、經(jīng)管系成績(jī)查詢（5）、學(xué)生基本信息：學(xué)號(hào)、姓名、性別、年齡、籍貫、原高中（6）、學(xué)生選課信息：學(xué)號(hào)、課程號(hào)、成績(jī)（7）、成績(jī)查詢：總成績(jī)、平均成績(jī)2.2 本系統(tǒng)要管理的實(shí)體聯(lián)系信息(1 ) 學(xué)生登陸系統(tǒng)時(shí)要

5、輸入用戶名和密碼（2）學(xué)生的選課情況，信息要根據(jù)不同情況而添加、刪除、修改信息，還有可以做密碼修改等。3功能需求分析31系統(tǒng)功能的描述經(jīng)過(guò)調(diào)研分析，通用成績(jī)管理系統(tǒng)共可分為系統(tǒng)對(duì)用戶的添加，刪除，修改，各系成績(jī)的錄入，各系成績(jī)的分類(lèi)查詢，查詢學(xué)生的基本信息，選課情況。系統(tǒng)的維護(hù)用于用戶的維護(hù)及用戶權(quán)限的設(shè)置等。 32系統(tǒng)功能模塊示意圖4系統(tǒng)設(shè)計(jì)41數(shù)據(jù)概念結(jié)構(gòu)設(shè)計(jì)411數(shù)據(jù)流程圖412 e-r圖4.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)421數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)學(xué)生信息（編號(hào)，名稱(chēng)，地址，電話，e-mail，拼音碼）；客戶信息（編號(hào)，名稱(chēng)，地址，電話，e-mail，拼音碼）；車(chē)型信息（編號(hào)，名稱(chēng)，廠商，拼音碼）；

6、進(jìn)貨單（編號(hào)，日期，廠商，單價(jià)，數(shù)量，是否入庫(kù)，車(chē)型，采購(gòu)員）；銷(xiāo)售單（編號(hào)，日期，客戶，單價(jià)，數(shù)量，車(chē)型，銷(xiāo)售員）；車(chē)輛信息（編號(hào)，進(jìn)貨單編號(hào)，銷(xiāo)售單編號(hào)，是否銷(xiāo)售，車(chē)型）；用戶清單（用戶編號(hào)，用戶名，密碼）；權(quán)限清單（用戶編號(hào)，權(quán)限名稱(chēng)）；422數(shù)據(jù)標(biāo)的設(shè)計(jì)5常用的幾個(gè)語(yǔ)句及基本語(yǔ)法及功能adoquery的用法：adoquery為數(shù)據(jù)庫(kù)控件，在本系統(tǒng)中主要用來(lái)執(zhí)行查詢操作adoquery1.close ; /關(guān)閉adoquery控件adoquery1.sql.clear ; /sql語(yǔ)句清空adoquery1.sql.add(select max(編號(hào)) 最大編號(hào) from 車(chē)輛信息);/

7、向ado中加入sql語(yǔ)句adoquery1.open ; /打開(kāi)ado控件執(zhí)行查詢max:=adoquery1.fieldbyname(最大編號(hào)).asinteger ; /將查到記錄字段名為引號(hào)中字符串的值以整形賦給max變量另外，向ado中加入sql語(yǔ)句也可用 adoquery1.sql.text:=select;如果要將結(jié)果賦給字符串變量，最后一句max:=adoquery1.fieldbyname(最大編號(hào)).asstring ;adocommand的用法：adocommand也是數(shù)據(jù)庫(kù)控件，在本系統(tǒng)中主要用來(lái)執(zhí)行插入修改刪除等更新操作sql1:=insert into 車(chē)輛信息(編號(hào)

8、,進(jìn)貨單編號(hào),是否銷(xiāo)售,車(chē)型) values(;sql2:=inttostr(n)+,+edit3.text+,否,+ carstyle+); /將sql語(yǔ)句賦給string類(lèi)型的變量；adocommand1.commandtext :=sql1+sql2; /將sql語(yǔ)句寫(xiě)入adocommandadocommand1.execute ; /執(zhí)行sql語(yǔ)句adotable的用法：adotable也是數(shù)據(jù)庫(kù)控件，在本系統(tǒng)中用于直接與表相關(guān)聯(lián)，通過(guò)dbedit,dbcombobox等數(shù)據(jù)庫(kù)編輯框和數(shù)據(jù)庫(kù)組合框，直接將用戶修改的結(jié)果寫(xiě)入數(shù)據(jù)庫(kù)有時(shí)需要將adoquery的查詢結(jié)果寫(xiě)入adotable中

9、，這是就可用一下語(yǔ)句adoquery1.close ;adoquery1.sql.clear ;adoquery1.sql.add(select * from 進(jìn)貨單 where 是否入庫(kù)=否);adoquery1.open ;adotable1.clone(adoquery1,ltunspecified);動(dòng)態(tài)向treeview中添加節(jié)點(diǎn)varpnode:ttreenode; /聲明節(jié)點(diǎn)變量node,current:integer;if a=1 then/a的值在登錄窗口中決定，若登錄窗口中查詢到用于具有相應(yīng)權(quán)限，a的值為1 begin pnode:=treeview1.itemscurre

10、nt; treeview1.items.addchild(pnode,廠商信息); node:=node+1; end ;動(dòng)態(tài)創(chuàng)建mdi子窗體varcomp:tcomp; /comp為變量類(lèi)型，tcomp為窗體類(lèi)型if fcaption=廠商信息 then begin comp:=tcomp.create(application); /創(chuàng)建子窗體 comp.caption:=廠商信息; /為子窗體設(shè)置標(biāo)題 end;基本語(yǔ)法var 變量名：類(lèi)型名 /聲明變量變量名：=變量值 /為變量賦值對(duì)象。clear /清空對(duì)象的值。號(hào)后面為對(duì)象的屬性名或方法名beginend內(nèi)是一個(gè)語(yǔ)句塊在public p

11、ublic declarations end; 中聲明的是工程級(jí)全局變量在implementation后名聲明的是窗體級(jí)全局變量在函數(shù)或過(guò)程內(nèi)部聲明的是局部變量若要引用其他窗體的變量或?qū)ο?，在過(guò)程之前加上uses 窗體名，并用窗體名。對(duì)象名引用。6系統(tǒng)界面及主要程序61創(chuàng)建公用模塊本系統(tǒng)有一個(gè)公用模塊，formdata，內(nèi)有一個(gè)connection控件，用于連接數(shù)據(jù)庫(kù)，若數(shù)據(jù)庫(kù)改變，只要修改connection控件的connection屬性即可。另外，所有的窗體都可以被其他窗體引用。62登錄界面及主界面uses formdata,formmain;procedure tlogin.button

12、1click(sender: tobject);varnum,user,pass:string;begin user:=edit1.text ; pass:=edit2.text ; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 用戶編號(hào) from 用戶清單 where 用戶名=+user+ and 密碼=+pass+; adoquery1.open ; num:=adoquery1.fieldbyname(用戶編號(hào)).asstring ; if num then begin main.a:=0;main.

13、b:=0;main.c:=0; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=廠商信息; adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.a:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+

14、and 權(quán)限名稱(chēng)=車(chē)型信息; adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.b:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=客戶信息; adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.c:=1; adoquery1.close ; adoquery

15、1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=車(chē)輛采購(gòu); adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.d:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=車(chē)輛入庫(kù); adoquery1.open ; if adoquer

16、y1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.e:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=車(chē)輛銷(xiāo)售; adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.f:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)

17、限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=查詢統(tǒng)計(jì); adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.g:=1; adoquery1.close ; adoquery1.sql.clear ; adoquery1.sql.text:=select 權(quán)限名稱(chēng) from 權(quán)限清單 where 用戶編號(hào)=+num+and 權(quán)限名稱(chēng)=系統(tǒng)維護(hù); adoquery1.open ; if adoquery1.fieldbyname(權(quán)限名稱(chēng)).asstring then main.h:

18、=1; main.use:=user; main.password:=pass; main.show ; login.hide ; end else begin showmessage(用戶名或密碼不正確！); endend;procedure tlogin.edit2keypress(sender: tobject; var key: char);begin if key=#13 then button1.click ;end;end.uses formcomp,formcust,formcarinfo,formplan,formin,formsell,formstatistics,form

19、sysset,formpassch;procedure tmain.formshow(sender: tobject);varpnode:ttreenode;node,current:integer;beginnode:=0;current:=node; if a=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.addchild(pnode,廠商信息); node:=node+1; end ; if b=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.

20、addchild(pnode,車(chē)型信息); node:=node+1; end; if c=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.addchild(pnode,客戶信息); node:=node+1; end; current:=node+1; if d=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.addchild(pnode,車(chē)輛采購(gòu)); node:=node+1; end; if e=1 then begin pnode:=treev

21、iew1.itemscurrent; treeview1.items.addchild(pnode,車(chē)輛入庫(kù)); node:=node+1; end; current:=node+2; if f=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.addchild(pnode,車(chē)輛銷(xiāo)售); node:=node+1; end; current:=node+3; if g=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.addchild(pnode,查詢統(tǒng)計(jì)

22、); node:=node+1; end; current:=node+5; if h=1 then begin pnode:=treeview1.itemscurrent; treeview1.items.insert(pnode,系統(tǒng)維護(hù)); node:=node+1; end;end;procedure tmain.treeview1click(sender: tobject);varcomp:tcomp;cust:tcust;carinfo:tcarinfo;plan:tplan;fin:tfin;sell:tsell;statistics:tstatistics;sysset:tsy

23、sset;passch:tpassch;flag,j:integer;fcaption:string;begin fcaption:=treeview1.selected.text ;begin flag:=0; for j:=0 to main.mdichildcount do begin if main.mdichildrenj.caption =fcaption then begin mdichildrenj.show; flag:=1; break; end; end; if flag=0 then begin if fcaption=廠商信息 then begin comp:=tco

24、mp.create(application); comp.caption:=廠商信息; end; if fcaption=客戶信息then begin cust:=tcust.create(application); cust.caption:=客戶信息; end; if fcaption=車(chē)型信息then begin carinfo:=tcarinfo.create(application); carinfo.caption:=車(chē)型信息; end; if fcaption=車(chē)輛采購(gòu) then begin plan:=tplan.create(application); plan.captio

25、n:=車(chē)輛采購(gòu); end; if fcaption=車(chē)輛入庫(kù) then begin fin:=tfin.create(application); fin.caption :=車(chē)輛入庫(kù); end; if fcaption=車(chē)輛銷(xiāo)售 then begin sell:=tsell.create(application); sell.caption :=車(chē)輛銷(xiāo)售; end; if fcaption=查詢統(tǒng)計(jì) then begin statistics:=tstatistics.create(application); statistics.caption :=查詢統(tǒng)計(jì); end; if fcaptio

26、n=系統(tǒng)維護(hù) then begin sysset:=tsysset.create(application); sysset.caption :=系統(tǒng)維護(hù); end; if fcaption=修改密碼 then begin passch:=tpassch.create(application); passch.caption :=修改密碼; end; if fcaption=退出 then close; end;end;end;end.63基礎(chǔ)信息管理64進(jìn)貨管理65汽車(chē)銷(xiāo)售66收益統(tǒng)計(jì)67系統(tǒng)維護(hù)68無(wú)權(quán)限用戶界面此時(shí)只有修改密碼是可用的。7參考文獻(xiàn)數(shù)據(jù)庫(kù)原理及應(yīng)用 錢(qián)雪忠，黃建華delphi

27、數(shù)據(jù)庫(kù)開(kāi)發(fā)經(jīng)典案例解析 王冕，萬(wàn)科8總結(jié)通過(guò)這次的課程設(shè)計(jì)，首先對(duì)delphi這門(mén)語(yǔ)言有了更深的認(rèn)識(shí)，新學(xué)習(xí)了treeview等控件。本來(lái)只是打算用菜單做，但之前也用delphi開(kāi)發(fā)了一個(gè)校醫(yī)院系統(tǒng)，覺(jué)得應(yīng)該學(xué)點(diǎn)新的東西，所以用的是treeview，但在treeview在實(shí)現(xiàn)上顯然沒(méi)有菜單方便，所以主窗體的代碼很長(zhǎng)，因?yàn)樾枰獎(jiǎng)討B(tài)創(chuàng)建樹(shù)的節(jié)點(diǎn)，或許有更好的方法，但我目前想到的只有這個(gè)。另外，對(duì)數(shù)據(jù)庫(kù)也有了更深的認(rèn)識(shí)，進(jìn)一步掌握了數(shù)據(jù)庫(kù)的應(yīng)用，對(duì)sql語(yǔ)句也有了更好的應(yīng)用。初步掌握了開(kāi)發(fā)一個(gè)數(shù)據(jù)處理系統(tǒng)的方法。當(dāng)然，本系統(tǒng)也還存在缺點(diǎn)。例如數(shù)據(jù)庫(kù)設(shè)計(jì)不是很好，因?yàn)殚_(kāi)始只考慮到數(shù)據(jù)的低冗余和實(shí)行批量

28、采購(gòu)和銷(xiāo)售，忽視了查詢上的方便性，所以在后來(lái)的收益統(tǒng)計(jì)可能效率不是很高，好在本系統(tǒng)主要是用來(lái)處理數(shù)據(jù)的，統(tǒng)計(jì)用的相對(duì)還是少數(shù)，最多效率低點(diǎn)，影響應(yīng)該不是很大。在此我要感謝錢(qián)雪忠老師在數(shù)據(jù)庫(kù)設(shè)計(jì)方面給出的建議，因?yàn)樵?jīng)一度在這個(gè)問(wèn)題上很迷惑，后經(jīng)錢(qián)老師指點(diǎn)終于找到方向。還有就是要感謝互聯(lián)網(wǎng)，在控件的應(yīng)用和程序的語(yǔ)法方面給了我很大幫助。參考文獻(xiàn)規(guī)范: （1）連續(xù)出版物序號(hào)主要責(zé)任者文獻(xiàn)題名j 刊名，出版年份，卷號(hào)(期號(hào)) ：起止頁(yè)碼 例如: 1毛峽，丁玉寬圖像的情感特征分析及其和諧感評(píng)價(jià)j電子學(xué)報(bào), 2001，29(12a) ：1923-19272 mao xia, et al. affective property of image and fractal dimension j. chaos, solitons & fractalsuk，2003:v15 905-910（2）專(zhuān)著序號(hào)主要責(zé)任者文獻(xiàn)題名m出版地：出版者，出版年：起止頁(yè)碼 例如：3 劉國(guó)鈞，王連成圖書(shū)館史研究m 北京：高等教育出版社，1979：15-18 ，