【正文】 bject)。)。++39。+39。++39。+39。 begin 。//查詢課程表中字段 班級(jí) 是否符合，符合就調(diào)到 。39。39。 。 end。 while not do begin ([39。39。39。select * from class where 系名=39。 procedure (Sender: TObject)。])。 n： 1 n： 1 單科成績 學(xué)號(hào) 課程名 成績 。 1： n 平均成績記錄 學(xué)號(hào) 姓名 成績 。 其主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少 。 數(shù)據(jù)庫訪問方式 ： ADO ADO（ Active Data Objects）實(shí)際是一種提供訪問各種數(shù)據(jù)類型 的連接機(jī)制。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文 件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。 數(shù)據(jù)庫 ： Microsoft Access Access 是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。 (5)系統(tǒng)管理 因?yàn)楸鞠到y(tǒng)是供多人一起使用的，必須對(duì)某一些人進(jìn)行限制。 該項(xiàng)管理對(duì)課程的屬性進(jìn)行了具體化的分類，比如可以分辨是考試科還是考察課，而且根據(jù)條件的選擇大大得提高了對(duì)各學(xué)期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作 效率的提高。還能查詢各個(gè)學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號(hào)等各個(gè)消息 (2) 班級(jí)信息管理 實(shí)現(xiàn)班級(jí)的添加、刪除、更新。功能基本符合根據(jù)張波爾老師的要求。// 把 查 詢 到 的 數(shù) 據(jù) 放 在DBGrid 上顯示出來 end。 begin :=true。 begin 。 begin 。 begin 。 begin 。 begin //開啟其他管理界面 。 。39。39。++39。 end else begin 。39。39。 and 學(xué)期 = 39。39。 = 39。 //先將數(shù)據(jù)庫關(guān)閉 。 :=false。 end。 end。 :=false。 :=false。 //修改課程表中的記錄 :=39。 procedure (Sender: TObject)。 :=true。刪除 39。 begin 。 :=true。 //從數(shù)據(jù)表中刪掉所選記錄 :=39。 :=true。 if =39。 procedure (Sender: TObject)。 :=true。 :=39。 then begin showmessage(39。 end else if =39。確定 39。 begin if =39。 :=39。 :=39。 :=39。 。 //關(guān)閉數(shù)據(jù)庫 。 begin if not then 。)。]:=。課程名 39。]:=。課程號(hào) 39。 //把選課內(nèi)容添加到選課表中。]=) then break。]) and ([39。 begin while not do begin if ([39。 //判斷學(xué)期是否符合 。39。39。39。39。 。 //DBgiid1 。39。39。 (39。 end。班級(jí) 39。)。++39。+39。 begin 。 //ComboBox1 連到系表的 系名 字段 。 end。 tf:=true。39。39。39。 if then begin if tf then (39。39。39。=39。)。 tf:=true。39。39。39。 if then begin if tf then (39。39。39。=39。)。select * from student 39。 begin tf:=false。 。性別 39。聯(lián)系電話 39。出生年月 39。班級(jí) 39。 。39。+[39。+39。 。39。39。select * from class where 系名 = 39。 。 (39。 end。39。系名 39。39。 。系名 39。 。39。39。 。 。39。39。 。 :=false。刪除 39。 :=true。專業(yè) 39。輔導(dǎo)員 39。系名 39。)。++39。+39。 begin 。 :=false。 :=39。 :=39。 begin （本段為對(duì)查詢條件的刷新，進(jìn) :=39。 :=+39。平均成績 39。 。 。 。39。39。 (39。學(xué)號(hào) 39。 end。 。 :=39。 （當(dāng)沒有符合條件的記錄，自動(dòng) :=39。沒有符合查詢條件的記錄 !!39。 。39。39。select * from dkcj where 學(xué)號(hào) =39。 if not then i:=true。39。 。 （ 2）成績查詢 procedure (Sender: TObject)。課程名 39。姓名 39。班級(jí) 39。學(xué)號(hào) 39。 。39。39。)。 。39。+[39。+39。 if i then begin 。)。 (39。 var i:boolean。還從張老師身上學(xué)到了很多東西。但由于時(shí)間關(guān)系和其它原因，本系統(tǒng)還有些不足之處， 如本系統(tǒng)沒有實(shí)現(xiàn)報(bào)表打印的功能等等， 還有待于完善。 管理員登陸點(diǎn)系統(tǒng)，點(diǎn)系統(tǒng)，輸入管理員用戶及密碼，跟數(shù)據(jù)庫的用戶表比較。// 把 查 詢 到 的 數(shù) 據(jù) 放 在DBGrid 上顯示出來 end。 begin :=true。 begin 。 begin 。 begin 。 begin 。 begin //開啟其他管理界面 。 。39。39。++39。 end else begin 。39。39。 and 學(xué)期 = 39。39。 = 39。 //先將數(shù)據(jù)庫關(guān)閉 。 :=false。 end。 end。 :=false。 :=false。 //修改課程表中的記錄 :=39。 procedure (Sender: TObject)。 :=true。刪除 39。 begin 。 :=true。 //從數(shù)據(jù)表中刪掉所選記錄 :=39。 :=true。 if =39。 procedure (Sender: TObject)。 :=true。 :=39。 then begin showmessage(39。 end else if =39。確定 39。 begin if =39。 :=39。 :=39。 :=39。 。 //關(guān)閉數(shù)據(jù)庫 。 begin if not then 。)。]:=。課程名 39。]:=。課程號(hào) 39。 //把選課內(nèi)容添加到選課表中。]=) then break。]) and ([39。 begin while not do begin if ([39。 //判斷學(xué)期是否符合 。39。39。39。39。 。 //DBgiid1 。39。39。 (39。 end。班級(jí) 39。)。++39。+39。 begin 。 //ComboBox1 連到系表的 系名 字段 。 班級(jí)名 所屬系別 。 ADO 是基于 OLEDB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。由于考慮到本系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上，只建立起一個(gè)數(shù)據(jù)庫。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。采用 Delphi 來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有更大的靈活性和可擴(kuò)展性。把成績統(tǒng)計(jì)這個(gè)繁瑣的工作簡單化，為學(xué)生成績的管理方面提高工作效率?？梢愿鶕?jù) 學(xué)期條件或者班級(jí)條件的選擇，也可根據(jù)課程名、課程號(hào)或者班級(jí)的選擇，并對(duì)值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)教工的修改要求進(jìn)行數(shù)據(jù)的添加、刪除、修改的操作。通過這一模塊，可以 實(shí)現(xiàn)學(xué)生基本情況的添加、刪除、更新。能有效的幫助學(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績跟課程方面的查詢。它是一個(gè)教育單位不可缺少的部分 ,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說 都至關(guān)重要 ,它能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍? 具體系統(tǒng)功能需求描述如下： (1) 學(xué)籍信息管理 每年的大量新生入學(xué)，老生畢業(yè)都需要處理大量的學(xué)生信息。 (3)課程信息管理 每個(gè)學(xué)期都會(huì)增加一些新的科目，通過本模塊可以輕松的添加以及更新課程。還能查詢到平均成績以及單科最高最低成績以及個(gè)人成績。 三、學(xué)校學(xué)生管理信息系統(tǒng)的分析和設(shè)計(jì) （ 1）開發(fā)環(huán)境的簡介 設(shè)計(jì)平臺(tái)： Delphi 是一個(gè)對(duì)象導(dǎo)向設(shè)計(jì)的應(yīng)用程序語言，是開發(fā)數(shù)據(jù)庫前端的優(yōu)秀工具，它的編程語言簡潔明快、組件功能強(qiáng)大和編程環(huán)境靈活方便。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 Access 多用于中小型企業(yè)來設(shè)計(jì)中小型數(shù)據(jù)庫，一般的學(xué)校教務(wù)系統(tǒng)的數(shù)據(jù)庫用 Access 來設(shè)計(jì)完全能達(dá)到要求?？梢允褂萌魏我环N ODBC 數(shù)據(jù)源，即不止適合于 SQL Server、Oracle、 Access 等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。 1： n 學(xué)籍記錄 學(xué)號(hào) 姓名 籍貫 。 N:N 課程信息 課程號(hào) 課程名 班級(jí) 。 姓名 文本 否 無 性別 文本 否 無 出生年月 日期 否 無 籍貫 文本 否 無 聯(lián)系電話 文本 是 無 聯(lián)系地址 文本 是 無 班級(jí)情況表： 系名 文本 否 外關(guān)鍵字 班級(jí) 文本 否 關(guān)鍵字 主要教室 文本 是 無 輔導(dǎo)員 文本 是 無 系名 文本 否 外關(guān)鍵字 班級(jí) 文本 否 關(guān)鍵字 系表： 系名 文本 否 關(guān)鍵字 系辦公室 文本 是 無 聯(lián)系電話 文本 是 無 課程表： 課程號(hào) 文本 否 關(guān)鍵字 課程名 文本 否 無 班級(jí) 文本 是 外關(guān)鍵字 類別 文本 是 無 平均成績表： 班級(jí) 文本 否 外關(guān)鍵字 學(xué)號(hào) 文本 否 關(guān)鍵字 姓名 文本 是 無 平均成績 長整型 是 無 單科成績表： 學(xué)號(hào) 文本 否 關(guān)鍵字 姓名 文本 否 無 課程號(hào) 文本 否 外關(guān)鍵字 課程名 文本 否 無 成績 長整型 是 無 班級(jí)選課表： 班級(jí) 文本 否 組合關(guān)鍵字 課程號(hào) 文本 否 組合關(guān)鍵字 課程名 文本 是 無 學(xué)期 文本 否 組合關(guān)鍵字 (6)課程管理部分的代碼 ： 選課管理： begin ([39。 end。 。39。39。//查詢系名是否符合 。])。 procedure (Sender: TObject)。select * from kecheng where 班級(jí)=39。39。39。 end。 (39。39。39。39。39。 。課程號(hào) 39。 班級(jí) 39。 。 [39。]。 [39。]。 。 //如果已經(jīng)選過，彈出對(duì)話框“本課程此班級(jí)已經(jīng)選過” end。 end。 //清空 (39。 。課程名 39。學(xué)分 39。類型 39。添加 39。 :=true。確定 39。請(qǐng)輸入課程號(hào)！ 39。添加 39。 end。 begin if then begin :=false。刪除 39。 :=false。刪除 39。 end。 :=39。 :=39。 :=true。 begin if =39。確定 39。 end else begin 。 :=true。 procedure (Sender: TObject)。 end. 課程查詢部分： procedure (Sender: TObject)。 end。 //清空 ADOQuery1 內(nèi)的 SQL 值清空 (39。+39。++39。+39。++39。)。 。 = 39。39。39。 end。 。 。 。 。 end。 //當(dāng)輸入條件后，“確定”按鈕為有效狀態(tài) end。 end. 四、學(xué)校學(xué)生管理信息系統(tǒng)的使用說明 本系統(tǒng)分為學(xué)生用戶和管理用戶，如果你不是管理員，那只能進(jìn)行查詢，對(duì)數(shù)據(jù)沒有修改權(quán)力。如果通過 則能進(jìn)行課程，學(xué)籍，成績，班級(jí)的管理。 在張波爾老師的指導(dǎo)下，經(jīng)過一 段時(shí)間的討論和上機(jī)的不斷調(diào)試，我順利的完成了開發(fā)任務(wù)。張老師認(rèn)真負(fù)責(zé)的態(tài)度嚴(yán)謹(jǐn)治治學(xué)精神都使我收益非淺。