【正文】
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:外罰管理的代碼和獎(jiǎng)勵(lì)管理的代碼類似,這里不再 述。 查詢/修改的代碼實(shí)現(xiàn)當(dāng)學(xué)生根據(jù)自己的學(xué)號查詢了自己的信息,如果發(fā)現(xiàn)有錯(cuò)的話,可以修改,然后程序把修改后數(shù)據(jù)保存到數(shù)據(jù)庫。代碼如下:procedure (Sender:TObject)。//“修改”按鈕的單擊事件var StuNo,StuName,StuClass,StuDepart,StuSex,Birthdayt,NativePlace:string。begin with Tablel do begin Open。 StuNo:=。 StuName:=。 StuClass:=。 StuDepart:=。 NativePlace:=。 Birthday:=。 if =true then StuSex:=。 if RadioButtonl6,checked=true then StuSex:=。 Edit。 SetFields([StuNo,StuDepart,StuClass,StuName,StuSex,Birthday,NativePlace])。 Post。 end。end。學(xué)生可以打印成績單,其代碼很簡單,這里不再列出。 例 演 示至此,學(xué)生管理信息系統(tǒng)的開發(fā)基本結(jié)束。下面演示這個(gè)系統(tǒng),來看看實(shí)際的效果如何。,首先出現(xiàn)的是學(xué)生管理信息系統(tǒng)的主界面,它有一個(gè)工具欄,上面有8個(gè)按鈕,依次是:用戶登錄、新生信息錄入、成績管理、學(xué)籍變更、獎(jiǎng)勵(lì)管理、處罰管理、查詢修改和退出,其中只有“退出”和“用戶登錄”是激活的,其他是不可用的,需要登錄后再分配權(quán)限,如圖35所示。圖35學(xué)生管理信息系統(tǒng)的主界面單擊“退出”按鈕,則退出系統(tǒng)。單擊“用戶登錄”按鈕,則彈出用戶登錄界面,如圖36所示。用戶選擇自己的身份,輸入相應(yīng)的密碼即可擁有相應(yīng)的權(quán)限。首次登錄密碼都是“888888”。如果輸入的密碼不正確,則提示用戶是否退出,如圖37所示。如果輸入的密碼3次以上不正確,則自動(dòng)退出系統(tǒng),如圖38所示。圖36用戶登錄界面 圖37提示用戶 圖38自動(dòng)退出系統(tǒng)如果身份是管理員,而且輸入的密碼正確,則分配給管理員所有的權(quán)限,如圖39所示。如果身份是學(xué)生,而且輸入的密碼正確,則分配給學(xué)生查詢修改的權(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é)生信息,選擇班級和院系,單擊導(dǎo)航條上的√按鈕,新生信息就保存到了數(shù)據(jù)庫。圖41新生信息錄入實(shí)例演示 成績管理的實(shí)例演示單擊“成績管理”按鈕,則出現(xiàn)成績管理界面,如圖42所示。單擊導(dǎo)航條上的?和?按鈕查找學(xué)生,學(xué)號、姓名自動(dòng)從數(shù)據(jù)庫中調(diào)出,錄入學(xué)生的各科成績,單擊“√添加”按鈕,學(xué)生成績就保存到了數(shù)據(jù)庫。在右邊的表中,瀏覽到相應(yīng)的記錄,如果需要修改,單擊導(dǎo)航條上的▲按鈕,輸入相應(yīng)的成績,再單擊導(dǎo)航條上的√按鈕,修改后的信息就保存到了數(shù)據(jù)庫。圖42成績管理實(shí)例實(shí)示 學(xué)籍變更的實(shí)例演示單擊“學(xué)籍變更”按鈕,出現(xiàn)學(xué)籍變更界面,如圖43所示。輸入學(xué)生的學(xué)號,姓名等信息自動(dòng)從數(shù)據(jù)庫中調(diào)出,錄入變更項(xiàng)和變更時(shí)間,單擊“√添加”,學(xué)籍變更信息就保存到了數(shù)據(jù)庫。圖43學(xué)籍變更實(shí)例演示 獎(jiǎng)勵(lì)管理的實(shí)例演示單擊“獎(jiǎng)勵(lì)管理”按鈕,出現(xiàn)獎(jiǎng)勵(lì)管理界面,如圖44所示。輸入學(xué)生的學(xué)號,姓名等信息自動(dòng)從數(shù)據(jù)庫中調(diào)出,選擇獎(jiǎng)勵(lì)項(xiàng)和獎(jiǎng)勵(lì)時(shí)間,單擊“√添加”按鈕,獎(jiǎng)勵(lì)信息就保存到了數(shù)據(jù)庫。圖44獎(jiǎng)勵(lì)管理實(shí)例演示 外罰管理的實(shí)例演示單擊“外罰管理”按鈕,出現(xiàn)外罰管理界面,如圖45所示。輸入學(xué)生的學(xué)號,姓名等信息自動(dòng)從數(shù)據(jù)庫中調(diào)出,選擇處罰項(xiàng)和處罰時(shí)間,單擊“√添加”按鈕,處罰信息就保存到了數(shù)據(jù)庫。圖45處罰管理實(shí)例演示 查詢修改的實(shí)例演示單擊“查詢修改”按鈕,出現(xiàn)查詢修改界面,如圖46所示。輸入學(xué)生的學(xué)號,姓名等信息自動(dòng)從數(shù)據(jù)庫中調(diào)出。如果發(fā)現(xiàn)信息有錯(cuò),可以在相應(yīng)的編輯框輸入正確的信息,單擊“√修改”按鈕,成績單效果如圖47所示。圖46查詢修改實(shí)例演示圖47打印成績單實(shí)例演示參考文獻(xiàn)[1] 張海藩,《軟件工程導(dǎo)論》,清華大學(xué)出版社,2002[2]伍俊良,《Delphi 6控件應(yīng)用實(shí)例教程》,北京希望電子出版社,2002[3]盧國俊,《Delphi 6數(shù)據(jù)庫開發(fā)》,電子工業(yè)出版社,2002[4]邊萌,《Delphi 編程起步》,機(jī)械工業(yè)出版社,2002[5]伍俊良,《Delphi 6課程設(shè)計(jì)案例精編》,中國水利水電出版社,2002[6]丁寶康,《數(shù)據(jù)庫原理》,經(jīng)濟(jì)科學(xué)出版社,2000[7]陸麗娜,《軟件工程》,經(jīng)濟(jì)科學(xué)出版社,2000[8] 許杰舟、林偉鵬、林盛雄、來賓,《Delphi7程序設(shè)計(jì)與實(shí)例》,2003[9] 楊志剛、何志成、魏志強(qiáng)、王忠華,《 基礎(chǔ)教學(xué)篇》,歡迎您的光臨,!希望您提出您寶貴的意見,你的意見是我進(jìn)步的動(dòng)力。贈語; 如果我們做與不做都會有人笑,如果做不好與做得好還會有人笑,那么我們索性就做得更好,來給人笑吧! 現(xiàn)在你不玩命的學(xué),以后命玩你。我不知道年少輕狂,我只知道勝者為王。不要做金錢、權(quán)利的奴隸;應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時(shí)候離光明最近?那就是你覺得黑暗太黑的時(shí)候。最值得欣賞的風(fēng)景,是自己奮斗的足跡。壓力不是有人比你努力,而是那些比你牛幾倍的人依然比你努力。 參考