【正文】 ‘對(duì)不起，該記錄已經(jīng)存在 !’ ,mtInformation,[mbOk],0)。 end。 end。 學(xué)籍變更的代碼實(shí)現(xiàn) 當(dāng)管理員選擇了學(xué)籍需要變更的學(xué)生后，輸入變更項(xiàng)和變更時(shí)間，程序把數(shù)據(jù)保存到數(shù)據(jù)庫(kù)。代碼如下： procedure (Sender: Tobject)。//?添加?按鈕的單擊事件 var StuNo,StuName,StuClass,ChangeRemark:string。 begin winth Table2 do begin Open。 StuNo:=。 StuName:=。 StuClass:=。 StuDepart:=。 ChangeName:=。 ChangeRemark:=。 append。 SetFields([StuNo,StuName,StuClass,StuDepart,ChangeName,ChangeRemark, Formatdatetime(‘ dddddde’ ,)])。 Post。 end。 end。 獎(jiǎng)勵(lì)管理的代碼實(shí)現(xiàn) 當(dāng)管理員選擇了需要獎(jiǎng)勵(lì)的學(xué)生后，選擇了獎(jiǎng)項(xiàng)和獎(jiǎng)勵(lì)時(shí)后，程序把數(shù)據(jù)保存到數(shù)據(jù)庫(kù)。代碼如下： procedure (Sender: TObject)。//?添加?按鈕的單擊事件 var StuNo,StuName,StuClass,StuDepart,EncourageName:sering。 begin with Table3 do begin Open。 StuNo:=。 StuName:=。 StuClass:=。 StuDepart:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 if =true then EncourageName:=。 append。 SetFields([StuNo,StuName,StuClass,StuDepart,EncourageName, Formatdatetime(‘ dddddd’ ,)])。 Post。 end。end: UML 學(xué)生信息管理系統(tǒng) (需求分析 +畢業(yè)論文 +源程序 ) 學(xué)生可以打印成績(jī)單，其代碼很簡(jiǎn)單 ，這里不再列出。 實(shí) 例 演 示 至此，學(xué)生管理信息系統(tǒng)的開(kāi)發(fā)基本結(jié)束。下面演示這個(gè)系統(tǒng)，來(lái)看看實(shí)際的效果如何。 運(yùn)行學(xué)生管理信息系統(tǒng)的執(zhí)行文件 ，首先出現(xiàn)的是學(xué)生管理信息系統(tǒng)的主界面，它有一個(gè)工具欄，上面有 8 個(gè)按鈕，依次是：用戶(hù)登錄、新生信息錄入、成績(jī)管理、學(xué)籍變更、獎(jiǎng)勵(lì)管理、處罰管理、查詢(xún)修改和退出，其中只有?退出?和?用戶(hù)登錄?是激活的，其他是不可用的，需要登錄后再分配權(quán)限，如圖 35 所示。 圖 35 學(xué)生管理信息系統(tǒng)的主界面 單擊?退出?按鈕，則退出系統(tǒng)。單擊?用戶(hù)登錄?按鈕， 則彈出用戶(hù)登錄界面，如圖 36 所示。用戶(hù)選擇自己的身份，輸入相應(yīng)的密碼即可擁有相應(yīng)的權(quán)限。首次登錄密碼都是? 888888?。如果輸入的密碼不正確，則提示用戶(hù)是否退出，如圖 37 所示。如果輸入的密碼 3 次以上不正確，則自動(dòng)退出系統(tǒng)，如圖 38 所示。 圖 36 用戶(hù)登錄界面 圖 37 提示用戶(hù) 圖 38 自動(dòng)退出系統(tǒng) 如果身份是管理員，而且輸入 s 的密碼正確，則分配給管理員所有的權(quán)限，如圖39 所示。如果身份是學(xué)生，而且輸入的密碼正確，則分配給學(xué)生查詢(xún)修改的權(quán)限，如圖 40 所示。 圖 39 管理員擁有的權(quán)限 圖 40 學(xué)生擁有的權(quán)限 現(xiàn)在假設(shè)以管理員的身份登錄了系統(tǒng)，這樣就擁有了所有的權(quán)限，下面就是逐個(gè)演示各個(gè)系統(tǒng)功能。 新生信息錄入的實(shí)例演示 單擊?新生信息錄入?按鈕，彈出新生信息錄入界面，如圖 41 所示，單擊導(dǎo)航條上按 +按鈕，輸入相應(yīng)的學(xué)生信息，選擇班級(jí)和院系，單擊導(dǎo)航條上的√按鈕，新生信息就保存到了數(shù)據(jù)庫(kù)。 圖 41 新生信息錄入實(shí)例演示 成績(jī)管理的實(shí)例演示 單擊?成績(jī)管理?按鈕，則出現(xiàn)成績(jī)管理界面，如圖 42 所示。單擊導(dǎo)航條上的 ?和 ?按鈕查找學(xué)生，學(xué)號(hào)、姓名自動(dòng)從數(shù)據(jù)庫(kù)中調(diào)出，錄入學(xué)生的各科成績(jī)，單擊?√添加?按鈕，學(xué)生成績(jī)就保存到了數(shù)據(jù)庫(kù)。在右邊的表中，瀏覽到相應(yīng)的記錄，如果需要修改，單擊導(dǎo)航條上的▲按鈕，輸入相應(yīng)的成績(jī)，再單擊航條上的√按鈕，修改后的信息就保存到了數(shù)據(jù)庫(kù)。 圖 42 成績(jī)管理實(shí)例實(shí)示 學(xué)籍變更的實(shí)例演示 單擊?學(xué)籍變更?按鈕，出現(xiàn)學(xué)籍變更界面，如圖 43 所示。輸入學(xué)生的學(xué)號(hào)，姓名等信息自動(dòng)從數(shù)據(jù)庫(kù)中調(diào)出，錄入變更項(xiàng)和變更時(shí)間，單擊?√添加?，學(xué)籍變更信息就保存到了數(shù)據(jù)庫(kù)。 圖 43 學(xué)籍變更實(shí)例演示 獎(jiǎng)勵(lì)管理的實(shí)例 演示 單擊?獎(jiǎng)勵(lì)管理?按鈕，出現(xiàn)獎(jiǎng)勵(lì)管理界面，如圖 44 所示。輸入學(xué)生的學(xué)號(hào)，姓名等信息自動(dòng)從數(shù)據(jù)庫(kù)中調(diào)出，選擇獎(jiǎng)勵(lì)項(xiàng)和獎(jiǎng)勵(lì)時(shí)間，單擊?√添加?按鈕，獎(jiǎng)勵(lì)信息就保存到了數(shù)據(jù)庫(kù)。 圖 44 獎(jiǎng)勵(lì)管理實(shí)例演示 外罰管理的實(shí)例演示 單擊?外罰管理?按鈕，出現(xiàn)外罰管理界面，如圖 45 所示。輸入學(xué)生的學(xué)號(hào)，姓名等信息自動(dòng)從數(shù)據(jù)庫(kù)中調(diào)出，選擇處罰項(xiàng)和處罰時(shí)間，單擊?√添加?按鈕，處罰信息就保存到了數(shù)據(jù)庫(kù)。 圖 45 處罰管理實(shí)例演示 查詢(xún)修改的實(shí)例演示 單擊?查詢(xún)修改?按鈕，出現(xiàn)查詢(xún)修改界面，如圖 46 所示。輸入學(xué)生的學(xué) 號(hào)，姓名等信息自動(dòng)從數(shù)據(jù)庫(kù)中調(diào)出。如果發(fā)現(xiàn)信息有錯(cuò)，可以在相應(yīng)的編輯框輸入正確的信息，單擊?√修改?按鈕，成績(jī)單效果如圖 47 所示。 圖 46 查詢(xún)修改實(shí)例演示 圖 47 打印成績(jī)單實(shí)例演示 參考文獻(xiàn) [1] [2] 伍俊良，《 Delphi 6 控件應(yīng)用實(shí)例教程》，北京希望電子出版社， 2022 [3] 盧國(guó)俊，《 Delphi 6 數(shù)據(jù)庫(kù)開(kāi)發(fā)》，電子工業(yè)出版社， 2022 [4] 邊萌，《 Delphi 編程起步》，機(jī)械工業(yè)出版社， 2022 [5] 伍俊良，《 Delphi 6 課程設(shè)計(jì)案例精編》，中國(guó)水利水電出版社， 2022 [6] 丁寶康，《數(shù)據(jù)庫(kù)原理》，經(jīng)濟(jì)科學(xué)出版社， 2022 [7] 陸麗娜，《軟件工程》，經(jīng)濟(jì)科學(xué)出版社， 2022 [8] 許杰舟、林偉鵬、林盛雄、來(lái)賓，《 Delphi7 程序設(shè)計(jì)與實(shí)例》， 2022 [9] 楊志剛、何志成、魏志強(qiáng)、王忠華，《 程序設(shè)計(jì) 基礎(chǔ)教學(xué)篇》，