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