基于ＡＳＰ和ＳＰＴ技術的高校準實時賬務查詢系統

［摘 要］ 會計電算化向網絡財務過渡是一種必然趨勢，鑒于當前高校財務環境的實際情況，本文介紹基于ASP和SPT技術開發的Web賬務準實時查詢系統，客戶端基于B/S模式，服務端基于C/S模式，既能滿足對于財務安全性的關注，又可作為高校網絡財務的一種先期嘗試。

［關鍵詞］ ASP；SPT；賬務查詢

［中圖分類號］F232；F275［文獻標識碼］A［文章編號］1673-0194(2008)03-0043-04

一、 引 言

網絡財務的發展是一種必然，網絡財務與會計電算化之間的主要區別在于其開放性、遠程性以及財務與業務的協同性，如蓬勃發展的XBRL就是網絡財務的一個典型實例。而會計電算化可視為封閉的、自成體系的單部門業務。一個企業集成信息的70%以上來自于財務信息，而作為非營利事業單位的高校財務仍處于電算化會計階段，所有經濟信息還僅僅囿于財務部門，財務信息的傳遞主要是靠月報、季報及年終財務報告，信息的傳遞具有明顯的單向性、滯后性，就財務部門而言，不利于增強財務信息公開透明化及財務管理創新，強化財務監督功能；而對財務信息的使用者來說，一是不能適時地獲取需要的財務信息，且獲取手段單一，甚至比較困難，二是即使能及時拿到所需信息，也要經專業人員解釋才能看懂。鑒于這種財務信息在傳遞和理解上的不足，作為向網絡財務方向發展的一種嘗試，本文基于ASP和SPT（SQL pass-through）技術開發了Web賬務準實時查詢系統，其客戶端基于B / S模式，服務端基于C / S模式。

二、系統模型

該準實時查詢系統的模型或拓撲結構如圖1所示，其具體實現原理如下：首先是信息的傳遞過程，Web服務器通過兩塊網絡適配器分別連接財務局域網和校園網，在Web服務器上運行SPT應用程序，來獲取賬務服務器中的財務數據，然后加工處理成信息使用者能夠看懂的信息并提供給ASP應用程序調用，完成財務信息的提取、加工和發布；其次是網絡模式的選擇，基于校園網絡的客戶端（Client）是以B / S（Browse / Server）方式實現查詢，不需要安裝任何定制軟件，只需IE瀏覽器即可，維護成本低且不受空間限制。Web服務器與賬務系統的連接是以C / S（Client / Server）模式，要求專門的應用程序來定制需要發布的信息，完成財務數據再加工的過程；再次是準實時的實現，考慮到財務數據的安全性和數據再加工，本文將SPT應用程序加入Windows操作系統的任務計劃中，可設定每間隔一段時間激發一次，間隔時間越短，則實時性越強。

三、 系統設計

本系統不僅能提供以項目方式核算的財務查詢，而且也能提供以科目余額為分析對象的業務查詢。

1. 數據結構

⑴用戶信息表userinfo（見表1）

在財務系統中，項目代碼和科目代碼都是唯一的，因此，在用戶信息表中，項目代碼和科目代碼可設置為查詢的關鍵字段。在此系統中，每個用戶至多可查詢7個項目和兩個科目，它們的順序對應著用戶登錄時的下拉列表項（在本表中事先設置ID=1的記錄為各項目和科目代碼對應的類屬名稱），這類用戶在權限設置上稱為一般用戶，其登錄時只能按列表項選擇要查詢的項目或科目；用戶名要求為經費項目負責人的真實姓名，這樣可以用戶名作為關鍵字段來查詢該項目負責人的所有經費項目，這類用戶在權限設置上稱為主管級用戶，其登錄時不需選擇項目，登錄后直接顯示該用戶負責的所有項目；特殊級用戶則顯示所有用戶信息表中已注冊用戶，各非空項目代碼和科目代碼設為超鏈接，直接點擊查詢。在實際應用中通過權限識別還加入了科研和教務板塊。

（2）項目信息表xmzw（見表2）

一般信息管理系統中都要考慮到表結構設計中的數據冗余性，因而以上項目表數據是不能直接從財務系統中取得的，可按照以下公式計算而得：

期末項目余額=年初余額+本年項目收入-上年和本年項目往來借方余額之和-項目支出

對于預算事業類項目，本年項目收入就是當年預算數，其他非預算類項目則為當年取得的收入。因此表2是通過C / S端應用程序加工而成的。考慮到本系統是準實時的，所以加入項目余額截止時間點字段，以供查詢者參考。

（3）科目余額信息表kmzw（見表3）

