#學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)報(bào)告

1、管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告題目學(xué)生信息管理系統(tǒng)學(xué)生姓名繆惠學(xué)號(hào)200717020203專(zhuān)業(yè)班級(jí)信息管理與信息系統(tǒng)指導(dǎo)老師方霞老師設(shè)計(jì)日期指導(dǎo)老師評(píng)閱意見(jiàn)：評(píng)閱成績(jī)：簽名：目錄1詳細(xì)設(shè)計(jì)31.1.新生管理子系統(tǒng)31.2畢業(yè)生管理子模塊81.3教學(xué)評(píng)價(jià)打分101.4學(xué)生成績(jī)網(wǎng)上查詢(xún)112系統(tǒng)維護(hù)和改進(jìn)112.1運(yùn)行維護(hù)14運(yùn)行模塊組合.14運(yùn)行控制14運(yùn)行時(shí)間14人工處理過(guò)程2.2系統(tǒng)的改進(jìn)與提高1414需求分析（含業(yè)務(wù)流程圖，數(shù)據(jù)流程圖, 概要設(shè)計(jì)（模塊劃分等）E-R圖等）1詳細(xì)設(shè)計(jì)1.1.新生管理子系統(tǒng)總體設(shè)計(jì)：新生管理子系統(tǒng)包含新生錄取信息的導(dǎo)入，新生預(yù)分學(xué)號(hào)，新生班級(jí)分配， 新生寢室安排，新

2、生報(bào)到管理，新生報(bào)到信息統(tǒng)計(jì)，新生欠費(fèi)統(tǒng)計(jì)，新生分布信息，新生高 考成績(jī)分布等。設(shè)計(jì)：下面給出設(shè)計(jì)方案與實(shí)現(xiàn)方法。新生基本信息管理功能：完成對(duì)新錄取學(xué)生數(shù)據(jù)的導(dǎo)入到現(xiàn)場(chǎng)完成，并統(tǒng)計(jì)報(bào)到情 新生報(bào)到招生數(shù)據(jù)導(dǎo)計(jì)新生的各種分布比例到預(yù)處理分 設(shè)計(jì)：總體設(shè)計(jì)：用招生數(shù)據(jù)導(dǎo)入：可以通過(guò)選據(jù)使用手冊(cè)檢查 21個(gè).dbf I文件處理，所以，只能借助記錄集的循環(huán)來(lái)主要實(shí)現(xiàn)文件|Delphi的卜布PageCtrl控件來(lái)實(shí)現(xiàn)選擇來(lái)指定全國(guó)網(wǎng)上錄取系統(tǒng)的導(dǎo)出數(shù)據(jù)所在路徑 否存在，來(lái)決定是否允許導(dǎo)入;|在導(dǎo)入時(shí)采用記錄的查重 定完成；其中，對(duì)政治面各項(xiàng)菜單功能新生信息查詢(xún)與統(tǒng)計(jì)貌與民族表要單獨(dú)處理。并根檢查的fun

3、 ctio n CheckDBFi學(xué)號(hào)olea n;vari,j:i nteger;blF oun d:bcbegin代班：e（級(jí)r s編排寢R室StTi ng處bo現(xiàn)olea場(chǎng)報(bào)到處理1:=t_j欠費(fèi)查詢(xún)統(tǒng)計(jì)hk：報(bào) 到 情 況 統(tǒng) 計(jì)新 生 比 例 分 布高 考 成 績(jī) 統(tǒng) 計(jì)arrstrFileName0f=t_tddW;aTTstrFileNa 中/此處對(duì)表名賦值CheckDBFile:=False;blF oun d:=True;i:=0;strRst:=數(shù)據(jù)表;while (i21)dobeginj:=DBFileListBox .I tems.I ndexOf(arrstrFil

4、eNamei+.dbf);if j=-1 then某個(gè)文件未找到，返回“假”beginblF oun d:=False;strRst:=strRst+arrstrFileNamei+.dbf ;en d;i:=i+1;en d;strRst:=strRst+不存在!;if blFou nd then/全部數(shù)據(jù)文件檢查正確CheckDBFile:=True;end; 學(xué)號(hào)預(yù)處理： 將導(dǎo)入的數(shù)據(jù)從信息庫(kù)表到在校生表， 并根據(jù)考生的考號(hào)及其它信息填 入其基本信息（如省份、入年年份等） ；基本處理思想是：根據(jù)考生年份（報(bào)考號(hào)前兩位） 與當(dāng)前系統(tǒng)數(shù)據(jù)庫(kù)的絕對(duì)學(xué)期時(shí)間， 篩選相應(yīng)的考生信息， 然后從這些信

