【正文】 )。39。++39。39。+39。39。++39。39。+39。++39。 //清空 ADOQuery1 內(nèi)的 SQL 值 清空 (39。 begin if =true then begin 。 end。39。 end. 課程查詢部分： procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 end。 :=true。修改 39。 end else begin 。 :=false。確定 39。 then begin 。 begin if =39。 end。 :=true。 :=false。 :=39。 :=39。 :=39。 procedure (Sender: TObject)。 end。 :=true。刪除 39。 end else begin 。 :=false。確定 39。刪除 39。 end。 begin if then begin :=false。 end。 end。 :=true。添加 39。 //如果課程號(hào)沒輸入 ,彈出對(duì)話框 end else begin 。請(qǐng)輸入課程號(hào)！ 39。39。確定 39。 :=false。 :=true。 //添加到課程表 :=39。添加 39。 procedure (Sender: TObject)。類型 39。學(xué)期 39。學(xué)分 39。課時(shí) 39。課程名 39。課程號(hào) 39。 。)。 //清空 (39。 begin 。 end。 procedure (Sender: TObject)。 //如果已經(jīng)選過，彈出對(duì)話框“本課程此班級(jí)已經(jīng)選過” end。本課程此班級(jí)已經(jīng)選過 39。 。學(xué)期 39。]。]:=[39。 [39。班級(jí) 39。]。]:=[39。 [39。 if then begin 。 。學(xué)期 39。 班級(jí) 39。課程號(hào) 39。課程號(hào) 39。 procedure (Sender: TObject)。 。)。39。++39。39。+39。39。++39。39。+39。 (39。 begin 。 end。//查詢課程表中字段 班級(jí) 是否符合，符合就調(diào)到 。39。39。39。39。select * from kecheng where 班級(jí)=39。 。 procedure (Sender: TObject)。 end。])。 while not do begin ([39。//查詢系名是否符合 。39。39。39。39。select * from class where 系名=39。 。 procedure (Sender: TObject)。 end。])。 (4)課程管理部分的代碼： 選課管理： begin ([39。 。 end。)。39。+ +39。39。+39。++39。 (39。and39。 end。)。39。+ +39。39。+39。++39。 (39。and39。 end。)。39。+ +39。39。+39。++39。 (39。and39。 end。)。39。+ +39。39。+39。++39。 if then begin (39。where39。)。 (39。 。 var tf:boolean。 end。])。 while not do begin ([39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 （表的數(shù)據(jù)項(xiàng)，以及學(xué)生學(xué)籍信息） :=39。 :=39。 （根據(jù)班級(jí)條件列出該班學(xué)生學(xué)籍情況） 。39。39。班級(jí) 39。39。39。select * from student where 班級(jí) = 39。 。 。)。39。++39。39。+39。 (39。 。 。select * from xi39。 。 學(xué)籍管理模塊 （ 1）學(xué)籍管理 procedure (Sender: TObject)。 。)。39。]+39。+[39。39。+39。 (39。 then begin 。]39。 if [39。 。)。39。++39。39。+39。 (39。 if then begin 。 。)。39。++39。39。+39。 (39。 begin if then begin 。 :=true。 :=false。 then begin :=39。 （記錄的刪除操作）《修改與添加操作與這類似》 begin if =39。 end。 :=true。 :=true。 :=39。 :=39。 :=39。 （這五項(xiàng)為表的數(shù)據(jù)項(xiàng)名） :=39。 （根據(jù)系別顯示班級(jí)信息） :=39。 。39。39。39。39。select * from class where 系名 = 39。 。 班級(jí)管理模塊 （ 1）班級(jí)管理 procedure (Sender: TObject)。 :=true。 。39。39。39。39。39。 procedure (Sender: TObject)。 end。 :=+。 then （根據(jù)平均成績查詢） begin :=+。 begin if =39。 end。 begin 。 end。 （管理界面的切換） begin 。 end。 。39。39。39。39。select * from dkcj where 學(xué)號(hào) =39。 。]。 begin str:=[39。 procedure (Column: TColumn)。 end。 。39。39。39。39。39。)。 end else begin showmessage(39。 。)。39。]+39。+[39。39。+39。 (39。 if i then begin 。 （根據(jù) SQL 進(jìn)查詢） 。)。++39。 (39。 。 var i:boolean。 end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=true。 。 :=39。 :=39。 件的，顯示該語句） :=39。 :=39。 （如果沒有符合條 :=39。沒有符合查詢條件的記錄 !!39。 :=false。 （使用 SQL 進(jìn)行查詢） 。39。39。 學(xué)號(hào) 39。39。39。select * from dkcj where 學(xué)號(hào) =39。 。 if not then （ 判斷是否數(shù)據(jù)庫最后一項(xiàng)） i:=true。 。39。select * from pjcj where 39。 。 begin i:=false。謝謝 ! 參考文獻(xiàn) ：（ 1） Delphi6 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例子導(dǎo)航 人民郵電出版社 （ 2）程序設(shè)計(jì)從入門到精通 科學(xué)出版社 (3) 程序設(shè)計(jì)教程 冶金工業(yè)出版社 (4)Delphi 數(shù)據(jù)庫開發(fā)自學(xué)教程 人民郵電出版社 各模塊主要代碼 成績管理模塊 ⑴ 成績管理 procedure (Sender: TObject)。張老師認(rèn)真負(fù)責(zé)的態(tài)度嚴(yán)謹(jǐn)治治學(xué)精神都使我收益非淺。對(duì)一些軟件開發(fā)模式有了更加深刻的認(rèn)識(shí)，對(duì)應(yīng)用軟件的熟練程度有所提高，已經(jīng)能運(yùn)用這項(xiàng)開發(fā)過程，學(xué)會(huì)了如何進(jìn)行小組式的開發(fā)一個(gè)綜合系統(tǒng)。 在張波爾老師的指導(dǎo)下，經(jīng)過一 段時(shí)間的討論和上機(jī)的不斷調(diào)試，我順利的完成了開發(fā)任務(wù)。并可以讓具有最高權(quán)限的管理員更新、修改信息，已經(jīng)具備了一定的功能。如果通過 則能進(jìn)行課程，學(xué)籍，成績，班級(jí)的管理。 各個(gè)界面都簡(jiǎn)單明了，只要輸入你所需要的條件，系統(tǒng)自動(dòng)調(diào)出數(shù)據(jù)。 end. 四、學(xué)校學(xué)生管理信息系統(tǒng)的使用說明 本系統(tǒng)分為學(xué)生用戶和管理用戶，如果你不是管理員，那只能進(jìn)行查詢，對(duì)數(shù)據(jù)沒有修改權(quán)力。 begin :=。 //當(dāng)輸入條件后，“確定”按鈕為有效狀態(tài) end。 var Key: Char)。 end。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 end。//單個(gè)條件查詢 。39。39。39。39。 = 39。select * from kecheng where 39。 。 。)。39。++39。39。+39。39。++39。39。+39。++39。 //清空 ADOQuery1 內(nèi)的 SQL 值清空 (39。 begin if =true then begin 。 end。39。 end. 課程查詢部分： procedure (Sender: TObject)。 。 procedure (Sender: TObject)。 end。 :=true。修改 39。 end else begin 。 :=false。確定 39。 then begin 。 begin if =39。 end。 :=true。 :=false。 :=39。 :=39。 :=39。 procedure (Sender: TObject)。 end。 :=true。刪除 39。 end else begin 。 :=false。確定 39。刪除 39。 end。 begin if then begin :=false。 end。 end。 :=true。添加 39。 //如果課程號(hào)沒輸入 ,彈出對(duì)話框 end else begin 。請(qǐng)輸入課程號(hào)！ 39。39。確定 39。 :=false。 :=true。 //添加到課程表 :=39。添加 39。 procedure (Sender: TObject)。類型 39。學(xué)期 39。學(xué)分 39。課時(shí) 39。課程名 39。課程號(hào) 39。 。)。 //清空 (39。 begin 。 end。 procedure (Sender: TObject)。 //如果已經(jīng)選過，彈出對(duì)話框“本課程此班級(jí)已經(jīng)選過” end。本課程此班級(jí)已經(jīng)選 過 39。 。學(xué)期 39。]。]:=[39。 [39。班級(jí) 39。]。]:=[39。 [39。 if then begin 。 。學(xué)期 39。 班級(jí) 39。課程 號(hào) 39。課程號(hào) 39。 procedure (Sender: TObject)。 。)。39。++39。39。+39。39。++39。39。+39。 (39。 begin 。 end。//查詢課程表中字段 班級(jí) 是否符合，符合就調(diào)到 。39。39。39。39。select * from kecheng where 班級(jí)=39。 。 procedure (Sender: TObject)。 end。])。 while not do begin ([39。//查詢系名是否符合 。39。39。39。39。select * from class where 系名=39。 。 procedure (Sender: TObject)。 end。])。 姓名 文本 否 無 性別 文本 否 無 出生年月 日期 否 無 籍貫 文本 否 無 聯(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)鍵字 課程名 文本 否