【正文】 end。,mtInformation,[mbOK,mbCancel],0) = mrOK then 。) else 參考文獻(xiàn) 32 begin if MessageDlg(39。 begin if =0 then showMessage(39。 end。 。39。39。%39。%39。39。39。 where ctype like 39。select * from courseif39。 。 。39。39。%39。%39。39。39。 where ccredit like 39。select * from courseif39。 。 。39。39。%39。%39。39。39。 where ame like 39。select * from courseif39。 。 。39。39。%39。%39。39。39。 where o like 39。select * from courseif39。 。 實(shí)現(xiàn)課程信息查詢代碼如下： procedure (Sender: TObject)。39。39。39。39。39。)。 showmessage(39。 [4].AsString:=。 [2].AsString:=。 [0].AsString:=。 begin 。 end。 :=39。 :=39。 :=39。修改成功 39。 。 [1].AsString:=。 end. 實(shí)現(xiàn)用戶信息修改代碼如下： begin 。39。39。39。)。 showmessage(39。 [2].AsString:=。 [0].AsString:=。 end。 procedure (Sender: TObject)。 參考文獻(xiàn) 29 end。用戶或密碼不正確 39。 。 if 0 then begin :=10。39。39。39。 and 密碼 =39。39。39。select * from userif where 用戶名=39。 。管理員 39。 教師39。 學(xué)生 39。 end else modalresult:=mrok。 modalresult:=mrcancel。非法用戶不能登錄系統(tǒng) 39。 inc(times)。)。 then begin showmessage(39。39。39。39。39。passwd+39。and 39。39。39。39。39。select * from userif where ID=39。 。)。 checkInput(edit2,39。請(qǐng)輸入用戶號(hào) 39。 abort。)。 then showmessage(39。 if =39。39。39。,[rfreplaceall])。,39。39。 :=stringreplace(,39。 軟件特點(diǎn)： (1)界面友好、操作簡(jiǎn)便、性能穩(wěn)定、安全可靠； (2)采用先進(jìn)的關(guān)系型數(shù)據(jù)庫技術(shù)和 delphi6； (3)開發(fā)環(huán)境： Sql server2020 數(shù)據(jù)庫， delphi. 參考文獻(xiàn) 27 參考文獻(xiàn) [1]刑增平， Delphi 最佳專輯，人民郵電出版社 2020 [2]伍俊良， ，清華大學(xué)出版社 2020 [3]張瀚文， Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例與解析，高等教育出版社 2020 [4]陳瑞， Delphi 程序設(shè)計(jì)實(shí)用教程，電子工業(yè)出版社 2020 [5]肖 慶航， Delphi 7 數(shù)據(jù)庫開發(fā)教程，清華大學(xué)出版社 2020 [6]陳明，軟件工程學(xué)教程，科學(xué)出版社 2020 [7]鄭人杰，殷人昆，軟件工程概論，清華大學(xué)出版社 2020 [8]陳世鴻，彭蓉，面向?qū)ο筌浖こ蹋娮庸I(yè)出版社 2020 [9]丁寶康，數(shù)據(jù)庫原理，經(jīng)濟(jì)科學(xué)出版社 2020 參考文獻(xiàn) 28 附錄 驗(yàn)證用戶登錄信息代碼如下： procedure (Sender: TObject)。通過對(duì)程序流程圖和界面的設(shè)計(jì)以及部分功能的實(shí)現(xiàn)，使我認(rèn)識(shí)到了自己在學(xué)習(xí)上的不足，明白了在以后的學(xué)習(xí)工作實(shí)踐過程中自己應(yīng)該注意的一些問題。軟件設(shè)計(jì)是一個(gè)精細(xì)漫長(zhǎng)的過 程。 第 7 章 系統(tǒng)測(cè)試 26 第 8 章 心得總結(jié) 以上介紹的是學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，該系統(tǒng)后臺(tái)采用了數(shù)據(jù)庫的管理開發(fā)選用 SQL Server 2020 及 delphi。 確認(rèn)測(cè)試是檢查軟件能否按要求進(jìn)行工作，即是否滿足軟件需求說明書中的確認(rèn)標(biāo)準(zhǔn)。 本系統(tǒng)各個(gè)模塊集成到一起后，起初存在一些由變量聲明帶來的錯(cuò)誤，通過修改排錯(cuò)后，已正常運(yùn)行。 按照上述要求，對(duì)各個(gè)模塊進(jìn)行測(cè)試，并排除了模塊在邊界值的處理以及錯(cuò)誤處理時(shí)存在的一些不當(dāng)，最終得到了運(yùn)行正常的各個(gè)模塊。 第 6 章 程序設(shè)計(jì)與編碼 24 圖 69 學(xué)生信息查詢界面 可以學(xué)生信息查詢中查看所要添加的學(xué)生所在班級(jí)的人，然后確定學(xué)號(hào)添加學(xué)生信息 。 如下圖 64 分別為教師或管理員錄入時(shí)的 界面： 圖 64 成績(jī)錄入界面 課程管理窗體的設(shè)計(jì) 學(xué)生、管理員和教師都能進(jìn)行課程查詢，直接點(diǎn)擊查詢將可以看到所有的課程，而輸入條件則可以按條件查詢圖 65 為課程信息查詢 第 6 章 程序設(shè)計(jì)與編碼 22 圖 65 課程信息查詢界面 ，只有管理員和教師可以進(jìn)行課程添加，學(xué)生不能實(shí)現(xiàn)課程添加功能。在執(zhí)行過程中，只有管理員和教師可以修改和添加成績(jī)信息，而學(xué)生不能實(shí)現(xiàn)這兩項(xiàng)功能。 圖 62 是用戶修改界面：若原密碼輸入不正確，則將保存失?。? 第 6 章 程序設(shè)計(jì)與編碼 20 圖 62 用戶信息修改界面 成績(jī)管理窗體的設(shè)計(jì) 63 所示所有學(xué)生的成績(jī)，管理員、學(xué)生和教師都可以查 詢所有人的成績(jī)。當(dāng)輸入了錯(cuò)誤的或者是不存 在的用戶名和密碼時(shí)，系統(tǒng)會(huì)給出出錯(cuò)信息提示，指明登陸過程中的錯(cuò)誤輸入或錯(cuò)誤操作，以便用戶進(jìn)行正確的登陸。 表 41 數(shù)據(jù)表名稱與用途 數(shù)據(jù)表名稱 數(shù)據(jù)表用途 用戶登錄表（ UserInfo） 用戶登錄信息 班級(jí)信息表（ ClassInfo） 各個(gè)班級(jí)信息 學(xué)生信息表（ StudentInfo） 學(xué)校學(xué)生基本信息 成績(jī)信息表（ StuGrade） 學(xué)生成績(jī)信息 課程信息表（ CourseInfo） 所有課程基本信息 表 42 用戶登錄表（ UserInfo） 字段名 中文描述 類型 長(zhǎng)度 是否可為空 是否主鍵 Userif 用戶名 Varchar 10 否 是 Userpwd 用戶密碼 Varchar 10 是 否 Userleved 用戶權(quán)限 Varchar 10 是 否 表 43 數(shù)據(jù)庫中用戶登錄表的部分信息 Userid Userpwd UserLevel 1005170201 1005170201 學(xué)生 1005170202 1005170202 學(xué)生 Sun Sun 管理員 Tian tiantian 教師 表 44 班級(jí)信息表（ ClassInfo） 字段名 中文描述 類型 長(zhǎng)度 是否可為空 是否作為主鍵 Classif 班級(jí)名 Varchar 10 否 是 Studentnumber 學(xué)生人數(shù) Int 4 是 否 第 4 章 數(shù)據(jù)庫設(shè)計(jì) 17 表 45 學(xué)生信息表（ StudentInfo） 字段名 中文描述 類型 長(zhǎng)度 是否可為空 是否主鍵 Sno 學(xué)