【文章內(nèi)容簡介】 TColumn)。begin if then //判斷課程信息表是否激活 begin :=T_course_1[39。NAME39。]。 //提取課程名稱 :=T_course_1[39。CREDIT_HOUR39。]。 //提取課程學分 :=T_course_1[39。PERIOD39。]。 //提取課程學時 。 //清除簡介 (T_course_1[39。INTRO39。])。 //提取課程簡介 end。end。表單的提交在提交按鈕B_submit的OnClick事件處理程序中進行，代碼如下：procedure (Sender: TObject)。var counter:integer。 //用于計數(shù) course_id:String。 //用于保存課程編號begin case of //根據(jù)不同申請，分別處理 0: //0：增加新課 begin //獲取課程計數(shù) 。 //打開計數(shù)器表 counter:=T_counter_K[39。COUNTER_VALUE39。]。 //獲取計數(shù)值 inc(counter)。 //增加計數(shù)值 。 //修改計數(shù)器 T_counter_K[39。COUNTER_VALUE39。]:=counter。 //輸入新值 。 //提交修改 。 //關閉計數(shù)器表 //合成課程編號 course_id:=39。0000039。+IntToStr(counter)。 //將計數(shù)值轉(zhuǎn)換為字符串 course_id:=copy(course_id,length(course_id)6,6)。 //截取固定長度字符串 course_id:=FormatDateTime(39。yyyy39。,now)+course_id。 //添加年份信息 //添加課程信息 :=False。 //取消過濾 。 ([course_id, , , , , 39。39。, 39。39。, , 39。039。])。 //追加紀錄 end。 1: //1：刪除 begin :=False。 //取消過濾 。 //進行修改 T_course_1[39。STATE39。]:=39。139。 //改變課程狀態(tài) 。 //提交修改 end。 2: //2：申請修改 begin :=False。 。 //進行修改 T_course_1[39。NAME39。]:=。 //修改課程名稱 T_course_1[39。CREDIT_HOUR39。]:=。 //修改課程學分 T_course_1[39。PERIOD39。]:=。 //修改課程學時 T_course_1[39。INTRO39。]:=。 //修改課程信息 T_course_1[39。STATE39。]:=39。239。 //修改課程狀態(tài) 。 //提交 end。 end。 B_resetClick(nil)。 //恢復表單end。在界面初始化的時候，需要列出可選的課程列表。TabSheet2的OnShow事件處理代碼如下：procedure (Sender: TObject)。begin //選取激活的課程 :=39。TEACHER=39。39。39。++39。39。39。 AND STATE=39。39。339。39。39。 //設置過濾條件 :=True。 //激活過濾器 。 //打開數(shù)據(jù)表 o_course_2CellClick(nil)。 //顯示學生名單和成績輸入表 。 //打開學生名單表end。當單擊課程列表時，顯示相應課程的學生名單和成績單輸入表。程序代碼在o_course_2的OnCellClick事件處理中：procedure (Column: TColumn)。begin 。 //關閉查詢 [39。COURSE39。]:=T_course_1[39。ID39。]。 //設置課程參數(shù) 。 //重新打開查詢end。 教務處管理界面：界面初始化工作在TabSheet1的OnShow事件處理程序中完成，代碼如下：procedure (Sender: TObject)。 //界面初始化begin //打開申請課程列表 。 //打開教師信息表 。end?！巴ㄟ^審批”按鈕的代碼如下：procedure (Sender: TObject)。 //通過審批begin 。 //關閉查詢 。 //清除語句 (39。UPDATE COURSE39。)。 (39。SET STATE=439。)。 //4：通過 (39。WHERE ID=39。+T_course_apply[39。ID39。]+39。39。)。 。 。end?！熬芙^請求”的按鈕代碼如下：procedure (Sender: TObject)。 //拒絕請求begin 。 //關閉查詢 。 //清除SQL語句 (39。UPDATE COURSE39。)。 //添加修改課程狀態(tài)的SQL語句 (39。SET STATE=639。)。 //6：拒絕申請 (39。WHERE ID=39。+T_course_apply[39。ID39。]+39。39。)。 。 //執(zhí)行 。 //刷新end。界面初始化工作在TabSheet2的OnShow事件處理程序中，代碼如下：procedure (Sender: TObject)。 //界面初始化begin //關閉未分配課程查詢 。 //關閉已分配課程查詢 。 //打開未分配課程查詢 。 //打開已分配課程查詢 。end?！疤峤环峙洹钡奶幚沓绦蛉缦拢簆rocedure (Sender: TObject)。 begin With Q_submit do //設置默認前綴Q_su