【文章內(nèi)容簡介】 ） HTTP html 請求 返回 SQL DATA 財務管理信息系統(tǒng) 初始化模塊 憑證模塊 賬簿模塊 報表模塊 結(jié)轉(zhuǎn)模塊 第 18頁 共 55頁 ①科目查詢（順序查詢、定制查詢） ②科目修改 ③科目刪除 ④科目添加 ⑤設置修改科目的期初 （ 2） 憑證模塊實現(xiàn)功能 ①憑證輸入（按照主細表結(jié)構(gòu)） ②憑證查詢（順序查詢，制定查詢） ③憑證分錄的修改，刪除和插入 ④憑證刪除 ⑤憑證審核 ⑥憑證登記賬簿（總賬、明細賬、現(xiàn)金日記賬、銀行存款日記賬） （ 3） 賬簿模塊實現(xiàn)功能為： ① 對總賬和明細賬按照會計期間和會計科目查詢?yōu)g覽； ② 對現(xiàn)金日記賬和銀行日記賬按照會計期間或者具體日期查詢?yōu)g覽； ③ 實現(xiàn)總賬，明細賬，現(xiàn)金日記賬和銀行存款日記賬的 打印輸出。 （ 4） 報表模塊實現(xiàn)功能 ① 根據(jù)某一月份的總賬生成當期的資產(chǎn)負債表供瀏覽和打??； ② 根據(jù)某一月份的總賬生成當期的損益表供瀏覽和打印。 （ 5） 結(jié)轉(zhuǎn)模塊實現(xiàn)功能 ① 期末結(jié)轉(zhuǎn)：對當期所有登帳完畢的憑證登入科目每期發(fā)生額表，提供下一期的期初余額； ② 年末結(jié)轉(zhuǎn)：對當年對當期所有登帳完畢的憑證結(jié)轉(zhuǎn)，余額作為下一年的年初余額。 圖 11為本系統(tǒng)的系統(tǒng)功能模塊示意圖。 第 19頁 共 55頁 圖 11 系統(tǒng)功能模塊圖 數(shù)據(jù)結(jié)構(gòu) 數(shù)據(jù)庫模型 根據(jù)上文的數(shù)據(jù)需 求可以看出，本系統(tǒng)主要包括會計科目、憑證、分錄、科目余額、本期明細賬簿、本期匯總賬簿等實體，各實體關系如下文所述。 （ 1）憑證歷史實際上是對憑證記錄的備份保存，因此憑證歷史表和憑證表間存在一對一的關系。 （ 2）分錄歷史實際上是對分錄記錄的備份保存，因此分錄歷史表和分錄表間存在一對一的關系。 （ 3）一張憑證可以被包含在多個分錄中，多個分錄可以同時對應一張憑證，因此憑證表和分錄表間存在一對多的關系。 （ 4）一個科目被包含在多個分錄中，多個分錄可以同時對應同一科目，因此科目表和分錄表間存在一對多的關系。 （ 5）賬 簿初始化實際上是對科目表中每個科目進行初始化操作，因此財務管理信息系統(tǒng) 會計科目 （科目初始化） 憑證 賬簿 報表 結(jié)賬 用戶管理 科目添加 科目修改，查詢 科目刪除 科目余額設置 憑證輸入 /維護 憑證審核 憑證登帳（四個帳） 查看并打印總賬，明細賬，現(xiàn)金日記賬，銀行存款日記賬 輸出和打印資產(chǎn)負債表，損益表 期末結(jié)轉(zhuǎn) 年末結(jié)轉(zhuǎn) 修改密碼 添加用戶 第 20頁 共 55頁 賬簿初始化表和科目表間存在一對一的關系。 （ 6）本期匯總實際上是對期間發(fā)生的每個科目進行匯總操作，因此本期匯總賬簿和科目表間存在一對一的關系。 （ 7）一個會計科目可以被包含在多張本期明細中，多張本期明細可以對應同一會計科目，因此科目表和本期明細賬簿間存在一對多的關系。 （ 8）科目余額實際上是對每個會計科目的余額的計算，因此科目余額表和科目表間存在一對一的關系。 （ 9）一個會計期間的資產(chǎn)負債是對多個科目余額的統(tǒng)計，多個科目余額可以生成一張資產(chǎn)負債，因此資產(chǎn) 負債表和科目余額表間存在一對多的關系。 數(shù)據(jù)庫 中表間 ER圖 如圖 12所示。 圖 12 數(shù)據(jù)庫表間 ER 圖 數(shù)據(jù)定義 ∞ M 1 1 ∞ M 1 1 1 1 ∞ M 1 1 1 ∞ M 1 1 1 1 1 科目表 憑證表 資產(chǎn)負債表 分錄表 本期匯總賬簿 本期明細賬簿 憑證表歷史 分錄表歷史 科目余額表 賬簿初始化表 第 21頁 共 55頁 由上述分析可知，該系統(tǒng)共需要 12張表，用途分別如表 7所示。 表 7 系統(tǒng)數(shù)據(jù)表及其用途 數(shù)據(jù)表名稱 數(shù)據(jù)表用途 科目表 保存企業(yè)財務的科目設置信息 賬簿 初始化表 正式使用系統(tǒng)前初始化科目的期初余額 憑證表 輸入會計憑證，分錄表的主表 分錄表 輸入會計憑證，分錄表的從表 科目余額表 保存各個會計期間的科目借、 貸、余額情況 憑證表歷史 保存 過賬 后的憑證歷史 分錄表歷史 保存 過賬 后的分錄歷史 本期 明細賬 簿 保存當前會計期間的 明細賬 簿數(shù)據(jù) 本期匯總 賬簿 保存當前會計期間的 明細賬 簿數(shù)據(jù)，期末 結(jié)賬 后期末變成新會計期間的期初 資產(chǎn)負債表 統(tǒng)計用表，用于計算資產(chǎn)負債表 系統(tǒng)參數(shù)表 系統(tǒng)運行所需的參數(shù)信息 用戶清單 保存系統(tǒng)用戶登錄信息 5. 系統(tǒng)詳細設計 功能模塊詳細設計 會計科目（ 系統(tǒng)初始化 ） 模塊算法設計和代碼實現(xiàn) 該 模塊 的算法根據(jù) 會計科目（系統(tǒng)初始化） 模塊的模塊定義來設計。 會計科目（系 統(tǒng)初始化） 模塊算法設計要求如下： （ 1）新增科目時對于科目編號的輸入控制 ①首位必須為 1/2/3/4/5 ②編號符合編碼規(guī)則（也就說限制長度為 3/5/7/9） ③編碼不準出現(xiàn)重復 ④編碼不準越級，不準只有下級科目而不存在上級科目 ⑤對于已經(jīng)在輸入憑證中使用的科目編碼，不能再賦予其下級科目 （ 2）新增科目時對于科目名稱的輸入控制 不準出現(xiàn)空值。 （ 3）修改刪除會計科目時的控制條件 ①不準修改科目編號 ②科目若存在下級科目，將不準刪除 第 22頁 共 55頁 ③科目若已經(jīng)輸入余額或發(fā)生額，不準修改和刪除 ④科目已經(jīng)在憑證中使用的，不允 許修改和刪除 該模塊 的 主要代碼為： 新增 科目 函數(shù)： Public Overrides Sub saveforadd() Dim drdata As DataRow = (科目表 ).newrow() Try drdata(科目代碼 ) = drdata(科目名稱 ) = drdata(助記碼 ) = drdata(科目類別 ) = drdata(余額方向 ) = Catch ex As Exception (數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try (科目表 ).(drdata) If = True Then (dataset11) End If Catch ex As Exception (數(shù)據(jù)添加失??！ ) End Try End Sub 更新 科目 函數(shù)： Public Overrides Sub saveforupdate() Try Dim row As Integer 第 23頁 共 55頁 row = = New datagirdcell((row + 1) Mod , 0) 39。判斷是否有更新的數(shù)據(jù) If = True Then (dataset11) End If Catch ex As Exception (數(shù)據(jù)修改失??！ ) End Try End Sub 刪除 科目 函數(shù)： Public Overrides Sub deletedata() Try 39。刪除當前行的數(shù)據(jù) (科目表 ).rows().delete() If = True Then 39。更新 dataset11 (dataset11) End If Catch ex As Exception (數(shù)據(jù)刪除失??！ ) End Try End Sub 憑證 模塊算法設計和代碼實現(xiàn) 該 模塊 的算法根據(jù)憑證模塊的模塊定義來設計。 憑證模塊算法設計要求如下： （ 1）輸入憑證分錄時的輸入控制 ①憑證分錄的發(fā)生科目必須已經(jīng)在科目表中存在。 第 24頁 共 55頁 ②憑證分錄的借貸方發(fā)生額必須相等，否則會提示用戶。 （ 2）修改 /刪除憑證分錄時的輸入控制 ①對于已經(jīng)審核完畢的憑證不準修改 /刪除分錄。 ②修改之后的憑證依舊要保證借貸方發(fā)生額必 須相等。 （ 3）審核憑證時的輸入控制 ①要求審核憑證的用戶和憑證制單的用戶不能為同一人。 ②審核憑證時若憑證借貸不平衡或者發(fā)生額為零則不能審核。 （ 4） 憑證登帳時的輸入控制 憑證登帳的前提是已經(jīng)審核完畢的憑證。 該模塊主要實現(xiàn)代碼為： 添加憑證函數(shù)： Private Sub btnadd_click(ByVal sender As , ByVal e As ) Handles 39。判斷數(shù)據(jù)格式 If validatedata() = False Then (數(shù)據(jù)格式不正確！ ) Return End If Try Dim dr As DataRow = dr(摘要 ) = dr(科目代碼 ) = dr(科目名稱 ) = dr(借方 )= dr(貸方 ) = 39。添加一行數(shù)據(jù) (dr) = dtdetail = 1 第 25頁 共 55頁 39。更新錢的總數(shù) updatemoney() Catch ex As Exception (數(shù)據(jù)格式不正確！ ) End Try cleartextbox() End Sub 修改憑證函數(shù)： Private Sub btnsave_click(ByVal sender As , ByVal e As ) Handles If validatedata() = False Then (數(shù)據(jù)格式不正確！ ) Return End If If = 1 Then Return End If Try 39。更新當前行的數(shù)據(jù) Dim irow As Integer = (irow)(摘要 ) = (irow)(科目代碼 ) = (irow)(科目名稱 ) = (irow)(借方 ) = (irow)(貸方 ) = updatemoney() Catch ex As Exception (數(shù)據(jù)格式不正確！ ) End Try 第 26頁 共 55頁 cleartextbox() End Sub 刪除憑證函數(shù)： Private Sub btnd