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