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