【正文】 詳細設計說明書 9 模塊名稱 ：新生信息統(tǒng)計 輸入 : 新生網(wǎng)上錄取數(shù)據(jù)庫； 處理 : 按各種分類標準，對新生的分布情況進行統(tǒng)計 輸出 : 餅狀圖與表格信息 數(shù)據(jù)表 : JBXX2：學生基本信息 XS_BASE：學生基本信息 MZB：民族表 ZZMMB：政治面貌表 SFB：省份表 模塊名稱 ：新生高考成績統(tǒng)計 輸入 : 新生擴展信息，新生成績信息； 處理 : 按各項成績分別統(tǒng)計各分數(shù)段人數(shù)比例 輸出 : 柱狀圖與表格信息 數(shù)據(jù)表 : JBXX2：學生基本信息 XS_EXPEND：學生擴展信息 T_TDD：考生投檔單 功能 ： ① 完成對新錄取學生數(shù)據(jù)的導入 ② 完成對新生數(shù)據(jù)的報到預處理（初始化） ③ 實現(xiàn)新生報到現(xiàn)場完成，并統(tǒng)計報到情況 ④ 統(tǒng)計新生的各種分布比例和成績分布 設計： ① 總體設計：用 Delphi 的 PageCtrl 控件來實現(xiàn)各項菜單功能，整體界面如下： 詳細設計說明書 10 ② 招生數(shù)據(jù)導入：可以通過選擇來指定全國網(wǎng)上錄取系統(tǒng)的導出數(shù)據(jù)所在路徑，并根據(jù)使用手冊檢查 25 個 .dbf 文件是否存 在，來決定是否允許導入；在導入時采用記錄的查重處理，所以，只能借助記錄集的循環(huán)來完成；其中，對政治面貌與民族表要單獨處理。 界面如下： 主要實現(xiàn)文件檢查的代碼： 詳細設計說明書 11 function CheckDBFile(var strRst:String):boolean。 var i,j:integer。 blFound:boolean。 begin arrstrFileName[0]:=39。t_tddw39。arrstrFileName[1]:=39。t_jhk39。 //??此處對表名賦值 CheckDBFile:=False。 blFound:=True。i:=0。 strRst:=39。數(shù)據(jù)表 39。 while (i25)do begin j:=(arrstrFileName[i]+39。.dbf39。)。 if j=1 then//某個文件未找到，返回“假” begin blFound:=False。 strRst:=strRst+arrstrFileName[i]+39。.dbf 39。 end。 i:=i+1。 end。 strRst:=strRst+39。不存在 !39。 if blFound then //全部數(shù)據(jù)文件檢查正確 CheckDBFile:=True。 end。 ③ 學號預處理：將導入的數(shù)據(jù)從信息庫表到在校生表，并根據(jù)考生的考號及其它信息填入其基本信息（如省份、入年年份等）；基本處理思想是：根據(jù)考生年份（報考號前兩位）與當前系統(tǒng)數(shù)據(jù)庫的絕對學期時間，篩選相應的考生信息，然后從這些信息中依次在學生基本信息表（ JBXX2）中查詢是否重復，來決定是否寫入；如果寫入，則根據(jù)報考號（第 4 位）的信息，寫入考生所在省份代碼。 代碼相對簡單，界面如下 詳細設計說明書 12 ④ 新生班級編排：將分配學號的新生編排到指定班級中。用兩個DBGrid（可多選）分別將未分班學生和班級信息列出來，通過手工選中一個或多個學生，即可分配班級或從班級中取消分班。 界面如下： 實現(xiàn) DBGrid 多選并在數(shù)據(jù)庫中完成添加的代碼： ?? with do begin for i:=0 to intSelStuCnt1 do 詳細設計說明書 13 begin GotoBookmark(pointer([i]))。 strStuNo:=Fields[0].AsString。 strSql:=39。Update jbxx2 set BJID=39。+39。39。39。39。+strClasNo+39。39。39。39。 strSql:=strSql+39。 Where XH=39。+39。39。39。39。+strStuNo+39。39。39。39。 (strSql)。 end。 end。 ?? 寢室分配與班級編排可類似處理。 ⑤ 新生現(xiàn)場 報到：對新生的報到程序進行計算機管理，自動檢查該新生是否已到校，是否已完成所有報到手續(xù)，以及新生的欠費情況（只記載欠費，不記載繳費）；并根據(jù)各項手續(xù)的完成，來確認新生的報到狀態(tài)，為下一步查詢提供足夠信息。 界面如下： 此處關鍵在于如何把數(shù)據(jù)表中“ 0”和“ 1”狀態(tài)標志以 CheckBox 的狀態(tài)輸出，代碼如下： 詳細設計說明書 14 讀出： ?? if then begin strState:=(39。SFQD39。).AsString。 if strState=39。139。 then //是否簽到 :=true else :=false。 strState:=(39。ZZGX39。).AsString。 if strState=39。139。 then //組織關系 :=true else :=false。 strState:=(39。HKQY39。).AsString。 if strState=39。139。 then //戶口遷移 :=true else :=false。 strState:=(39。JCK39。).AsString。 if strState=39。139。 then //就餐卡 :=true else :=false。 strState:=(39。TJ39。).AsString。 if strState=39。139。 then //體檢 :=true else :=false。 end。 ?? 寫回數(shù)據(jù)庫： ?? 。 詳細設計說明書 15 if then (39。SFQD39。).AsString:=39。139。 else (39。SFQD39。).AsString:=39。039。 if then (39。ZZGX39。).AsString:=39。139。 else (39。ZZGX39。).AsString:=39。039。 if then (39。HKQY39。).AsString:=39。139。 else (39。HKQY39。).AsString:=39。039。 if then (39。JCK39。).AsString:=39。139。 else (39。JCK39。).AsString:=39。039。 if then (39。TJ39。).AsString:=39。139。 else (39。TJ39。).AsString:=39。039。 。 ?? 欠費查詢可相應處理。 ⑥ 報到情況統(tǒng)計：可以按性別、專業(yè)、班級、省份等統(tǒng)計學生的報到情況，并以柱狀圖和表格顯示；提供自由控制條件查詢未報到學生信息。 界面如下： 詳細設計說明書 16 統(tǒng)計功能實現(xiàn)代碼如下： ?? 。//清除標題 (39。新生報到情況 (按班級統(tǒng)計 )39。)。 [0].Clear。//清除圖形 strSql:=39。39。 :=+1。 for i:=0 to 4 do //設置 StringGrid 的標題 begin [i].Clear。 [i].Add(titleName[i])。 end。 i:=0。 。 //清空統(tǒng)計顯示 while not do begin intCntRegd[i]:=(39。ClassRegdCnt39。).AsInteger。 [0].Add(intCntTot[i],inttostr(i)+39。應詳細設計說明書 17 到 39。,clBlue)。 [0].Add(intCntRegd[i],39。到 39。,clRed)。 strSql:=inttostr(i)+39。[39。+trim(strClassName[i])+39。]報到比例 :39。 strSql:=strSql+floattostr(trunc(intCntRegd[i]/intCnttot[i]*10000)/100)+39。%39。+13。 (strSql)。 [i+1].Add(inttostr(i+1))。 [i+1].Add(strClassName[i])。 [i+1].Add(inttostr(intCntTot[i]))。 [i+1].Add(inttostr(intCntRegd[i]))。 [i+1].Add(floattostr(trunc(intCntRegd[i]/intCnttot[i]*10000)/100)+39。%39。)。 i:=i+1。 。 //下一個班 end。 ?? ⑦ 新生分布情況統(tǒng)計：從學生的擴展信息與高考 資料中提取信息，統(tǒng)計新生的各種分布情況，以餅狀圖和表格信息顯示出來。 界面如下： 詳細設計說明書 18 相應地，高考成績信息也可以按科目繪制出柱狀圖來反映分布情況，對新生的整體情況有一個大概了解，以便有針對性地開展工作。 界面如下： 詳細設計說明書 19 成績統(tǒng)計的代碼如下： strSql:=39。Select Max(39。+FieldName+39。) as MaxScore,Min(39。+FieldName+39。) as MinScore,AVG(39。+FieldName+39。) as AvgScore39。 strSql:=strSql+39。 From t_tdd,xs_base,xs_expend Where = and =39。 strSql:=strSql+39。 and Nj=39。+MidStr(CurrentXQSJ,1,4)。 。 (strSql)。 。 if then begin ShowMessage(39。對不起 ,未找到相關學生的成績 !39。)。 abort。 end。 for i:=0 to 2 do begin [i].Clear。 [i].Add(titleName[i])。 詳細設計說明書 20 end。 。 (39。新生高考成績統(tǒng)計[39。+itemName+39。]39。)。 [0].Clear。 maxScore:=(39。MaxScore39。).AsInteger。 minScore:=(39。MinScore39。).AsInteger。 avgScore:=(39。AvgScore39。).AsInteger。 itemsCount:=trunc((maxScoreminScore)/5)+1。 intCrntScore:=trunc(minScore/5)*5。 i:=0。 isWrite:=true。 :=itemsCount+4。 while (iitemsCount) and (i30) do begin strSql:=39。Select count() as CrntCnt from xs_base,xs_expend,t_tdd39。 strSql:=strSql+39。 Where = and =39。 strSql:=strSql+39。 and Nj=39。+MidStr(CurrentXQSJ,1,4)。 strSql:=strSql+39。 and 39。+FieldName+39。=39。+inttostr(intCrntScore)。 strSql:=strSql+39。 and 39。+FieldName+39。39。+inttostr(intCrntScore+5)。 intCrntScore:=intCrntScore+5。 。 (strSql)。 。 intCrntCnt[i]:=(39。CrntC