【正文】 base 數(shù)據(jù)庫(kù) ,在gov_dbbase數(shù)據(jù)庫(kù) gov_dbbase數(shù)據(jù)庫(kù)建立四個(gè)表分別為 gwyflxxb表、 gwygzxxb表、 yfgzxxb 表和 ykgzxxb 表。 功能模塊設(shè)計(jì) 財(cái)務(wù)系統(tǒng)進(jìn)入模塊 首先先登錄網(wǎng)的首頁(yè)。必須填寫(xiě)姓名和密碼，只有在對(duì)數(shù)據(jù)庫(kù)中的信息核對(duì)無(wú)誤后方能進(jìn)入下一頁(yè)。 這時(shí)對(duì)各項(xiàng)項(xiàng)目的操作權(quán)限都已經(jīng)確定下來(lái)。如果有權(quán)限可以訪問(wèn)“財(cái)務(wù)管理”一項(xiàng)。則鏈接可用再點(diǎn)擊它則可以進(jìn)入財(cái)務(wù)管理主頁(yè)面。 財(cái)務(wù)管理主頁(yè)面是使用了 IFRAME 來(lái)實(shí)現(xiàn)幀的管理。把畫(huà)面分為兩幀，分別為 和 。 界面如圖： 主要源代碼如下： TABLE border 0 cellPadding 0 cellSpacing 0 height 100% width 100% TD align middle id frmTitle noWrap vAlign center IFRAME topMargin 0 leftmargin 0 frameBorder 0 scrolling auto src style HEIGHT:100%。VISIBILITY:inherit。WIDTH:170px。ZINDEX:2 TD border 0 style WIDTH:100% width 84% IFRAME topMargin 0 leftmargin 0 frameBorder 0 name mainFrame scrolling auto src style HEIGHT:100%。VISIBILITY:inherit。WIDTH:100%。ZINDEX:1 這樣的好處使是本主頁(yè)面在與其它主功能頁(yè)面切換時(shí)，可以使幾個(gè)幀在同一頁(yè)面中完成切換，不必另而外出現(xiàn)新的頁(yè)面和幀混亂的局面。左邊分別為福利管理下有福利管理 c. 主要源代碼如下： ?JSP if $Submit 合計(jì) //判斷“合計(jì)”還是“提交” $YFHJ $JBGZ+$GWGZ+$DZF+$WJBT+$JTF+$YLJT+$HSBT+$YYF+$FT+$JE1+$J E2+$JE3。 // 應(yīng)發(fā)合計(jì) $YKHJ $GJJ+$GHF+$YLJ+$YKGS+$SF+$DF+$RQF+$SYBX+$YLBX+$JE4+$JE5+$JE6。 //應(yīng)扣合計(jì) $HJ $YFHJ$YKHJ。 //合計(jì) require 。 if $Submit 重填 require 。 if $Submit 提交 do //連接數(shù)據(jù)庫(kù) require ../ 。 while $sql 。 //向 gwygzxxb 插入新數(shù)據(jù) $str insert into gwygzxxb GZQJ,FFRQ,GWYH,XM,ZW,BM,ZC values 39。$GZQJ39。,39。$FFRQ39。,39。$GWYH39。,39。$XM39。,39。$ZW39。,39。$BM39。,39。$ZC39。 。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)字符串 if $result 0 echo can not query!!! 。 exit。 //向 yfgzxxb 插入新數(shù)據(jù) $str insert into gwygzxxb GZQJ,GWYH,JBGZ,GWGZ,DZF,WJBT,JTF,YLJT,HSBT,YYF,FT,XM1,JE1,XM2,JE2,XM3,JE3,YFHJ values $JBGZ39。,39。$GWGZ39。,39。$DZF39。,39。$WJBT39。,39。$JTF39。,39。$YLJT39。,39。$HSBT39。,39。$YYF39。,39。$FT39。,39。$XM139。,39。$JE139。,39。$XM239。,39。$JE239。,39。$XM339。,39。$JE339。,39。$YFHJ39。 。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)字符串 if $result 0 echo can not query!!! 。 exit。 // 向 ykgzxxb 插入新數(shù)據(jù) $str insert into gwygzxxb GZQJ,GWYH,GJJ,GHF,YLJ,YKGS,SF,DF,RQF,SYBX,YLBX,XM4,JE4,XM5,JE5,XM6,JE6,YKHJ,HJ values 39。$GJJ39。,39。$GHF39。,39。$YLJ39。,39。$YKGS39。,39。$SF39。,39。$DF39。,39。$RQF39。,39。$SYBX39。,39。$YLBX39。,39。$XM439。,39。$JE439。,39。$XM539。,39。$JE539。,39。$XM639。,39。$JE639。,39。$YKHJ39。,39。$HJ39。 。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)字符串 if $result 0 echo can not query!!! 。 exit。 MSSQLserver2020_close 。 //關(guān)閉數(shù)據(jù)庫(kù) echo 錄入數(shù)據(jù)成功 。 else echo 添加數(shù)據(jù)不成功 ! a href 返回 ,請(qǐng)檢查數(shù)據(jù)類(lèi)型的正確性！ 。 ? 數(shù)據(jù)錄入模塊 定位記錄的界面： 將返回一個(gè)界面如圖： 定位到記錄的主要源代碼如下： do //連接數(shù)據(jù)庫(kù) require ../ 。 while $sql 。 //gwygzxxb $str select * from gwygzxxb where RQ 39。$RQ39。 and XM 39。$XM39。 and GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query to gwygzxxb。 exit。 $sn_index MSSQLserver2020_num_rows $result 。 //查詢(xún)結(jié)果的記錄筆數(shù) //yfgzxxb $str select * from yfgzxxb where RQ 39。$RQ39。 and GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query to yfgzxxb。 exit。 $sn_index MSSQLserver2020_num_rows $result 。 //查詢(xún)結(jié)果的記錄筆數(shù) //ykgzxxb $str select * from ykgzxxb where RQ 39。$RQ39。 and GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query to ykgzxxb。 exit。 $sn_index MSSQLserver2020_num_rows $result 。 //查詢(xún)結(jié)果的記錄筆數(shù) if $sn_index 0 echo 沒(méi)有滿(mǎn)足條件的數(shù)據(jù) 。 exit。 echo 符合條件的共有 $sn_index 條記錄 。 修改工資記錄模塊的主要源代碼如下： ?JSP $YFHJ $JBGZ+$GWGZ+$DZF+$WJBT+$JTF+$YLJT+$HSBT+$YYF+$FT+$JE1+$JE2+$JE3。 // 應(yīng)發(fā)合計(jì) $YKHJ $GJJ+$GHF+$YLJ+$YKGS+$SF+$DF+$RQF+$SYBX+$YLBX+$JE4+$JE5+$JE6。 //應(yīng)扣合計(jì) $HJ $YFHJ$YKHJ。 //合計(jì) do require ../ 。 while $sql 。 //gwygzxxb 更新 $str UPDATE gwygzxxb SET GZQJ 39。$GZQJ39。,FFRQ 39。$FFRQ39。,GWYH 39。$GWYH39。,XM 39。$XM39。,ZW 39。$ZW39。,BM 39。$BM39。,ZC 39。$ZC39。 where GZQJ 39。$GZQJ39。 AND GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query to gwygzxxb。 exit。 //yfgzxxb 更新 $str UPDATE yfgzxxb SET GZQJ 39。$GZQJ39。,GWYH 39。$GWYH39。,JBGZ 39。$JBGZ39。,GWGZ 39。$GWGZ39。,DZF 39。$DZF39。,WJBT 39。$WJBT39。,JTF 39。$JTF39。,YLJT 39。$YLJT39。,HSBT 39。$HSBT39。,YYF 39。$YYF39。,FT 39。$FT39。,XM1 39。$XM139。,JE1 39。$JE139。,XM2 39。$XM239。,JE2 39。$JE239。,XM3 39。$XM339。,JE3 39。$JE339。,YFHJ 39。$YFHJ39。 where GZQJ 39。$GZQJ39。 AND GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query to yfgzxxb。 exit。 //ykgzxxb 更新 $str UPDATE ykgzxxb SET GZQJ 39。$GZQJ39。,GWYH 39。$GWYH39。,GJJ 39。$GJJ39。,GHF 39。$GHF39。,YLJ 39。$YLJ39。,YKGS 39。$YKGS39。,SF 39。$SF39。,DF 39。$DF39。,RQF 39。$RQF39。,SYBX 39。$SYBX39。,YLBX 39。$YLBX39。,XM4 39。$XM439。,JE4 39。$JE439。,XM5 39。$XM539。,JE5 39。$JE539。,XM6 39。$XM639。,JE6 39。$JE639。,YKHJ 39。$YKHJ39。,HJ 39。$HJ39。 where GZQJ 39。$GZQJ39。 AND GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str,$sql 。 //送出查詢(xún)，將結(jié)果放入$result if $result 0 echo can not query ykgzxxb。 exit。 else echo 修改成功 ! \n。 MSSQLserver2020_close 。 //關(guān)閉數(shù)據(jù)庫(kù) require 。//調(diào)用 ? 刪除記錄模塊 刪除記錄，在左邊的幀中出現(xiàn)刪除記錄的頁(yè)面 ,在這里實(shí)現(xiàn)刪除功能。 主要源代碼： ?JSP do require ../ 。 while $sql 。 //從 gwygzxxb 刪除 $str DELETE FROM gwygzxxb WHERE GZQJ 39。$GZQJ39。 AND XM 39。$XM39。 AND GWYH 39。$GWYH39。 $result MSSQLserver2020_query $str, $sql 。 if !result echo can not query to gwygzxxb。 exit。 $affected_rows MSSQLserver2020_affected_rows $sql 。 //從 yfgzxxb 刪除 $str DELETE