【正文】 end。 end else begin if messagedlg(39。是否繼續(xù)查詢？結束查詢才能進行其他操作！39。,mtinformation ,[mbyes,mbno],0)=mrno then begin filtered:=false。 。 。 end。 End。end。end?！胺祷亍卑粹o代碼：beginclose。end。插入界面：form3“插入”按鈕代碼：begin if =39。39。 then showmessage(39。請輸入學號39。) else if =39。39。 then showmessage(39。請輸入姓名39。) else if =39。39。then showmessage(39。請輸入性別39。) else if =39。39。 then showmessage(39。請輸入出生年月39。) else if =39。39。 then showmessage(39。請輸入院系39。) else if =39。39。 then showmessage(39。請輸入班級39。) else if =39。39。 then showmessage(39。請輸入政治面貌39。) else if =39。39。 then showmessage(39。請輸入宿舍號39。) elsebegin if messagedlg(39。確實要增加該學生？39。,mtInformation,[mbOK, mbCancel],0)=mrok then begin 。 。 (39。學號39。).AsString:=。 (39。姓名39。).AsString:=。 (39。性別39。).AsString:=。 (39。出生年月39。).AsString:=。 (39。院系39。).AsString:=。 (39。班級39。).AsString:=。 (39。政治面貌39。).AsString:=。 (39。宿舍號39。).AsString:=。 。 showmessage(39。添加成功39。)。 。 end else begin showmessage(39。添加失敗39。)。 。 end。end。end?！胺祷亍卑粹o代碼：beginclose。end。刪除界面：form4“刪除”按鈕：begin :=true。 if then if not (39。學號39。,[]) then begin showmessage(39。沒有該同學，請重新輸入39。)。 :=39。39。 end else begin (39。學號39。,[])。 :=39。39。 。 if messagedlg(39。確實要刪除該學生？39。,mtWarning,[mbOK,mbCancel],0)=mrok then begin 。 showmessage(39。刪除成功39。)。 end else begin showmessage(39。刪除失敗39。)。 end。 end。 if then if not (39。姓名39。,[]) then begin showmessage(39。沒有該同學，請重新輸入39。)。 :=39。39。 end else begin (39。姓名39。,[])。 :=39。39。 。 if messagedlg(39。確實要刪除該學生？39。,mtWarning,[mbOK,mbCancel],0)=mrok then begin 。 showmessage(39。刪除成功39。)。 end else begin showmessage(39。刪除失敗39。)。 end。 end。 end?！胺祷亍卑粹o代碼：beginclose。end。修改界面：form5“修改”按鈕代碼：begin if =39。39。 then showmessage(39。請輸入學號39。) else if =39。39。 then showmessage(39。請輸入姓名39。) else if =39。39。then showmessage(39。請輸入性別39。) else if =39。39。 then showmessage(39。請輸入出生年月39。) else if =39。39。 then showmessage(39。請輸入院系39。) else if =39。39。 then showmessage(39。請輸入班級39。) else if =39。39。 then showmessage(39。請輸入政治面貌39。) else if =39。39。 then showmessage(39。請輸入宿舍號39。) elsebegin 。 [0].AsString:=。 [1].AsString:=。 [2].AsString:=。 [3].AsString:=。 [4].AsString:=。 [5].AsString:=。 [6].AsString:=。 。 showmessage(39。修改成功39。)。end。end。 “返回”按鈕代碼：beginclose。end。主操作界面：form6procedure (Sender: TObject)。beginif not assigned (form2) thenform2:=(self)。end。procedure (Sender: TObject)。beginif not assigned (form3) thenform3:=(self)。end。procedure (Sender: TObject)。beginif not assigned (form4) thenform4:=(self)。end。procedure (Sender: TObject)。begin if not assigned (form5) thenform5:=(self)。end。procedure (Sender: TObject)。beginclose。end。procedure (Sender: TObject)。begin if not assigned (form7) thenform7:=(self)。end。procedure (Sender: TObject)。beginif not assigned (form8) thenform8:=(self)。end。end.關于按鈕：form8結束語 為了管理同學們的個人在校信息以及運用本學期所學知識完成數(shù)據(jù)庫概論的課程設計，我們三人一起設計開發(fā)這個系統(tǒng)。 在這次課程設計中，是一個從無到有的過程，剛開始的確感到很茫然，因為很多東西都無從下手，例如Delphi和SQL 數(shù)據(jù)庫的連接過程，Delphi中學生信息管理查詢各個功能的實現(xiàn)等以及SQL 表的管理等。其中通過大量的查閱書籍及上網(wǎng)查看相關資料等，對這個管理系統(tǒng)有了初步的認識與了解。 通過本次課程設計，使我們對使用SQL和Delphi開發(fā)應用程序有了更加深刻的了解，對SQL的強大功能以及對Delphi的各種組件的功能也進一步認識。隨著課程設計的深入，我們越來越感到SQL數(shù)據(jù)庫工具開發(fā)數(shù)據(jù)庫應用系統(tǒng)的重要性同時對數(shù)據(jù)庫的分析，構架數(shù)據(jù)結構也有了更加深刻的認識也深刻的感受到Delphi功能的強大與方便。同時我們也認識到了自己的不足之處，對基礎知識還很不熟悉，一些知識還要翻書或上網(wǎng)查詢。在設計過程中也遇到了一些困難，但是在我們不懈的努力之下基本完成了。主要參考文獻：［1］伊文敏．Delphi + SQL Server數(shù)據(jù)庫應用實例完全解析[M].北京：人民郵電出版社。［2］Macro Cantu．Delphi 2005從入門到精通[M].北京：電子工業(yè)出版社 ［3］啟明工作室．Delphi + SQL Server數(shù)據(jù)庫應用系統(tǒng)開發(fā)與實例[M].北京：人民郵電出版社。［4］巴克納爾．Delphi算法與數(shù)據(jù)結構[M].北京：中國電力出版社。［5］宋坤，鄒天思．Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊[M].北京：人民郵電出版社。40