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

　　

【正文】 ion 查詢(xún) Button2 Caption 返回 Dbgrid1 Datasource Datasource1 Radiogroup1 Caption 請(qǐng)選擇查詢(xún)方式 Items 按學(xué)號(hào) 按姓名 按性別 按專(zhuān)業(yè) 按班級(jí) 主要代碼如下： procedure (Sender: TObject)。 begin if 1 then begin case of 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 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。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 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。 下圖為選課管理界面，其屬性設(shè)置與主界面屬性設(shè)置基本類(lèi)似。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 30 圖 413 學(xué)生選課管理界面設(shè)計(jì)窗口 其中上圖的 “ 學(xué)生選課 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 。 end。 上圖的 “ 選課查詢(xún) ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 。 end。 （ 1） 單擊上圖的 “ 學(xué)生選課 ” 按鈕，會(huì)觸發(fā)下圖所示的學(xué)生選課的界面。 圖 414 學(xué)生選課界面設(shè)計(jì)窗口 其主要代碼如下： procedure (Sender: TObject)。 begin showmessage(39。所填信息不能全部為空 39。)。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 31 。 :=true。 :=false。 end。 procedure (Sender: TObject)。 begin 。 :=true。 :=false。 end。 procedure (Sender: TObject)。 begin 。 end。 （ 2） 單擊 “ 選課管理 ” 界面上的 “ 選課查詢(xún) ” 按鈕，就會(huì)觸發(fā) “ 選課查詢(xún) ” 界面。 圖 415 學(xué)生選課查詢(xún)界面設(shè)計(jì)窗口 其主要代碼如下： 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。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 32 procedure (Sender: TObject)。 begin 。 end。 下圖所示為 “ 成績(jī)管理 ” 界面，其屬性設(shè)置與主界面的屬性設(shè)置類(lèi)似。 圖 416 成績(jī)管理界面設(shè)計(jì)窗口 上圖中， “ 成績(jī)錄入 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 上圖中， “成績(jī)查詢(xún) ”按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 （ 1）單擊上圖中的 “ 成績(jī)錄入 ” 按鈕，就會(huì)觸發(fā) “ 成績(jī)錄入界面 ” 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 33 圖 417 成績(jī)錄入界面設(shè)計(jì)窗口 其主要代碼如下： 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。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 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）單擊 “ 成績(jī)管理 ” 界面上的 “ 成績(jī)查詢(xún) ” 按鈕，就會(huì)觸發(fā) “ 成績(jī)查詢(xún) ” 界面。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 35 圖 418 成績(jī)查詢(xún)界面設(shè)計(jì)窗口 其主要代碼如下： 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。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 36 :=true。:=false。 end。 1:begin :=39。39。 :=false。:=true。 end。 end。 end。 end。 下圖所示為 “ 班級(jí)信息 ” 管理的界面，其屬性設(shè)置與主界面的屬性設(shè)置是類(lèi)似的。 圖 419 班級(jí)信息管理界面設(shè)計(jì)窗口 上圖中， “ 班級(jí)信息編輯 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 上圖中， “ 班級(jí)信息編輯 ” 按鈕的 onclick 代碼如下： procedure (Sender: TObject)。 begin 。 end。 （ 1） 單擊上圖中的 “ 班級(jí)信息編輯 ” 按鈕，就會(huì)觸發(fā) “ 班級(jí)信息編輯 ” 界面。 南京郵電大學(xué) 20xx 屆本科生畢業(yè)設(shè)計(jì)（論文） 37 圖 420 班級(jí)信息編輯界面設(shè)計(jì)窗口 其主要代碼如下： 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