【正文】 39。 procedure (Sender: TObject)。 :=39。修改 39。 :=false。 :=false。 then begin 。 :=39。 end else begin showmessage(39。課程號 39。 end。39。++39。 。 end。39。39。39。 tf:=true。 if or or or then (39。聯(lián)系地址 39。)。 。)。39。39。39。確定 39。班級 39。 (39。 行不同條件的輸入） :=39。 procedure (Sender: TObject)。+39。 :=39。39。 。課程號 39。39。)。 。在開發(fā)過程中，我不僅增強(qiáng)了自學(xué)的能力和開發(fā)軟件的能力。 procedure (Sender: TObject。 end。+39。39。 procedure (Sender: TObject)。 :=39。修改 39。 :=false。 :=false。 then begin 。 :=39。 end else begin showmessage(39。課程號 39。 end。39。++39。 。 end。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。查詢班級的所在系別，輔導(dǎo)員等。 end。 。 = 39。+39。 end。 end else begin 。 :=39。 :=false。添加 39。添加 39。 。 。 [39。 。39。39。//查詢系名是否符合 。 end。39。+ +39。39。)。)。 :=39。39。)。select * from xi39。39。39。39。 then begin :=39。 （這五項(xiàng)為表的數(shù)據(jù)項(xiàng)名） :=39。 。39。 end。select * from dkcj where 學(xué)號 =39。39。39。)。 :=39。 :=39。39。 。 在張波爾老師的指導(dǎo)下，經(jīng)過一 段時(shí)間的討論和上機(jī)的不斷調(diào)試，我順利的完成了開發(fā)任務(wù)。 end。 。 = 39。+39。 end。 end else begin 。 :=39。 :=false。添加 39。添加 39。 。 。 [39。 。39。39。//查詢系名是否符合 。 end?？梢允褂萌魏我环N ODBC 數(shù)據(jù)源，即不止適合于 SQL Server、Oracle、 Access 等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。還能查詢到平均成績以及單科最高最低成績以及個(gè)人成績。能有效的幫助學(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績跟課程方面的查詢。采用 Delphi 來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有更大的靈活性和可擴(kuò)展性。 班級名 所屬系別 。++39。 (39。 。39。]=) then break。課程名 39。 //關(guān)閉數(shù)據(jù)庫 。 :=39。 then begin showmessage(39。 if =39。 begin 。 //修改課程表中的記錄 :=39。 end。39。 end else begin 。 。 begin 。 管理員登陸點(diǎn)系統(tǒng)，點(diǎn)系統(tǒng)，輸入管理員用戶及密碼，跟數(shù)據(jù)庫的用戶表比較。 (39。+[39。39。班級 39。 。39。 （當(dāng)沒有符合條件的記錄，自動(dòng) :=39。學(xué)號 39。 。 :=+39。 :=false。)。 :=true。39。39。 。 end。39。+[39。出生年月 39。 begin tf:=false。39。39。=39。39。 end。++39。 (39。 。39。]=) then break。課程名 39。 //關(guān)閉數(shù)據(jù)庫 。 :=39。 then begin showmessage(39。 if =39。 begin 。 //修改課程表中的記錄 :=39。 end。39。 end else begin 。 。 begin 。功能基本符合根據(jù)張波爾老師的要求。 數(shù)據(jù)庫 ： Microsoft Access Access 是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。 1： n 平均成績記錄 學(xué)號 姓名 成績 。select * from class where 系名=39。 end。//查詢課程表中字段 班級 是否符合，符合就調(diào)到 。+39。課程 號 39。班級 39。 procedure (Sender: TObject)。課時(shí) 39。 :=false。 end。 :=true。 end。 end。++39。39。39。 procedure (Sender: TObject)。 begin :=。謝謝 ! 參考文獻(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)。select * from dkcj where 學(xué)號 =39。沒有符合查詢條件的記錄 !!39。 :=39。 end。 (39。 end else begin showmessage(39。 end。39。 begin if =39。39。39。 :=39。 begin if then begin 。 if then begin 。 if [39。39。 (39。select * from student where 班級 = 39。 （表的數(shù)據(jù)項(xiàng)，以及學(xué)生學(xué)籍信息） :=39。])。++39。 (39。and39。 end。)。select * from class where 系名=39。 end。//查詢課程表中字段 班級 是否符合，符合就調(diào)到 。+39。課程號 39。班級 39。 procedure (Sender: TObject)。課時(shí) 39。 :=false。 end。 :=true。 end。 end。++39。39。++39。 end. 課程查詢部分： procedure (Sender: TObject)。確定 39。 :=39。刪除 39。請輸入課程號！ 39。類型 39。 //清空 (39。]。 。39。 (39。select * from kecheng where 班級=39。39。 (4)課程管理部分的代碼： 選課管理： begin ([39。++39。+39。39。+ +39。 。 :=39。班級 39。++39。 學(xué)籍管理模塊 （ 1）學(xué)籍管理 procedure (Sender: TObject)。 (39。39。39。 end。 。 :=true。 end。 end。]。39。+[39。 (39。 :=39。 件的，顯示該語句） :=39。 學(xué)號 39。select * from pjcj where 39。如果通過 則能進(jìn)行課程，學(xué)籍，成績，班級的管理。 。 end。 。++39。 end. 課程查詢部分： procedure (Sender: TObject)。確定 39。 :=39。刪除 39。請輸入課程號！ 39。類型 39。 //清空 (39。]。 。39。 (39。select * from kecheng where 班級=39。39。 姓名 文本 否 無 性別 文本 否 無 出生年月 日期 否 無 籍貫 文本 否 無 聯(lián)系電話 文本 是 無 聯(lián)系地址 文本 是 無 班級情況表： 系名 文本 否 外關(guān)鍵字 班級 文本 否 關(guān)鍵字 主要教室 文本 是 無 輔導(dǎo)員 文本 是 無 系名 文本 否 外關(guān)鍵字 班級 文本 否 關(guān)鍵字 系表： 系名 文本 否 關(guān)鍵字 系辦公室 文本 是 無 聯(lián)系電話 文本 是 無 課程表： 課程號 文本 否 關(guān)鍵字 課程名 文本 否 無 班級 文本 是 外關(guān)鍵字 類別 文本 是 無 平均成績表： 班級 文本 否 外關(guān)鍵字 學(xué)號 文本 否 關(guān)鍵字 姓名 文本 是 無 平均成績 長整型 是 無 單科成績表： 學(xué)號 文本 否 關(guān)鍵字 姓名 文本 否 無 課程號 文本 否 外關(guān)鍵字 課程名 文本 否 無 成績 長整型 是 無 班級選課表： 班級 文本 否 組合 關(guān)鍵字 課程號 文本 否 組合關(guān)鍵字 課程名 文本 是 無 學(xué)期 文本 否 組合關(guān)鍵字 (6)課程管理部分的代碼 ： 選課管理： begin ([39。 Access 多用于中小型企業(yè)來設(shè)計(jì)中小型數(shù)據(jù)庫，一般的學(xué)校教務(wù)系統(tǒng)的數(shù)據(jù)庫用 Access 來設(shè)計(jì)完全能達(dá)到要求。 (3)課程信息管理 每個(gè)學(xué)期都會(huì)增加一些新的科目，通過本模塊可以輕松的添加以及更新課程。 procedure (Sender: TObject。 end。+39。39。 procedure (Sender: TObject)。 :=39。修改 39。 :=false。 :=false。 then begin 。 :=39。 end else begin showmessage(39。課程號 39。 end。39。++39。 。 end。39。39。39。 tf:=true。 if or or or then (39。聯(lián)系地址 39。)。 。)。39。39。39。確定 39。班級 39。 (39。 行不同條件的輸入） :=39。 procedure (Sender: TObject)。+39。 :=39。39。 。課程號 39。39。)。 。在開發(fā)過程中，我不僅增強(qiáng)了自學(xué)的能力和開發(fā)軟件的能力。 procedure (Sender: TObject。 end。+39。39。 procedure (Sender: TObject)。 :=39。修改 39。 :=false。 :=false。 then begin 。 :=39。 end else begin showmessage(39。課程號 39。 end。39。++39。 。 end。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。查詢班級的所在系別，輔導(dǎo)員等。還能查詢各個(gè)學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號等各個(gè)消息 (2) 班級信息管理 實(shí)現(xiàn)班級的添加、刪除、更新。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。 n： 1 n： 1 單科成績 學(xué)號 課程名 成績 。39。 。 begin 。++39。學(xué)期 39。]:=[39。 begin 。學(xué)期 39。39。 end。 procedure (Sender: TObject)。 then begin 。 。39。 。//單個(gè)條件查詢 。 procedure (Sender: TObject)。 各個(gè)界面都簡單明了，只要輸入你所需要的條件，系統(tǒng)自動(dòng)調(diào)出數(shù)據(jù)。 。39。 :=39。 :=39。 。39。39。 begin str:=[39。 。 :=+。 。39。 :=true。+39。+39。 then begin 。 。39。39。 :=39。 var tf:boolean。39。+39。++39。 (39。 。39。 。 begin 。++39。學(xué)期 39。]:=[39。 begin 。學(xué)期 39。39。 end。 procedure (Sender: TObject)。 then begin 。 。39。 。//單個(gè)條件查詢 。 procedure (Sender: TObject)。能有效的幫助學(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績跟課 程方面的查詢。采用 Delphi 來開發(fā)數(shù)據(jù)庫應(yīng)用程序具有更大的靈活性和可擴(kuò)展性。 班級名 所屬系別 。++39。 (39。 。39。]=) then break。課程名 39。 //關(guān)閉數(shù)據(jù)庫 。