【正文】 begin i:=false。select * from pjcj where 39。 。 。39。 學(xué)號(hào) 39。39。 :=false。 （如果沒(méi)有符合條 :=39。 件的，顯示該語(yǔ)句） :=39。 :=39。 :=true。 :=39。 :=39。 :=39。 :=39。 var i:boolean。 (39。)。 if i then begin 。+39。+[39。39。 。)。39。39。 。 procedure (Column: TColumn)。]。select * from dkcj where 學(xué)號(hào) =39。39。39。 end。 end。 end。 then （根據(jù)平均成績(jī)查詢） begin :=+。 end。39。39。39。 :=true。 。39。39。 。 （這五項(xiàng)為表的數(shù)據(jù)項(xiàng)名） :=39。 :=39。 :=true。 end。 then begin :=39。 :=true。 (39。39。39。 。 (39。39。39。 。]39。 (39。39。]+39。)。 學(xué)籍管理模塊 （ 1）學(xué)籍管理 procedure (Sender: TObject)。select * from xi39。 。+39。++39。)。 。39。班級(jí) 39。39。 :=39。 :=39。 :=39。 :=39。 while not do begin ([39。 end。 。)。 if then begin (39。+39。+ +39。)。and39。++39。39。39。 end。 (39。+39。+ +39。)。and39。++39。39。39。 end。 (4)課程管理部分的代碼： 選課管理： 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)選過(guò)，彈出對(duì)話框“本課程此班級(jí)已經(jīng)選過(guò)” 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é)生信息管理系統(tǒng) 一 課題名稱 學(xué)生管理信息系統(tǒng) 主要功能 ： 6． 學(xué)籍信息管理 7． 班級(jí)信息管理 8． 課程信息管理 9． 成績(jī)信息管理 10． 系統(tǒng)管理 二、學(xué)校學(xué)生管理信息系統(tǒng)的簡(jiǎn)介 學(xué)校學(xué)生管理信息系統(tǒng)是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開(kāi)發(fā)的管理軟件，是典型的管理信息系統(tǒng)（ Management Information System）。 學(xué)生用戶通過(guò)輸入學(xué)生基本信息、課程基本信息等 ,由系統(tǒng)自行生成相應(yīng)的數(shù)據(jù)以供學(xué)生查詢 ,另外人事處的管理用戶還可以對(duì)這些基本信息進(jìn)行更新和刪除 , 學(xué)校學(xué)生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。查詢班級(jí)的所在系別，輔導(dǎo)員等。 (4)成績(jī)信息管理 本模塊實(shí)現(xiàn)了成績(jī)的輸入、刪除、更新。于是設(shè)置了管理員，非管理員只能進(jìn)行查詢操作，不能進(jìn)行更改。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 ADO 設(shè)計(jì)為一種極簡(jiǎn)單的格式，通過(guò) ODBC 的方法同數(shù)據(jù)庫(kù)接口。 （ 2）學(xué)校學(xué)生管理信息系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 由于考慮到本系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上，另外根據(jù)學(xué)校人員規(guī)模，我只建立起一個(gè)數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起如下八個(gè)基本表： 學(xué)生：學(xué)號(hào)，姓名，出生年月，性別，籍 貫，聯(lián)系地址，聯(lián)系電話，班級(jí) 班級(jí)：系名，班級(jí)，主要教室，輔導(dǎo)員，班長(zhǎng) 系表：系名，系辦公室，聯(lián)系電話 課程表：課程號(hào)，課程號(hào)，班級(jí)，類別，學(xué)時(shí)，學(xué)名 平均成績(jī)表：班級(jí)，學(xué)號(hào)，姓名，平均成績(jī) 單科成績(jī)表：學(xué)號(hào)，姓名，課程表，課程名，成績(jī) 選課表：班級(jí)，課程號(hào)，學(xué)期 用戶名：用戶，密碼 (3)窗體設(shè)計(jì) ： 班級(jí)管理（ ） 班級(jí)查詢（ ） 學(xué)籍管理（ ） 學(xué)籍查詢（ ） 課程管理（ ） 課程查詢（ ） 成績(jī)管理（ ） 成績(jī)查詢（ ） (4)系統(tǒng)流程圖（ Data Flow Diagram） ： 學(xué)生信息管理系統(tǒng) 學(xué)籍管理 班級(jí)管理 成績(jī)管理 課程管理 系統(tǒng)管理 學(xué)籍查詢 學(xué)籍更新 班級(jí)查詢 班級(jí)更新 成績(jī)查詢 成績(jī)更新 課程查詢 課程更新 查詢條件 搜索學(xué)籍視圖 搜索班級(jí)視圖 搜索課程視圖 搜索成績(jī)視圖 輸出顯示 (5)數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) ： 更新條件 學(xué) 生信 息的 更新，刪除，添加 課程的變化，刪除，添加 班 級(jí)信 息的 更新，人數(shù)變化等 成績(jī)計(jì)算，輸錄，更改 系 統(tǒng)信 息的 更新，刪除，添加 學(xué)籍記錄 班級(jí)記錄 課程記錄 成績(jī)記錄 系統(tǒng)記錄 人數(shù)變化 課程變化 (6)數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 學(xué)生基本情況表： 字段名 數(shù) 據(jù) 類型 是否可空 說(shuō)明 班級(jí) 文本 否 外關(guān)鍵字 學(xué)號(hào) 文本 否 主關(guān)鍵字 系 1： n 班級(jí) 系名 。 系名 39。 end。 (39。39。39。 。//符合就調(diào)用班級(jí)表的字段 班級(jí) 。 begin 。+39。++39。)。 procedure (Sender: TObject)。select * from kecheng where 班級(jí)=39。39。 and 學(xué)期 =39。39。39。 end。]=[39。]=) and ([39。 end。課程號(hào) 39。 [39。課程名 39。 [39。 end else begin showmessage(39。 end。 end. 課程管理 : procedure (Sender: TObject)。select * from kechengbiao39。 :=39。 :=39。 //:=39。 end。 then begin 。 :=false。 then begin if =39。)。 :=false。 end。 :=false。 then begin :=39。 :=false。 :=false。 end。添加 39。修改 39。 :=true。修改 39。 :=true。 :=39。 :=true。 begin form11:=(application)。 begin :=39。 procedure (Sender: TObject)。select * from kecheng where 39。39。39。39。39。 //合并查詢，符合的話在DBGrid 中顯示出來(lái) 。 (39。+39。++39。)。 end。 end。 end。 end。 end。 procedure (Sender: TObject。 procedure (Sender: TObject)。只能進(jìn)行查詢，里面有各個(gè)方面的，如成績(jī)查詢，課程查詢，班級(jí)查詢，學(xué)籍查詢。 五、結(jié)束語(yǔ) 學(xué)生信息管理系統(tǒng)有利于學(xué)校對(duì)學(xué)生資料的查詢，具有可使用性和可維護(hù)性，利于學(xué)校在需要之時(shí)快速了解學(xué)生的情況。在開(kāi)發(fā)過(guò)程中，我不僅增強(qiáng)了自學(xué)的能力和開(kāi)發(fā)軟件的能力。在此我特向給了 很 多 指 導(dǎo)和 提 供我 們 開(kāi) 發(fā)小 組 寶貴 意 見(jiàn) 的 張波爾 老師 表示感謝！因?yàn)楸鞠到y(tǒng)所涉及的內(nèi)容非常廣泛并且比較復(fù)雜，加上時(shí)間的倉(cāng)促，盡管我竭盡全力來(lái)保證系統(tǒng)的可靠性，但是肯定還有不足之處，懇請(qǐng)用 戶批評(píng)指正。 。++39。 。 (39。39。]+39。)。 end else begin showmessage(39。39。39。39。 end。姓名 39。學(xué)號(hào) 39。課程號(hào) 39。成績(jī) 39。 begin i:=false。select * from pjcj where 39。 。 。39。學(xué)號(hào) 39。39。 :=false。 :=39。 清空選擇框里的查詢條件） :=39。 :=39。 :=true。 var str:string。 。+39。+str+39。)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 end else begin :=+39。 end。 行不同條件的輸入） :=39。 :=39。 。 end。 (39。39。39。 。班級(jí) 39。班長(zhǎng) 39。 :=true。 procedure (Sender: TObject)。確定 39。 end （ 2）班級(jí)查詢 procedure (Sender: TObject)。select * from class where 班級(jí) = 39。39。39。 end。select * from class where 專業(yè) = 39。39。39。 end。39。select * from xi where 系名 = 39。39。39。 。 begin 。)。 。39。39。 。 (39。39。]+39。)。學(xué)號(hào) 39。姓名 39。籍貫 39。聯(lián)系地址 39。系 名 39。 （ 2）學(xué)籍查詢 procedure (Sender: TObject)。 。 if or or or then (39。39。39。39。 tf:=true。)。=39。39。39。 if then begin if tf then (39。39。39。39。 tf:=true。)。=39。39。39。 。 系名 39。 end。 (39。39。39。 。//符合就調(diào)用班級(jí)表的字段 班級(jí) 。 begin 。+39。++39。)。 procedure (Sender: TObject)。select * from kecheng where 班級(jí)=39。39。 and 學(xué)期 =39。39。39。 end。]=[39。]=) and ([39。 end。課程號(hào) 39。 [39。課程名 39。 [39。 end else begin showmessage(39。 end。 end. 課程管理 : procedure (Sender: TObject)。select * from kechengbiao39。 :=39。 :=39。 //:=39。 end。 then begin 。 :=false。 then begin if =39。)。 :=false。 end。 :=false。 then begin :=39。 :=false。 :=false。 end。添加 39。修改 39。 :=true。修改 39。 :=true。 :=39。 :=true。 begin form11:=(application)。 begin :=39。 procedure (Sender: TObject)。select * from kecheng where 39。39。39。39。39。 //