【正文】 值和一個(gè)課程狀態(tài)代碼表，這八個(gè)數(shù)據(jù)表的結(jié)構(gòu)如下圖所示：TEACHER 教師個(gè)人信息表 字段名數(shù)據(jù)類型是否為空說 明IDCHAR(6)NOT NULL員工號(hào)（主關(guān)鍵字）NAMEVARCHAR(20)NOT NULL姓 名DEPARTMENTCHAR(2)NOT NULL所屬院系STUDENT 學(xué)生個(gè)人信息表字段名數(shù)據(jù)類型是否為空說 明IDCHAR(6)NOT NULL學(xué)號(hào)（主關(guān)鍵字）NAMEVARCHAR(20)NOT NULL姓 名CLASSCHAR(4)NULL所在班級(jí)COURSE 課程信息表字段名數(shù)據(jù)類型是否為空說 明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ù)類型是否為空說 明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ù)類型是否為空說 明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ù)類型是否為空說 明IDCHAR(6)NOT NULL用戶名（主關(guān)鍵字）PASSWDCHAR(15)NOT NULL密 碼AUTHORITYCHAR(1)NOT NULL權(quán) 限COURSE_STATE 課程狀態(tài)代碼表字段名數(shù)據(jù)類型是否為空說 明CODECHAR(1)NOT NULL狀態(tài)代碼（主關(guān)鍵字）DESCRIPTIONVARCHAR(20) NOT NULL描 述COUNTER 計(jì)數(shù)信息表字段名數(shù)據(jù)類型是否為空說 明IDCHAR(1)NOT NULL計(jì)數(shù)器號(hào)（主關(guān)鍵字）COUNTER_VALUE CHAR(15)NOT NULL計(jì)數(shù)值 在開發(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)說明F成績(jī)記錄編號(hào)K課程編號(hào)X選課編號(hào)圖二：課程狀態(tài)代碼狀態(tài)代碼說明0申請(qǐng)?jiān)黾有抡n1申請(qǐng)刪除舊課2申請(qǐng)修改課程3課選（激活）4等待課程安排5已刪除6拒絕申請(qǐng)圖三：用戶權(quán)限權(quán)限代碼說明0學(xué)生1教師2教務(wù)處第四章 程序源碼以下為程序的原碼： 登錄界面： 用戶認(rèn)證的過程在“登錄”按鈕B_login的OnClick事件處理程序中完成，代碼如下：procedure (Sender: TObject)。begin try :=True。 //打開數(shù)據(jù)庫連接 :=39。ID=39。39。39。++39。39。39。39。 //根據(jù)輸入的用戶名設(shè)置過濾器 :=True。 //激活過濾器 。 //捕獲信息 except (39。請(qǐng)與系統(tǒng)管理員聯(lián)系。39。, 39。數(shù)據(jù)庫連接錯(cuò)誤！39。, MB_OK)。 。 //數(shù)據(jù)庫連接錯(cuò)誤，報(bào)錯(cuò)并中斷程序 end。 if =1 then //判斷用戶名是否存在 begin if T_user[39。AUTHORITY39。]=39。039。 then begin F_main_st:=(Self)。 try 。 finally end。endelse if T_user[39。AUTHORITY39。]=39。139。 then begin F_main_tc:=(Self)。 try 。 finally end。end else begin F_main_jwc:=(Self)。 try 。 finally end。 end end else (39。密碼不正確，請(qǐng)重新確認(rèn)，注意大小寫！39。, 39。密碼不匹配39。, MB_OK)。 End else (39。請(qǐng)確認(rèn)用戶名是否正確！39。, 39。無此用戶39。, MB_OK)。 end。 教師課程管理界面：申請(qǐng)界面的OnShow事件和“恢復(fù)表單”按鈕的OnClick事件使用同一個(gè)事件處理程序，主要是初始化申請(qǐng)表單，代碼如下：procedure (Sender: TObject)。 //初始化申請(qǐng)表單 begin :=0。 //申請(qǐng)初始化到增開新課 i_state_1Click(nil)。 //調(diào)用申請(qǐng)修改程序 :=39。39。 //清除課程名 :=39。039。 //初始化學(xué)分 :=39。039。 //初始化學(xué)時(shí) 。 //清除課程簡(jiǎn)介 end。關(guān)閉窗口時(shí)，要同時(shí)關(guān)閉整個(gè)應(yīng)用程序，因此窗體OnClose事件處理程序代碼如下：procedure (Sender: TObject。 var Action: TCloseAction)。begin :=39。39。 //登錄界面清空:=39。39。Close。 //釋放 end。當(dāng)修改申請(qǐng)的內(nèi)容時(shí)，程序要根據(jù)情況決定是否顯示已開課程列表?？刂拼a在i_state_1的OnClick時(shí)間處理程序中，代碼如下：procedure (Sender: TObject)。begin if 0 then //如果不是新開課程，則顯示列表 begin :=39。TEACHER=39。39。39。++39。39。39。 AND STATE39。39。539。39。 AND STATE39。39。139。39。39。 :=True。 //獲取當(dāng)前教師所開的課程 。 //不包括已刪除和申請(qǐng)刪除的課程 :=True。 //激活已開課程列表 o_course_1CellClick(nil)。 end else begin //如果是新開課程 。 //關(guān)閉已開課程數(shù)據(jù)表 :=False。 //取消課程列表顯示 end。end。如果是刪除或修改舊的課程，在單擊課程列表時(shí)，將在輸入框中顯示課程的詳細(xì)信息，代碼如下：procedure (Column: