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