【文章內(nèi)容簡(jiǎn)介】 作量大，最終的系統(tǒng)可靠性不高。另外一直以來(lái)，進(jìn)行程序設(shè)計(jì)均采用結(jié)構(gòu)化開(kāi)發(fā)方法，對(duì)系統(tǒng)的全貌難以在開(kāi)發(fā)前看到，導(dǎo)致實(shí)現(xiàn)的系統(tǒng)不滿足需求。這次的畢業(yè)設(shè)計(jì)開(kāi)發(fā)，主要有以下幾點(diǎn)收獲：1．對(duì)原型化的系統(tǒng)開(kāi)發(fā)方法有了一定的了解。漸增式的原型化開(kāi)發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計(jì)的結(jié)合不但能在系統(tǒng)開(kāi)發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開(kāi)發(fā)模塊化，提高開(kāi)發(fā)效率，減少出錯(cuò)。對(duì)于后期的系統(tǒng)維護(hù)也提供了很大的幫助。2．通過(guò)實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計(jì)工具的使用有了更深刻的認(rèn)識(shí)。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)。致謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)馮珊老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她細(xì)心而又耐心的輔導(dǎo)。參考文獻(xiàn)[1]刑增平，Delphi 最佳專輯，人民郵電出版社 2002[2]伍俊良，清華大學(xué)出版社 2003[3]張瀚文，Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例與解析，高等教育出版社 2003[4]陳瑞，Delphi程序設(shè)計(jì)實(shí)用教程，電子工業(yè)出版社 2003[5]肖慶航，Delphi 7數(shù)據(jù)庫(kù)開(kāi)發(fā)教程，清華大學(xué)出版社 2003[6]陳明，軟件工程學(xué)教程，科學(xué)出版社 2001[7]鄭人杰，殷人昆，軟件工程概論，清華大學(xué)出版社 2001[8]陳世鴻，彭蓉，面向?qū)ο筌浖こ?，電子工業(yè)出版社 2002[9]丁寶康，數(shù)據(jù)庫(kù)原理，經(jīng)濟(jì)科學(xué)出版社 2000附錄主要程序代碼學(xué)生成績(jī)管理系統(tǒng)模塊代碼procedure (AId: integer。FatherNode:TTreeNode)。var QryTmp:TADOQuery。 myNode:TTreeNode。 myLabel:TLabel。begin QryTmp:=(self)。 :=39。Provider=。Data Source=39。+extractfilepath()+39。Persist Security Info=False39。 (39。select * from 數(shù)據(jù)處理錄入表39。)。 (39。where FatherId=39。+inttostr(AId))。 。 while not do begin myNode:=(FatherNode,(39。CName39。).AsString)。 //創(chuàng)建標(biāo)簽，caption存放各分支的AutoId表識(shí) myLabel:=(self)。 :=false。 :=(39。AutoId39。).AsString。 :=myLabel。 AddClass((39。AutoId39。).AsInteger,myNode)。 //遞歸調(diào)用過(guò)程 。 end。 。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增系部39。,39。請(qǐng)輸入系部名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 if assigned() then AddDataToDB(myNode,) else AddDataToDB(myNode,nil)。 :=true。end。procedure (CurrNode,FatherNode: TTreeNode)。var myLabel:TLabel。 QryTmp:TADOQuery。 AId:integer。 //為節(jié)點(diǎn)標(biāo)位begin if not assigned(FatherNode) then AId:=0 else if not assigned() then AId:=0 else AId:=strtoint(TLabel().caption)。 QryTmp:=(self)。 :=39。Provider=。Data Source=39。+extractfilepath()+39。Persist Security Info=False39。 (39。select * from 數(shù)據(jù)處理錄入表39。)。 (39。where FatherId=39。+inttostr(AId))。 。 。 QryTmp[39。FatherId39。]:=AId。 QryTmp[39。CName39。]:=。 //節(jié)點(diǎn)內(nèi)容 。 //創(chuàng)建記錄currNode的AutoId表識(shí)標(biāo) myLabel:=(self)。 :=False。 :=(39。AutoId39。).AsString。 :=myLabel。 。end。 procedure (Sender: TObject)。beginAddClass(0,nil)。[0].Width:=178。[1].Width:=330。[2].Text:=39?，F(xiàn)在的日期是:39。+datetostr(date)+39。 時(shí)間是: 39。+timetostr(time)。[0].Text:=39。歡迎您回來(lái)！39。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增系部39。,39。請(qǐng)輸入系部名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 if assigned() then AddDataToDB(myNode,) else AddDataToDB(myNode,nil)。 :=true。 end。procedure (Sender: TObject)。 var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增專業(yè)39。,39。請(qǐng)輸入專業(yè)名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 AddDataToDB(myNode,)。 :=true。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增班級(jí)39。,39。請(qǐng)輸入班級(jí)名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 AddDataToDB(myNode,)。 :=true。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增系部39。,39。請(qǐng)輸入系部名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 if assigned() then AddDataToDB(myNode,) else AddDataToDB(myNode,nil)。 :=true。end。procedure (Sender: TObject)。 var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增專業(yè)39。,39。請(qǐng)輸入專業(yè)名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 AddDataToDB(myNode,)。 :=true。end。procedure (Sender: TObject)。var strName:string。 myNode:TTreeNode。begin strName:=inputbox(39。新增班級(jí)39。,39。請(qǐng)輸入班級(jí)名稱： 39。,39。39。)。 strName:=trim(strName)。 if strName=39。39。 then exit。 myNode:=(,strName)。 AddDataToDB(myNode,)。 :=true。end。procedure (Sender: TObject)。var QryTmp:TADOQuery。begin if not assigned() then exit。 if (39。是否刪除分類及下級(jí)分類？39。,39。提示39。,mb_yesno+mb_iconquestion)=idno then