從設計者角度來說，只要是財務系統中的會計科目，都能夠進行查詢。就高校具體情況而言，查詢一般的事業支出科目或資產類科目是沒有意義的，絕大部分信息使用者關心的還是一些代管類、暫存類和專用基金類科目。科目信息表也與項目信息表一樣，數據是不能直接獲得的，需要加工提煉后才能得到該科目本年度收支余完整的信息。其計算公式按一般的復式記賬平衡公式計算即可。

（4）憑證明細表pzdmxz

記賬憑證明細表是賬務系統中記錄最完整、信息最全的一張數據表，它是產生其他財務信息的基礎，因此，本表可原封不動獲取過來被ASP應用程序調用，以顯示某項目或某個科目相對應的明細賬信息。

（5）表際關系

可以通過E—R實體關系圖來表示以上幾張表的內在邏輯關系：

2. 主要代碼

（1）C / S端設計

C / S端實際上是一個賬務數據的獲取和再加工程序。財務系統中的數據只能為專業人員所用，因而財務數據只有提煉成信息，加工成知識才能為更廣泛的使用者充分利用。這一過程可具體分兩個步驟來實現，首先是利用VFP（Visual FoxPro）開發平臺中內嵌的SPT技術實現遠程連接，將遠程財務數據獲取至Web服務器；其次是利用VFP語言來開發一個數據處理的應用程序，加工成客戶端需求的信息。

① SPT遠程連接

目前主流財務核算軟件的后臺數據庫基本是SQL Server和Oracle（理論上只要提供ODBC接口都可以），其在VFP中通過SPT技術連接的程序源代碼是：

Con_sql=SQLSTRINGCONNECT（\"DRIVER={SQL SERVER};SERVER=CWC;UID=SA;PWD=JPYE;APP=MICROSOFT? VISUAL FOXPRO?;DATABASE=ZW\"）定義連接SQL Server句柄

其中：cwc為賬務服務器名；SA為SQL Server的用戶名，其口令為JPYE；數據庫名為ZW。

sqlsetprop（0，\"displogin\"，3）

con_oracle=sqlstringconnect（\"DRIVER={Microsoft ODBC for Oracle};UID=CW;PWD=JPYE;SERVER=ORA_SERVER;\"） 定義連接Oracle句柄

其中：CW為數據庫用戶名；JPYE為數據庫口令；ORA_SERVER為賬務服務器名。

if con_oracle<=0

messagebox（\"連接賬務服務器失敗！\"，48，\"錯誤信息\"）

return

else

messagebox（\"連接賬務服務器成功！\"，64，\"成功信息\"）

endif

con_exe=SQLEXEC（CON_ORACLE，\"SELECT * FROM 科目余額表 \"，\"TEMP1\"）取所有月份的科目余額數據

同理，可以獲取所有需要再加工的各種賬表，如記賬憑證表、項目信息表、項目余額表及科目項目余額表等。

②VFP數據處理代碼

首先是對項目的處理，處理后的信息應包括項目的收支余和項目明細賬，在項目明細賬中過濾掉已沖銷的往來賬，并把借貸術語改為支出和收入，這樣即使非專業人員也能一目了然，財務信息就變得清晰易懂了；其次是對科目的處理，處理后的信息應包含科目的收支余和科目明細賬，由于科目查詢主要是代管類、暫存類和專用基金類科目，其明細賬的借貸方也可改為支出和收入方。同理也可以做更復雜的處理，如某項目用于本科教學水平評估的4項教學經費數、若干會計期間的比較等。

本文應用的是復旦天翼財務系統，這里的代碼可根據不同單位的實際情況和需要提供的財務信息而定，在此僅舉科目余額信息表處理過程以作參考。

AMT ='AMT'+Alltrim（Str（Year（Date（））））

con_exe=SQLEXEC（CON_ORACLE，\"SELECT * FROM AMT \"，\"TEMP1\"）

Select * From temp1 Into Dbf AMT 將遠程獲取的臨時表保存到本地

Use AMT Exclusive

Alter Table AMT Add Column AMT00 N（16，2）

Replace All AMT00 With （D_AMOUNT） For SMONTH = 0 計算余額在貸方的期初數

Replace All AMT00 With （J_AMOUNT） For SMONTH = 0 And AMT00 = 0 計算余額在借方的期初數

Index On Alltrim（Code） To amtind code為科目代碼

Total On Alltrim（Code） To kk Fields J_AMOUNT，D_AMOUNT

Alter Table kk Add Column rq Datetime

Alter Table kk Add Column d_yek N（16，2）

Alter Table kk Add Column j_yek N（16，2）

Alter Table kk Add Column amttotal N（16，2）

Select kk

Replace All amttotal With （D_AMOUNT - J_AMOUNT） For Substr（Code，1，1） = '2' .Or. ;

SUBSTR（Code，1，1） = '3' .Or. Substr（Code，1，1） = '4' 計算貸方期末數

Replace All d_yek With （D_AMOUNT-AMT00） For Substr（Code，1，1） = '2' .Or. ;

