【導讀】隨著高校規(guī)模的不斷擴大，學生數(shù)量急劇增加，有關學生的各種信息量也成倍增長，龐大學生信息的管理工作成了高校教學管理工作中的一項重要任務。一方面，假如遵從。以往舊式的工作方式，該工作的工作量大，管理繁瑣，既耗人力，又耗物力；另一方面，因此開發(fā)一套對學生信息進行管理的軟件是極其重要的，而且是必需的，通。WindowsXP平臺下以access為數(shù)據(jù)庫及Delphi20xx為設計工具，采用Delphi20xx設計。此系統(tǒng)不僅實現(xiàn)了學生對個人基本信息的修改、查詢以及專。業(yè)選課和成績管理等，還實現(xiàn)了教務員對學生所選課程的排課組班功能。選課、排課的一體化。簡潔的操作方法與人性化的界面設計讓任何非計算機專業(yè)的管理。KeyWords：Delphi；Access；Register；CourseElection；ScoresManagement

　　

【正文】 ion 查詢 Button2 Caption 返回 Dbgrid1 Datasource Datasource1 Radiogroup1 Caption 請選擇查詢方式 Items 按學號 按姓名 按性別 按專業(yè) 按班級 主要代碼如下： procedure (Sender: TObject)。 begin if 1 then begin case of 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 28 0:begin :=false。 :=39。Number=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 1:begin :=false。 :=39。Names=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 2:begin :=false。 :=39。Sex=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 3:begin :=false。 :=39。Speciality=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 4:begin :=false。 :=39。Class=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 end。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if 1 then begin case of 0:begin :=39。39。:=39。39。:=39。39。:=39。39。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 29 :=true。:=false。:=false。:=false。edit:=false。 end。 1:begin :=39。39。:=39。39。:=39。39。:=39。39。 :=false。:=true。:=false。:=false。edit:=false。 end。 2:begin :=39。39。:=39。39。:=39。39。:=39。39。 :=false。:=false。:=true。:=false。edit:=false。 end。 3:begin :=39。39。:=39。39。:=39。39。:=39。39。 :=false。:=false。:=false。:=true。edit:=false。 end。 4:begin :=39。39。:=39。39。:=39。39。:=39。39。 :=false。:=false。:=false。:=false。edi:=true。 end。 end。 end。 end。 下圖為選課管理界面，其屬性設置與主界面屬性設置基本類似。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 30 圖 413 學生選課管理界面設計窗口 其中上圖的 “ 學生選課 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 。 end。 上圖的 “ 選課查詢 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 。 end。 （ 1） 單擊上圖的 “ 學生選課 ” 按鈕，會觸發(fā)下圖所示的學生選課的界面。 圖 414 學生選課界面設計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin showmessage(39。所填信息不能全部為空 39。)。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 31 。 :=true。 :=false。 end。 procedure (Sender: TObject)。 begin 。 :=true。 :=false。 end。 procedure (Sender: TObject)。 begin 。 end。 （ 2） 單擊 “ 選課管理 ” 界面上的 “ 選課查詢 ” 按鈕，就會觸發(fā) “ 選課查詢 ” 界面。 圖 415 學生選課查詢界面設計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin if 1 then begin case of 0:begin :=false。 :=39。Number=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 end。 end。 end。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 32 procedure (Sender: TObject)。 begin 。 end。 下圖所示為 “ 成績管理 ” 界面，其屬性設置與主界面的屬性設置類似。 圖 416 成績管理界面設計窗口 上圖中， “ 成績錄入 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 上圖中， “成績查詢 ”按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 （ 1）單擊上圖中的 “ 成績錄入 ” 按鈕，就會觸發(fā) “ 成績錄入界面 ” 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 33 圖 417 成績錄入界面設計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin 。 if then showmessage(39。到第一條記錄啦 !39。)。 end。 procedure (Sender: TObject)。 begin 。 if then showmessage(39。到最后一條記錄啦 !39。)。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin showmessage(39。所填信息不能全部為空 39。)。 。 :=true。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 34 :=false。 end。 procedure (Sender: TObject)。 begin 。 :=true。 :=false。 :=true。 end。 procedure (Sender: TObject)。 begin 。 :=true。 :=false。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 （ 2）單擊 “ 成績管理 ” 界面上的 “ 成績查詢 ” 按鈕，就會觸發(fā) “ 成績查詢 ” 界面。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 35 圖 418 成績查詢界面設計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin if 1 then begin case of 0:begin :=false。 :=39。Number=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 1:begin :=false。 :=39。Names=39。+39。39。39。39。++39。39。39。39。 :=true。 end。 end。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if 1 then begin case of 0:begin :=39。39。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 36 :=true。:=false。 end。 1:begin :=39。39。 :=false。:=true。 end。 end。 end。 end。 下圖所示為 “ 班級信息 ” 管理的界面，其屬性設置與主界面的屬性設置是類似的。 圖 419 班級信息管理界面設計窗口 上圖中， “ 班級信息編輯 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 上圖中， “ 班級信息編輯 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 （ 1） 單擊上圖中的 “ 班級信息編輯 ” 按鈕，就會觸發(fā) “ 班級信息編輯 ” 界面。 南京郵電大學 20xx 屆本科生畢業(yè)設計（論文） 37 圖 420 班級信息編輯界面設計窗口 其主要代碼如下： procedure (Sender: TObject)。 begin 。 if then showmessage(39。到第一條記錄啦 !39。)。 end。 procedure (Sender: TObject)。 begin 。 if then showmessage(39。到最后一條記錄啦 !39。)。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 en