【導讀】它是一個教育單位不可缺少的部分,它的內(nèi)容對于學校的決。功能基本符合根據(jù)張波爾老師的要求。捷的途徑去管理這些繁瑣的數(shù)據(jù)。每年的大量新生入學，老生畢業(yè)都需要處理大量的學生信息。過這一模塊，可以實現(xiàn)學生基本情況的添加、刪除、更新。查詢班級的所在系別，輔導員等。及單科最高最低成績以及個人成績。化，為學生成績的管理方面提高工作效率。因為本系統(tǒng)是供多人一起使用的，必須對某一些人進行限制。置了管理員，非管理員只能進行查詢操作，不能進行更改。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義。另外，Access允許創(chuàng)建自定義報表用于打。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的。庫，一般的學校教務系統(tǒng)的數(shù)據(jù)庫用Access來設計完全能達到要求。ADO設計為一種極簡單的格式，通過ODBC的方法同數(shù)據(jù)。ADO是基于OLE-DB之上的技術(shù)，因此ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，另外根據(jù)學校人員規(guī)模，成績計算，輸錄，

　　

【正文】 。39。 :=39。39。 :=39。39。 。 。 :=true。 end。 :=39。學號 39。 :=39。姓名 39。 :=39。班級 39。 :=39。學號 39。 :=39。姓名 39。 :=39。課程號 39。 :=39。課程名 39。 :=39。成績 39。 end。 （ 2）成績查詢 procedure (Sender: TObject)。 var i:boolean。 begin i:=false。 。 。 (39。select * from pjcj where 39。++39。39。)。 。 （根據(jù) SQL 進查詢） 。 if not then i:=true。 if i then begin 。 。 (39。select * from dkcj where 學號 =39。+39。39。39。39。+[39。學號 39。]+39。39。39。39。)。 。 。 :=false。 end else begin showmessage(39。沒有符合查詢條件的記錄 !!39。)。 :=39。39。 （當沒有符合條件的記錄，自動 :=39。39。 清空選擇框里的查詢條件） :=39。39。 :=39。39。 :=39。39。 。 。 :=true。 end。 end。 procedure (Column: TColumn)。 var str:string。 begin str:=[39。學號 39。]。 。 。 (39。select * from dkcj where 學號 =39。+39。39。39。39。+str+39。39。39。39。)。 。 。 end。 procedure (Sender: TObject)。 （管理界面的切換） begin 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin if =39。平均成績 39。 then （根據(jù)平均成績查詢） begin :=+。 end else begin :=+39。 :=+。 :=+39。 end。 end。 procedure (Sender: TObject)。 begin （本段為對查詢條件的刷新，進 :=39。39。 行不同條件的輸入） :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 。 :=false。 :=true。 end。 班級管理模塊 （ 1）班級管理 procedure (Sender: TObject)。 begin 。 。 (39。select * from class where 系名 = 39。+39。39。39。39。++39。39。39。39。)。 。 。 （根據(jù)系別顯示班級信息） :=39。系名 39。 （這五項為表的數(shù)據(jù)項名） :=39。班級 39。 :=39。輔導員 39。 :=39。班長 39。 :=39。專業(yè) 39。 :=true。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject)。 （記錄的刪除操作）《修改與添加操作與這類似》 begin if =39。刪除 39。 then begin :=39。確定 39。 :=false。 :=false。 :=true。 end （ 2）班級查詢 procedure (Sender: TObject)。 begin if then begin 。 。 (39。select * from class where 班級 = 39。+39。39。39。39。++39。39。39。39。)。 。 。 end。 if then begin 。 。 (39。select * from class where 專業(yè) = 39。+39。39。39。39。++39。39。39。39。)。 。 。 end。 if [39。系名 39。]39。39。 then begin 。 。 (39。select * from xi where 系名 = 39。+39。39。39。39。+[39。系名 39。]+39。39。39。39。)。 。 。 end。 學籍管理模塊 （ 1）學籍管理 procedure (Sender: TObject)。 begin 。 。 (39。select * from xi39。)。 。 。 。 。 (39。select * from class where 系名 = 39。+39。39。39。39。++39。39。39。39。)。 。 。 。 。 (39。select * from student where 班級 = 39。+39。39。39。39。+[39。班級 39。]+39。39。39。39。)。 （根據(jù)班級條件列出該班學生學籍情況） 。 。 :=39。學號 39。 （表的數(shù)據(jù)項，以及學生學籍信息） :=39。班級 39。 :=39。姓名 39。 :=39。出生年月 39。 :=39。籍貫 39。 :=39。聯(lián)系電話 39。 :=39。聯(lián)系地址 39。 :=39。性別 39。 while not do begin ([39。系 名 39。])。 。 end。 （ 2）學籍查詢 procedure (Sender: TObject)。 var tf:boolean。 begin tf:=false。 。 。 (39。select * from student 39。)。 if or or or then (39。where39。)。 if then begin (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 。 。 end。 (4)課程管理部分的代碼： 選課管理： begin ([39。 系名 39。])。 //ComboBox1 連到系表的 系名 字段 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from class where 系名=39。+39。39。39。39。++39。39。39。39。)。//查詢系名是否符合 。 。 while not do begin ([39。班級 39。])。//符合就調(diào)用班級表的字段 班級 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級=39。+39。39。39。39。++39。39。39。39。)。//查詢課程表中字段 班級 是否符合，符合就調(diào)到 。 //DBgiid1 。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級=39。+39。39。39。39。++39。39。39。 and 學期 =39。+39。39。39。39。++39。39。39。39。)。 //判斷學期是否符合 。 。 end。 procedure (Sender: TObject)。 begin while not do begin if ([39。課程號 39。]=[39。課程號 39。]) and ([39。 班級 39。]=) and ([39。學期 39。]=) then break。 。 end。 if then begin 。 //把選課內(nèi)容添加到選課表中。 [39。課程號 39。]:=[39。課程號 39。]。 [39。班級 39。]:=。 [39。課程名 39。]:=[39。課程名 39。]。 [39。學期 39。]:=。 。 end else begin showmessage(39。本課程此班級已經(jīng)選過 39。)。 //如果已經(jīng)選過，彈出對話框“本課程此班級已經(jīng)選過” end。 end。 procedure (Sender: TObject)。 begin if not then 。 end。 end. 課程管理 : procedure (Sender: TObject)。 begin 。 //關(guān)閉數(shù)據(jù)庫 。 //清空 (39。select * from kechengbiao39。)。 。 。 :=39。課程號 39。 :=39。課程名 39。 :=39。課時 39。 :=39。學分 39。 //:=39。學期 39。 :=39。類型 39。 end。 procedure (Sender: TObject)。 begin if =39。添加 39。 then begin 。 //添加到課程表 :=39。確定 39。 :=true。 :=false。 :=false。 end else if =39。確定 39。 then begin if =39。39。 then begin showmessage(39。請輸入課程號！ 39。)。 //如果課程號沒輸入 ,彈出對話框 end else begin 。 :=39。添加 39。 :=false。 :=true。 :=true。 end。 end。 end。 procedure (Sender: TObject)。 begin if then begin :=false。 :=false。 end。 if =39。刪除 39。 then begin :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 //從數(shù)據(jù)表中刪掉所選記錄 :=39。刪除 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin 。 :=39。添加 39。 :=39。刪除 39。 :=39。修改 39。 :=false。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject)。 begin if =39。修改 39。 then begin 。 //修改課程表中的記錄 :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 :=39。修改 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin form11:=(application)。 。 end。 end. 課程查詢部分： procedure (Sender: TObject)。 begin :=39。39。 :=false。 end。 procedure (Sender: TObject)。 begin if =true then begin 。 //先將數(shù)據(jù)庫關(guān)閉 。 //清空 ADOQuery1 內(nèi)的 SQL 值 清空 (39。select * from kecheng where 39。++39。 = 39。+39。39。39。39。++39。39。39。 and 學期 = 39。+39。39。39。39。++39。39。39。39。)。