【正文】 nd。end。procedure (Sender: TObject)。varsql:string。begin:=true。:=false。:=clteal。if (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)or (39。39。)then sql:=39。where (學(xué)號 like39。39。39。+39。%39。++39。%39。39。) or (姓名 like39。39。39。+39。%39。++39。%39。39。) or (所在系別 like39。39。39。+39。%39。++39。%39。39。) or (所在專業(yè) like39。39。39。+39。%39。++39。%39。39。) or (所在班級 like39。39。39。+39。%39。++39。%39。39。) or (課程名稱 like39。39。39。+39。%39。++39。%39。39。)or (課程代號 like39。39。39。+39。%39。++39。%39。39。)or (學(xué)期 like39。39。39。+39。%39。++39。%39。39。)39。 else begin (39。沒有查詢條件！39。,39。提示39。,mb_ok)。 exit。 end。 。 。 (39。select * from 成績信息表39。)。 (sql)。 。 [1].Text:=39?？偣舱业?39。+inttostr()+39。 條記錄39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。end。procedure (Sender: TObject)。var sqlstr:string。begin:=true。:=false。:=clgreen。try sqlstr:=39。 where (1=1) 39。if 39。39。 then sqlstr:=sqlstr+39。 and (所在系別 like39。39。39。+39。%39。++39。%39。39。)39。if 39。39。 then sqlstr:=sqlstr+39。and (所在專業(yè) like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 then sqlstr:=sqlstr+39。and (所在班級 like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 then sqlstr:=sqlstr+39。and (學(xué)號 like39。39。39。+39。%39。++39。%39。39。)39。 。if 39。39。 thensqlstr:=sqlstr+39。and (姓名 like39。39。39。+39。%39。++39。%39。39。)39。 。 。 。 (39。select * from 學(xué)生基本信息表39。)。 (sqlstr)。 。 [1].Text:=39?？偣舱业?39。+inttostr()+39。 條記錄39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 exceptexit。end。end。procedure (Sender: TObject)。beginif (=tabsheet1)or(=tabsheet2)or(=tabsheet4)thenbegin:=true。:=false 。end。if (=tabsheet3)or(=tabsheet5)thenbegin:=false。:=true。end。end。procedure (Sender: TObject)。beginif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelse。end。procedure (Sender: TObject)。beginif 0 thenbeginif messagedlg(39。你確定要刪除該記錄嘛？39。,mtinformation,[mbyes,mbno],0)=mryes then。endelse(39。沒有記錄可刪除或沒有選定要刪除記錄！39。,39。刪除提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif 0 thenbeginif messagedlg(39。你確定要刪除該記錄嘛？39。,mtinformation,[mbyes,mbno],0)=mryes then。endelse(39。沒有記錄可刪除或沒有選定要刪除記錄！39。,39。刪除提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelsebegin。(39。你已修改該記錄的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有記錄可修改或沒有選定要修改記錄！39。,39。修改提示39。,mb_ok)。end。procedure (Sender: TObject)。beginif =0 thenif (=39。39。)or(=39。39。)or(=39。39。) or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)or (=39。39。)thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。endelsebegin。(39。你已修改該記錄的信息39。,39。修改提示39。,mb_ok)。endelse(39。沒有記錄可修改或沒有選定要修改記錄！39。,39。修改提示39。,mb_ok)。end。procedure (Sender: TObject)。begin:=true。:=false。(39。select *from 成績信息表39。)。MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 [1].Text:=39。總共找到 39。+inttostr()+39。 條記錄39。end。procedure (Sender: TObject)。begin:=true。:=false。(39。select *from 學(xué)生基本信息表39。)。MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。[1].Text:=39?？偣舱业?39。+inttostr()+39。 條記錄39。end。procedure (Sender: TObject)。begin:=tabsheet5。end。procedure (Sender: TObject)。begin:=tabsheet4。end。procedure (Sender: TObject)。begin(Tform11,form11)。 。end。procedure (Sender: TObject)。begin (Tform12,form12)。 。end。procedure (Sender: TObject)。varstext:string。i:integer。begin:=true。:=false。stext:=。i:=。if i in [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30] then:=39。select * from 學(xué)生基本信息表 where 所在系別 like39。39。39。+39。%39。+stext+39。%39。39。39。[1].Text:=39?？偣舱业?39。+inttostr()+39。 條記錄39。if =0 then[1].Text:=39。單擊目錄樹只可查詢到各個系別的總體，請使用學(xué)生信息查詢39。end。procedure (Sender: TObject)。begin(Tform13,form13)。end。procedure (Sender: TObject)。begin(Tform14,form14)。end。procedure (Sender: TObject)。begin(Tform12,form12)。 。end。procedure (Sender: TObject)。begin:=Tabsheet3。end。procedure (Sender: TObject)。begin:=Tabsheet2。end。procedure (Sender: TObject)。begin(Tform6,form6)。 。end。procedure (Sender: TObject)。begin(Tform9,form9)。 。end。procedure (Sender: TObject)。begin(Tform11,form11)。 。end。end.第四章 設(shè)計總結(jié)總結(jié)通過幾月的系統(tǒng)分析、設(shè)計、開發(fā)，系統(tǒng)編碼完成。在系統(tǒng)的開發(fā)過程中，以前學(xué)習(xí)感到很抽象的課程，如軟件工程、數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來。感覺到這幾門理論課程的重要性。以前做一些應(yīng)用的系統(tǒng)開發(fā)，隨意性大，想到那里做到那里，沒有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯誤返工修改工作量大，最終的系統(tǒng)可靠性不高。另外一直以來，進行程序設(shè)計均采用結(jié)構(gòu)化開發(fā)方法，對系統(tǒng)的全貌難以在開發(fā)前看到，導(dǎo)致實現(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è)計工具的使用有了更深刻的認(rèn)識。為以后的工作、學(xué)習(xí)的進一步提高打下了堅實的基礎(chǔ)。致謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)徐紅老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他細(xì)心而又耐心的輔導(dǎo)。參考文獻[1]刑增平，Delphi 最佳專輯，人民郵電出版社，2002 [2]伍俊良，清華大學(xué)出版社， 2003 [3]張瀚文，Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)實例與解析，高等教育出版社， 2003 [4]陳瑞，Delphi程序設(shè)計實用教程，電子工業(yè)出版社2003 [5]肖慶航，Delphi 7數(shù)據(jù)庫開發(fā)教程，清華大學(xué)出版社，2003 [6]陳明，軟件工程學(xué)教程，科學(xué)出版社，2001 [7]陳世鴻、彭蓉，面向?qū)ο筌浖こ?，電子工業(yè)出版社2002 [8]丁寶康，數(shù)據(jù)庫原理，經(jīng)濟科學(xué)出版社 2000