delphi課程設(shè)計(jì)-學(xué)生成績(jī)管理系統(tǒng)-資料下載頁(yè)
2025-05-14 02:06本頁(yè)面
【導(dǎo)讀】Delphi是著名的Borland公司開發(fā)的可視化軟件開發(fā)工具?！罢嬲某绦騿T用C，聰明的程序員用Delphi”，這句話是對(duì)Delphi最經(jīng)典、最實(shí)在的描述。Delphi被稱為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。
【正文】 [2].AsString:=。 。showmessage(39。修改成功39。)。:=39。39。:=39。39。 :=39。39。 end。1 成績(jī)查詢圖44所示是在條件課程編號(hào)為1即面向?qū)ο缶幊虝r(shí)所有學(xué)生的成績(jī)，管理員、學(xué)生和教師都可以查詢所有人的成績(jī)，圖44 成績(jī)查詢2 成績(jī)錄入該功能只有管理員和教師可操作，且當(dāng)輸入學(xué)生學(xué)號(hào)時(shí)，學(xué)生姓名可以自動(dòng)從數(shù)據(jù)庫(kù)中查詢得到，輸入課程編號(hào)時(shí)，課程名稱也可以自動(dòng)從數(shù)據(jù)庫(kù)中提取出來(lái)。其中代碼如下所示：procedure (Sender: TObject)。begin。 [0].AsString:=。 [1].AsString:=。 [2].AsString:=。 [3].AsString:=。 [4].AsString:=。 。 showmessage(39。確定保存？39。)。 :=39。39。 :=39。39。 :=39。39。:=39。39。:=39。39。end。在執(zhí)行過(guò)程中，只有管理員和教師可以修改和添加成績(jī)信息，而學(xué)生不能實(shí)現(xiàn)這兩項(xiàng)功能。如下圖45為學(xué)生點(diǎn)擊成績(jī)修改或成績(jī)錄入時(shí)出現(xiàn)的提示：圖45學(xué)生操作 成績(jī)修改或錄入如下圖46分別為教師或管理員錄入時(shí)的界面：46管理員或教師成績(jī)錄入3 成績(jī)修改成績(jī)修改與成績(jī)錄入共用同一個(gè)窗體，點(diǎn)打開成績(jī)修改模塊時(shí)，會(huì)從當(dāng)前數(shù)據(jù)中讀取該行成進(jìn)行修改存，只有管理員和教師可以對(duì)成績(jī)進(jìn)行修改、添加，而學(xué)生僅能查詢自己的成績(jī)。如下圖47分別為教師或管理員修改時(shí)的界面：47管理員或教師成績(jī)修改學(xué)生、管理員和教師都能進(jìn)行課程查詢，直接點(diǎn)擊查詢將可以看到所有的課程，而輸入條件則可以按條件查詢?nèi)鐖D4848為課程信息查詢：48課程信息查詢實(shí)現(xiàn)代碼如下：procedure (Sender: TObject)。beginif =0 thenbegin 。 。 (39。select * from courseif39。+39。 where o like 39。+39。39。39。39。+39。%39。++39。%39。+39。39。39。39。)。 。 endelse if =1 then begin 。 。 (39。select * from courseif39。+ 39。 where ame like 39。+39。39。39。39。+39。%39。++39。%39。+39。39。39。39。)。 。 end else if =2 then begin 。 。 (39。select * from courseif39。+ 39。 where ccredit like 39。+39。39。39。39。+39。%39。++39。%39。+39。39。39。39。)。 。 end else begin 。 。 (39。select * from courseif39。+ 39。 where ctype like 39。+39。39。39。39。+39。%39。++39。%39。+39。39。39。39。)。 。 end。 end。procedure (Sender: TObject)。beginif =0 thenshowMessage(39。記錄為空不能刪除39。)elsebeginif MessageDlg(39。確定要?jiǎng)h除嗎？39。,mtInformation,[mbOK,mbCancel],0) = mrOK then。end。end。end.只有管理員和教師可以進(jìn)行課程添加，學(xué)生不能實(shí)現(xiàn)課程添加功能，如下49圖是管理員或教師進(jìn)行課程添加的實(shí)現(xiàn)：49課程添加只有管理員和教師可以進(jìn)行課程修改，學(xué)生不能實(shí)現(xiàn)課程修改功能，如下49圖是管理員或教師進(jìn)行課程修改的實(shí)現(xiàn)：49課程修改如圖410在條件查詢相應(yīng)班級(jí)，學(xué)生、教師和管理員都可以查詢班級(jí)信息，該圖是按系’IS’查詢的班級(jí)信息：410班級(jí)信息查詢411班級(jí)信息查詢412班級(jí)信息修改圖413是在條件性別為‘男’的情況下查詢的，根據(jù)行的標(biāo)頭單元格可以確定該班級(jí)的性別為男的同學(xué)。圖413學(xué)生信息查詢可以學(xué)生信息查詢中查看所要添加的學(xué)生所在班級(jí)的人，然后確定學(xué)號(hào)添加學(xué)生信息。圖414學(xué)生信息添加3. 學(xué)生信息修改圖415學(xué)生信息修改五 設(shè)計(jì)總結(jié)以上介紹的是學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，該系統(tǒng)后臺(tái)采用了數(shù)據(jù)庫(kù)的管理開發(fā)選用SQL Server 2005及delphi。本文闡述了對(duì)學(xué)生成績(jī)進(jìn)行管理的流程，對(duì)學(xué)生成績(jī)的信息化管理具有很大的幫助。軟件設(shè)計(jì)是一個(gè)精細(xì)漫長(zhǎng)的過(guò)程。在整個(gè)過(guò)程中，都需要周密的計(jì)劃和安排，每一步驟，都需要按照軟件工程標(biāo)準(zhǔn)來(lái)完成。通過(guò)對(duì)程序流程圖和界面的設(shè)計(jì)以及部分功能的實(shí)現(xiàn)，使我認(rèn)識(shí)到了自己在學(xué)習(xí)上的不足，明白了在以后的學(xué)習(xí)工作實(shí)踐過(guò)程中自己應(yīng)該注意的一些問(wèn)題。經(jīng)過(guò)一段時(shí)間的設(shè)計(jì)，本系統(tǒng)的基本功能已經(jīng)得以實(shí)現(xiàn)，只是在程序的功能方面未做有全面的考慮，比如對(duì)于各個(gè)班級(jí)添加學(xué)生學(xué)號(hào)的自動(dòng)加一還未完整實(shí)現(xiàn)，這是學(xué)生成績(jī)管理系統(tǒng)的一個(gè)不夠完美因素之一，但在將來(lái)的學(xué)習(xí)中我會(huì)根據(jù)實(shí)際需要，將軟件的功能和數(shù)據(jù)庫(kù)、delphi的安全性不斷進(jìn)行完善。軟件特點(diǎn)：界面友好、操作簡(jiǎn)便、性能穩(wěn)定、安全可靠；采用先進(jìn)的關(guān)系型數(shù)據(jù)庫(kù)技術(shù)和delphi7；開發(fā)環(huán)境： Sql server2005數(shù)據(jù)庫(kù)，delphi。
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1