【導(dǎo)讀】著科學(xué)理論和技術(shù)科學(xué)的發(fā)展而形成的。學(xué)生成績(jī)管理系統(tǒng)是一個(gè)教育單位。手段，對(duì)學(xué)生來(lái)說(shuō)可以輕松查閱自己在校的成績(jī)及信息等。們都是靠傳統(tǒng)人工的方式管理學(xué)生成績(jī)，這種管理方式存在著許多的缺點(diǎn)，查找、更新和維和都帶來(lái)了不少的困難。們深刻認(rèn)識(shí)，它已經(jīng)深入人類社會(huì)的領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。密性好、壽命長(zhǎng)、成本價(jià)低等。進(jìn)企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。因此，開(kāi)發(fā)這樣的。一套成績(jī)管理系統(tǒng)成為很有必要的事情。對(duì)于學(xué)校的全體老師而。以錄入成績(jī)，但成績(jī)一旦保存之后，任課教師就不能再具有修改成績(jī)的權(quán)限，對(duì)于學(xué)生而言，系統(tǒng)應(yīng)該提供學(xué)生能夠查詢自己的成績(jī)的功能。

　　

【正文】 軟件需求說(shuō)明書(shū)中的確認(rèn)標(biāo)準(zhǔn)。本系統(tǒng)成功實(shí)現(xiàn)了報(bào)名管理、住宿管理、繳費(fèi)管理、數(shù)據(jù)管理等一系列功能，順利地通過(guò)了確認(rèn)測(cè)試。 第 7 章 系統(tǒng)測(cè)試 26 第 8 章 心得總結(jié) 以上介紹的是學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，該系統(tǒng)后臺(tái)采用了數(shù)據(jù)庫(kù)的管理開(kāi)發(fā)選用 SQL Server 2020 及 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)： (1)界面友好、操作簡(jiǎn)便、性能穩(wěn)定、安全可靠； (2)采用先進(jìn)的關(guān)系型數(shù)據(jù)庫(kù)技術(shù)和 delphi6； (3)開(kāi)發(fā)環(huán)境： Sql server2020 數(shù)據(jù)庫(kù)， delphi. 參考文獻(xiàn) 27 參考文獻(xiàn) [1]刑增平， Delphi 最佳專輯，人民郵電出版社 2020 [2]伍俊良， ，清華大學(xué)出版社 2020 [3]張瀚文， Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例與解析，高等教育出版社 2020 [4]陳瑞， Delphi 程序設(shè)計(jì)實(shí)用教程，電子工業(yè)出版社 2020 [5]肖 慶航， Delphi 7 數(shù)據(jù)庫(kù)開(kāi)發(fā)教程，清華大學(xué)出版社 2020 [6]陳明，軟件工程學(xué)教程，科學(xué)出版社 2020 [7]鄭人杰，殷人昆，軟件工程概論，清華大學(xué)出版社 2020 [8]陳世鴻，彭蓉，面向?qū)ο筌浖こ?，電子工業(yè)出版社 2020 [9]丁寶康，數(shù)據(jù)庫(kù)原理，經(jīng)濟(jì)科學(xué)出版社 2020 參考文獻(xiàn) 28 附錄 驗(yàn)證用戶登錄信息代碼如下： procedure (Sender: TObject)。 begin :=trim()。 :=stringreplace(,39。39。39。39。,39。39。,[rfreplaceall])。 :=stringreplace(,39。39。,39。39。,[rfreplaceall])。 if =39。39。 then showmessage(39。strDesc39。)。 。 abort。 begin checkInput(edit1,39。請(qǐng)輸入用戶號(hào) 39。)。 checkInput(edit2,39。請(qǐng)輸入密碼 39。)。 。 。 (39。select * from userif where ID=39。+39。39。39。39。++39。39。39。39。+39。and 39。+39。passwd+39。+39。39。39。39。++39。39。39。39。)。 then begin showmessage(39。用戶號(hào)或密碼不正確 39。)。 。 inc(times)。 if times=3 then begin showmessage(39。非法用戶不能登錄系統(tǒng) 39。)。 modalresult:=mrcancel。 end。 end else modalresult:=mrok。} if ((=39。 學(xué)生 39。) or (=39。 教師39。))or(=39。管理員 39。) then begin 。 。 :=39。select * from userif where 用戶名=39。39。39。++39。39。39。 and 密碼 =39。39。39。++39。39。39。39。 。 if 0 then begin :=10。 form3:=(self)。 。 end else showmessage(39。用戶或密碼不正確 39。) 。 參考文獻(xiàn) 29 end。 end。 procedure (Sender: TObject)。 begin 。 end。 end. 實(shí)現(xiàn)用戶信息修改代碼如下： begin 。 [0].AsString:=。 [1].AsString:=。 [2].AsString:=。 。 showmessage(39。修改成功 39。)。 :=39。39。 :=39。39。 :=39。39。 end。 end. 實(shí)現(xiàn)用戶信息修改代碼如下： begin 。 [0].AsString:=。 [1].AsString:=。 [2].AsString:=。 。 showmessage(39。修改成功 39。)。 :=39。39。 :=39。39。 :=39。39。 end。 其中成績(jī)錄入代碼如下所示 ： 參考文獻(xiàn) 30 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。 實(shí)現(xiàn)課程信息查詢代碼如下： procedure (Sender: TObject)。 begin if =0 then begin 。 。 (39。select * from courseif39。+39。 where o like 39。+39。39。39。39。+39。%39。++39。%39。+39。39。39。39。)。 。 end else if =1 then 參考文獻(xiàn) 31 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)。 begin if =0 then showMessage(39。記錄為空不能刪除 39。) else 參考文獻(xiàn) 32 begin if MessageDlg(39。確定要?jiǎng)h除嗎？ 39。,mtInformation,[mbOK,mbCancel],0) = mrOK then 。 end。 end。 end.