學(xué)生信息管理系統(tǒng)模板—計(jì)算機(jī)畢業(yè)設(shè)計(jì)(論文)(已改無(wú)錯(cuò)字)
2022-09-06 10:03:44 本頁(yè)面
【正文】 勵(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)有校特等獎(jiǎng)、校一等校、校二等校、校三等校、工作獎(jiǎng)等，用戶可以根據(jù)實(shí)際情況進(jìn)行設(shè)計(jì)。圖32是獎(jiǎng)勵(lì)管理界面窗體。圖32獎(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)除等，用戶可以根據(jù)實(shí)際情況進(jìn)行設(shè)計(jì)。圖33是處罰管理界面窗體。圖33處罰管理界面窗體 查詢修改界面設(shè)計(jì)學(xué)生可以根據(jù)自己的學(xué)號(hào)在查詢修改界面中查詢自己的個(gè)人信息，包括基本信息、個(gè)人成績(jī)、學(xué)籍變更情況、獎(jiǎng)勵(lì)和處罰情況。如果發(fā)現(xiàn)基本信息有錯(cuò)誤的話，有權(quán)進(jìn)行修改，而且學(xué)生有權(quán)打印自己的成績(jī)單。圖934是查詢修改界面窗體。圖34查詢修改界面 碼 分 析 與 實(shí) 現(xiàn)上面對(duì)程序界面設(shè)計(jì)進(jìn)行了詳細(xì)的設(shè)計(jì)，基本完成了程序界面的設(shè)計(jì)工作。程序代碼是程序的核心所在，是系統(tǒng)開(kāi)發(fā)的靈魂。下面對(duì)系統(tǒng)的代碼做具體的分析。 用戶登錄的代碼實(shí)現(xiàn)學(xué)生管理信息系統(tǒng)啟動(dòng)時(shí)，首先出現(xiàn)的是系統(tǒng)主界面。單擊系統(tǒng)主界面中工具欄的“用戶登錄”按鈕，就彈出用戶登錄界面。程序從配置文件中獲取管理員和學(xué)生的密碼，和用戶輸入的密碼比較，如果密碼正確，則根據(jù)身份配權(quán)限；如果不正確，則提示用戶重輸或退出：重輸3次以上，系統(tǒng)自動(dòng)退出。代碼如下：Proctdure (Sender:TObject)。//“用戶登陸”按鈕的單擊事件Var pwdfile:textfile。PwdStr:string。Begin if =True then assingnfile(pwdfile,’.\’)。 if =True then assingfile(pwdfile,’.\’)。 reset(pwdfile)。 readln(pwdfile,pwdStr)。 closefile(pwdfile)。 Times:=Times=1。 If =PwdStr then begin close。 :=True :=。 :=true。 if =True then begin :=Ture。 :=True。 :=True。 :=True。 :=True。 :=True。 end。 if =True then begin :=True。 end。endelsebegin if MessageDlg(‘密碼輸入錯(cuò)誤，是否退出？’，mtContirmation,[mbYes,mbNo],0)=mryes then begin close。 :=True。 end else begin if times3 then else begin MessageDlg(‘對(duì)不起，密碼輸入嚴(yán)重錯(cuò)誤，請(qǐng)退出！’,mtInformation,[mbOk],0)。 。 end。end。end。end。為了防止用戶多次重輸密碼，限制了輸入了次數(shù)為3次，因此需要對(duì)次數(shù)進(jìn)行初始化，活加代碼如下：Procedure (Sender:TObject)。Begin Times:=0。End。 成績(jī)管理的代碼實(shí)現(xiàn)當(dāng)管理員選擇了一位學(xué)生后，輸入各科成績(jī)，程序把數(shù)據(jù)保存到數(shù)據(jù)庫(kù)。代碼如下：Procedure (Sender:TObject)。//“添加”按鈕的單擊事件var StuNo,StuName:string。 i:integer。begin with Query do begin close。 。 (‘Select StuNo from Score Whers StuNo=’+’’’’++’’’’)。 Open。 if recordcount=0 then begin StuNo:=。 StuName:=。 for i:=l to 12 do begin if Course[i]’0’then with Table5 do begin Open。 Append。 SetFields([nil,StuNo,kStuName,Course[i],Score[i]])。 Post。 end。end。end else MessageDlg(‘對(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:=。
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1