【正文】 39。 and STATE=39。39。339。39。39。 :=True。 //激活過(guò)濾器 。 //打開(kāi)課程信息表 。 //打開(kāi)教師表end。將課程加入選課列表的操作在B_add的OnClick事件處理程序中，代碼如下：procedure (Sender: TObject)。 //加入選課列表var counter:integer。begin //修改計(jì)數(shù)值 。 //打開(kāi)計(jì)數(shù)器表 counter:=T_counter_X[39。COUNTER_VALUE39。]。 //提取計(jì)數(shù)值 Inc(counter)。 //推進(jìn)計(jì)數(shù)值 。 //修改計(jì)數(shù)器紀(jì)錄 T_counter_X[39。COUNTER_VALUE39。]:=counter。 //保存當(dāng)前計(jì)數(shù) 。 //提交修改 //添加課程 if and (=1) then //判斷 begin With Q_select do begin Close。 。 (39。INSERT INTO COURSE_SELECT39。)。 //插入 (39。(ID, COURSE, STUDENT)39。)。 (39。VALUES (39。+IntToStr(counter)+39。,39。 ++39。,39。++39。)。39。)。 //追加 ExecSQL。 end。 TabSheet1Show(nil)。 end else (39。課程編號(hào)有誤39。,39。出錯(cuò)39。,MB_OK)。end。刪除當(dāng)前選中的課程在B_del的OnClick事件處理程序中實(shí)現(xiàn)，代碼如下：procedure (Sender: TObject)。 //刪除當(dāng)前選中的課程begin With Q_select do begin Close。 。 (39。DELETE FROM COURSE_SELECT39。)。 //添加刪除語(yǔ)句 (39。WHERE ID=39。+IntToStr([39。SEL_ID39。])+39。39。)。 //刪除 ExecSQL。 end。 TabSheet1Show(nil)。end。TabSheet2的OnShow事件處理程序?qū)崿F(xiàn)界面的初始化工作，代碼如下：procedure (Sender: TObject)。 //顯示查詢初始化begin 。 [0].AsString:=。 //設(shè)置條件 。end。當(dāng)單擊DBGrid2中的課程名稱(chēng)時(shí)，OnCellClick事件處理程序啟動(dòng)三個(gè)統(tǒng)計(jì)SQL表，代碼如下：procedure (Column: TColumn)。begin 。 [0].AsString:=Q_course_learned[39。ID39。]。 //設(shè)參 。 //統(tǒng)計(jì)最大值 。 [0].AsString:=Q_course_learned[39。ID39。]。 。 //統(tǒng)計(jì)平均值 。 [0].AsString:=Q_course_learned[39。ID39。]。 。 //統(tǒng)計(jì)最小值end。以上為整個(gè)系統(tǒng)的部分程序，不包括一些不重要的程序。第五章 系統(tǒng)測(cè)試 系統(tǒng)不足（1） 系統(tǒng)所需要的教師個(gè)人信息表和學(xué)生個(gè)人信息表并不能在程序中輸入，而是由數(shù)據(jù)庫(kù)中直接輸入，考慮到本系統(tǒng)是一個(gè)課程信息管理系統(tǒng)，是校園信息系統(tǒng)的一個(gè)子系統(tǒng)，所需的數(shù)據(jù)庫(kù)可以在其他子系統(tǒng)中得到。但本系統(tǒng)作為一個(gè)完整的系統(tǒng)，應(yīng)該在教務(wù)處管理界面上實(shí)現(xiàn)這些數(shù)據(jù)的程序中輸入；（2） 系統(tǒng)的第二個(gè)不足的地方在于數(shù)據(jù)未能及時(shí)刷新。比如學(xué)生選完課后，教務(wù)處得選課結(jié)果查詢管理中應(yīng)該能立即得到數(shù)據(jù)，但是點(diǎn)擊其他工具條后才能實(shí)現(xiàn)刷新，其像這樣的不能及時(shí)刷新還有；（3） 學(xué)生選課時(shí)未能在程序中看到所有已經(jīng)開(kāi)設(shè)的課程，只能查課程的編號(hào)得到所開(kāi)課程的詳細(xì)信息，此為一嚴(yán)重的不足；（4） 系統(tǒng)未能實(shí)現(xiàn)打印的功能； 改進(jìn) 一個(gè)系統(tǒng)的完整性和嚴(yán)謹(jǐn)性體現(xiàn)在系統(tǒng)所需要的一切信息和操作都能在程序中實(shí)現(xiàn)，故此系統(tǒng)存在嚴(yán)重的不足，我會(huì)努力改進(jìn)程序，實(shí)現(xiàn)系統(tǒng)的完整。第六章 用戶操作說(shuō)明 前期工程 （1）在SQL數(shù)據(jù)庫(kù)的企業(yè)管理器中建立一個(gè)名為School的數(shù)據(jù)庫(kù)，在數(shù)據(jù)庫(kù)中創(chuàng)建教師個(gè)人信息表、學(xué)生個(gè)人信息表、課程信息表、選課結(jié)果信息表、成績(jī)信息表、用戶密碼表、課程狀態(tài)代碼表、計(jì)數(shù)信息表（如上文所給）。 （2）在開(kāi)發(fā)程序之前必須先輸入部分?jǐn)?shù)據(jù)，包括教師的信息，學(xué)生的信息，用戶名密碼權(quán)限，所需的計(jì)數(shù)器和課程狀態(tài)代碼（如上文所示）。 （3）在控制面板的管理工具打開(kāi)ODBC數(shù)據(jù)源管理器，添加一個(gè)名為aaa的數(shù)據(jù)源（驅(qū)動(dòng)程序?yàn)镾QL SERVER），連接到本地的數(shù)據(jù)庫(kù)上。 系統(tǒng)演示完成以上所有的編程內(nèi)容后，我們可以來(lái)看看程序的運(yùn)行效果。首先是登錄窗口，因?yàn)橐还苍O(shè)置了三種不同的權(quán)限（0學(xué)生, 1教師, 2教務(wù)處）,又為了方便演示，故所有的用戶密碼就是用戶的權(quán)限，圖51是教師課程管理系統(tǒng)的登錄界面。圖61 教師登錄界面輸入用戶名和密碼后，進(jìn)入教師課程管理程序主界面，單擊“課程設(shè)置申請(qǐng)”標(biāo)簽進(jìn)入課程設(shè)置申請(qǐng)界面，如圖82所示：圖62 課程設(shè)置申請(qǐng)此界面主要是完成課程的各項(xiàng)申請(qǐng)。選擇“增開(kāi)新的課程”時(shí)，允許輸入全新的信息。如果是“刪除舊的課程”或者“修改已有課程”，則已開(kāi)課程列表激活，顯示該教師所開(kāi)得課程。通過(guò)單擊列表中課程即可進(jìn)行相應(yīng)的設(shè)置。最后單擊“提交申請(qǐng)”按鈕來(lái)完成申請(qǐng)。教師課程管理程序中另一項(xiàng)是課程管理。每學(xué)期當(dāng)選課結(jié)束后教務(wù)處把選課結(jié)果移入成績(jī)單中。這時(shí)，在課程管理界面中就會(huì)顯示已開(kāi)設(shè)的課程，和各課程的學(xué)生名單。在期末的時(shí)候也可以通過(guò)管理界面輸入學(xué)生的成績(jī)。課程管理界面如圖63所示：圖63 課程管理界面學(xué)生登錄后，首先是選課界面，如圖64所示。學(xué)生需要輸入課程編號(hào)。然后顯示課程信息，確認(rèn)是所要選的課程。在單擊“加入”按鈕，即可將課程加入“已選課程”列表中。如果學(xué)錯(cuò)了課程，可以在課程列表中選擇該課程編號(hào)，然后單擊“刪除”按鈕。選課過(guò)程中，系統(tǒng)會(huì)隨時(shí)統(tǒng)計(jì)已選課程的總學(xué)分。圖64 選課界面在期末教師輸入成績(jī)單后，學(xué)生課在查詢成績(jī)界面中察看自己的學(xué)科成績(jī)。成績(jī)查詢界面如圖65所示。單擊不同的課程，即可顯示該門(mén)課程的成績(jī)和各類(lèi)統(tǒng)計(jì)信息，包括最高成績(jī)、平均成績(jī)、和最低成績(jī)。圖65 查詢成績(jī)界面本系統(tǒng)中管理功能最強(qiáng)的是教務(wù)課程管理應(yīng)用程序。進(jìn)入主界面后，一共有四項(xiàng)管理功能。第一項(xiàng)時(shí)課程設(shè)置審批，界面如圖66所示。所有老師提交的申請(qǐng)都列在界面左側(cè)的課程列表中。單擊列表中的課程編號(hào)，會(huì)顯示具體的申請(qǐng)內(nèi)容。通過(guò)下面的兩個(gè)按鈕來(lái)通過(guò)審批或拒絕請(qǐng)求。圖66 課程設(shè)置審批界面第二項(xiàng)功能是課程資源的分配，界面如圖67所示。每學(xué)期開(kāi)始選課之前，首先要確定下學(xué)期開(kāi)設(shè)的課程和上課的地點(diǎn)及時(shí)間。進(jìn)行資源分配的第一步是清除所有原來(lái)的分配，這樣所有有效的課程都將恢復(fù)到待分配狀態(tài)。隨后單擊課程，輸入上課教師和時(shí)間，并且提交分配。如果輸入又誤，可以在已分配課程列表中選擇該課程，然后取消分配，將該課程恢復(fù)到待分配狀態(tài)。圖67 課程資源分配第三項(xiàng)功能為選課結(jié)果查詢管理，如圖68所示。這項(xiàng)功能主要是將選課的結(jié)果移存到成績(jī)單數(shù)據(jù)表中，并且晴空選課結(jié)果數(shù)據(jù)表，已備期末的時(shí)候進(jìn)行下學(xué)期的選課。此界面一個(gè)附帶的功能就是在選課結(jié)束后修改選課的結(jié)果。圖68 選課結(jié)果查詢管理 最后已項(xiàng)功能是成績(jī)單的查詢，如圖69所示。這項(xiàng)功能主要用于查詢和輸出每門(mén)課程的成績(jī)列表，并且統(tǒng)計(jì)5項(xiàng)基本情況：課程人數(shù)、最高成績(jī)、平均成績(jī)和不及格人數(shù)。圖69 成績(jī)單查詢界面致謝感謝畢業(yè)設(shè)計(jì)指導(dǎo)教師馬秋菊感謝所有給予我支持和幫助的同學(xué)、朋友參考文獻(xiàn)1.《Delphi 6入門(mén)與提高》 張?jiān)鰪?qiáng) 武向輝 人民郵電出版社 2.《Delphi 4從入門(mén)到精通》 Marco Cantu 電子工業(yè)出版社3.《SQL Server 2000 金典教程》 彭林 余艷 人民郵電出版社4.《Delphi 6 靈感編程》 飛思科技產(chǎn)品研發(fā)中心 電子工業(yè)出版社5.《Delphi 數(shù)據(jù)庫(kù)開(kāi)發(fā)》 陳豫龍 何旭洪 人民郵電出版社常用網(wǎng)址收藏寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來(lái)越容易。不奮斗就是每天都很容易，可一年一年越來(lái)越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無(wú)能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個(gè)春夏秋冬！贏一個(gè)無(wú)悔人生！早安！—————獻(xiàn)給所有努力的人.學(xué)習(xí)好