【正文】 0 then while app[t2].appKey arr[day][time][room][1] do t2 := t2 + 1 else t2 := t1。 t2 := 0。 begin dynamicTest := true。 current : integer ):Boolean。 以（預(yù)）排課的教室沖突為例： function ( day : integer。 then app[i].currentValue := app[i].currentValue + 3。] = 39。 then app[i].currentValue := app[i].currentValue + 6 else if FieldValues[39。] = 39。 then app[i].currentValue := app[i].currentValue + 9 else if FieldValues[39。] = 39。 then app[i].currentValue := app[i].currentValue + 12 else if FieldValues[39。] = 39。 if FieldValues[39。班級(jí)名稱 39。 以班級(jí)信息權(quán)值設(shè)置為例： with bjADOTable do for i := 0 to appNum 1 do begin First。在自動(dòng)排課中分為三步：首先賦權(quán)值，其次再檢測(cè)各種沖突，最后實(shí)現(xiàn)排課過程。 end。 iSign := 0。 ButtonEnable。 bSign := false。)。 ShowMessage(39。 Post。是否預(yù)排課 39。]:=StrToInt()。 FieldValues[39。開始周 39。]:=StrToInt()。 FieldValues[39。周課數(shù) 39。]:=。 FieldValues[39。教師姓名 39。]:=。 FieldValues[39。 ButtonEnable。 ClearCaption。添加成功 !39。,bjname_ComboBo,(StrToInt()),(StrToInt()),(StrToInt()),(StrToInt()),])。,39。,39。,39。,39。,39。,39。) else begin ([NULL, ,39。)) then ShowMessage(39。) or ( =39。) or ( =39。) or ( =39。 ) or ( =39。 ) or ( = 39。 ) or ( = 39。) else if ( iSign = 1 ) //添加 then begin if (( = 39。 begin if ( iSign = 0 ) then ShowMessage(39。 end （ 2）各類信息管理模塊 該模塊包括課程申請(qǐng)管理、教室管理、老師管理、班級(jí)管理、課程信息管理。 := true。39。39。39。 end。修改成功！ 39。 ([, , ])。)。 ShowMessage(39。你輸入的信息不全 !39。39。39。39。請(qǐng)選另一個(gè)用戶名39。已有一個(gè)名為 %s 的用戶 39。用戶名稱 39。]) do Next。 while (not Eof) and (FieldValues[39。請(qǐng)先添加或修改記錄！ 39。以下摘錄保存功能的代碼： procedure (Sender: TObject)。 代碼分析 本系統(tǒng)主要由三部分構(gòu)成：權(quán)限管理，各類信息管理，排課管理。其中的“沖突解決”項(xiàng)有兩種解決方法：一是在系統(tǒng)運(yùn)行時(shí)進(jìn)行的自我調(diào)節(jié)，另一種是運(yùn)用手動(dòng)排課功能解決。 表 5 課程安排信息表 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 申請(qǐng)碼 int 課程的編號(hào) 課程名 varchar 無 星期一 varchar 無 星期二 varchar 無 星期三 varchar 無 星期四 varchar 無 星期五 varchar 無 星期六 varchar 無 教室名 varchar 無 老師名 varchar 無 班級(jí)名 varchar 無 周課數(shù) int 一周上課的次數(shù) 學(xué)分 int 無 開始周 int 從第幾周開始上課 周數(shù) int 共上幾周的課時(shí) 是否預(yù)排課 bit 無 系統(tǒng)流程 及代碼分析 系統(tǒng)流程圖 系統(tǒng)流程圖，如圖 3 所示。它實(shí)現(xiàn)自動(dòng)清除、自動(dòng)添加，具有流動(dòng)性和可操作性。如表 4 所示。如表 3 所示。如表 2 所示。如表 1 所示。用戶可在排好后的課表中查看課表，對(duì)于不滿意的課程安排可用手動(dòng)進(jìn)行相應(yīng)的調(diào)節(jié)，而手動(dòng)排課也可針對(duì)實(shí)驗(yàn)課等靈活性的課程。而一般用戶只能查看管理員設(shè)置的條件。 (3) 排課管理功能集合。在該集合內(nèi)可查看相應(yīng)的數(shù)據(jù)表，對(duì)于 管理員級(jí)別的用戶可對(duì)以上表的內(nèi)容進(jìn)行添加、修改、刪除的功能。 (2) 基本信息管理功能集合。當(dāng)使用者為管理員時(shí)可進(jìn)行權(quán)限管理功能，它能夠添加新的使用者，也可對(duì)已有的用戶進(jìn)行名稱、密碼的修改和刪除。在本系統(tǒng)中，可以把模塊分為 三 個(gè)功能集合： (1) 系統(tǒng)管理功能集合。 排課系統(tǒng)的功能模塊 在系統(tǒng)分析的基礎(chǔ)上，我們提出了系統(tǒng)的功能模塊，如圖 2 所示。 （ 6） 權(quán)限管理。 （ 5） 系統(tǒng)友好性。 （ 4） 設(shè)置沖突檢測(cè)方法。 （ 3） 手動(dòng)調(diào)節(jié)。根據(jù)輸入的基本信息，進(jìn)行自動(dòng)排課，生成課表。由于存在公共基礎(chǔ)課以及公選課，而這些課程的設(shè)置完全有教務(wù)處制定，因此這些課程應(yīng)該預(yù)先設(shè)置。 （ 11） “ 課程與教室匹配”情況，課程要求的條件必須與教室設(shè)備條件相匹配，如是否需要多媒體授課等。 （ 9） “課程優(yōu)先級(jí)”盡量讓學(xué)分值高的，重要的課程排在黃金時(shí)間，課程優(yōu)先級(jí)低的排在其他時(shí)間。 （ 7） “課程單雙周”情況，即某些總課時(shí)較少的課程，可以考慮在單周或雙周排課。 （ 5） “教室容量匹配”情況，即上課班級(jí)人數(shù)應(yīng)該與所在教室的人數(shù)匹配。 （ 3） “一室多課”沖突情況，即一個(gè)教室在同一時(shí)間內(nèi)排了一門以上的課。 功能分析 由于排課算法以及沖突檢測(cè)在細(xì)節(jié)上有很多限制，在設(shè)計(jì)之前我們做了詳細(xì)的討論和分析，得出了排課系統(tǒng)功能的細(xì)節(jié)問題： （ 1） “公共基礎(chǔ)課和公選課優(yōu)先固定”，由于這兩種課一般由教務(wù)處制訂課程計(jì)劃，因此應(yīng)該在自動(dòng)排課之前將它們優(yōu)先固定。排完后系統(tǒng)會(huì)進(jìn)行檢測(cè)沖突，若 有沖突則彈出提示框，進(jìn)行異常函數(shù)的處理。 算法流程圖 系統(tǒng)的算法流程圖，如圖 1 所示。 （ 6） 對(duì)申請(qǐng)數(shù)組重新排序，轉(zhuǎn)到（ 3）。對(duì)不同的層進(jìn)行排課，可避免同一天同一老師授同一門課的問題。 （ 3） 將課程申請(qǐng)碼按序進(jìn)行排課，結(jié)果存儲(chǔ)在排課數(shù)組中。以下為算法過程： （ 1） 初始化排課數(shù)組、課程申請(qǐng)數(shù)組。貪婪法常以當(dāng)前情況為基礎(chǔ)作最優(yōu)選擇，而不考慮各種可能的整體情況。貪婪法是一種不追求最優(yōu)解，只希望得到較為滿意解的方法。相對(duì)于之前介紹的兩個(gè)算法，在處理各種特殊要求的能力上有明顯的優(yōu)勢(shì)。每次對(duì)教師、教室資源的選取都是取當(dāng)前最優(yōu)的數(shù)據(jù)。但對(duì)一些特殊要求還是無法具體體現(xiàn)出來。其實(shí)質(zhì)就是解決各因素之間的沖突。但其未對(duì)數(shù)據(jù)進(jìn)行擇優(yōu)選取，所以不能對(duì)教學(xué)資源（教師、教室）合理分配，也不能滿足一些特殊要求（比如有些 老師喜歡上午上課，有些老師偏向于集中式上課；有些課程安排在上午 更合適些，有些課程不能安排到上午等）。好的算法不僅可以節(jié)省時(shí)間，更可以提高效率。如何充分利用有限的教室和時(shí)間資源合理地編排課表，是本文致力研究的主要問題。國(guó)內(nèi)針對(duì)課表問題也相繼研制出了一些排課軟件，但是軟件的通用性差，因 各學(xué)校教學(xué)資源不盡相同，管理課表的方法也不乏個(gè)性，很難完全規(guī)范化、程序化。如果完全由人工來編排課表，費(fèi)時(shí)費(fèi)力，其科學(xué)性、方便性更是難以保證，所以利用計(jì)算機(jī)進(jìn)行自動(dòng)排課的想法自然而生。 3 教務(wù)排課系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 教務(wù)排課系統(tǒng)簡(jiǎn)介 課程編排作為高等院校教務(wù)管理中的 一項(xiàng)重要而且繁重的工作，從一般意義上講，其實(shí)質(zhì)就是對(duì)學(xué)校學(xué)期開設(shè)的每門課程合理地分配時(shí)間資源和教室資源的過程。目前大多數(shù)應(yīng)用軟件系統(tǒng)都是 Client/Server 形式的兩層結(jié)構(gòu)，由于現(xiàn)在的軟件應(yīng)用系統(tǒng)正在向分布式的 Web 應(yīng)用發(fā)展， Web 和 Client/Server 應(yīng)用都可以進(jìn)行同樣的業(yè)務(wù)處理，應(yīng)用不同的模塊共享邏輯組件；因此，內(nèi)部的和外部的用戶都可以訪問新的和現(xiàn)有的應(yīng)用系統(tǒng)，通過現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴(kuò)展出新的應(yīng)用系統(tǒng)。 C/S 模式介紹 C/S （ Client/Server）結(jié)構(gòu)，即大家熟知的客戶機(jī)和服務(wù)器結(jié)構(gòu)。 Delphi 以其功能強(qiáng)大、簡(jiǎn)單易用等諸多特性，深受編程人員的歡迎。 ADO 是面向各種數(shù)據(jù)的層次很高的接口，它提供了強(qiáng)大的數(shù)據(jù)訪問功能，可以訪問的數(shù)據(jù)對(duì)象有： ； 關(guān)系型數(shù)據(jù)庫(kù)，如層次型數(shù)據(jù)庫(kù)，網(wǎng)狀數(shù)據(jù)庫(kù)等； ； ，聲音； 。 雖然 ADO的功能 比 BDE比起來弱一些 ,但和 BDE相比 ADO有一些重要的優(yōu)勢(shì)，比如 ： ADO 將會(huì)內(nèi)制在從 Windows2021 開始 Microsoft 新出的所有操作系統(tǒng)中 ， 單 就這一點(diǎn)就足以給其他的數(shù)據(jù)訪問方式畫上問號(hào) 。 而在數(shù)據(jù)集方面，與 BDE不同 ADO是 Microsoft推出的新一代數(shù)據(jù)訪問規(guī)范，在 Delphi7 中它的地位等同于一個(gè)和 BDE 并列的數(shù)據(jù)引擎。它的功能包括：圖片支持、對(duì)齊、精確頁(yè)面定位、打印機(jī)設(shè)置、字體控制、打印預(yù)覽、報(bào)表內(nèi)容重用，并支持 PDF、 HTML、 RTF等文本格式。 Rave 報(bào)表構(gòu)件是一個(gè)可視化的報(bào)表設(shè)計(jì)工具，大大簡(jiǎn)化了在應(yīng)用程序中加入報(bào)表的工作。 （ 5）新添加 IW Standard、 IW Data、 IW Client Side 和 IW Control 構(gòu)件組 這些構(gòu)件也是 Delphi 7 的顯著改革之一，將 Intraweb 集成到了標(biāo)準(zhǔn)的構(gòu)件板中，我們就可以很方便地開發(fā)基于 Web 的應(yīng)用程序。 （ 4）新添加 Indy Intercepts 和 Indy I/O Handler 構(gòu)件組 企業(yè)版的 Delphi 7 中，這兩個(gè)構(gòu)件組基本上提供了針對(duì)現(xiàn)今流行的Inter 協(xié)議編程的構(gòu)件。 （ 3）可定制的 View 窗口 Delphi 7 最強(qiáng)勁的集成開發(fā)環(huán)境功能應(yīng)該要算是新的可定制的 View 窗口了。當(dāng)程序員在 Object TreeView 窗口中單擊了一個(gè)組件之后，這個(gè)組件會(huì)立刻出現(xiàn)在對(duì)象查看器之中，這時(shí)程序員可以改變這個(gè)對(duì)象的特性值和事件處理程序。 （ 2） Object TreeView（對(duì)象樹視圖） 另外一個(gè)新功能就是 Delphi 7 的 Object TreeView 窗口。 （ 1） Code Complete（代碼完成） Code Complete 功能在 Delphi 5 中就已經(jīng)加入了，這項(xiàng)功能非常受程序員的歡迎，因?yàn)?Code Complete 可以大幅度地減少程序員需要鍵入的程序代碼，并且減少鍵入錯(cuò)誤。 Delphi 是具有可視化界面的面向?qū)ο缶幊陶Z言 .而最新的 Delphi 具有以下新特點(diǎn)： 和以往 Delphi 的每一個(gè)新版本一樣， Delphi 7 繼續(xù)改善了開發(fā)環(huán)境，幫助程序員提高效率。 (5) 具有決策支持的資 料倉(cāng)庫(kù) 。 (3) 企業(yè)級(jí)數(shù)據(jù)庫(kù)功能強(qiáng) 。 SQL Server 2021 系統(tǒng)之所以成為目前流行的大型商用數(shù)據(jù)庫(kù)系統(tǒng)，有著其深刻的內(nèi)在因素，這與它鮮明的特點(diǎn)是分不開的： (1) 與 Inter 的高度集成 。 (2) 保障 數(shù)據(jù) 的正確存儲(chǔ)，即保障定義 數(shù)據(jù) 之間的關(guān)系的種種規(guī)則不會(huì)被違背。 目前， Microsoft SQL Server 2021 是在成熟和強(qiáng)大的關(guān)系型數(shù)據(jù)庫(kù)中最受歡迎、應(yīng)用最廣泛的一個(gè)。 關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)是當(dāng)前最流行的數(shù)據(jù)庫(kù) 管理 系統(tǒng)。 同時(shí) ， SQL Server 2021 還為用戶提供了重要的安全性功能的增強(qiáng)，為用戶的數(shù)據(jù)安全提供了可靠的保證。它能使用 戶快捷地管理數(shù)據(jù)庫(kù)和開發(fā)應(yīng)用程序。本系統(tǒng)采用 作為前臺(tái)開發(fā)工具，采用 SQL Server 2021 作為后臺(tái)數(shù)據(jù)庫(kù)。 如何更有效地利用人力、物力資源，充分發(fā)揮計(jì)算機(jī)的輔助作用，減輕教務(wù)人員的工作強(qiáng)度，在對(duì)需求進(jìn)行詳細(xì)的分析后，本文提出了基于教學(xué)大綱的教務(wù)排課設(shè)計(jì)思 想，并對(duì)其算法進(jìn)行了描述。 排課系統(tǒng)的主要任務(wù)是根據(jù)現(xiàn)有的教學(xué)資源對(duì)課程進(jìn)行合理的安排?，F(xiàn)在的本科院校包括研究生在內(nèi)，一般都有上萬人或幾萬人的規(guī)模 。 近幾年來，我國(guó)高等教育事業(yè)的快速發(fā)展，高校新生的擴(kuò)招力度加大，各個(gè)高校中的多個(gè)校區(qū)、多個(gè)學(xué)院的教學(xué)管理模式已經(jīng)隨處可見，各高校都面臨著教室資源緊張的問題 。目前大多數(shù) 教務(wù) 排課系統(tǒng)是采用各教學(xué)單位進(jìn)行教學(xué)任務(wù)的指派，然后將教學(xué)任務(wù)單提交教務(wù)科，教務(wù)人員將數(shù)據(jù)輸入 計(jì)算 機(jī)，進(jìn)行排課、打印課程表等工作。 Three Levels Course Scheduling Model 目 錄 論文總頁(yè)數(shù)： 25 頁(yè) 1 引 言 ...............................................................................