SUBSTR（Code，1，1） = '3' .Or. Substr（Code，1，1） = '4' 計算本年收入

Replace amttotal With （J_AMOUNT - D_AMOUNT） For SUBSTR（Code，1，1） = '1' Or Substr（Code，1，1） = '5'

Replace All j_yek With （J_AMOUNT-AMT00） For SUBSTR（Code，1，1） = '1' Or Substr（Code，1，1） = '5'

Replace All rq With Datetime（）

Copy To kmzw Type Fox2

（2）B/S端設計

B / S端是將信息顯示給最終使用者，由于ASP代碼本身對數據處理能力有限，所以其主要作用就是提取C / S端已加工完成的財務信息進行網絡發布。

①登錄時部分代碼

＜b＞當前年度＜/b＞＜input type=radio value=V1 checked name=R1＞＜b＞上一年度＜/b＞＜input type=radio name=R1 value=V2＞‘登錄時選擇項

＜select name=prjcode size=1＞‘下拉列表

＜option value='01'＞部門業務經費＜/option＞

＜option value='08'＞處長、主任基金＜/option＞

②在身份和權限確認后，進行數據提取的部分代碼

conn.Open P1

set rs=Server.CreateObject（\"adodb.Recordset\"）

sqlstme1 = \"select * from pzdmxz where prj_order='

\"xmdm1\"′\"

IF zwtimes=\"V1\" and prjcode=\"01\" then

rs.open sqlstme1， conn，3，3

end if‘提取當年的部門業務費項目明細賬

sqlstme8 = \" select * from pzdmxz where subj='

\"kmdm1\"′\"

IF zwtimes=\"V1\" and prjcode=\"08\" then

rs.open sqlstme8， conn，3，3

end if‘提取當年的該科目明細賬

此處是以HTML格式顯示明細賬數據的代碼略。

IF zwtimes=\"V1\" and prjcode=\"01\" then

Rs.Close

sqlyek = \" select * from xmzw where xmdm='

\"xmdm1\"′\"

rs.open sqlyek， conn，3，3

end if ‘提取當年的部門業務費項目信息

此處是以HTML格式顯示項目收支余信息的代碼，略。

IF zwtimes=\"V1\" and prjcode=\"08\" then

Rs.Close

sqlamt = \" select * from kmzw where kmdm='

\"kmdm1\"′\"

rs.open sqlamt， conn，3，3

end if ‘提取當年的科目余額信息

此處是以HTML格式顯示該科目收支余信息的代碼，略。

四、 安全性及兼容性

美國會計協會信息系統部提出會計信息系統應包含安全保密、智能數據分析、電子商務與Internet等，可見信息系統的安保是必要條件之一。由于本系統采用兩層獨特的組網模式，信息使用者和原始數據提供方分設在兩個不同的網段，有效地避免了直接訪問財務系統數據，同時，本文也對ASP代碼進行了加密和防駐入式攻擊處理，使得系統的安全性得到了保障。在系統兼容性方面，經過實際觀察發現，用戶查詢一般不會超過7個項目和兩個科目，如果一個用戶的項目經費多于7個而又沒有科目查詢的需求，如擁有多個課題的教師，則可將此用戶權限設成主管級；如用戶項目經費少于7個，而又有多于兩個科目的查詢需求，則可為其開設兩個用戶賬號進行查詢。另據不完全統計，目前我國約有30%的中小企業還處于會計電算化階段，本系統對這類企業也是有實際借鑒意義的。

五、 結 論

鑒于目前高校自身環境及管理的實際需求，在信息使用者自己根據決策所需來加工適時財務信息還未實現前，通過本系統的開發與應用，在開發平臺的選擇上實現了VFP數據處理能力與ASP網絡發布的優勢互補，在應用上既能滿足對于財務數據安全性的關注，又能提供經過再加工處理的財務信息，使財務信息有用和易懂，而且通過Windows的任務計劃功能達到了準實時的效果，為財務管理集中遠程化、動態化和高校網絡財務作出有益的嘗試。

主要參考文獻

［1］ 合力工作室. Visual FoxPro 6.0高級編程［M］. 北京：清華大學出版社，1999：273-301.

［2］ ［美］斯蒂芬·哈格等. 信息時代的管理信息系統［M］. 北京：機械工業出版社，2005：112-115.

［3］ 楊威. ASP 3.0網絡開發技術［M］. 北京：人民郵電出版社， 2000：201-284.

［4］ 周董. 會計信息系統的研究現狀與未來［J］. 中國管理信息化， 2006，（9）：27-29.

［5］ 江其玟，王黎. 基于網絡環境的實時企業財務信息整合［J］. 中國管理信息化，2006，（10）：44-46.

［6］ 黃浩嵐. 對企業盲目實行網絡化會計信息系統的理性思考［J］. 中國管理信息化， 2006，（10）：33-36.