【正文】 他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他細心而又耐心的輔導(dǎo)。致謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)徐紅老師身上學(xué)到了很多東西。2．通過實踐，提高了系統(tǒng)分析的能力，對數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計工具的使用有了更深刻的認識。漸增式的原型化開發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計的結(jié)合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯。另外一直以來，進行程序設(shè)計均采用結(jié)構(gòu)化開發(fā)方法，對系統(tǒng)的全貌難以在開發(fā)前看到，導(dǎo)致實現(xiàn)的系統(tǒng)不滿足需求。感覺到這幾門理論課程的重要性。end.第四章 設(shè)計總結(jié)總結(jié)通過幾月的系統(tǒng)分析、設(shè)計、開發(fā)，系統(tǒng)編碼完成。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。begin:=Tabsheet2。end。procedure (Sender: TObject)。 。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。單擊目錄樹只可查詢到各個系別的總體，請使用學(xué)生信息查詢39。 條記錄39?？偣舱业?39。39。%39。%39。39。select * from 學(xué)生基本信息表 where 所在系別 like39。i:=。:=false。i:integer。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。begin:=tabsheet4。end。procedure (Sender: TObject)。 條記錄39?？偣舱业?39。提示39。查詢完畢！39。)。(39。begin:=true。end。+inttostr()+39。 [1].Text:=39。,MB_OK or MB_ICONINFORMATION)。,39。MessageBox(handle,39。select *from 成績信息表39。:=false。procedure (Sender: TObject)。,mb_ok)。,39。endelse(39。修改提示39。你已修改該記錄的信息39。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。,mb_ok)。,39。endelse(39。修改提示39。你已修改該記錄的信息39。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。,mb_ok)。,39。endelse(39。你確定要刪除該記錄嘛？39。procedure (Sender: TObject)。,mb_ok)。,39。endelse(39。你確定要刪除該記錄嘛？39。procedure (Sender: TObject)。endelse。,mb_ok)。,39。)thenbegin(39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。)or(=39。beginif =0 thenif (=39。end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。endelse。,mb_ok)。,39。)thenbegin(39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。)or (=39。) or (=39。)or(=39。)or(=39。beginif (=39。end。exit。錯誤操作39。信息不完整！39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。procedure (Sender: TObject)。end。if (=tabsheet3)or(=tabsheet5)thenbegin:=false。:=false 。procedure (Sender: TObject)。end。39。39。39。39。39。 條記錄39。總共找到 39。 。)。 (39。 。)39。%39。%39。39。and (姓名 like39。39。 。39。++39。+39。39。 then sqlstr:=sqlstr+39。if 39。)39。%39。%39。39。and (所在班級 like39。39。 。39。++39。+39。39。 then sqlstr:=sqlstr+39。if 39。39。++39。+39。39。 then sqlstr:=sqlstr+39。if 39。try sqlstr:=39。:=false。var sqlstr:string。end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。+inttostr()+39。 [1].Text:=39。 (sql)。select * from 成績信息表39。 。 end。,mb_ok)。,39。 else begin (39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。)then sql:=39。)or (39。)or (39。)or (39。)or (39。)or (39。)or (39。)or (39。if (39。:=false。varsql:string。end。39。 條記錄39?？偣舱业?39。 。提示39。查詢完畢！39。)。39。++39。39。 (39。 endelse begin 。,MB_OK or MB_ICONINFORMATION)。,39。 then begin MessageBox(handle,39。if =39。begin:=true。end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。+inttostr()+39。 [1].Text:=39。 (sql)。select * from 學(xué)生基本信息表39。 。 end。,mb_ok)。,39。 else begin (39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。39。++39。+39。39。)then sql:=39。)or (39。)or (39。)or (39。)or (39。)or (39。)or (39。if (39。:=false。varsql:string。end。39。 條記錄39。總共找到 39。 。提示39。查詢完畢！39。)。39。++39。39。 (39。 endelse begin 。,MB_OK or MB_ICONINFORMATION)。,39。 then begin MessageBox(handle,39。if =39。:=false。procedure (Sender: TObject)。end。:=true。:=true。:=true。:=true。:=false。procedure (Sender: TObject)。end。:=false。:=false。:=false。:=false。:=true。procedure (Sender: TObject)。end。:=true。:=true。:=true。:=true。beginif thenbegin:=false。end。:=false。:=false。:=false。:=false。:=true。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。beginif then:=trueelse:=false。end。procedure (Sender: TObject)。begin:=Tabsheet2。end。begin (Tform9,form9)。 end。begin (Tform6,form6)。end。 。where AutoId=39。)。39。+strName+39。39。+39。 (39。+extractfilepath()+39。Provider=。 //刪除下級別分類 QryTmp:=(self)。39。 strName:=trim(strName)。39。請輸入新的名稱： 39。修改39。begin if not assigned() then exit。var QryTmp:TADOQuery。end。 。where AutoId=39。)。 (39。 。where FatherId=39。)。 (39。+extractfilepath()+39。Provider=。 //刪除下級別分類 QryTmp:=(self)。提示39。是否刪除分類及下級分類？39。begin if not assigned() then exit。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入班級名稱： 39。新增班級39。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入專業(yè)名稱： 39。新增專業(yè)39。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入系部名稱： 39。新增系部39。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入班級名稱： 39。新增班級39。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入專業(yè)名稱： 39。新增專業(yè)39。 myNode:TTreeNode。procedure (Sender: TObject)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入系部名稱： 39。新增系部39。 myNode:TTreeNode。procedure (Sender: TObject)。歡迎您回來！39。+timetostr(time)。+datetostr(date)+39。[2].Text:=39。[0].Width:=178。 procedure (Sender: TObject)。 。).AsString。 :=(39。 //創(chuàng)建記錄currNode的AutoId表識標(biāo) myLabel:=(self)。]:=。 QryTmp[39。FatherId39。 。+inttostr(AId))。 (39。select * from 數(shù)據(jù)處理錄入表39。Persist Security Info=False39。Data Source=39。 :=39。 //為節(jié)點標(biāo)位begin if not assigned(FatherNode) then AId:=0 else if not assigned() then AId:=0 else AId:=strtoint(TLabel().caption)。 QryTmp:TADOQuery。procedure (CurrNode,FatherNode: TTreeNode)。 :=true。 myNode:=(,strName)。39。 strName:=trim(strName)。39。請輸入系