【文章內(nèi)容簡介】 if =0 then :=[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,nbPost,nbCancel]//如不存在該學(xué)生基本信息則允許新建 else :=[nbFirst,nbPrior,nbNext,nbLast,nbDelete,nbEdit,nbPost,nbCancel]。//如存在學(xué)生基本信息則不允許新建 if then :=[nbFirst,nbPrior,nbNext,nbLast]。 end。⒊班級基本信息管理在班級簡況信息的基礎(chǔ)上完成班級其它詳細信息的維護和管理⒋新生學(xué)號替換在新生進校后，正式學(xué)號可能會延時分配，因此，在新生的管理為方便進行管理設(shè)置了臨時學(xué)號，在正式學(xué)號分配完成后，應(yīng)將數(shù)據(jù)表中新生數(shù)據(jù)臨時學(xué)號替換為正式學(xué)號先選取要進行學(xué)號替換的班級，生成新生學(xué)號輸入表（）并以班級編號為名建表； :=39。create table 39。+[]+39。 (oldxh char(11),xsxm char(8),xb char(2),newxh char(11))39。 。//創(chuàng)建本地新生學(xué)號輸入表 while not do begin :=39。insert into 39。+[]+39。(oldxh,xsxm,xb,newxh) values (39。+39。39。39。39。+(39。xh39。).asstring+39。39。39。39。+39。,39。+39。39。39。39。+(39。xm39。).asstring+39。39。39。39。+39。,39。+39。39。39。39。+(39。xb39。).asstring+39。39。39。39。+39。,null)39。 。//在本地輸入表中添加學(xué)生基本數(shù)據(jù) 。 end。再導(dǎo)出新生輸入表，并允許再進行編輯；。:=[]。:=true。//導(dǎo)入新生正式學(xué)號輸入表(39。oldxh39。).DisplayLabel:=39。舊學(xué)號39。(39。xsxm39。).DisplayLabel:=39。姓名39。(39。xb39。).DisplayLabel:=39。性別39。(39。newxh39。).DisplayLabel:=39。新學(xué)號39。:=true。//允許進行學(xué)號替換最后進行學(xué)號替換 for i:=1 to 16 do begin :=j。 //round(100/(*15)) :=39。學(xué)號替換正在進行當中.............................39。 。 (39。select * from 39。+tablename[i]+39。 where xh=39。+39。39。39。39。+(39。oldxh39。).asstring+39。39。39。39。)。 。//選取要進行替換的數(shù)據(jù)表 while not do begin if [39。newxh39。]null then begin 。 [39。xh39。]:=(39。newxh39。).asstring。//進行學(xué)號替換 。 end。 。 end。⒌學(xué)生日?？记谛畔⒐芾碇饕涊d在校生日常缺勤信息，并提供分班分時間段的查詢和統(tǒng)計，并進行班級出勤情況的比較編輯界面：統(tǒng)計界面：j:=1。 。while not do begin for i:=1 to +1 do begin 。 。 (39。select , from xs_kqxx join jbxx2 on = join bjxx on = where =39。+39。39。39。39。+[39。bjid39。]+39。39。39。39。+39。 and =39。+39。39。39。39。++39。39。39。39。+39。 and =39。+39。39。39。39。++39。39。39。39。+39。 and = CAST(39。+inttostr(i)+39。 AS char(2))39。)。//生成統(tǒng)計字符串 。 while not do begin [i,j]:=trim((39。xm39。).AsString)+39。 39。+trim((39。qqjc39。).asstring)+39。,39。 。//將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 end。 end。 。 j:=j+1。 end。⒍學(xué)生寢室清潔衛(wèi)生信息管理完成學(xué)生寢室清潔衛(wèi)生信息的管理功能，并提供近幾周內(nèi)清潔衛(wèi)生的對比情況（主要分為得分為’Ａ’和得分為’Ｃ’兩種情況）編輯界面：統(tǒng)計界面（分數(shù)據(jù)表和圖表兩種統(tǒng)計形式）for i:=1 to strtoint() do begin [0,i]:=inttostr(i)。 。 。 (39。SELECT * FROM XS_QJWS INNER JOIN XS_QSZY ON = AND = WHERE = 39。+39。39。39。39。++39。39。39。39。+39。 AND = CAST(39。+inttostr(i)+39。 AS char(2))39。+39。 and =39。+39。39。39。39。++39。39。39。39。+39。 and upper()=39。+39。39。39。39。+39。A39。+39。39。39。39。)。//生成統(tǒng)計字符串（統(tǒng)計得分為A的寢室） 。 [1,i]:=inttostr()。 [0].Add(,39。第39。+inttostr(i)+39。周39。,clred)。//將統(tǒng)計結(jié)果寫入圖表 while not do begin [2,i]:=[2,i]+(39。zh39。).AsString+39。39。+(39。qsh39。).AsString+39。,39。 //將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 。 end。 。 。 (39。SELECT * FROM XS_QJWS INNER JOIN XS_QSZY ON = AND = WHERE = 39。+39。39。39。39。++39。39。39。39。+39。 AND = CAST(39。+inttostr(i)+39。 AS char(2))39。+39。 and =39。+39。39。39。39。++39。39。39。39。+39。 and upper()=39。+39。39。39。39。+39。C39。+39。39。39。39。)。//生成統(tǒng)計字符串（統(tǒng)計得分為C的寢室） 。 [3,i]:=inttostr()。 [1].Add(,39。第39。+inttostr(i)+39。周39。,clblue)。//將統(tǒng)計結(jié)果寫入圖表 while not do begin [4,i]:=[4,i]+(39。zh39。).AsString+39。39。+(39。qsh39。).AsString+39。,39。 //將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 。 end。 end。⒎完成在校生獎勵信息管理在進行數(shù)據(jù)輸入的過程中采用層層篩選的方式，避免輸入過程中發(fā)生輸入錯誤先篩選班級:=。(39。SELECT bjmc,bjid FROM bjxx where xkid=39。+39。39。39。39。++39。39。39。39。)。再篩選學(xué)生。(39。select xh,xb from jbxx2 where xm=39。+39。39。39。39。++39。39。39。39。+39。 and bjid=39。+39。39。39。39。+[]+39。39。39。39。)。最后允許編輯⒏完成在校生處罰信息管理同在校生獎勵信息類似⒐完成在校生異動信息的記載，處理部分在學(xué)生簡況管理中完成同在校生獎勵信息類似⒑在校困難學(xué)生基本信息、困難補助信息、勤工儉學(xué)信息維護和管理在學(xué)生遞交困難補助或勤工儉學(xué)申請書后，將學(xué)生困難信息存入檔案，進行困難補助和勤工儉學(xué)管理時依據(jù)困難學(xué)生檔案來進行⒒在校生學(xué)期注冊管理學(xué)生每期進行注冊時，記載注冊時間，并同時提供學(xué)生基本信息的完善和欠費信息的查詢由當前班級和注冊時間來確定數(shù)據(jù)表中是否該班已經(jīng)生成注冊數(shù)據(jù)，在注冊過程中實時查看當前注冊情況；允許多人同時注冊，也可在注冊時查看學(xué)生當前基本信息是否完善以及是否存在欠費驗證是否已生成班級學(xué)期注冊表 if (yzcrs=0)and (wzcrs=0) then begin if then :=true//未生成學(xué)期注冊數(shù)據(jù)，則允許生成 else :=false。//已生成學(xué)期注冊數(shù)據(jù) end else begin :=false。多人注冊： if 0 then begin with do for i:=0 to do begin GotoBookmark(pointer([i]))。 (39。xh。xq。term39。,VarArrayOf([fields[1].AsString,inttostr(+1)]), [loPartialKey])。 。 [39。zcsj39。]:=。 。 end。 end。當前學(xué)生報到注冊情況查看： :=inttostr(yzcrs)。//已注冊人數(shù) :=inttostr(wzcrs)。//未注冊人數(shù) [0].Clear。 [0].Add(strtoint(),39。未注冊39。,clblue)。 [0].Add(strtoint(),39。已注冊39。,clred)。//圖表查看⒓在校生學(xué)年鑒定管理根據(jù)當前選定班級及鑒定學(xué)年生成學(xué)年鑒定表，然后填寫學(xué)生學(xué)年鑒定數(shù)據(jù)判定當前數(shù)據(jù)表中是否已生成班級學(xué)年鑒定數(shù)據(jù)。(39。select ,, from xs_xnjd join jbxx2 on = where =39。+39。39。39。39。+[]+39。39。39。39。+39。 and =39。+39。39。39。39。++39。39。39。39。)。if =0 thenbegin………………………………//生成班級學(xué)年鑒定數(shù)據(jù):=true。while not do begin 。 [39。xh39。]:=(39。xh39。).asstring。 [39。xn39。]:=。 。 。 end。 ⒔在校生欠費信息管理判定學(xué)生有無欠費信息。(39。select , from xs_qfxx join jbxx2 on = join bjxx on = where =39。+39。39。39。39。++39。39。39。39。)。//+39。 and 39。+39。39。39。39。+39。已畢業(yè)39。+39。39。39。39。+39。 and 39。+39。39。39。39。+39。退學(xué)39。+39。39。39。39。)。(39。xh39。).DisplayLabel:=39。學(xué)號39。(39。xm39。).DisplayLabel:=39。學(xué)生姓名39。(39。qfje39。).DisplayLabel:=39。欠費金額39。(39。yjwjsj39。).DisplayLabel:=39。預(yù)計完結(jié)時間39。(39。bz39。).DisplayLabel:=39。備注39。if =0 then begin :=39。 無欠費記錄！ 39。 :=false。 end else :=true。//有欠費信息，則列出學(xué)生欠費信息⒕在校生日志信息管理同學(xué)生欠費信息管理類似. 社團組織管理子模塊學(xué)生組織及社團信息管理基本信息管理費用信息管理其它信息管理新團員基本信息黨員基本信息社團組織基本信息團費繳納信息管理黨費繳納信息管理社團組織活動信息社團組織獎勵信息干部基本信息模塊名稱：新團員基本信息輸入