畢業(yè)設(shè)計(jì)（論文）-教學(xué)管理系統(tǒng)設(shè)計(jì).doc

華東交通大學(xué)畢業(yè)設(shè)計(jì)（論文）題目： 學(xué) 院:理工學(xué)院專 業(yè):計(jì)算機(jī)科學(xué)與技術(shù)班 級(jí):姓 名:學(xué) 號(hào):指導(dǎo)教師:完成日期:2010-5-4畢業(yè)設(shè)計(jì)（論文）誠(chéng)信聲明本人鄭重聲明：所呈交的畢業(yè)設(shè)計(jì)（論文）是我個(gè)人在導(dǎo)師指導(dǎo)下進(jìn)行的研究工作及取得的研究成果。就我所知，除了文中特別加以標(biāo)注和致謝的地方外，論文中不包含其他人已經(jīng)發(fā)表和撰寫的研究成果，也不包含為獲得華東交通大學(xué)或其他教育機(jī)構(gòu)的學(xué)位或證書所使用過(guò)的材料。如在文中涉及抄襲或剽竊行為，本人愿承擔(dān)由此而造成的一切后果及責(zé)任。本人簽名 導(dǎo)師簽名 2010年 5 月 日華東交通大學(xué)畢業(yè)設(shè)計(jì)(論文)評(píng)閱書姓名學(xué)號(hào)專業(yè)畢業(yè)設(shè)計(jì)(論文)題目答辯小組評(píng)語(yǔ)：等級(jí) 組長(zhǎng)簽字：年 月 日答辯委員會(huì)綜合評(píng)語(yǔ)： 等級(jí) 答辯委員會(huì)主任簽字：年 月 日（學(xué)院公章）注：答辯小組根據(jù)評(píng)閱人的評(píng)閱簽署意見(jiàn)、初步評(píng)定成績(jī)，交答辯委員會(huì)審定，蓋學(xué)院公章?！暗燃?jí)”用優(yōu)、良、中、及、不及五級(jí)制（可按學(xué)院制定的畢業(yè)設(shè)計(jì)(論文)成績(jī)?cè)u(píng)定辦法評(píng)定最后成績(jī)）。華東交通大學(xué)畢業(yè)設(shè)計(jì)（論文）答辯記錄姓名學(xué)號(hào)畢業(yè)屆別專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)題目答辯時(shí)間答辯組成員（簽字）：答辯記錄： 記錄人（簽字）： 年 月 日 答辯小組組長(zhǎng)（簽字）：年 月 日附注：目 錄第一章 前言-2第二章 總體設(shè)計(jì)-3 2.1 項(xiàng)目背景-3 2.2 系統(tǒng)功能設(shè)置-3 2.3 系統(tǒng)功能模塊-3第三章 系統(tǒng)流程及庫(kù)文件-（4-8）3.1 系統(tǒng)流程-43.2 數(shù)據(jù)庫(kù)需求分析-43.3 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)-53.4 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)-(5-8)第四章 程序源碼-(8-21)4.1 登錄界面-(8-9)4.2 教師課程管理界面-(9-13)4.3 教務(wù)處管理界面-(13-18)4.4 學(xué)生選課管理界面-(18-21)第五章 系統(tǒng)測(cè)試-215.1 系統(tǒng)不足-215.2 學(xué)生選課管理界面-21第六章 用戶操作說(shuō)明-(21-26)6.1 前期工程-216.2 系統(tǒng)演示-(22-26)致謝-25參考文獻(xiàn)-25第一章 前 言信息管理系統(tǒng)（mis）是集計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)通信技術(shù)為一體的信息系統(tǒng)工程，它能夠使企業(yè)運(yùn)行的數(shù)據(jù)更加準(zhǔn)確、及時(shí)、全面、詳實(shí)，同時(shí)對(duì)各種信息進(jìn)一步的加工，使企業(yè)領(lǐng)導(dǎo)層對(duì)生產(chǎn)、經(jīng)營(yíng)的決策依據(jù)更充分，更具有合理性科學(xué)性，并創(chuàng)造出更多的發(fā)展機(jī)會(huì)；另外也進(jìn)一步加強(qiáng)企業(yè)的科學(xué)化、合理化、制度化、規(guī)范化管理，為企業(yè)的管理水平跨上新臺(tái)階，為企業(yè)持續(xù)、健康、穩(wěn)定的發(fā)展打下基礎(chǔ)。mis系統(tǒng)開發(fā)過(guò)程不僅僅是一個(gè)編寫應(yīng)用程序的過(guò)程，而是以軟件工程的思想為指導(dǎo)，從可行性研究開始，經(jīng)過(guò)系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施等主要階段而進(jìn)行規(guī)范的開發(fā)過(guò)程。目前國(guó)內(nèi)使用和發(fā)展的mis平臺(tái)模式大體上分為兩種：客戶機(jī)/服務(wù)器（client/server,簡(jiǎn)稱c/s）模式和瀏覽器/服務(wù)器（browser/server,簡(jiǎn)稱c/s）模式。mis系統(tǒng)不僅僅使用在企業(yè)中，它可以應(yīng)用的方面很廣，各行各業(yè)都可以應(yīng)用：金融、保險(xiǎn)、農(nóng)業(yè)、工業(yè)等等。只要是有數(shù)據(jù)采集整理紀(jì)錄的方面，都可以應(yīng)用。學(xué)校作為一個(gè)獨(dú)立的機(jī)構(gòu)同樣也不例外。而且學(xué)校的各種情況都比較復(fù)雜，各個(gè)機(jī)構(gòu)都各自獨(dú)立，又相互聯(lián)系，這就需要一個(gè)比較復(fù)雜的mis系統(tǒng)。學(xué)校的mis系統(tǒng)一般由以下管理部分組成：學(xué)生信息管理，教學(xué)管理，教務(wù)處管理，財(cái)務(wù)管理，物資管理，后勤管理等。學(xué)校的各個(gè)系統(tǒng)又分為不同的管理人員，不同的管理人員所看到的以及所操作管理的部分又不同，這就需要給不同的操作者提供不同的操作管理權(quán)限。不同身份的用戶所需要的資料也不同，這需要給不同的用戶提供不同的操作界面，進(jìn)行不同的操作。而且不同身份的客戶所關(guān)心的問(wèn)題也不同，比如學(xué)校的使用者大體分學(xué)生、教師、教務(wù)處、這就需要在做mis系統(tǒng)開發(fā)之前一定要做好前期的需求分析，中期的系統(tǒng)設(shè)計(jì)、程序開發(fā)，而且也要注意后期的系統(tǒng)維護(hù)。關(guān)鍵字:教學(xué)管理、課程申請(qǐng)、審批、選課、查詢第二章 總體設(shè)計(jì)2.1 項(xiàng)目背景當(dāng)今社會(huì)，科學(xué)技術(shù)飛速發(fā)展，知識(shí)更替日新月異。隨著計(jì)算機(jī)應(yīng)用在全世界的普遍推廣，各大中專院校都逐漸實(shí)現(xiàn)了計(jì)算機(jī)化管理，并且視野已經(jīng)深入到internet領(lǐng)域，實(shí)現(xiàn)了網(wǎng)絡(luò)化管理。在學(xué)校里，如果說(shuō)學(xué)生管理是為學(xué)習(xí)環(huán)境提供強(qiáng)大的后勤保障，那么教學(xué)管理就可以說(shuō)是學(xué)校發(fā)展的強(qiáng)勁動(dòng)力。加強(qiáng)教學(xué)管理，實(shí)現(xiàn)計(jì)算機(jī)化管理，不僅能使大中專院教學(xué)水平上了一個(gè)新臺(tái)階，而且方便了教學(xué)管理人員對(duì)學(xué)院教學(xué)、教師授課、學(xué)生學(xué)習(xí)等幾大環(huán)節(jié)的深入了解和全面掌握。在學(xué)校實(shí)現(xiàn)教學(xué)管理的計(jì)算機(jī)化，是學(xué)校建設(shè)的一個(gè)重要的方面。2.2 系統(tǒng)功能設(shè)置本文所作的軟件是mis系統(tǒng)中的教學(xué)管理系統(tǒng)，前臺(tái)用delphi所開發(fā)，后臺(tái)數(shù)據(jù)庫(kù)使用的是sql，采用的是b/s模式，其內(nèi)容包括：（1） 登錄界面（功能為為不同的用戶提供不同的登錄界面，實(shí)現(xiàn)不同權(quán)限的客戶不同的操作功能）；（2） 教師課程申請(qǐng)（包括增開新課程、刪除舊課程、修改已有課程，為學(xué)生選課時(shí)使用），教師的課程管理（包括開設(shè)的課程列表、所報(bào)課程的學(xué)生名單、輸入學(xué)生的成績(jī)）；（3） 教務(wù)處課程設(shè)置審批（包括審批課程詳細(xì)內(nèi)容、通過(guò)審批、拒絕申請(qǐng)），課程資源分配（主要完成上課教師和時(shí)間的分配。每學(xué)期開始選課前需要清除所有原分配的資源，重新輸入分配結(jié)果），選課結(jié)果查詢管理界面（主要功能是將選課的結(jié)果轉(zhuǎn)移到成績(jī)單中，同時(shí)兼有修改功能），成績(jī)單（主要完成每個(gè)課程成績(jī)單的查詢。另外由于時(shí)間的緣故，未能實(shí)現(xiàn)成績(jī)單的打印功能）；（4） 學(xué)生選課功能（主要功能是實(shí)現(xiàn)課程的查詢，把要選的課程加入已選課程表），學(xué)生查詢成績(jī)功能（實(shí)現(xiàn)自己已學(xué)課程列表的成績(jī)查詢）；2.3 系統(tǒng)功能模塊系統(tǒng)各功能模塊如圖所示：因?yàn)槭褂眠@套系統(tǒng)的人員不光是教務(wù)管理人員，還包括學(xué)生和教室。不同的身份對(duì)數(shù)據(jù)庫(kù)的操作權(quán)限也不同。為了避免管理的混亂，需要針對(duì)不同的角色設(shè)計(jì)不同的客戶端，分配不同的權(quán)限，對(duì)同一個(gè)數(shù)據(jù)庫(kù)進(jìn)行合理的修改。 教學(xué)管理信息體統(tǒng)是校園信息管理系統(tǒng)的一個(gè)重要的有機(jī)組成部分。這個(gè)系統(tǒng)與校園其它系統(tǒng)之間實(shí)現(xiàn)互依賴、相互補(bǔ)充的，他需要從學(xué)生信息管理系統(tǒng)獲取學(xué)生的個(gè)人信息，從教室信息管理系統(tǒng)獲取任課教師的相關(guān)信息。同時(shí)，此系統(tǒng)提供的成績(jī)單又為其它系統(tǒng)提供了必要的參考。第三章 系統(tǒng)流程及庫(kù)文件2.4 系統(tǒng)流程 流程圖如圖所示： 3.2 數(shù)據(jù)庫(kù)需求分析 根據(jù)圖所室的數(shù)據(jù)流程，教學(xué)管理信息系統(tǒng)需要下數(shù)據(jù)項(xiàng)：a. 課程：課程號(hào)、課程名稱、講課教師、學(xué)分、學(xué)時(shí)、上課時(shí)間、上課地點(diǎn)、課程簡(jiǎn)介、課程狀態(tài)。b. 選課結(jié)果：記錄編號(hào)、選課人、所選課程。c. 成績(jī)單：記錄編號(hào)、學(xué)生、課程、成績(jī)所需的外部數(shù)據(jù)支持a. 學(xué)生：學(xué)號(hào)、姓名、班級(jí);b. 教師：?jiǎn)T工號(hào)、姓名、所在院系;3.4 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)所需數(shù)據(jù)的e-r模型圖如圖所示：3.5 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)上面的e-r圖，需要三個(gè)基本信息表：教室信息、學(xué)生信息、課程信息。其中，教師信息和學(xué)生信息在實(shí)際系統(tǒng)是從其它信息管理系統(tǒng)的數(shù)據(jù)表中直接讀取。學(xué)生的選課信息需要用一個(gè)表來(lái)單獨(dú)保存。由于每學(xué)期期末前都要進(jìn)行選課，一次選課結(jié)束后要講這個(gè)表的內(nèi)容及時(shí)保存到成績(jī)單數(shù)據(jù)表中。使用本系統(tǒng)的不光是教務(wù)處的管理人員和教師，每個(gè)學(xué)生都需要登錄倒選課系統(tǒng)進(jìn)行課程的選擇。因此，需要對(duì)不同的登錄人員進(jìn)行密碼認(rèn)證和權(quán)限的限制，防止出現(xiàn)越權(quán)行為。用戶名、密碼和權(quán)限單獨(dú)保存在一個(gè)數(shù)據(jù)表中。另外需要一個(gè)表格保存各記錄號(hào)的計(jì)數(shù)值和一個(gè)課程狀態(tài)代碼表，這八個(gè)數(shù)據(jù)表的結(jié)構(gòu)如下圖所示：teacher 教師個(gè)人信息表 字段名數(shù)據(jù)類型是否為空說(shuō) 明idchar(6)not null員工號(hào)（主關(guān)鍵字）namevarchar(20)not null姓 名departmentchar(2)not null所屬院系student 學(xué)生個(gè)人信息表字段名數(shù)據(jù)類型是否為空說(shuō) 明idchar(6)not null學(xué)號(hào)（主關(guān)鍵字）namevarchar(20)not null姓 名classchar(4)null所在班級(jí)course 課程信息表字段名數(shù)據(jù)類型是否為空說(shuō) 明idchar(10)not null課程號(hào)（主關(guān)鍵字）namevarchar(50)not null課程名稱teacherchar(6)not null任課教師（外部關(guān)鍵字teacher）credit_hoursmallintnull學(xué) 分periodsmallintnull學(xué) 時(shí)classtimevarchar(20) null上課時(shí)間classroomvarchar(20)null上課地點(diǎn)introvarchar(4000)null課程簡(jiǎn)介statechar(1)not null課程狀態(tài)（外部關(guān)鍵字course_state）course_select 課程狀態(tài)代碼表字段名數(shù)據(jù)類型是否為空說(shuō) 明idintegernot null記錄號(hào)（主關(guān)鍵字）coursechar(10)not null課程號(hào)（外部關(guān)鍵字course）studentchar(6)not null選課學(xué)生（外部關(guān)鍵字student）score 成績(jī)信息表字段名數(shù)據(jù)類型是否為空說(shuō) 明idintegernot null記錄號(hào)（主關(guān)鍵字）studentchar(6)not null學(xué)號(hào)（外部關(guān)鍵字student）coursechar(10)not null課程號(hào)（外部關(guān)鍵字course）scorefloatnull成 績(jī)user_pass 用戶密碼信息表字段名數(shù)據(jù)類型是否為空說(shuō) 明idchar(6)not null用戶名（主關(guān)鍵字）passwdchar(15)not null密 碼authoritychar(1)not null權(quán) 限course_state 課程狀態(tài)代碼表字段名數(shù)據(jù)類型是否為空說(shuō) 明codechar(1)not null狀態(tài)代碼（主關(guān)鍵字）descriptionvarchar(20) not null描 述counter 計(jì)數(shù)信息表字段名數(shù)據(jù)類型是否為空說(shuō) 明idchar(1)not null計(jì)數(shù)器號(hào)（主關(guān)鍵字）counter_value char(15)not null計(jì)數(shù)值3.6初始數(shù)據(jù)的輸入 在開發(fā)應(yīng)用程序之前必須先輸入部分基礎(chǔ)的數(shù)據(jù)，包括部分教師的信息、用戶名密碼權(quán)限、所需的計(jì)數(shù)器和課程狀態(tài)代碼。計(jì)數(shù)器的設(shè)置如圖一所示，課程狀態(tài)代碼的設(shè)置如圖二所示，用戶權(quán)限設(shè)置的設(shè)置如圖三所示。圖一：計(jì)數(shù)器設(shè)置計(jì)數(shù)器編號(hào)說(shuō)明f成績(jī)記錄編號(hào)k課程編號(hào)x選課編號(hào)圖二：課程狀態(tài)代碼狀態(tài)代碼說(shuō)明0申請(qǐng)?jiān)黾有抡n1申請(qǐng)刪除舊課2申請(qǐng)修改課程3課選（激活）4等待課程安排5已刪除6拒絕申請(qǐng)圖三：用戶權(quán)限權(quán)限代碼說(shuō)明0學(xué)生1教師2教務(wù)處第四章 程序源碼以下為程序的原碼：4.1 登錄界面： 用戶認(rèn)證的過(guò)程在“登錄”按鈕b_login的onclick事件處理程序中完成，代碼如下：procedure tf_login.b_loginclick(sender: tobject);begin try database1.connected:=true; /打開數(shù)據(jù)庫(kù)連接 t_user.filter:=id=+i_user.text+; /根據(jù)輸入的用戶名設(shè)置過(guò)濾器 t_user.filtered:=true; /激活過(guò)濾器 t_user.open; /捕獲信息 except application.messagebox(請(qǐng)與系統(tǒng)管理員聯(lián)系。, 數(shù)據(jù)庫(kù)連接錯(cuò)誤！, mb_ok); application.terminate; /數(shù)據(jù)庫(kù)連接錯(cuò)誤，報(bào)錯(cuò)并中斷程序 end; if t_user.recordcount=1 then /判斷用戶名是否存在 begin if t_userauthority=0 then begin f_main_st:=tf_main_st.create(self); try f_main_st.showmodal; finally end;endelse if t_userauthority=1 then begin f_main_tc:=tf_main_tc.create(self); try f_main_tc.showmodal; finally end;end else begin f_main_jwc:=tf_main_jwc.create(self); try f_main_jwc.showmodal; finally end; end end else application.messagebox(密碼不正確，請(qǐng)重新確認(rèn)，注意大小寫！, 密碼不匹配, mb_ok); end else application.messagebox(請(qǐng)確認(rèn)用戶名是否正確！, 無(wú)此用戶, mb_ok); end; 4.1 教師課程管理界面：申請(qǐng)界面的onshow事件和“恢復(fù)表單”按鈕的onclick事件使用同一個(gè)事件處理程序，主要是初始化申請(qǐng)表單，代碼如下：procedure tf_main_tc.b_resetclick(sender: tobject); /初始化申請(qǐng)表單 begin i_state_1.itemindex:=0; /申請(qǐng)初始化到增開新課 i_state_1click(nil); /調(diào)用申請(qǐng)修改程序 i_name_1.text:=; /清除課程名 i_credit_hour_1.text:=0; /初始化學(xué)分 i_period_1.text:=0; /初始化學(xué)時(shí) i_intro_1.lines.clear; /清除課程簡(jiǎn)介 end;關(guān)閉窗口時(shí)，要同時(shí)關(guān)閉整個(gè)應(yīng)用程序，因此窗體onclose事件處理程序代碼如下：procedure tf_main_tc.formclose(sender: tobject; var action: tcloseaction);begin f_login.i_user.text:=; /登錄界面清空f(shuō)_login.i_passwd.text:=;close; /釋放 end;當(dāng)修改申請(qǐng)的內(nèi)容時(shí)，程序要根據(jù)情況決定是否顯示已開課程列表?？刂拼a在i_state_1的onclick時(shí)間處理程序中，代碼如下：procedure tf_main_tc.i_state_1click(sender: tobject);begin if i_state_1.itemindex0 then /如果不是新開課程，則顯示列表 begin t_course_1.filter:=teacher=+f_login.i_user.text+ and state5 and state1; t_course_1.filtered:=true; /獲取當(dāng)前教師所開的課程 t_course_1.open; /不包括已刪除和申請(qǐng)刪除的課程 o_course_1.enabled:=true; /激活已開課程列表 o_course_1cellclick(nil); end else begin /如果是新開課程 t_course_1.close; /關(guān)閉已開課程數(shù)據(jù)表 o_course_1.enabled:=false; /取消課程列表顯示 end;end;如果是刪除或修改舊的課程，在單擊課程列表時(shí)，將在輸入框中顯示課程的詳細(xì)信息，代碼如下：procedure tf_main_tc.o_course_1cellclick(column: tcolumn);begin if t_course_1.active then /判斷課程信息表是否激活 begin i_name_1.text:=t_course_1name; /提取課程名稱 i_credit_hour_1.text:=t_course_1credit_hour; /提取課程學(xué)分 i_period_1.text:=t_course_1period; /提取課程學(xué)時(shí) i_intro_1.lines.clear; /清除簡(jiǎn)介 i_intro_1.lines.add(t_course_1intro); /提取課程簡(jiǎn)介 end;end;表單的提交在提交按鈕b_submit的onclick事件處理程序中進(jìn)行，代碼如下：procedure tf_main_tc.b_submitclick(sender: tobject);var counter:integer; /用于計(jì)數(shù) course_id:string; /用于保存課程編號(hào)begin case i_state_1.itemindex of /根據(jù)不同申請(qǐng)，分別處理 0: /0：增加新課 begin /獲取課程計(jì)數(shù) t_counter_k.open; /打開計(jì)數(shù)器表 counter:=t_counter_kcounter_value; /獲取計(jì)數(shù)值 inc(counter); /增加計(jì)數(shù)值 t_counter_k.edit; /修改計(jì)數(shù)器 t_counter_kcounter_value:=counter; /輸入新值 t_counter_k.post; /提交修改 t_counter_k.close; /關(guān)閉計(jì)數(shù)器表 /合成課程編號(hào) course_id:=00000+inttostr(counter); /將計(jì)數(shù)值轉(zhuǎn)換為字符串 course_id:=copy(course_id,length(course_id)-6,6); /截取固定長(zhǎng)度字符串 course_id:=formatdatetime(yyyy,now)+course_id; /添加年份信息 /添加課程信息 t_course_1.filtered:=false; /取消過(guò)濾 t_course_1.open; t_course_1.appendrecord(course_id, i_name_1.text, f_login.i_user.text, i_credit_hour_1.text, i_period_1.text, , , i_intro_1.lines, 0); /追加紀(jì)錄 end; 1: /1：刪除 begin t_course_1.filtered:=false; /取消過(guò)濾 t_course_1.edit; /進(jìn)行修改 t_course_1state:=1; /改變課程狀態(tài) t_course_1.post; /提交修改 end; 2: /2：申請(qǐng)修改 begin t_course_1.filtered:=false; t_course_1.edit; /進(jìn)行修改 t_course_1name:=i_name_1.text; /修改課程名稱 t_course_1credit_hour:=i_credit_hour_1.value; /修改課程學(xué)分 t_course_1period:=i_period_1.value; /修改課程學(xué)時(shí) t_course_1intro:=i_intro_1.lines.text; /修改課程信息 t_course_1state:=2; /修改課程狀態(tài) t_course_1.post; /提交 end; end; b_resetclick(nil); /恢復(fù)表單end;在界面初始化的時(shí)候，需要列出可選的課程列表。tabsheet2的onshow事件處理代碼如下：procedure tf_main_tc.tabsheet2show(sender: tobject);begin /選取激活的課程 t_course_1.filter:=teacher=+f_login.i_user.text+ and state=3; /設(shè)置過(guò)濾條件 t_course_1.filtered:=true; /激活過(guò)濾器 t_course_1.open; /打開數(shù)據(jù)表 o_course_2cellclick(nil); /顯示學(xué)生名單和成績(jī)輸入表 t_students.open; /打開學(xué)生名單表end;當(dāng)單擊課程列表時(shí)，顯示相應(yīng)課程的學(xué)生名單和成績(jī)單輸入表。程序代碼在o_course_2的oncellclick事件處理中：procedure tf_main_tc.o_course_2cellclick(column: tcolumn);begin q_students.close; /關(guān)閉查詢 q_students.params.paramvaluescourse:=t_course_1id; /設(shè)置課程參數(shù) q_students.open; /重新打開查詢end;4.3 教務(wù)處管理界面：界面初始化工作在tabsheet1的onshow事件處理程序中完成，代碼如下：procedure tf_main_jwc.tabsheet1show(sender: tobject); /界面初始化begin /打開申請(qǐng)課程列表 t_course_apply.open; /打開教師信息表 t_teacher.open;end;“通過(guò)審批”按鈕的代碼如下：procedure tf_main_jwc.b_passclick(sender: tobject); /通過(guò)審批begin q_update.close; /關(guān)閉查詢 q_update.sql.clear; /清除語(yǔ)句 q_update.sql.add(update course); q_update.sql.add(set state=4); /4：通過(guò) q_update.sql.add(where id=+t_course_applyid+); q_update.execsql; t_course_apply.refresh;end;“拒絕請(qǐng)求”的按鈕代碼如下：procedure tf_main_jwc.b_rejectclick(sender: tobject); /拒絕請(qǐng)求begin q_update.close; /關(guān)閉查詢 q_update.sql.clear; /清除sql語(yǔ)句 q_update.sql.add(update course); /添加修改課程狀態(tài)的sql語(yǔ)句 q_update.sql.add(set state=6); /6：拒絕申請(qǐng) q_update.sql.add(where id=+t_course_applyid+); q_update.execsql; /執(zhí)行 t_course_apply.refresh; /刷新end;界面初始化工作在tabsheet2的onshow事件處理程序中，代碼如下：procedure tf_main_jwc.tabsheet2show(sender: tobject); /界面初始化begin /關(guān)閉未分配課程查詢 q_course_not_actived.close; /關(guān)閉已分配課程查詢 q_course_actived.close; /打開未分配課程查詢 q_course_not_actived.open; /打開已分配課程查詢 q_course_actived.open;end;“提交分配”的處理程序如下：procedure tf_main_jwc.b_submitclick(sender: tobject); begin with q_submit do /設(shè)置默認(rèn)前綴q_submit begin close; sql.clear; sql.add(update course); /添加修改記錄用的sql語(yǔ)句 sql.add(set classroom=+i_classroom.text+ , classtime=+i_time.text+ , state=3); sql.add(where id=+q_course_not_activedid+); execsql; /執(zhí)行 end; tabsheet2show(nil); i_classroom.text:=; i_time.text:=;end;“取消當(dāng)前分配紀(jì)錄”的代碼如下：procedure tf_main_jwc.b_disableclick(sender: tobject); /取消當(dāng)前分配紀(jì)錄begin / 設(shè)置默認(rèn)前綴q_submit with q_submit do begin close; sql.clear; sql.add(update course); sql.add(set state=4); sql.add(where id=+q_course_activedid+); execsql; end; tabsheet2show(nil);end;“清除所有舊的分配”的代碼如下:procedure tf_main_jwc.b_clear_allclick(sender: tobject); /清除所有舊的分配begin if application.messagebox( 確認(rèn)要清除所有已分配資源？, 操作確認(rèn), mb_okcancel)=idok then /確認(rèn) begin /使用sql語(yǔ)句的update指令來(lái)修改紀(jì)錄 with q_submit do /設(shè)置默認(rèn)前綴q_submit begin close; sql.clear; /添加修改用的sql語(yǔ)句 sql.add(update course); sql.add(set state=4); sql.add(where state=3); execsql; end; tabsheet2show(nil); /刷新顯示 end;end;選課結(jié)果布局初始化工作在tabsheet3的onshow事件處理程序中完成：procedure tf_main_jwc.tabsheet3show(sender: tobject); /選課結(jié)果布局初始化begin t_course_select.open; /打開已選課程數(shù)據(jù)表 t_score.open; /打開成績(jī)數(shù)據(jù)表end;“轉(zhuǎn)移紀(jì)錄”按鈕的代碼如下：procedure tf_main_jwc.bu