【正文】 trSql:=strSql+39。 , ,39。 strSql:=strSql+39。 , ,39。 strSql:=strSql+39。 , ,39。 strSql:=strSql+39。 FROM JBXX2 INNER JOIN39。 strSql:=strSql+39。 XS_BASE ON = JOIN XS_EXPEND ON = JOIN39。 strSql:=strSql+39。 MZB ON = JOIN ZZMMB ON = JOIN39。 strSql:=strSql+39。 BJXX ON = LEFT OUTER JOIN39。 //外連接班級(jí)擴(kuò)展信息 strSql:=strSql+39。 XS_BJXX ON = LEFT OUTER JOIN39。 //外連接專業(yè)表 strSql:=strSql+39。 XS_ZYB ON = LEFT OUTER JOIN39。 //外連接籍貫表 strSql:=strSql+39。 SFB ON = LEFT OUTER JOIN39。 strSql:=strSql+39。 JGB ON = 39。 strSql:=strSql+39。 Where =39。+39。39。39。39。+crntXH+39。39。39。39。 。 (strSql)。 。end。④基礎(chǔ)編碼維護(hù)：直接維護(hù)職業(yè)類別表與檔案材料表。通過ADOTable對(duì)象來實(shí)現(xiàn)與數(shù)據(jù)庫中表的聯(lián)系，直接讀取或編輯更新數(shù)據(jù)表。⑤擇業(yè)意向登記與就業(yè)去向登記：根據(jù)學(xué)生的擇業(yè)要求和志向，登記其擅長的職業(yè)類別；按照畢業(yè)生的實(shí)際就業(yè)去向，登記畢業(yè)生的畢業(yè)單位、職務(wù)、聯(lián)系方式等信息，以進(jìn)行各種數(shù)據(jù)的統(tǒng)計(jì)和信息的交流。采用DBGrid來顯示學(xué)生信息，而用數(shù)據(jù)庫控件來綁定就業(yè)詳細(xì)信息；用按鈕來實(shí)現(xiàn)數(shù)據(jù)的添加、修改和刪除。關(guān)鍵在于按鈕狀態(tài)（增、刪、改）的實(shí)現(xiàn)：procedure ()。//刷新就業(yè)信息var strSql,strJobXH:String。begin strJobXH:=trim()。//取得學(xué)號(hào) if strJobXH=39。39。 then //為空，程序出錯(cuò)，退出 abort。 strSql:=39。Select xs_jyxx.* from xs_jyxx Where XH=39。+39。39。39。39。+strJobXH+39。39。39。39。 //查詢是否已有該生就業(yè)信息 。 (strSql)。 。 //控制權(quán)限 if then //處于編輯狀態(tài) begin if not then //有該生就業(yè)信息 begin :=true。 //可編輯 :=true。 :=true。 :=true。 :=true。 :=true。 :=false。 :=true。 //刪除為有效 :=true。 //確認(rèn)編輯為有效 end else //無就業(yè)信息，可添加 begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 //添加為有效 :=false。 //刪除無效 :=false。 //確認(rèn)無效 end。 end。 //end of end。 //end of procedure就業(yè)登記界面如下：⑥畢業(yè)生檔案材料管理：登記畢業(yè)生的檔案材料信息，并提供查詢，以確認(rèn)該生是否具備正常的可畢業(yè)手續(xù)。代碼如下：procedure ()。//刷新檔案材料信息var strSql,strCrntXH:String。begin strSql:=39。Select as 學(xué)號(hào),xm as 姓名,xb as 性別,39。 strSql:=strSql+39。 as 檔案材料代碼,DACLMC as 檔案材料名稱,39。 strSql:=strSql+39。 as 備注39。 strSql:=strSql+39。 from jbxx2,xs_daxx,xs_damc39。 strSql:=strSql+39。 Where = and =39。 strCrntXH:=trim((39。學(xué)號(hào)39。).AsString)。 strSql:=strSql+39。 and =39。+39。39。39。39。+strCrntXH+39。39。39。39。 。 (strSql)。 。 strSql:=39。Select * From xs_daxx Where xh=39。+39。39。39。39。+strCrntXH+39。39。39。39。 。 (strSql)。 。end。界面如下：畢業(yè)經(jīng)費(fèi)處理與檔案材料基本相同。⑦畢業(yè)證書發(fā)放管理：對(duì)畢業(yè)證和學(xué)位證的發(fā)放進(jìn)行管理，登記畢業(yè)證和學(xué)位證的發(fā)放情況，并對(duì)數(shù)據(jù)的完整性進(jìn)行控制：畢業(yè)證發(fā)放日期如果不為空，則畢業(yè)證編號(hào)不能為空；學(xué)位證發(fā)放日期不為空，則學(xué)位證編號(hào)不能為空；若畢業(yè)證發(fā)放日期為空，則必須說明證書未發(fā)放原因。界面如下：進(jìn)行數(shù)據(jù)完整性控制的代碼如下：procedure (Sender: TObject)。var strBYZRQ,strBYZBH,strXWZRQ,strXWZBH:String。begin strBYZRQ:=trim()。 //畢業(yè)證日期 strBYZBH:=trim()。 //畢業(yè)證編號(hào) strXWZRQ:=trim()。 //學(xué)位證日期 strXWZBH:=trim()。 //學(xué)位證編號(hào) if (strBYZRQ=39。39。) xor (strBYZBH=39。39。) then //異或運(yùn)算 if MessageDlg(39。畢業(yè)證頒發(fā)日期和畢業(yè)證編號(hào)不符!39。+13+39。要取消本次更新操作嗎?39。,mtWarning,[mbYes,mbNo],0)=mrYes then begin 。 //選擇取消 ()。 abort。 end else abort。 if (strBYZRQ=39。39。) and (strBYZBH=39。39。) and (strXWZRQ39。39。)then // ……處理學(xué)位證 if (strBYZRQ=39。39。) and (strBYZBH=39。39。) and (strXWZRQ=39。39。) and (strXWZBH=39。39。) and (trim()=39。39。) then //未獲證 if MessageDlg(39。未獲得畢業(yè)證和[或]學(xué)位證的請(qǐng)寫明原因!39。+13+39。要取消本次更新操作嗎?39。,mtWarning,[mbYes,mbNo],0)=mrYes then begin 。 ()。 abort。 end else abort。 if not then(39。XH39。).AsString:= else 。 。 ()。end。⑧畢業(yè)證發(fā)放統(tǒng)計(jì)：統(tǒng)計(jì)畢業(yè)證書的發(fā)放情況，以餅狀圖顯示結(jié)果，并用網(wǎng)格形式顯示詳細(xì)數(shù)據(jù)。界面如下：代碼設(shè)計(jì)與其它查詢統(tǒng)計(jì)模塊相似。. 教學(xué)評(píng)價(jià)打分基礎(chǔ)教學(xué)信息模塊教室簡況管理課程名稱簡況管理教材簡況管理系科簡況管理增加刪除修改增加刪除修改增加刪除修改增加刪除修改模塊名稱：系科簡況增加輸入：新增的系科數(shù)據(jù)。處理： 將輸入信息直接寫入到“系科信系表”中。處理結(jié)果：增加一系科記錄數(shù)據(jù)表 Depart 系科表JS 教師表 模塊名稱：系科簡況修改輸入：修改的系科數(shù)據(jù)。處理： 將修改的信息直接替換到“系科信系表”中。處理結(jié)果：表中數(shù)據(jù)被修改數(shù)據(jù)表 Depart 系科表JS 教師表 模塊名稱：系科簡況刪除輸入：無處理： 刪除“系科信系表”中的當(dāng)前記錄。處理結(jié)果：系科表中減少一條記錄數(shù)據(jù)表 Depart 系科表JS 教師表 其它教材、教室、課程簡況信息的管理類似。功能： ①對(duì)基礎(chǔ)教學(xué)信息（主要指全院系科信息、課程信息、教室信息、教材信息）整理、規(guī)范，相應(yīng)名稱及全院統(tǒng)一編制的ID(Identfier)號(hào)插、查、刪、改；②制表輸出。設(shè)計(jì)：本模塊處理的數(shù)據(jù)比較簡單，主要完成系科信息表(Depart)、課程信息表(CourseInfo)、教室信息表(Classroom)、教材信息表(JCXX)等相應(yīng)數(shù)據(jù)及編碼的輸入、刪除、修改，在輸入系科類似的已編碼數(shù)據(jù)時(shí)，要通過名稱下選而保存的是相應(yīng)的ID信息。這主要通過TDBLookupComboBox來實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性： DataSource //待輸入數(shù)據(jù)的數(shù)據(jù)源 DataField //待輸入數(shù)據(jù)的字段名 KeyField //關(guān)聯(lián)字段 ListField //下選顯示字段 ListSource //下選數(shù)據(jù)源在數(shù)據(jù)瀏覽的網(wǎng)格圖表中，各編碼字段要顯示為相應(yīng)的名稱，這要通過在數(shù)據(jù)集中新建Lookup類型的字段來實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性： Field Property FieldType:=Lookup Lookup Definition Key Field //待輸入數(shù)據(jù)字段名 DataSet //待輸入數(shù)據(jù)數(shù)據(jù)集 LookupKey //關(guān)聯(lián)關(guān)鍵字段 Result Field //顯示字段系科、教室、教材、課程數(shù)據(jù)界面的組織采取分頁的方式，可使用TpageControl來實(shí)現(xiàn)。. 學(xué)生成績網(wǎng)上查詢基礎(chǔ)教學(xué)信息模塊教室簡況管理課程名稱簡況管理教材簡況管理系科簡況管理增加刪除修改增加刪除修改增加刪除修改增加刪除修改模塊名稱：系科簡況增加輸入：新增的系科數(shù)據(jù)。處理： 將輸入信息直接寫入到“系科信系表”中。處理結(jié)果：增加一系科記錄數(shù)據(jù)表 Depart 系科表JS 教師表 模塊名稱：系科簡況修改輸入：修改的系科數(shù)據(jù)。處理： 將修改的信息直接替換到“系科信系表”中。處理結(jié)果：表中數(shù)據(jù)被修改數(shù)據(jù)表 Depart 系科表JS 教師表 模塊名稱：系科簡況刪除輸入：無處理： 刪除“系科信系表”中的當(dāng)前記錄。處理結(jié)果：系科表中減少一條記錄數(shù)據(jù)表 Depart 系科表JS 教師表 其它教材、教室、課程簡況信息的管理類似。功能： ①對(duì)基礎(chǔ)教學(xué)信息（主要指全院系科信息、課程信息、教室信息、教材信息）整理、規(guī)范，相應(yīng)名稱及全院統(tǒng)一編制的ID(Identfier)號(hào)插、查、刪、改；②制表輸出。設(shè)計(jì)：本模塊處理的數(shù)據(jù)比較簡單，主要完成系科信息表(Depart)、課程信息表(CourseInfo)、教室信息表(Classroom)、教材信息表(JCXX)等相應(yīng)數(shù)據(jù)及編碼的輸入、刪除、修改，在輸入系科類似的已編碼數(shù)據(jù)時(shí)，要通過名稱下選而保存的是相應(yīng)的ID信息。這主要通過TDBLookupComboBox來實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性： DataSource //待輸入數(shù)據(jù)的數(shù)據(jù)源 DataField //待輸入數(shù)據(jù)的字段名 KeyField //關(guān)聯(lián)字段 ListField //下選顯示字段 ListSource //下選數(shù)據(jù)源在數(shù)據(jù)瀏覽的網(wǎng)格圖表中，各編碼字段要顯示為相應(yīng)的名稱，這要通過在數(shù)據(jù)集中新建Lookup類型的字段來實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性： Field Property FieldType:=Lookup Lookup Definition Key Field //待輸入數(shù)據(jù)字段名 DataSet //待輸入數(shù)據(jù)數(shù)據(jù)集 LookupKey //關(guān)聯(lián)關(guān)鍵字段 Result Field //顯示字段系科、教室、教材、課程數(shù)據(jù)界面的組織采取分頁的方式，可使用TpageControl來實(shí)現(xiàn)。56