【正文】 d。SELECT bjmc,bjid FROM bjxx where xkid=39。39。39。 。39。39。 and 詳細設(shè)計說明書 36 bjid=39。39。39。//已生成學(xué)期注冊數(shù)據(jù) end else begin :=false。xq。 [39。 end。//未注冊人數(shù) [0].Clear。 [0].Add(strtoint(),39。 。39。39。 and =39。39。39。 while not do begin 。xh39。]:=。 ⒔在校生欠費信息管理 判定學(xué)生有無欠費信息 詳細設(shè)計說明書 40 。39。39。//+39。39。+39。+39。39。+39。)。).DisplayLabel:=39。).DisplayLabel:=39。).DisplayLabel:=39。).DisplayLabel:=39。).DisplayLabel:=39。 :=false。 (39。39。+39。)。+39。++39。+39。39。39。+39。++39。)。select * from xs_gbxx where xh=39。39。39。39。39。 and zwdwid=39。39。39。 1:begin (39。39。39。 end。fyqssj。 [39。 :=false。fyqssj。).asstring,]), [loPartialKey])。]:=null。 詳細設(shè)計說明書 47 [39。jsr39。]:=null。 (39。,VarArrayOf([fields[5].AsString,]), [loPartialKey])。]:=。 當前黨費收繳統(tǒng)計設(shè)計： :=inttostr()。黨費繳納比例圖 39。未繳費 39。,clred)。 界面如下： 詳細設(shè)計說明書 54 修改學(xué)生狀態(tài)代碼如下： ?? //設(shè)置畢業(yè)班 procedure (Sender: TObject)。 strSql:=39。39。+39。 begin if (1) or (0) then abort。 詳細設(shè)計說明書 53 ② 畢業(yè)學(xué)生狀態(tài)設(shè)置：完成在校生到畢業(yè)班學(xué)生狀態(tài)的改變或畢業(yè)班學(xué)生向已畢業(yè)學(xué)生狀態(tài)的改變。 [0].Add(strtoint(),39。 [0].Clear。//已繳費人數(shù) 。 end。//繳費 [39。fyqssj。 ⒍黨費繳納管理 以黨員個體為單位進行黨費收繳管理，設(shè)置兩個網(wǎng)格，左邊網(wǎng)格列出當前時間段未繳費黨員信息，右邊網(wǎng)格列出當前時間段已繳費黨員信息，采用多人同時繳費也可同時撤消的方式，并實時統(tǒng)計當前黨費收繳情況 黨費收繳： :=true。 [39。]:=null。jfje39。 [39。,VarArrayOf([Name(39。 (39。]:=。,VarArrayOf([bjid,]), [loPartialKey])。 (39。)。++39。+39。//列出所有社團干部（在職和非在職） if then :=[nbFirst,nbPrior,nbNext,nbLast,nbinsert,nbdelete,nbedit,nbpost,nbcancel]。39。39。39。39。 and zwlb=39。39。39。 end。39。39。+39。++39。+39。39。39。//列出所有在職干部 case of 0:begin (39。39。+39。+39。//有欠費信息，則列出學(xué)生欠費信息 ⒕在校生日志信息管理 同學(xué)生欠費信息管理類似 詳細設(shè)計說明書 41 . 社團組織管理子模塊 模塊名稱 ：新團員基本信息 輸入 :新團員基本信息 處理 : 維護管理在大學(xué)階段入團人員基本信息 輸出 : 新團員基本信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 XS_XTYXX：新團員信息 模塊名稱 ：黨員基本信息管理 輸入 :學(xué)生入黨基本信息 處理 : 維護管理學(xué)生入黨基本信息 輸出 : 學(xué)生入黨基本信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 XS_DYXX：黨員基本信息 學(xué)生組織及社團信息管理 基本信息管理 費用信息管理 其它信息管理 新團員基本信息 黨員基本信息 社團組織基本信息 團費繳納信息管理 黨費繳納信息管理 社團組織活動信息 社團組織獎勵信息 干部基本信息 詳細設(shè)計說明書 42 模塊名稱 ：社團組織基本信息管 理 輸入 :社團組織基本信息 處理 : 維護管理社團組織基本信息 輸出 : 社團組織基本信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 XS_STLBB：社團基本信息 模塊名稱 ：干部信息管理 輸入 :干部基本信息 處理 : 維護管理干部基本信息 輸出 : 干部基本信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 BJXX：班級信息 XS_STLBB：社團組織基本信息 XS_GBXX：干部基本信息 模塊名稱 ：團費繳納信息管理 輸入 :團費繳納信息 處理 : 維護管理團費繳納信息 輸出 : 團費繳納信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 BJXX：班級信息 XS_TFJNXX：團費繳納信息 模塊名稱 ：黨費繳納信息管理 輸入 :黨費繳納信息 處理 : 維護管理黨費繳納信息 輸出 : 黨費繳納信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 XS_DFJNXX：黨費繳納信息 詳細設(shè)計說明書 43 模塊名稱 ：社團活動信息管理 輸入 :社團基本活動信息 處理 : 維護管理社團組織活動信息 輸出 : 社團組織活動信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 BJXX：班級信息 XS_STTLBB：社團基本信息 XS_JTHDXX：集體活動信息 模塊名稱 ：社團組織集體獲獎信息管理 輸入 :社團獲獎信息 處理 : 維護管理社團組織獲獎信息 輸出 : 社團組織獲獎信息 數(shù)據(jù)表 : JBXX2：學(xué)生基本信息 BJXX：班級信息 XS_STTLBB：社團基本信息 XS_ZZHJXX：集體獲獎信息 功能： 學(xué)生大學(xué)入團信息管理； 學(xué)生入黨信息管理（分為正式黨員、預(yù)備黨員、入黨積極分子等）； 社團基本信息管理（包括掛靠系科的社團及系內(nèi)組織如學(xué)生會等集體組織） 干部基本信息管理（包括在職的和非在職的，班級干部和社 團干部） 團費繳納管理（以班級為單位，實時統(tǒng)計查詢指定時間段繳費情況） 黨費繳納管理（以黨員為單位，實時統(tǒng)計查詢指定時間段繳費情況） 社團組織活動信息管理； 社團組織獲獎信息管理； 設(shè)計： 本模塊與在校生基本信息管理類似，采用多文檔窗體的形式 ⒈新團員基本信息管理 完成大學(xué)新納入團員的入團信息 詳細設(shè)計說明書 44 ⒉黨員基本信息管理 以班級為單位記錄黨員總?cè)藬?shù)，以學(xué)生個體為單位建立入黨檔案 ⒊社團基本信息管理 記載社團組織基本信息 ⒋干部信息管理 維護和管理班干部及社團干部基本信息，并提供相應(yīng)查詢（班干部信息、個人干部信息、在職干部信息） 詳細設(shè)計說明書 45 。 if =0 then begin :=39。 (39。 (39。 (39。 (39。 (39。39。+39。+39。39。+39。+39。39。39。select , from xs_qfxx join jbxx2 on = join bjxx on = where =39。 。 [39。xh39。 。39。39。39。39。select ,xs_xnj詳細設(shè)計說明書 39 from xs_xnjd join jbxx2 on = where =39。,clred)。未注冊39。 當前學(xué)生報到注冊情況查看： :=inttostr(yzcrs)。]:=。,VarArrayOf([fields[1].AsString,inttostr(+1)]), [loPartialKey])。 (39。 。39。39。39。39。select xh,xb from jbxx2 where xm=39。 。39。39。 。 //將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 。+(39。//將統(tǒng)計結(jié)果寫入圖表 詳細設(shè)計說明書 35 while not do begin [4,i]:=[4,i]+eldbyname(39。第39。)。+39。39。+39。++39。+39。+inttostr(i)+39。39。39。 (39。 //將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 。+(39。//將統(tǒng)計結(jié)果寫入圖表 while not do begin [2,i]:=[2,i]+eldbyname(39。第39。)。+39。39。+39。++39。+39。+inttostr(i)+39。39。39。 (39。 end。//將統(tǒng)計結(jié)果寫入數(shù)據(jù)網(wǎng)格 end。qqjc39。xm39。 AS char(2))39。39。39。 and =39。39。39。39。bjid39。39。 。 end。).asstring。 [39。 。39。39。 where 詳細設(shè)計說明書 31 xh=39。 。 :=true。 (39。 (39。 (39。//導(dǎo)入新生正式學(xué)號輸入表 (39。 end。+39。).asstring+39。39。+39。).asstring+39。39。+39。).asstring+39。39。+[]+39。 (oldxh char(11),xsxm char(8),xb char(2),newxh char(11))39。 end。39。39。xh=39。xh39。平均分 39。最低分 39。最高分 39。 isWrite:=not isWrite。 [i+1].Add(inttostr(intCrntCnt[i]))。 [0].Add(intCrntCnt[i],strSql,intColor詳細設(shè)計說明書 21 [i mod 11])。 strSql:=39。 。+inttostr(intCrntScore+5)。 strSql:=strSql+39。 and 39。 strSql:=strSql+39。 while (iitemsCount) and (i30) do begin strSql:=39。 intCrntScore:=trunc(minScore/5)*5。 avgScore:=(39。).AsInteger。)。 (39。 for i:=0 to 2 do begin [i].Clear。對不起 ,未找到相關(guān)學(xué)生的成績 !39。 。 From t_tdd,xs_base,xs_expend Where = and =39。) as MinScore,AVG(39。Select Max(39。 //下一個班 end。%39。 [i+1].Add(strClassName[i])。%39。[3