【正文】 4）如果不存在相應(yīng)的記錄，則將相應(yīng)的科目信息添加到科目表中。 （ 2）從憑證表中根據(jù)科目代碼、科目名稱和科目類別搜索是否有相應(yīng)的記錄。 （ 4）如果存在相應(yīng)的記錄，則修改或刪除科目表中的相應(yīng)信息。 （ 2）從憑證表中根據(jù)科目代碼、科目名稱和科目類別搜索是否有相應(yīng) 的記錄。 （ 4）如果存在相應(yīng)的記錄，則將相應(yīng)的憑證信息顯示出來。 （ 2）從憑證表中根據(jù)科目代碼、科目名稱和科目類別搜索是否有相應(yīng)的記錄。 （ 4）如果不存在相應(yīng)的記錄，則將相應(yīng)的 憑證 信息添加到 憑證 表中。 （ 2）從憑證表中根據(jù)科目代碼、科目名稱和科目類別搜索是否有相應(yīng)的記錄。 （ 4）如果存在相應(yīng)的記錄，則 修改或刪除 憑證 表中的相應(yīng)信息。 (2)從本期明細(xì)表或本期總帳表根據(jù) 會計(jì)期間 搜索是否有相應(yīng)的記錄。 (4)如果 存在相應(yīng)的記錄，則將相應(yīng)的明細(xì)帳或總帳信息顯示出來。 (2)從科目余額表根據(jù)會計(jì)期間搜索是否有相應(yīng)的記錄。 (4)如果 存在相應(yīng)的記錄，則將相應(yīng)的科目余額信息顯示出來。 (2)從科目余額表根據(jù)會計(jì)期間搜索是否有相應(yīng)的 記錄。 (4)如果 存在相應(yīng)的記錄，則將相應(yīng)的科目余額信息轉(zhuǎn)入下個(gè)會計(jì)期間，更新下個(gè)會計(jì)期間的帳簿初始化表。 (2)如果輸入的舊密碼不正確，則提示錯誤，并要求重新輸入。 （ 1）輸入用戶名、密碼和確認(rèn)密碼。 （ 3） 如果密碼和確認(rèn)密碼一致，則 根據(jù) 用戶 輸入的用戶名判斷用戶是否存在，如果存在，提示錯誤，并要求重新輸入 ； 如果用戶不存在，根據(jù) 用戶 輸入的用戶名 和 密碼 ，在數(shù)據(jù)庫 用戶 清單 表中添加新 記錄 。 圖 23 用戶管理模塊的 IPO 圖 數(shù)據(jù)結(jié)構(gòu) 數(shù)據(jù)庫模型 根據(jù)上文的數(shù)據(jù)需求可以看出，本系統(tǒng)主要包括會計(jì)科目、憑證、分錄、科目余額、本期明細(xì)賬簿、本期匯總賬簿等實(shí)體，各實(shí)體關(guān)系如下文所述。 （ 2）分錄歷史實(shí)際上是對分錄記錄的備份保存，因此分錄歷史表和分錄表間存在一對一的關(guān)系。 （ 4）一個(gè)科目被包含在多個(gè)分錄中，多個(gè)分錄可以同時(shí)對 應(yīng)同一科目，因此科目表和分錄表間存在一對多的關(guān)系。 （ 6）本期匯總實(shí)際上是對期間發(fā)生的每個(gè)科目進(jìn)行匯總操作，因此本期匯總賬簿和科目表間存在一對一的關(guān)系。 （ 8）科目余額實(shí)際上是對每個(gè)會計(jì)科目的余額的計(jì)算，因此科目余額表和科目表間存在一對一的關(guān)系。 數(shù)據(jù)庫 中表間 ER 圖 如圖 24 所示。 表 10 系統(tǒng)數(shù)據(jù)表及其用途 數(shù)據(jù)表名稱 數(shù)據(jù)表用途 科目表 保存企業(yè)財(cái)務(wù)的科目設(shè)置信息 賬簿 初始化表 正式使用系統(tǒng)前初始化科目的期初余額 憑證表 輸入會計(jì)憑證，分錄表的主表 分錄表 輸入會 計(jì)憑證，分錄表的從表 科目余額表 保存各個(gè)會計(jì)期間的科目借、貸、余額情況 憑證表歷史 保存 過賬 后的憑證歷史 分錄表歷史 保存 過賬 后的分錄歷史 本期 明細(xì)賬 簿 保存當(dāng)前會計(jì)期間的 明細(xì)賬 簿數(shù)據(jù) 本期匯總 賬簿 保存當(dāng)前會計(jì)期間的 明細(xì)賬 簿數(shù)據(jù)，期末 結(jié)賬 后期末變成新會計(jì)期間的期初 資產(chǎn)負(fù)債表 統(tǒng)計(jì)用表，用于計(jì)算資產(chǎn)負(fù)債表 系統(tǒng)參數(shù)表 系統(tǒng)運(yùn)行所需的參數(shù)信息 用戶清單 保存系統(tǒng)用戶登錄信息 （ 1） 科目表 包括科目代碼、科目名稱、助記碼、科目類別、是否存貨科目、余額方向、數(shù)量單位 等 字段，其中科目代碼是主鍵 。 （ 3）憑證表包括憑證編號、會計(jì)期間、憑證字號、日期、附單據(jù)、制單、借方合計(jì)、貸方合計(jì)、過帳狀態(tài)、憑證狀態(tài)等字段 ， 其中憑證編號是主鍵。 （ 5）科目余額表包括科目代碼、期初借方余額、期初貸方余額、本期借方發(fā)生額、本期貸方發(fā)生額、本年借方累計(jì)發(fā)生額、本年貸方累計(jì)發(fā)生額、本 期借方余額、本期貸方余額、最后結(jié)算分錄、會計(jì)期間、余額方向、內(nèi)部編號等字段，其中科目代碼是主鍵。 （ 7）分錄歷史包括編號、憑證編號、摘要、科目代碼、借方、貸方、數(shù)量、單價(jià)、結(jié)算方式、結(jié)算號、結(jié)算日期等字段，其中編號是主鍵。 （ 9）本期匯總帳簿包括科目代碼、期初余額、余額方向、本期借方合計(jì)、本期貸方合計(jì)、本年借方累計(jì)、本年貸方累計(jì)、余額等字段，其中科目代碼是主鍵。 （ 11）系統(tǒng)參數(shù)表包括 參數(shù)名稱、取值、編號，其中參數(shù)名稱是主鍵。 5. 系統(tǒng)詳細(xì)設(shè)計(jì) 程序算法 詳細(xì)設(shè)計(jì) 會計(jì)科目（ 系統(tǒng)初始化 ） 模塊算法設(shè)計(jì)和代碼實(shí)現(xiàn) 該模塊的算法根據(jù)會計(jì)科目（系統(tǒng)初始化）模塊的模塊定義來設(shè)計(jì)。 （ 3）修改刪除會計(jì)科目時(shí)的控制條件 ①不準(zhǔn)修改科目編號 ②科目若存在下級科目，將不準(zhǔn)刪除 ③科目若已經(jīng)輸入余額或發(fā)生額，不準(zhǔn)修改和刪除 ④科目已經(jīng)在憑證中使用的，不允許修改和刪除 該模塊 的 主要代碼為： 新增 科目 函數(shù)： Public Overrides Sub saveforadd() 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 25 頁 共 77 頁 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 row = = New datagirdcell((row + 1) Mod , 0) 39。刪除當(dāng)前行的數(shù)據(jù) (科目表 ).rows().delete() If = True Then 39。 憑證模塊算法設(shè)計(jì)要求如下： （ 1）輸入憑證分錄時(shí)的輸入控制 ①憑證分 錄的發(fā)生科目必須已經(jīng)在科目表中存在。 （ 2）修改 /刪除憑證分錄時(shí)的輸入控制 ①對于已經(jīng)審核完畢的憑證不準(zhǔn)修改 /刪除分錄。 （ 3）審核憑證時(shí)的輸入控制 ①要求審核憑證的用戶和憑證制單的用戶不能為同一人。 （ 4） 憑證登帳時(shí)的輸入控制 憑證登帳的前提是已經(jīng)審核完畢的憑證。判斷數(shù)據(jù)格式 If validatedata() = False Then (數(shù)據(jù)格式不正確！ ) Return End If Try Dim dr As DataRow = dr(摘要 ) = dr(科目代碼 ) = dr(科目名稱 ) = dr(借方 )= dr(貸方 ) = 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ù)格式不正確！ ) 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 28 頁 共 77 頁 Return End If If = 1 Then Return End If Try 39。獲得 datagird當(dāng)前被選中的行號 Dim irow = 39。如果用戶確認(rèn)要刪除記錄 If (確認(rèn)要刪除此記錄嗎？ , confirm, ) = Then 39。 總 分類 賬 查詢 函數(shù)： Private Sub loaddata() Dim strfilter As String If = 0 Then If = True Then strfilter = where 本期借方合計(jì) 0 or 本期貸方合計(jì) 0 End If Else strfilter = where 科目代碼 = + If = True Then strfilter += and(本期借方合計(jì) 0 or 本期貸方合計(jì) 0) End If End If 39。根據(jù)查詢條件重新填充 dataset11 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 30 頁 共 77 頁 (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)表模塊的模塊定義來設(shè)計(jì)。set title. 39。當(dāng)前會計(jì)期間 39。計(jì)算 (exec sf_計(jì)算資產(chǎn)負(fù)債表 + strtemp) () 39。 期末結(jié)賬函數(shù)： Private Sub mnqimo_click(ByVal sender As , ByVal e As ) Handles 39。所以先要根據(jù)需求分析建立數(shù)據(jù)表，然后通過 SQL Server 2021 編寫數(shù)據(jù)表，最后通過對 ODBC 數(shù)據(jù)引擎的設(shè)置，就可以把 SQL Server 2021 數(shù)據(jù)庫連接到 VB 項(xiàng)目中。 (1)建 立 SQL Server 數(shù)據(jù)庫 啟動 SQL Server 2021，建立一個(gè)空的數(shù)據(jù)庫 ，如圖 25所示。 圖 25 建立數(shù)據(jù)庫 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 33 頁 共 77 頁 （ 2） 連接數(shù)據(jù)源 在 Visual Basic 環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對話框中選擇“ Microsoft ActiveX Data Objects Library”，然后單擊“確定”按鈕，如圖 26 所示。語句如下 ： Public conn As New 39。 amp。 打開控制面板中的“管理工具”→“數(shù)據(jù)源” (ODBC)，出現(xiàn)如圖 27 所示的對話框。 圖 28 “創(chuàng)建新數(shù)據(jù)源”對話框 選擇 Microsoft SQL Server Driver(*.mdb)，單擊“完成”按鈕，出現(xiàn)如圖 29 所示對話框。然后在 ODBC 對話框中單擊“確定”按鈕完成 ODBC 設(shè)置。 表 11 科目表 字段名稱 含義說明 類型 長度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 科目代碼 唯一標(biāo)識 文本 20 標(biāo)識科目 關(guān)聯(lián)科目名稱 科目名稱 文本 20 關(guān)聯(lián)科目代碼、助記碼、科目類別