5、息中依次在學(xué)生基 本信息表（ JBXX2 ）中查詢(xún)是否重復(fù)，來(lái)決定是否寫(xiě)入；如果寫(xiě)入，則根據(jù)報(bào)考號(hào)（第3、4 位）的信息，寫(xiě)入考生所在省份代碼。 新生班級(jí)編排：將分配學(xué)號(hào)的新生編排到指定班級(jí)中。用兩個(gè)DBGrid （可多選）分別將未分班學(xué)生和班級(jí)信息列出來(lái)， 通過(guò)手工選中一個(gè)或多個(gè)學(xué)生， 即可分配班級(jí)或從班級(jí) 中取消分班。實(shí)現(xiàn) DBGrid 多選并在數(shù)據(jù)庫(kù)中完成添加的代碼：with StuDBGrid.DataSource.DataSet dobeginfor i:=0 to intSelStuCnt-1 dobeginGotoBookmark（pointer（StuDBGrid.Select

6、edRows.Itemsi）;strStuNo:=Fields0.AsString;strSql:=Update jbxx2 set BJID=+strClasNo+;strSql:=strSql+ Where XH=+strStuNo+;database.Execute（strSql）;end;end;寢室分配與班級(jí)編排可類(lèi)似處理。 新生現(xiàn)場(chǎng)報(bào)到： 對(duì)新生的報(bào)到程序進(jìn)行計(jì)算機(jī)管理， 自動(dòng)檢查該新生是否已到校， 是 否已完成所有報(bào)到手續(xù)，以及新生的欠費(fèi)情況（只記載欠費(fèi)，不記載繳費(fèi)）；并根據(jù)各項(xiàng)手續(xù)的完成，來(lái)確認(rèn)新生的報(bào)到狀態(tài)，為下一步查詢(xún)提供足夠信息。此處關(guān)鍵在于如何把數(shù)據(jù)表中“ 0”和“ 1

7、”狀態(tài)標(biāo)志以 CheckBox 的狀態(tài)輸出，代碼如 下：讀出：if ADORegInfo.Active then beginstrState:=ADORegInfo.FieldByName(SFQD).AsString;if strState=1 then /是否簽到Reg1Check.Checked:=trueelseReg1Check.Checked:=false;strState:=ADORegInfo.FieldByName(ZZGX).AsString; if strState=1 then / 組織關(guān)系Reg2Check.Checked:=trueelseReg2Check.Che

8、cked:=false;strState:=ADORegInfo.FieldByName(HKQY).AsString;if strState=1 then / 戶(hù)口遷移Reg3Check.Checked:=trueelse Reg3Check.Checked:=false;strState:=ADORegInfo.FieldByName(JCK).AsString; if strState=1 then / 就餐卡Reg4Check.Checked:=trueelse Reg4Check.Checked:=false;strState:=ADORegInfo.FieldByName(TJ).

9、AsString; if strState=1 then /體檢Reg1Check.Checked:=trueelse Reg1Check.Checked:=false;end;寫(xiě)回?cái)?shù)據(jù)庫(kù)：ADORegInfo.Edit;if Reg1Check.Checked thenADORegInfo.FieldByName(SFQD).AsString:=1 elseADORegInfo.FieldByName(SFQD).AsString:=0; if Reg2Check.Checked thenADORegInfo.FieldByName(ZZGX).AsString:=1 elseADORegI

