【導(dǎo)讀】隨著科學(xué)技術(shù)的發(fā)展，計(jì)算機(jī)領(lǐng)域不斷取得新的研究成果。計(jì)算機(jī)在代替和延伸腦。尤其是在學(xué)校里，要處理大量的學(xué)生數(shù)據(jù)。在數(shù)字化的今天，為了加快學(xué)校學(xué)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫(kù)技術(shù)支持下完成的。結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計(jì)選題的背景、目的和意義。然后敘述了開(kāi)發(fā)平臺(tái)和數(shù)據(jù)庫(kù)技。的任務(wù)、技術(shù)和工具。最終系統(tǒng)能夠完成信息的輸入、輸出,數(shù)據(jù)的修改、查詢(xún)和統(tǒng)計(jì)。以及打印報(bào)表等功能，使用戶(hù)操作起來(lái)簡(jiǎn)便快捷。

　　

【正文】 ）如表 11 所示。 表 11 student 表（學(xué)生信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 studentID char 8 NOT NULL 是 學(xué)生學(xué)號(hào) sname char 8 NOT NULL 學(xué)生姓名 sex char 2 NULL 學(xué)生性別 native char 20 NULL 籍貫 birthday smalldate 4 NULL 學(xué)生出生日期 classno char 4 NULL 班級(jí)號(hào) （ 2） department 表（院系信息表）如表 12所示。 表 12 department 表（院系信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 dno char 6 NOT NULL 是 院系編號(hào) dname char 20 NOT NULL 院系名稱(chēng) header char 8 NULL 院系負(fù)責(zé)人 addr varchar 40 NULL 院系辦公地址 del varchar 40 NULL 聯(lián)系電話(huà) （ 3） user 表（用戶(hù)信息表）如表 13 所示。 表 13 user 表（用戶(hù)信息表） 25 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 usrno char 8 NOT NULL 是 用戶(hù)名 usrpwd char 8 NULL 密碼 usrrights int 4 NOT NULL 操作權(quán)限 （ 4） class 表（班級(jí)信息表）如表 14所示。 表 14 class 表（班級(jí)信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 classid char 4 NOT NULL 是 班級(jí)號(hào) classmame char 8 NOT NULL 是 depaitID char 8 NULL Begindate datatime 8 NULL master char 10 NULL Telephone char 20 NULL description vchar 50 NULL （ 5） change 表（學(xué)籍變更信息表）如表 15所示。 表 15 change 表（學(xué)籍變更信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 changeid smallint 2 NOT NULL 是 記錄號(hào) sno char 8 NOT NULL 學(xué)生學(xué)號(hào)（外鍵） change char 1 NOT NULL 變更代碼（外鍵） 26 rectime datetime 8 NOT NULL 記錄時(shí)間 description varchar 100 NULL 描述 （ 6） reward 表（獎(jiǎng)勵(lì)記錄信息表）如表 16所示。 表 16 reward 表（獎(jiǎng)勵(lì)記錄信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 RID char 1 NOT NULL 是 代碼 studentID char 10 NOT NULL Rewrddata time 8 NULL Reward char 10 NULL description varchar 100 NULL 描述 （ 7） punish 表（處罰記錄信息表）如表 17所示。 表 17 punish 表（處罰記錄信息表） 字段名稱(chēng) 類(lèi) 型 寬 度 允許空值 主 鍵 說(shuō) 明 Pid char 1 NOT NULL 是 變更代碼 studentID char 10 NOT NULL punishdata time 8 NULL punish char 10 NULL description varchar 100 NULL 描述 27 界面設(shè)計(jì) 以上內(nèi)容完成了數(shù)據(jù)庫(kù)的后臺(tái)工作，建立起了能夠保障系統(tǒng)順利、正確運(yùn)行的后臺(tái)。界面設(shè)計(jì)工作在進(jìn)行系統(tǒng)開(kāi)發(fā)的時(shí)候是必不可少，也是十分重要的。下面就對(duì)學(xué)生 學(xué)籍管理信息系統(tǒng)的界面設(shè)計(jì)。 用戶(hù)登錄界面設(shè)計(jì) 利用用戶(hù)登錄 成功能實(shí)現(xiàn)對(duì)用戶(hù)操作權(quán)限的限制。 用戶(hù)必須輸入正確的密碼才能進(jìn)入下一界面，如果用戶(hù)的密碼輸入錯(cuò)誤，應(yīng)用程序會(huì)提示錯(cuò)誤信息。用戶(hù)如果連續(xù) 3 次輸入錯(cuò)誤，應(yīng)用程序會(huì)強(qiáng)迫使用者退出并終止應(yīng)用 程序的運(yùn)行，圖 11 所示是用戶(hù)登錄界面窗體 。 圖 11 用戶(hù)登錄界面窗體 學(xué)生 學(xué)籍 管理信息系統(tǒng)主界面設(shè)計(jì) 學(xué)生 學(xué)籍管理信息系統(tǒng)主界面主要實(shí)現(xiàn)院系設(shè)置、班級(jí)管理、新生信息錄入 、學(xué)籍變更、處罰管理、獎(jiǎng)勵(lì)管理和查詢(xún)修改的功能。選擇該界面中工具欄中的不同按鈕，就會(huì)進(jìn)入實(shí)現(xiàn)不同功能的窗體。圖 12 是學(xué)籍管理 系統(tǒng)主界面窗體。 28 圖 12 學(xué)生 學(xué)籍 管理信息系統(tǒng)主界面窗體 院系設(shè)置界面設(shè)計(jì) 院系設(shè)置界面主要實(shí)現(xiàn)學(xué)校院系的添加、刪除、查詢(xún)功能 ，包括院系號(hào)，院系名，負(fù)責(zé)人，聯(lián)系電話(huà)和說(shuō) 明等信息，圖 13 是院系設(shè)置的界面窗體。 29 圖 13 是院系設(shè)置的界面窗體 班級(jí)管理 界面設(shè)計(jì) 班級(jí)管理界面主要實(shí)現(xiàn)學(xué)校班級(jí)的添加、刪除、查詢(xún)功能，包括班級(jí)號(hào)，班級(jí)名，所屬院系，入學(xué)時(shí)間，班主任，聯(lián)系電話(huà)和說(shuō)明等信息，圖 14 是班級(jí)管理的界面窗體。 圖 14 是班級(jí)管理的界面窗體。 30 學(xué)生管理 界面設(shè)計(jì) 學(xué)生管理 界面主要實(shí)現(xiàn)學(xué)生信息的添加功能，包括學(xué)號(hào)、性別、出生日期、籍貫、姓名、班級(jí)、所屬院系等信息的添加，圖 15 是 學(xué)生管理 界面窗體。 圖 15 是 學(xué)生管理界面窗 體 學(xué)生查詢(xún)界面設(shè)計(jì) 學(xué)生查詢(xún) 界面主要實(shí)現(xiàn) 以學(xué)號(hào)查詢(xún)學(xué)生信息的功能，包括學(xué)號(hào)、性別、出生日期、姓名、班級(jí)、學(xué)籍變更、獎(jiǎng)勵(lì)和處罰 等信息的查詢(xún) ，圖 16 是 學(xué)生管理 界面窗體。 31 圖 16 是 學(xué)生管理 界面窗體。 學(xué)籍變更界面設(shè)計(jì) 學(xué)籍變更界面是實(shí)現(xiàn)學(xué)生學(xué)籍變更的功能，學(xué)籍變更有休學(xué)、轉(zhuǎn)系、結(jié)業(yè)、復(fù)學(xué)、轉(zhuǎn)學(xué)、畢業(yè)六種情況， 圖 17 是學(xué)籍變更界面窗體。 32 圖 17 學(xué)籍變更界面窗體 獎(jiǎng)勵(lì)管理界面設(shè)計(jì) 當(dāng)學(xué)生在校表現(xiàn)優(yōu)秀，學(xué)校應(yīng)該獎(jiǎng)勵(lì)該學(xué)生，以鼓勵(lì)大家的學(xué)習(xí)熱情。獎(jiǎng)勵(lì)管理界面用于實(shí)現(xiàn)學(xué)生獎(jiǎng)勵(lì)的 功能。相應(yīng)的獎(jiǎng)項(xiàng)有國(guó)家級(jí) 、省級(jí)和校級(jí)分別三個(gè)級(jí)別的獎(jiǎng)項(xiàng) 等，用戶(hù)可以根據(jù)實(shí)際情況進(jìn)行設(shè)計(jì)。圖 18 是獎(jiǎng)勵(lì)管理界面窗體。 33 圖 18 獎(jiǎng)勵(lì)管理界面窗體 處罰管理界面設(shè)計(jì) 當(dāng)學(xué)生在校的表現(xiàn)差，學(xué)校應(yīng)該處罰該學(xué)生。處罰管理界面就是實(shí)現(xiàn)學(xué)生處罰的功能。相應(yīng)的處罰項(xiàng)有警告、記過(guò)、開(kāi)除等，用戶(hù)可以根據(jù)實(shí)際情況進(jìn)行設(shè)計(jì)。圖 19 是處罰管理界面窗體。 34 圖 19 處罰管理界面窗體 35 第 6 章 代碼編寫(xiě)與分析 上一章 主要介紹了界面的設(shè)計(jì)， 完成了界面的基本設(shè)計(jì)，而個(gè)系統(tǒng)要運(yùn)行，就少不了程序代碼了。在這一章主要對(duì)程序的核心代碼 進(jìn)行分析。 用戶(hù)登錄的代碼實(shí)現(xiàn) 學(xué)籍 管理信息系統(tǒng)啟動(dòng)時(shí)，首先出現(xiàn)的是系統(tǒng) 登入 界面。 登入界面中 有用戶(hù)號(hào)和用戶(hù)密碼輸入框，確定按鈕功能是從數(shù)據(jù)庫(kù)中獲取用戶(hù)號(hào)和 密碼，和用戶(hù)輸入的密碼比較，如果密碼正確 ；如果不正確，則提示用戶(hù)重輸或退出：重輸 3 次以上，系統(tǒng)自動(dòng)退出。 確定按鈕 部分 代碼如下： :=trim()。 :=stringReplace(,39。39。39。39。,39。39。,[rfreplaceall])。 :=stringreplace(,39。39。,39。39。,[rfreplaceall])。 if =39。39。 then showmessage(strDesc)。 。 abort； begin checkInput(edtuserID,39。請(qǐng)輸入用戶(hù)號(hào) 39。)。 checkInput(edtpasswd,39。請(qǐng)輸入密碼 39。)。 。 。 (39。select * from users 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。 )。 。 if then begin showmessage(39。用戶(hù)號(hào)或密碼不正確 39。)。 。 inc(times)。 if times=3 then begin showmessage(39。非法用戶(hù)不能登陸系統(tǒng) 39。)。 modalresult:=mrcancel。 end； end else modalresult:=mrOK。 36 院系設(shè)置 的代碼實(shí)現(xiàn) 進(jìn)入院系界面 主要實(shí)現(xiàn)學(xué)校院系的添加、刪除、查詢(xún)功能，包括 院系號(hào)，院系名，負(fù)責(zé)人，聯(lián)系電話(huà)和說(shuō)明等信息，院系號(hào)是主鍵，也就是說(shuō)院系號(hào)是唯一的，同時(shí)院系表和班級(jí)表是關(guān)聯(lián)的，但院系里有班級(jí)時(shí)就不能刪除、修改該院系。實(shí)現(xiàn)主要代碼如下： Begin result:=false。 :=false。 :=39。class39。 :=39。departID=39。39。39。+tbldepartment[39。departID39。]+39。39。39。39。 :=true。 :=true。 if not then begin str:=format(39。不能刪除該院系 ’ %s39。的編號(hào)下面的班級(jí)13,[tbldepartment[39。departname39。]]) 。 repeat str:=str+format(39。%10S%s39。13,[tblvalid[39。classID39。],tblvalid[39。classname39。]])。 。 until 。 str:=str+39。隸屬該院系 39。 begin strmsg1:=format(39。院系編號(hào)已存在 !39。13,[tbldepartment[39。departID39。]])。 strmsg1:=strmsg1+format(39。院系號(hào) :%S39。13,[tbldepartment[39。departId39。]])。 strmsg1:=strmsg1+format(39。院系名 :%S39。13,[tbldepartment[39。departname39。]]) strmsg1:=strmsg1+format(39。院系領(lǐng)導(dǎo) :%S39。13,[tbldepartment[39。departhead39。]]) showmessage(strmsg1)。 。 37 result:=false。 end。 :=false。 end。 begin if hasclass(strmsg) then begin showmessage(strmsg)。 abort。 end。 strmsg:=format(39。確定要?jiǎng)h除該院系嗎？ :39。13,[tbldepartment[39。departID39。]])。 strmsg:=strmsg+format(39。院系號(hào) :%S39。13,[tbldepartment[39。departId39。]])。 strmsg:=strmsg+format(39。院系名 :%S39。13,[tbldepartment[39。departname39。]])。 strmsg:=strmsg+format(39。院系領(lǐng)導(dǎo) :%S39。13,[tbldepartment[39。departhead39。]])。 if messageDlg(strmsg,mtconfirmation,[mbyes,mbno],0)mryes then abort。 end。 學(xué)籍變更的代碼實(shí)現(xiàn) 學(xué)籍變更界面主要 實(shí)現(xiàn)學(xué)生學(xué)籍變更的功能，學(xué)籍變更有休學(xué)、轉(zhuǎn)系、結(jié)業(yè)、復(fù)學(xué)、轉(zhuǎn)學(xué)、畢業(yè)六種情況，學(xué)籍變更根據(jù)學(xué)號(hào)進(jìn)行具體的數(shù)據(jù)操作。實(shí)現(xiàn)功能主要代碼如下： procedure 。 procedure enableInput(enabled:boolean)。 begin :=enabled。 :=ena