最新delphi課程設(shè)計(jì)報(bào)告-資料下載頁(yè)
2025-08-01 19:25本頁(yè)面
【正文】 rom Book where Code =:Code39。)。 (39。Code39。).Value :=。 Open。 if RecordCount 0 then begin MessageDlg(39。書(shū)號(hào)39。++39。已經(jīng)存在39。,mtError,[mbok],0)。 。 Exit。 end。 Close。 end。 try with do begin 。 (39。insert into book(Code,Name,Author,Press,OutDate,Cost)39。+ 39。 values (:Code,:Name,:Author,:Press,:OutDate,:Cost)39。)。 (39。Code39。).value := 。 (39。Name39。).value := 。(39。Author39。).value := 。 (39。Press39。).value := 。 try (39。OutDate39。).value := StrToDate()。 except MessageDlg(39。參數(shù)出版時(shí)間設(shè)置錯(cuò)誤39。,mtError,[mbok],0)。 Exit。 end。 try (39。Cost39。).value := StrToFloat()。 except MessageDlg(39。參數(shù)價(jià)格設(shè)置錯(cuò)誤39。,mtError,[mbok],0)。 Exit。 end。 ExecSQL。 end。 TabSheet1Show(Sender)。 except MessageDlg(39。入庫(kù)出錯(cuò)39。,mtError,[mbok],0)。 end。end。procedure (Sender: TObject)。begin Close。end。procedure (Sender: TObject)。begin 。 。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 := 39。39。 。end。procedure (Sender: TObject)。begin Close。end。procedure (Sender: TObject)。begin try 。 :=False。 except MessageDlg(39。保存出錯(cuò)39。,mtError,[mbok],0)。 end。 。end。procedure (Sender: TObject)。var i : integer。begin 。 with do begin 。 (39。select Code from book 39。)。 Open。 First。 for i:=0 to RecordCount1 do begin (FieldbyName(39。Code39。).AsString)。 Next。 end。 Close。 end。end。procedure (Sender: TObject)。begin if Length() = 10 then begin try with do begin TableName:=39。book39。 := 39。OutDate39。 := 39。Name39。 := 39。Author39。 := 39。Press39。 := 39。Cost39。 := 39。Memo39。 Active:=True。 Locate(39。code39。,[])。 Edit。 end。 except MessageDlg(39。數(shù)據(jù)操作出錯(cuò)39。,mtError,[mbok],0)。 end。 end。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if Key = 13 then ComboBox1Change(Sender)。end。procedure (Sender: TObject)。beginend。end.第七章 設(shè)計(jì)小結(jié)一學(xué)期的Delphi專業(yè)選修結(jié)束了，用了整整一周的時(shí)間完成了課程設(shè)計(jì)，通過(guò)使用可視化開(kāi)發(fā)工具Delphi開(kāi)發(fā)圖書(shū)管理系統(tǒng)，學(xué)生實(shí)際動(dòng)手能力以及自學(xué)其它系統(tǒng)開(kāi)發(fā)工具的能力有所提高，同時(shí)發(fā)現(xiàn)平時(shí)學(xué)習(xí)中的許多不足之處。例如，學(xué)生發(fā)現(xiàn)，在開(kāi)發(fā)系統(tǒng)過(guò)程中，對(duì)數(shù)據(jù)庫(kù)重要組件包括ADO控件、數(shù)據(jù)集組件和數(shù)據(jù)顯示組件等的相關(guān)屬性及方法不夠熟悉，還不能在需要時(shí)純熟、靈活地運(yùn)用，在技術(shù)上無(wú)法實(shí)現(xiàn)夢(mèng)寐以求的效果，留下許多缺憾。本次課程設(shè)計(jì)的順利完成，尤為感謝燕孝飛老師的辛勤教導(dǎo)。本學(xué)期的課程中，他帶領(lǐng)學(xué)生進(jìn)入華麗的Delphi世界，使學(xué)生領(lǐng)略到Delphi7組件化的編程方式，面向?qū)ο蟮某绦蛟O(shè)計(jì)，使我進(jìn)一步的為自己的計(jì)算機(jī)夢(mèng)登上了更上的一層。 第8章 參考文獻(xiàn)[1] E Winemiller, , 著. Visual 社,1999.[2] 郭盈發(fā), 張紅娟. 《數(shù)據(jù)庫(kù)原理》. 西安電子科技大學(xué)出版社,2002. [3] 趙松濤. 《中文版SQL SERVER 2000應(yīng)用及實(shí)例集錦》. 人民郵電出社,2002. [4] 丁寶康, 李大學(xué)編著《數(shù)據(jù)庫(kù)原理》.經(jīng)濟(jì)科學(xué)出版社,2000.[5] 楊永，國(guó)剛編著《畢業(yè)設(shè)計(jì)指南與項(xiàng)目實(shí)踐》.北京科海電子出版社，2008. [6]楊長(zhǎng)春主編《delphi程序設(shè)計(jì)教程》.清華大學(xué)出版社，2011.27
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1