10、nfo.FieldByName(ZZGX).AsString:=0; if Reg3Check.Checked thenADORegInfo.FieldByName(HKQY).AsString:=1 elseADORegInfo.FieldByName(HKQY).AsString:=0; if Reg4Check.Checked thenADORegInfo.FieldByName(JCK).AsString:=1 elseADORegInfo.FieldByName(JCK).AsString:=0;if Reg1Check.Checked thenADORegInfo.FieldByN

11、ame(TJ).AsString:=1 elseADORegInfo.FieldByName(TJ).AsString:=0; ADORegInfo.Post;欠費(fèi)查詢(xún)可相應(yīng)處理。 報(bào)到情況統(tǒng)計(jì)：可以按性別、專(zhuān)業(yè)、班級(jí)、省份等統(tǒng)計(jì)學(xué)生的報(bào)到情況，并以柱狀圖 和表格顯示；提供自由控制條件查詢(xún)未報(bào)到學(xué)生信息。統(tǒng)計(jì)功能實(shí)現(xiàn)代碼如下：CntBySexDBChar.Title.Text.Clear;/ 清除標(biāo)題CntBySexDBChar.Title.Text.Add( 新生報(bào)到情況 (按班級(jí)統(tǒng)計(jì) );CntBySexDBChar.Series0.Clear;/ 清除圖形strSql:=;CntStrG

12、rid.RowCount:=ADOQFCntQuery.RecordCount+1;for i:=0 to 4 do / 設(shè)置 StringGrid 的標(biāo)題beginCntStrGrid.Colsi.Clear;CntStrGrid.Colsi.Add(titleNamei);end;i:=0;RegSexTLbl.Lines.Clear; / 清空統(tǒng)計(jì)顯示while not ADOQFCntQuery.Eof dobeginintCntRegdi:=ADOQFCntQuery.FieldByName(ClassRegdCnt).AsInteger; CntBySexDBChar.Series

13、0.Add(intCntToti,inttostr(i)+ 應(yīng)到 ,clBlue); CntBySexDBChar.Series0.Add(intCntRegdi, 到 ,clRed); strSql:=inttostr(i)+trim(strClassNamei)+ 報(bào)到比例 :;strSql:=strSql+floattostr(trunc(intCntRegdi/intCnttoti*10000)/100)+%+#13;RegSexTLbl.Lines.Add(strSql);CntStrGrid.Rowsi+1.Add(inttostr(i+1);CntStrGrid.Rowsi+1.

14、Add(strClassNamei);CntStrGrid.Rowsi+1.Add(inttostr(intCntToti);CntStrGrid.Rowsi+1.Add(inttostr(intCntRegdi);CntStrGrid.Rowsi+1.Add(floattostr(trunc(intCntRegdi/intCnttoti*10000)/100)+%); i:=i+1;ADOQFCntQuery.Next; / 下一個(gè)班end; 新生分布情況統(tǒng)計(jì)： 從學(xué)生的擴(kuò)展信息與高考資料中提取信息， 統(tǒng)計(jì)新生的各種分布 情況，以餅狀圖和表格信息顯示出來(lái)。相應(yīng)地， 高考成績(jī)信息也可以按科目繪

15、制出柱狀圖來(lái)反映分布情況，對(duì)新生的整體情況有一個(gè)大概了解，以便有針對(duì)性地開(kāi)展工作。成績(jī)統(tǒng)計(jì)的代碼如下：strSql:=Select Max(+FieldName+) as MaxScore,Min(+FieldName+) as MinScore,A VG(+FieldName+) as AvgScore;strSql:=strSql+ From t_tdd,xs_base,xs_expend Where t_tdd.ksh=xs_expend.bkh and xs_expend.xh=xs_base.xh;strSql:=strSql+ and Nj=+MidStr(CurrentXQSJ,

16、1,4);ADOQFCntQuery.SQL.Clear;ADOQFCntQuery.SQL.Add(strSql);ADOQFCntQuery.Open;if ADOQFC ntQuery.Eof the nbeginShowMessage(對(duì)不起,未找到相關(guān)學(xué)生的成績(jī)！)；abort;en d;for i:=0 to 2 dobeginCn tScoreStrGrid.Colsi.CIear;Cn tScoreStrGrid.Colsi.Add(titleNamei);en d;Cn tScoreDBChart.Title.Text.Clear;CntScoreDBChart.Title.

17、Text.Add(新生高考成績(jī)統(tǒng)計(jì)+itemName+);Cn tScoreDBChart.Series0.CIear;maxScore:=ADOQFC ntQuery.FieldByName(MaxScore).Asl nteger;min Score:=ADOQFC ntQuery.FieldByName(Mi nScore).As In teger; avgScore:=ADOQFC ntQuery.FieldByName(AvgScore).Asl nteger;itemsCo un t:=tr un c(maxScore-min Score)/1)+1;in tCrntScore:=

18、tr un c(mi nScore/1)*1;i:=0;isWrite:=true;Cn tScoreStrGrid.RowCou nt:=itemsCou nt+4;in tCrntC nti:=ADOQFC ntQuery.FieldByName(CrntC nt).AsI nteger;strSql:=;if (isWrite) or (itemsCount12) thenstrSql:=i nttostr(i ntCrntScore-1)+-;CntScoreDBChart.Series0.Add(intCrntCnti,strSql,intColori mod 11);Cn tSco

19、reStrGrid.Rowsi+1.Add(i nttostr(i ntCrntScore-1)+-+i nttostr(i ntCrntScore);Cn tScoreStrGrid.Rowsi+1.Add(i nttostr(i ntCrntC nti);Cn tScoreStrGrid.Rowsi+1.Add(floattostr(tru nc(in tCrntC nti/19*10000)/100)+%); isWrite:=not isWrite;i:=i+1;en d;CntScoreStrGrid.Rowsi+1.Add(最高分);Cn tScoreStrGrid.Rowsi+1

20、.Add(i nttostr(maxScore);CntScoreStrGrid.Rowsi+2.Add(最低分);Cn tScoreStrGrid.Rowsi+2.Add(i nttostr(mi nScore);CntScoreStrGrid.Rowsi+3.Add(平均分);Cn tScoreStrGrid.Rowsi+3.Add(i nttostr(avgScore);1.2畢業(yè)生管理子模塊功能：編輯學(xué)生（班級(jí)）的學(xué)習(xí)狀態(tài)畢業(yè)生基本畢業(yè)班管理已畢業(yè)等）畢業(yè)班級(jí)學(xué)生（畢業(yè)生）綜合信息查詢(xún)_職業(yè)類(lèi)別與檔案材料基礎(chǔ)代碼的維護(hù)綜信息查擇意向與就業(yè)去碼的處理?yè)駱I(yè)與就業(yè)綜合檔案與經(jīng)費(fèi)證書(shū)發(fā)放畢業(yè)生

21、離校畢業(yè)生職業(yè)類(lèi)擇業(yè)意就業(yè)去擇業(yè)與畢業(yè)生畢業(yè)生證書(shū)發(fā)證書(shū)發(fā) 畢業(yè)生檔案材料與畢業(yè)經(jīng)費(fèi)的管理 畢業(yè)生證書(shū)的發(fā)放管理 設(shè)計(jì)： 總體設(shè)計(jì)：采用與新生管理統(tǒng)一的界面，用PageCtrl來(lái)實(shí)現(xiàn)。 畢業(yè)學(xué)生狀態(tài)設(shè)置： 完成在校生到畢業(yè)班學(xué)生狀態(tài)的改變或畢業(yè)班學(xué)生向已畢業(yè)學(xué)生 狀態(tài)的改變。實(shí)現(xiàn)是通過(guò)修改學(xué)生基本信息的狀態(tài)標(biāo)志。修改學(xué)生狀態(tài)代碼如下：/設(shè)置畢業(yè)班procedure TSelGraForm.addClassBtnClick(Sender: TObject);varstrSql,strCrntClassID:String;beginif (ValClassListBox.Items.Count1)

22、 or (ValClassListBox.ItemIndex0) then abort;strCrntClassID:=strValClassIDValClassListBox.ItemIndex; strSql:=Update jbxx2 set ZT=+ 畢業(yè)班 + Where bjid=+strCrntClassID+; MainForm.database.Execute(strSql);SelGraForm.FormShow(Sender);end; 畢業(yè)生綜合信息查詢(xún)： 查詢(xún)畢業(yè)生的綜合信息 (成績(jī)除外， 有單獨(dú)模塊提供查詢(xún)功能) 按類(lèi)分為若干頁(yè)顯示，提供打印功能。響應(yīng)數(shù)據(jù)源控件的代

23、碼：procedure TsrchForm.DSsrchStuDataChange(Sender: TObject; Field: TField); / 查詢(xún)學(xué)生數(shù) 據(jù)源數(shù)據(jù)改變beginsrchForm.RefreshBaseInfo();/ 刷新基本信息 srchForm.RefreshJCInfo();/刷新獎(jiǎng)懲信息srchForm.RefreshQTInfo();/刷新干部信息等end;procedure TsrchForm.RefreshBaseInfo();/ 刷新基本信息varstrSql,crntXH:String;/ 查詢(xún)語(yǔ)句與學(xué)號(hào)begin crntXH:=trim(ADO

24、srchStuQuery.FieldByName( 學(xué)號(hào) ).AsString); strSql:=SELECT XS_BASE.*, JBXX2.XM, JBXX2.XB, BJXX.BJMC,;strSql:=strSql+XS_ZYB.ZYMC,XS_BJXX.CC,XS_BJXX.XZ,ZZMMB.ZZMM,MZB.MZ,JGB.JGMC,;strSql:=strSql+SFB.SFMC,XS_EXPEND.CYM,XS_EXPEND.SG,XS_EXPEND.XX,XS_EXPEND.BYXX,;strSql:=strSql+XS_EXPEND.TC,XS_EXPEND.EMAIL,

25、XS_EXPEND.HOMEPAGE,XS_EXPEND.JKXX;strSql:=strSql+ FROM JBXX2 INNER JOIN;strSql:=strSql+ BJXX ON JBXX2.BJID = BJXX.BJID LEFT OUTER JOIN; /外連接班級(jí)擴(kuò)展信息strSql:=strSql+ XS_BJXX ON BJXX.BJID = XS_BJXX.BJID LEFT OUTER JOIN; /外連接專(zhuān)業(yè)表strSql:=strSql+ XS_ZYB ON BJXX.ZYID = XS_ZYB.ZYID LEFT OUTER JOIN;/ 外連接籍貫表strS

26、ql:=strSql+ SFB ON XS_BASE.SYSF = SFB.SFID LEFT OUTER JOIN;strSql:=strSql+ JGB ON XS_BASE.JGID = JGB.JGID;strSql:=strSql+ Where jbxx2.XH=+crntXH+;ADOBaseQuery.SQL.Clear;ADOBaseQuery.SQL.Add(strSql);ADOBaseQuery.Open;end; 基礎(chǔ)編碼維護(hù)： 直接維護(hù)職業(yè)類(lèi)別表與檔案材料表。 通過(guò) ADOTable 對(duì)象來(lái)實(shí)現(xiàn)與數(shù) 據(jù)庫(kù)中表的聯(lián)系，直接讀取或編輯更新數(shù)據(jù)表。 擇業(yè)意向登記與就業(yè)去向登

27、記： 根據(jù)學(xué)生的擇業(yè)要求和志向， 登記其擅長(zhǎng)的職業(yè)類(lèi)別； 按照畢業(yè)生的實(shí)際就業(yè)去向，登記畢業(yè)生的畢業(yè)單位、職務(wù)、 聯(lián)系方式等信息，以進(jìn)行各種 數(shù)據(jù)的統(tǒng)計(jì)和信息的交流。采用 DBGrid 來(lái)顯示學(xué)生信息，而用數(shù)據(jù)庫(kù)控件來(lái)綁定就業(yè)詳細(xì) 信息；用按鈕來(lái)實(shí)現(xiàn)數(shù)據(jù)的添加、修改和刪除。關(guān)鍵在于按鈕狀態(tài)(增、刪、改)的實(shí)現(xiàn)：procedure TMainForm.RefreshStuJob();/ 刷新就業(yè)信息varstrSql,strJobXH:String;beginstrJobXH:=trim(DBText10.Field.Text);/ 取得學(xué)號(hào)if strJobXH= then /為空，程序出錯(cuò)，

28、退出abort;strSql:=Select xs_jyxx.* from xs_jyxx Where XH=+strJobXH+; /查詢(xún)是否已有該生就業(yè)信息ADOStuGraQuery.SQL.Clear;ADOStuGraQuery.SQL.Add(strSql);ADOStuGraQuery.Open;/控制權(quán)限if EditTB.Down then /處于編輯狀態(tài)beginif not ADOStuGraQuery.Eof then /有該生就業(yè)信息beginFirmDBEdit.Enabled:=true;/ 可編輯ProTypeLookup.Enabled:=true;PosDB

29、Edit.Enabled:=true;TelDBEdit.Enabled:=true;EmailDBEdit.Enabled:=true;BZMemo.Enabled:=true;addJobBtn.Enabled:=false;delJobBtn.Enabled:=true;/刪除為有效confirmJobBtn.Enabled:=true; / 確認(rèn)編輯為有效 end else /無(wú)就業(yè)信息，可添加 beginFirmDBEdit.Enabled:=false;ProTypeLookup.Enabled:=false;PosDBEdit.Enabled:=false;TelDBEdit.E

30、nabled:=false;EmailDBEdit.Enabled:=false;BZMemo.Enabled:=false; addJobBtn.Enabled:=true;/添加為有效delJobBtn.Enabled:=false;/刪除無(wú)效confirmJobBtn.Enabled:=false; /確認(rèn)無(wú)效 end;end; /end of EditTB.Downend; /end of procedure 畢業(yè)生檔案材料管理： 登記畢業(yè)生的檔案材料信息， 并提供查詢(xún)， 以確認(rèn)該生是否具 備正常的可畢業(yè)手續(xù)。代碼如下：procedure TMainForm.RefreshDocuSt

31、u();/ 刷新檔案材料信息varstrSql,strCrntXH:String;begin strSql:=Select jbxx2.xh as 學(xué)號(hào) ,xm as 姓名 ,xb as 性別 ,; strSql:=strSql+xs_daxx.DACLdm as 檔案材料代碼 ,DACLMC as 檔案材料名稱(chēng) ,; strSql:=strSql+ xs_daxx.BZ as 備注 ;strSql:=strSql+ from jbxx2,xs_daxx,xs_damc;strSql:=strSql+ Where jbxx2.xh=xs_daxx.xh and xs_daxx.dacldm=x

32、s_damc.dacldm; strCrntXH:=trim(ADODStuQuery.FieldByName( 學(xué)號(hào) ).AsString);strSql:=strSql+ and xs_daxx.XH=+strCrntXH+; ADODocuStuQuery.SQL.Clear;ADODocuStuQuery.SQL.Add(strSql);ADODocuStuQuery.Open;end; 畢業(yè)經(jīng)費(fèi)處理與檔案材料基本相同。 畢業(yè)證書(shū)發(fā)放管理： 對(duì)畢業(yè)證和學(xué)位證的發(fā)放進(jìn)行管理， 登記畢業(yè)證和學(xué)位證的發(fā)放 情況，并對(duì)數(shù)據(jù)的完整性進(jìn)行控制：畢業(yè)證發(fā)放日期如果不為空，則畢業(yè)證編號(hào)不能為空； 學(xué)位

33、證發(fā)放日期不為空， 則學(xué)位證編號(hào)不能為空； 若畢業(yè)證發(fā)放日期為空， 則必須說(shuō)明證書(shū) 未發(fā)放原因。進(jìn)行數(shù)據(jù)完整性控制的代碼如下：procedure TMainForm.confirmCertiBtnClick(Sender: TObject);var strBYZRQ,strBYZBH,strXWZRQ,strXWZBH:String;beginstrBYZRQ:=trim(BYZRQEdit.Text); / 畢業(yè)證日期 strBYZBH:=trim(BYZBHedit.Text); /畢業(yè)證編號(hào)strXWZRQ:=trim(XWZRQEdit.Text); / 學(xué)位證日期 strXWZBH:

34、=trim(XWZBHEdit.Text); /學(xué)位證編號(hào)if (strBYZRQ=”)xor (strBYZBH=”)the n/ 異或運(yùn)算if MessageDlg(畢業(yè)證頒發(fā)日期和畢業(yè)證編號(hào)不符！+#13+要取消本次更新操作嗎？,mtWarni ng,mbYes,mbNo,0)=mrYes the nbeginADOCertiQuery.CancelUpdates; / 選擇取消Mai nF orm.RefreshCertil nfo();abort;endelseabort;if (strBYZRQ=”)and (strBYZBH=”)and (strXWZRQ”)the n/處理學(xué)位

35、證if (strBYZRQ=”) and (strBYZBH=”) and (strXWZRQ=”) and (strXWZBH=”) and (trim(YYEdit.Text)=”) then / 未獲證if MessageDlg(未獲得畢業(yè)證和或?qū)W位證的請(qǐng)寫(xiě)明原因!+#13+要取消本次更新操作嗎？,mtWarning,mbYes,mbNo,0)=mrYes thenbeginADOCertiQuery.Ca ncelUpdates;Mai nF orm.RefreshCertil nfo();abort;end1.3教學(xué)評(píng)價(jià)打分功能：對(duì)基礎(chǔ)教學(xué)信息(主要指規(guī)范，相應(yīng)名稱(chēng)及全院統(tǒng)一編制的制

36、表輸出。設(shè)計(jì)：基礎(chǔ)教學(xué)信息模塊全院系科信息、課程信息、教室信息、教材信息)整理、ID(Identfier)號(hào)插、查、刪、改；系科簡(jiǎn)況管本模塊處理的數(shù)據(jù)比課程名稱(chēng)簡(jiǎn)主要理成系科信息表(Dep室簡(jiǎn)況課程信息表(Course|nfo) 教材簡(jiǎn)況管理t應(yīng)數(shù)據(jù)及編碼的輸入、刪除、修改，在輸，ID信息。這主要通過(guò)教室信息表(Classroom)、教材信息表(JCXX)等相 入系科類(lèi)似的已編碼數(shù)據(jù)時(shí)，要通過(guò)名稱(chēng)下選而保存的是相應(yīng)的 TDBLookupCpmboBox 來(lái)實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性:_刪除DataSource DOtaField KeyFieldListFieldListSource增/待輸 加待輸 /關(guān)聯(lián)字段/下選顯示字段 下選數(shù)據(jù)源的數(shù)入刪據(jù) M除據(jù)在數(shù)據(jù)瀏覽的網(wǎng)格圖表中，各編碼字段要顯示為相應(yīng)的名稱(chēng)，這要通過(guò)在數(shù)據(jù)集中新建Lookup類(lèi)型的字段來(lái)實(shí)現(xiàn)，設(shè)置好如下幾個(gè)重要屬性：Field PropertyLookup Defin iti on Key FieldDataSetFieldType:=Looku