【文章內容簡介】 圖 26 完成后端數(shù)據(jù)庫創(chuàng)建工作 界 面 設 計 以上內容完成了數(shù)據(jù)庫的后臺工作，建立起了能夠保障系統(tǒng)順利、正確運行的后臺。界面設計工作在進行系統(tǒng)開發(fā)的時候是必不可少，也是十分重要的。下面就對學生管理信息系統(tǒng)的界面設計。 用戶登錄界面設計 利用 用戶登錄成功能實現(xiàn)對用戶操作權限的限制。管理員和學生的權限不一樣，管理員擁有系統(tǒng)的所有權限，學生只有查詢修改個人信息和打印成績單的權限。用戶必須輸入正確的密碼才能進入下一界面，如果用戶的密碼輸入錯誤，應用程序會提示錯誤信息。用戶如果連續(xù) 3 次輸入錯誤，應用程序會強迫使用者退出并終止應用程序的運行，圖 27 所示是用戶登錄界面窗體。 學生管理信息系統(tǒng)主界面設計 學生管理信息系統(tǒng)主界面主要實現(xiàn)新生信息錄入、成績管理、學籍變更、處罰管理、獎勵管理和查詢修改的功能。選擇該界面中工具欄中的不同按鈕，就會進入 實現(xiàn)不同功能的窗體。圖 28 是圖書館理系統(tǒng)主界面窗體。 圖 27 用戶登錄界面窗體 圖 28 學生管理信息系統(tǒng)主界面窗體 這里主要介紹與數(shù)據(jù)庫相關的組件的屬性，如表 11 所示。 表 11 學生管理信息系統(tǒng)主界面中數(shù)據(jù)庫組件的屬性設置 組 件 屬 性 屬 性 值 Table1 DatebaseName Student TableName Stulnfo Table2 DatebaseName Student TableName Change Table3 DatebaseName Student TableName Encourage Table4 DatebaseName Student TableNsam Punish Table5 DatebasdeName Student TableName Score Query1 DatebaseName Student Query2 DatebaseName Student Query3 DatebaseName Student Query4 DatebaseName Student Query5 DatebaseName Student DataSource1 DataSet Table1 DataSource2 DataSet Query2 DataSource3 DataSet Query3 DataSource4 DataSet Query4 DataSource5 DataSet Table5 DataSource6 DataSet Query5 新生信息錄入界面設計 新生信息錄入界面主要實現(xiàn)學生信息的添加功能，包括學號、性別、出生日期、籍貫、姓名、班級、所屬院系等信息的添加，圖 29 是新生信息錄入界面窗體。 圖 29 新生信息錄入界面窗體 成績管理界面設計 成績管理界面主要實現(xiàn)成績的添加和校對修改的功能，圖 30 是成績管理界面窗體。 圖 30 成績管理界面窗體 學籍變更界面設計 學 籍變更界面是實現(xiàn)學生學籍變更的功能，圖 31 是學籍變更界面窗體。 圖 31 學籍變更界面窗體 獎勵管理界面設計 當學生在校表現(xiàn)優(yōu)秀，學校應該獎勵該學生，以鼓勵大家的學習熱情。獎勵管理界面用于實現(xiàn)學生獎勵的功能。相應的獎項有校特等獎、校一等校、校二等校、校三等校、工作獎等，用戶可以根據(jù)實際情況進行設計。圖 32 是獎勵管理界面窗體。 圖 32 獎勵管理界面窗體 處罰管理界面設計 當學生在校的表現(xiàn)差，學校應該處罰該學生。處罰管理界面就是實現(xiàn)學生處罰的功能。相應的處罰項有警告、記過、開除等， 用戶可以根據(jù)實際情況進行設計。圖 33 是處罰管理界面窗體。 圖 33 處罰管理界面窗體 查詢修改界面設計 學生可以根據(jù)自己的學號在查詢修改界面中查詢自己的個人信息，包括基本信息、個人成績、學籍變更情況、獎勵和處罰情況。如果發(fā)現(xiàn)基本信息有錯誤的話，有權進行修改，而且學生有權打印自己的成績單。圖 934 是查詢修改界面窗體。 圖 34 查詢修改界面 代 碼 分 析 與 實 現(xiàn) 上面對程序界面設計進行了詳細的 設計 ，基本完成了程序界面的設計工作。程序代碼是程序的核心所在，是系統(tǒng)開發(fā)的靈魂。下面對 系統(tǒng)的代碼做具體的分析。 用戶登錄的代碼實現(xiàn) 學生管理信息系統(tǒng)啟動時，首先出現(xiàn)的是系統(tǒng)主界面。單擊系統(tǒng)主界面中工具欄的“用戶登錄”按鈕，就彈出用戶登錄界面。程序從配置文件中獲取管理員和學生的密碼，和用戶輸入的密碼比較，如果密碼正確，則根據(jù)身份配權限；如果不正確，則提示用戶重輸或退出：重輸 3 次以上，系統(tǒ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。 end else begin if MessageDlg(‘ 密 碼 輸 入 錯 誤 ， 是 否 退 出 ？ ’ ，mtContirmation,[mbYes,mbNo],0)=mryes then begin close。 :=True。 end else begin if times3 then else begin MessageDlg(‘ 對不起，密碼輸入嚴重錯誤，請退出 ！ ’,mtInformation,[mbOk],0)。 。 end。 end。 end。 end。 為了防止用戶多次重輸密碼，限制了輸入了次數(shù)為 3 次，因此需要對次數(shù)進行初始化，活加代碼如下： Procedure (Sender:TObject)。 Begin Times:=0。 End。 成績管理的代碼實現(xiàn) 當管理員選擇了一位學生后，輸入各科成績，程序把數(shù)據(jù)保存到數(shù)據(jù)庫。代碼如下： 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(‘對不起，該記錄已經(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: 外罰管理的代碼和獎勵管理的代碼類似，這里不 再 述 。 查詢 /修改的代碼實現(xiàn) 當學生根據(jù)自己的學號查詢了自己的信息，