【正文】 s dialogresult = (結(jié)帳后將進(jìn)入下一會(huì)計(jì)期間，是否結(jié)帳？ , 確定 , ) If dlgresult Then Return End If 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 32 頁(yè) 共 77 頁(yè) Dim db As database = New database Try (begin tran exec sf_期末結(jié)帳 ) Catch ex As Exception (期末結(jié)帳失敗！ ) (rollback) Return End Try (mit) (結(jié)帳成功！ ) End Sub 數(shù)據(jù)庫(kù)詳細(xì)設(shè)計(jì) 數(shù)據(jù)庫(kù)環(huán)境配置 本系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)采用 SQL Server 2021 數(shù)據(jù)庫(kù)。 資產(chǎn)負(fù)債函數(shù)： Private Sub mnfuzhai_click(ByVal sender As , ByVal e As ) Handles If getinstancestate(frmreport) Then Exit Sub End If Dim message, title, defaultvalue As String Dim muvalue As Object message = 請(qǐng)輸入統(tǒng)計(jì)的會(huì)計(jì)區(qū)間 title = 輸入 39。更新當(dāng)前行的數(shù)據(jù) Dim irow As Integer = (irow)(摘要 ) = (irow)(科目代碼 ) = (irow)(科目名稱(chēng) ) = (irow)(借方 ) = (irow)(貸方 ) = updatemoney() Catch ex As Exception (數(shù)據(jù)格式不正確！ ) End Try cleartextbox() End Sub 刪除憑證函數(shù)： Private Sub btndel_click(ByVal sender As , ByVal e As ) Handles Try 39。 ②修改之后的憑證依舊要保證借貸方發(fā)生額必須相等。 會(huì)計(jì)科目（系統(tǒng)初始化） 模塊算法設(shè)計(jì)要求如下： （ 1）新增科目時(shí)對(duì)于科目編號(hào)的輸入控制 ①首位必須為 1/2/3/4/5 ②編號(hào)符合編碼規(guī)則（也就說(shuō)限制長(zhǎng)度為 3/5/7/9） ③編碼不準(zhǔn)出現(xiàn)重復(fù) ④編碼不準(zhǔn)越級(jí)，不準(zhǔn)只有下級(jí)科目而不存在上級(jí)科目 ⑤對(duì)于已經(jīng)在輸入憑證中使用的科目編碼，不能再賦予其下級(jí)科目 （ 2）新 增科目時(shí)對(duì)于科目名稱(chēng)的輸入控制 不準(zhǔn)出現(xiàn)空值。 （ 6）憑證歷史包括憑證編號(hào)、會(huì)計(jì)期間、憑證字號(hào)、日期、附單據(jù)、制單、借方合計(jì)、貸方合計(jì)、過(guò)帳狀態(tài)、憑證狀態(tài)等字段，其中憑證編號(hào)是主鍵。 （ 9）一個(gè)會(huì)計(jì)期間的資產(chǎn)負(fù)債是對(duì)多 個(gè)科目余額的統(tǒng)計(jì)，多個(gè)科目余額可以生成一張資產(chǎn)負(fù)債，因此資產(chǎn)負(fù)債表和科目余額表間存在一對(duì)多的關(guān)系。 （ 1）憑證歷史實(shí)際上是對(duì)憑證記錄的備份保存，因此憑證歷史表和憑證表間存在一對(duì)一的關(guān)系。 圖 22 “結(jié)轉(zhuǎn)”模塊的 IPO 圖 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 20 頁(yè) 共 77 頁(yè) 系統(tǒng)名稱(chēng)： 小型企業(yè)財(cái)務(wù)管理信息系統(tǒng) 模塊名稱(chēng)： 用戶(hù)管理 模塊 模塊編號(hào)： 7 輸入數(shù)據(jù)： 用戶(hù)信息 輸出數(shù)據(jù)： 更新數(shù)據(jù)庫(kù)用戶(hù)清單表 處理步驟： (1)輸入舊密碼、新密碼和確認(rèn)新密碼。 圖 20 “帳簿”模塊的 IPO 圖 系統(tǒng)名稱(chēng)： 小型企業(yè)財(cái)務(wù)管理信息系統(tǒng) 模塊名稱(chēng)： 報(bào)表 模塊 模塊編號(hào)： 5 輸入數(shù)據(jù)： 會(huì)計(jì)期間 輸出數(shù)據(jù)： 生成資產(chǎn)負(fù)債表、損益表 處理步驟： (1)輸入會(huì)計(jì)期間。 憑證 信息 （ 1）輸入 憑證 信息。 圖 18 “會(huì)計(jì)科目”模塊的 IPO 圖 系統(tǒng)名稱(chēng)： 小型企業(yè)財(cái)務(wù)管理信息系統(tǒng) 模塊名稱(chēng)： 憑證 模塊 模塊編號(hào)： 3 輸入數(shù)據(jù)： 憑證信息 、科目代碼、科目名稱(chēng)、科目類(lèi)別 輸出數(shù)據(jù)： 更新數(shù)據(jù)庫(kù)憑證表 處理步驟： （ 1）輸入科目代碼、科目名稱(chēng)、科目類(lèi)別。 （ 1）輸入科目信息。 （ 3） 從用戶(hù) 清單表 中檢查是否有相應(yīng)的用戶(hù)名和密碼。 轉(zhuǎn)帳憑證 轉(zhuǎn)帳參數(shù) 用戶(hù) 定義轉(zhuǎn)帳憑證 用戶(hù) 轉(zhuǎn)帳憑證定義 扎帳 匯總發(fā)生額 數(shù)據(jù)處理 系統(tǒng)外轉(zhuǎn)帳 明細(xì)帳檔案 明細(xì)科目發(fā)生額匯總 憑證 明細(xì)帳 總帳余額 生成轉(zhuǎn)帳憑證 打印 轉(zhuǎn)帳憑證 總帳 憑證檔案 結(jié)帳標(biāo)志 其它子系統(tǒng) 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 12 頁(yè) 共 77 頁(yè) 圖 13 對(duì)“ 日常帳務(wù) ”中“ 查詢(xún)打印帳簿 ”細(xì)化后的第二層數(shù)據(jù)流程圖 數(shù)據(jù)需求 數(shù)據(jù)關(guān)系 該企業(yè)財(cái)務(wù)管理 系統(tǒng) 數(shù)據(jù)實(shí)體關(guān)系圖如圖 14 所示。 會(huì)計(jì)科目 科目結(jié)構(gòu) 科目 校驗(yàn)信息 余額等初始數(shù)據(jù) 用戶(hù) 編輯科目 用戶(hù) 錄入初始數(shù)據(jù) 初始科目余額 平衡校驗(yàn) 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 9 頁(yè) 共 77 頁(yè) 圖 10 日常帳務(wù)的第 一 層數(shù)據(jù) 流程圖 （ 4）二層數(shù)據(jù)流程圖 ① “憑證處理”的分解。 圖 7 系統(tǒng)頂層數(shù)據(jù)流程圖 小型企業(yè)財(cái)務(wù)管理信息系統(tǒng) 初始設(shè)置管理 憑證處理 轉(zhuǎn)帳結(jié)帳 查詢(xún)打印帳簿 用戶(hù)管理 設(shè)置會(huì)計(jì)科目 錄入初始數(shù)據(jù) 憑證輸入 憑證查詢(xún) 查詢(xún)總分類(lèi)帳 查詢(xún)明細(xì)帳 添加用戶(hù) 查詢(xún)余額發(fā)生額 修改密碼 日常帳務(wù)管理 平衡校驗(yàn) 憑證審核 憑證修改 總分類(lèi)賬 憑證記帳 轉(zhuǎn)帳憑證定義 轉(zhuǎn)帳憑證生成 期末結(jié)帳 科目匯總表 帳簿 記帳憑證 初始參數(shù) 用戶(hù) 財(cái)務(wù)處理 用戶(hù) 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 7 頁(yè) 共 77 頁(yè) （ 2）零層數(shù)據(jù)流程圖 財(cái)務(wù)處理最主要的兩項(xiàng)功能是系統(tǒng)初始設(shè)置與日常賬務(wù)處理。 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 5 頁(yè) 共 77 頁(yè) ③根據(jù)原始憑證、原始憑證匯總表和記賬憑證登記各種 明細(xì)分類(lèi)賬。 項(xiàng)目進(jìn)程 任務(wù)描述 本系統(tǒng)采用至上而下的項(xiàng)目開(kāi)發(fā)步驟，整個(gè)開(kāi)發(fā) 過(guò)程分為六個(gè)階段。系統(tǒng)要求界面設(shè)計(jì)人性化，便于財(cái)務(wù)人員 的操作。湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 1 頁(yè) 共 77 頁(yè) 小型 企業(yè) 財(cái)務(wù)管理信息 系統(tǒng)設(shè)計(jì)與開(kāi)發(fā) 1. 引言 項(xiàng)目來(lái)源 自從世界上第一臺(tái)計(jì)算機(jī)誕生以后，信息技術(shù)就以令人瞠目結(jié)舌的速度深入到全球各地和 各個(gè)領(lǐng)域。 任務(wù)目標(biāo) “小型 企業(yè) 財(cái)務(wù)管理信息系統(tǒng)”是自行調(diào)研、設(shè)計(jì)、開(kāi)發(fā)并成功實(shí)施，為 提高財(cái)務(wù)業(yè)務(wù)處理的準(zhǔn)確性、時(shí)效性， 從而 為財(cái)務(wù)管理活動(dòng)提供準(zhǔn)確 、 及時(shí)的信息 的管理信息系統(tǒng)。采用 C/S 結(jié)構(gòu)，輔以 VBScript 技術(shù)以期帶來(lái)良好的用戶(hù)體驗(yàn)。 ②根據(jù)收款憑證和付款憑證登記現(xiàn)金日記賬和銀行存款日記賬。系統(tǒng)的輸入數(shù)據(jù)有初始設(shè)置的參數(shù)和日常的記賬憑證，主要的輸出有科目匯總表和各種賬簿等。日常賬務(wù)處理的三項(xiàng)主要功能是憑證處理、轉(zhuǎn)賬結(jié)賬和查詢(xún)打印賬簿，分解后的數(shù)據(jù) 流程圖 如圖 10 所示。分解后的數(shù)據(jù)流圖如圖 13 所示。 （ 2） 用戶(hù)輸入用戶(hù)名和密碼。 （ 4）如果存在相應(yīng)的記錄，則將相應(yīng) 的 科目基本信息顯示 出來(lái)。 （ 4）如果存在相應(yīng)的記錄，則修改或刪除科目表中的相應(yīng)信息。 （ 4）如果不存在相應(yīng)的記錄，則將相應(yīng)的 憑證 信息添加到 憑證 表中。 (4)如果 存在相應(yīng)的記錄，則將相應(yīng)的明細(xì)帳或總帳信息顯示出來(lái)。 (4)如果 存在相應(yīng)的記錄，則將相應(yīng)的科目余額信息轉(zhuǎn)入下個(gè)會(huì)計(jì)期間，更新下個(gè)會(huì)計(jì)期間的帳簿初始化表。 圖 23 用戶(hù)管理模塊的 IPO 圖 數(shù)據(jù)結(jié)構(gòu) 數(shù)據(jù)庫(kù)模型 根據(jù)上文的數(shù)據(jù)需求可以看出，本系統(tǒng)主要包括會(huì)計(jì)科目、憑證、分錄、科目余額、本期明細(xì)賬簿、本期匯總賬簿等實(shí)體，各實(shí)體關(guān)系如下文所述。 （ 8）科目余額實(shí)際上是對(duì)每個(gè)會(huì)計(jì)科目的余額的計(jì)算，因此科目余額表和科目表間存在一對(duì)一的關(guān)系。 （ 5）科目余額表包括科目代碼、期初借方余額、期初貸方余額、本期借方發(fā)生額、本期貸方發(fā)生額、本年借方累計(jì)發(fā)生額、本年貸方累計(jì)發(fā)生額、本 期借方余額、本期貸方余額、最后結(jié)算分錄、會(huì)計(jì)期間、余額方向、內(nèi)部編號(hào)等字段，其中科目代碼是主鍵。 5. 系統(tǒng)詳細(xì)設(shè)計(jì) 程序算法 詳細(xì)設(shè)計(jì) 會(huì)計(jì)科目（ 系統(tǒng)初始化 ） 模塊算法設(shè)計(jì)和代碼實(shí)現(xiàn) 該模塊的算法根據(jù)會(huì)計(jì)科目（系統(tǒng)初始化）模塊的模塊定義來(lái)設(shè)計(jì)。 （ 2）修改 /刪除憑證分錄時(shí)的輸入控制 ①對(duì)于已經(jīng)審核完畢的憑證不準(zhǔn)修改 /刪除分錄。更新錢(qián)的總數(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ù)格式不正確！ ) 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 28 頁(yè) 共 77 頁(yè) Return End If If = 1 Then Return End If Try 39。根據(jù)查詢(xún)條件重新填充 dataset11 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 30 頁(yè) 共 77 頁(yè) (dataset11) dtdata = (本期匯總帳簿 ) bmdata = (dataset11, 本期匯總帳簿 ) = 記錄數(shù)： + () End Sub 試算平衡函數(shù)： Private Sub mnpingheng_click(ByVal sender As , ByVal e As ) Handles If getinstancestate(frmpingheng) Then Exit Sub End If Dim childfrm As frmpingheng = New frmpingheng = Me () (1) End Sub 報(bào)表模塊算法設(shè)計(jì)和代碼實(shí)現(xiàn) 該模塊的算法根據(jù)報(bào)表模塊的模塊定義來(lái)設(shè)計(jì)。 期末結(jié)賬函數(shù)： Private Sub mnqimo_click(ByVal sender As , ByVal e As ) Handles 39。語(yǔ)句如下 ： Public conn As New 39。然后在 ODBC 對(duì)話框中單擊“確定”按鈕完成 ODBC 設(shè)置。 圖 30 系統(tǒng)“登錄”窗體 系統(tǒng)歡迎窗體 用戶(hù)在系統(tǒng)“登錄”窗體中輸入正確的用戶(hù)名稱(chēng)和密碼登錄后，即可打開(kāi)系統(tǒng)歡迎窗體。 圖 41 “會(huì)計(jì)科目設(shè)置”窗體上方按鈕 （ 2）在“會(huì)計(jì)科目設(shè)置”窗體上方 10 個(gè)按鈕的下方有一個(gè)搜索欄。 圖 47 “ 賬戶(hù) 錄入（期初數(shù)據(jù)錄入）”窗體數(shù)據(jù)顯示區(qū) 會(huì)計(jì)憑證輸入窗體 在“系統(tǒng)主窗體”中，單擊“憑證管理” /“憑證輸入”，進(jìn)入“會(huì)計(jì)憑證輸入”窗體。其中“首記錄”、“上記錄”、“下記錄”、“尾記錄”四個(gè)按鈕可以總 分類(lèi)賬 中的記錄；“退出”按鈕關(guān)閉該窗體