【正文】 此界面一個(gè)附帶的功能就是在選課結(jié)束后修改選課的結(jié)果。圖64 選課界面在期末教師輸入成績單后，學(xué)生課在查詢成績界面中察看自己的學(xué)科成績。首先是登錄窗口，因?yàn)橐还苍O(shè)置了三種不同的權(quán)限（0學(xué)生, 1教師, 2教務(wù)處）,又為了方便演示，故所有的用戶密碼就是用戶的權(quán)限，圖51是教師課程管理系統(tǒng)的登錄界面。]。 TabSheet1Show(nil)。end。+IntToStr(counter)+39。 //提取計(jì)數(shù)值 Inc(counter)。39。 //釋放end。end。+ 39。 :=Q_info[39。 //關(guān)閉查詢 [0].AsString:=。COUNTER_VALUE39。 //轉(zhuǎn)移紀(jì)錄var counter:integer。 (39。39。39。++ 39。界面初始化工作在TabSheet2的OnShow事件處理程序中，代碼如下：procedure (Sender: TObject)。 //清除SQL語句 (39。 (39。COURSE39。39。 //修改課程信息 T_course_1[39。 //改變課程狀態(tài) 。 //添加年份信息 //添加課程信息 :=False。COUNTER_VALUE39。CREDIT_HOUR39。139。 //釋放 end。 //申請初始化到增開新課 i_state_1Click(nil)。end else begin F_main_jwc:=(Self)。 。 //打開數(shù)據(jù)庫連接 :=39。同時(shí)，此系統(tǒng)提供的成績單又為其它系統(tǒng)提供了必要的參考。學(xué)校的MIS系統(tǒng)一般由以下管理部分組成：學(xué)生信息管理，教學(xué)管理，教務(wù)處管理，財(cái)務(wù)管理，物資管理，后勤管理等。學(xué)校的各個(gè)系統(tǒng)又分為不同的管理人員，不同的管理人員所看到的以及所操作管理的部分又不同，這就需要給不同的操作者提供不同的操作管理權(quán)限。第三章 系統(tǒng)流程及庫文件 系統(tǒng)流程 流程圖如圖所示： 數(shù)據(jù)庫需求分析 根據(jù)圖所室的數(shù)據(jù)流程，教學(xué)管理信息系統(tǒng)需要下數(shù)據(jù)項(xiàng)：A. 課程：課程號、課程名稱、講課教師、學(xué)分、學(xué)時(shí)、上課時(shí)間、上課地點(diǎn)、課程簡介、課程狀態(tài)。ID=39。 //數(shù)據(jù)庫連接錯(cuò)誤，報(bào)錯(cuò)并中斷程序 end。 try 。 //調(diào)用申請修改程序 :=39。當(dāng)修改申請的內(nèi)容時(shí)，程序要根據(jù)情況決定是否顯示已開課程列表。39。]。]。 //取消過濾 。 //提交修改 end。STATE39。39。]:=T_course_1[39。SET STATE=439。UPDATE COURSE39。 //界面初始化begin //關(guān)閉未分配課程查詢 。, STATE=339。end。)。SET STATE=439。begin 。]:=counter。 //設(shè)置課程編號參數(shù) 。COUNT39。 WHERE COURSE=39。中斷程序退出，代碼如下：procedure (Sender: TObject。在TabSheet1中OnShow事件處理程序中進(jìn)行初始化，代碼如下：procedure (Sender: TObject)。 and STATE=39。 //推進(jìn)計(jì)數(shù)值 。,39。刪除當(dāng)前選中的課程在B_del的OnClick事件處理程序中實(shí)現(xiàn)，代碼如下：procedure (Sender: TObject)。end。 。圖61 教師登錄界面輸入用戶名和密碼后，進(jìn)入教師課程管理程序主界面，單擊“課程設(shè)置申請”標(biāo)簽進(jìn)入課程設(shè)置申請界面，如圖82所示：圖62 課程設(shè)置申請此界面主要是完成課程的各項(xiàng)申請。成績查詢界面如圖65所示。圖68 選課結(jié)果查詢管理 最后已項(xiàng)功能是成績單的查詢，如圖69所示。這項(xiàng)功能主要是將選課的結(jié)果移存到成績單數(shù)據(jù)表中，并且晴空選課結(jié)果數(shù)據(jù)表，已備期末的時(shí)候進(jìn)行下學(xué)期的選課。選課過程中，系統(tǒng)會隨時(shí)統(tǒng)計(jì)已選課程的總學(xué)分。 系統(tǒng)演示完成以上所有的編程內(nèi)容后，我們可以來看看程序的運(yùn)行效果。ID39。 end。,MB_OK)。VALUES (39。]。39。 。,MB_OK)。SELECT COUNT(STUDENT) as COUNT FROM SCORE39。 //添加統(tǒng)計(jì)語句 。 //提取課程信息 if =1 then //判斷記錄是否存在 begin //顯示成績列表 。 //編輯計(jì)數(shù)器 T_counter_F[39?！稗D(zhuǎn)移紀(jì)錄”按鈕的代碼如下：procedure (Sender: TObject)。)。]+39。 :=39。, CLASSTIME=39。 //刷新end。 //關(guān)閉查詢 。)。 //關(guān)閉查詢 [39。++39。]:=。139。,now)+course_id。 //打開計(jì)數(shù)器表 counter:=T_counter_K[39。 //提取課程名稱 :=T_course_1[39。39。Close。 //初始化申請表單 begin :=0。 finally end。, MB_OK)。begin try :=True。這個(gè)系統(tǒng)與校園其它系統(tǒng)之間實(shí)現(xiàn)互依賴、相互補(bǔ)充的，他需要從學(xué)生信息管理系統(tǒng)獲取學(xué)生的個(gè)人信息，從教室信息管理系統(tǒng)獲取任課教師的相關(guān)信息。而且學(xué)校的各種情況都比較復(fù)雜，各個(gè)機(jī)構(gòu)都各自獨(dú)立，又相互聯(lián)系，這就需要一個(gè)比較復(fù)雜的MIS系統(tǒng)。不同身份的用戶所需要的資料也不同，這需要給不同的用戶提供不同的操作界面，進(jìn)行不同的操作。B. 選課結(jié)果：記錄編號、選課人、所選課程。39。 if =1 then //判斷用戶名是否存在 begin if T_user[39。 finally end。39?？刂拼a在i_state_1的OnClick時(shí)間處理程序中，代碼如下：procedure (Sender: TObject)。39。 //提取課程學(xué)分 :=T_course_1[39。 //獲取計(jì)數(shù)值 inc(counter)。 ([course_id, , , , , 39。 2: //2：申請修改 begin :=False。]:=39。 AND STATE=39。ID39。)。)。 //關(guān)閉已分配課程查詢 。)?！叭∠?dāng)前分配紀(jì)錄”的代碼如下：procedure (Sender: TObject)。 ExecSQL。)。 //打開計(jì)數(shù)器 counter:=T_counter_F[39。 //設(shè)置計(jì)數(shù)值 。 //打開成績查詢 //查詢課程統(tǒng)計(jì)信息 。]。++39。 var Action: TCloseAction)。 //初始化begin 。39。 //修改計(jì)數(shù)器紀(jì)錄 T_counter_X[39。 ++39。 //刪除當(dāng)前選中的課程begin With Q_select do begin Close。TabSheet2的OnShow事件處理程序?qū)崿F(xiàn)界面的初始化工作，代碼如下：procedure (Sender: TObject)。 //統(tǒng)計(jì)平均值 。選擇“增開新的課程”時(shí)，允許輸入全新的信息。單擊不同的課程，即可顯示該門課程的成績和各