【文章內(nèi)容簡介】 余 額 方 向 本 期 借 方 合 計(jì) 本 期 貸 方 合 計(jì) 本 年 借 方 累 計(jì) 本 年 貸 方 累 計(jì) 余 額科 目 余 額 表P K , U 1 科 目 代 碼 期 初 借 方 余 額 期 初 貸 方 余 額 本 期 借 方 發(fā) 生 額 本 期 貸 方 發(fā) 生 額 本 年 借 方 累 計(jì) 發(fā) 生 額 本 年 貸 方 累 計(jì) 發(fā) 生 額 本 期 借 方 余 額 本 期 貸 方 余 額 最 后 結(jié) 算 分 錄I 1 會(huì) 計(jì) 期 間 余 額 方 向 內(nèi) 部 編 號(hào)本 期 明 細(xì) 帳 簿P K 內(nèi) 部 編 號(hào) 分 錄 編 號(hào) 會(huì) 計(jì) 期 間 憑 證 字 號(hào) 憑 證 編 號(hào) 摘 要I 1 科 目 代 碼 借 方 貸 方 余 額 方 向 余 額 數(shù) 量 單 價(jià) 結(jié) 算 方 式 結(jié) 算 號(hào) 結(jié) 算 日 期 余 額 標(biāo) 記資 產(chǎn) 負(fù) 債 表P K 會(huì) 計(jì) 期 間 現(xiàn) 金 及 現(xiàn) 金 等 價(jià) 物 應(yīng) 收 帳 款 壞 帳 準(zhǔn) 備 應(yīng) 收 帳 款 凈 值 流 動(dòng) 資 產(chǎn) 總 計(jì) 固 定 資 產(chǎn) 原 值 累 計(jì) 折 舊 固 定 資 產(chǎn) 總 計(jì) 其 他 資 產(chǎn) 資 產(chǎn) 總 計(jì) 應(yīng) 付 帳 款 預(yù) 收 帳 款 應(yīng) 付 工 資 其 他 負(fù) 債 負(fù) 債 總 計(jì) 實(shí) 收 資 本 資 本 公 積 贏 余 公 積圖 24 數(shù)據(jù)庫表間 ER圖 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 23 頁 共 77 頁 數(shù)據(jù)定義 由上述分析可知，該系統(tǒng)共需要 12 張表，用途分別如表 10 所示。 表 10 系統(tǒng)數(shù)據(jù)表及其用途 數(shù)據(jù)表名稱 數(shù)據(jù)表用途 科目表 保存企業(yè)財(cái)務(wù)的科目設(shè)置信息 賬簿 初始化表 正式使用系統(tǒng)前初始化科目的期初余額 憑證表 輸入會(huì)計(jì)憑證，分錄表的主表 分錄表 輸入會(huì) 計(jì)憑證，分錄表的從表 科目余額表 保存各個(gè)會(huì)計(jì)期間的科目借、貸、余額情況 憑證表歷史 保存 過賬 后的憑證歷史 分錄表歷史 保存 過賬 后的分錄歷史 本期 明細(xì)賬 簿 保存當(dāng)前會(huì)計(jì)期間的 明細(xì)賬 簿數(shù)據(jù) 本期匯總 賬簿 保存當(dāng)前會(huì)計(jì)期間的 明細(xì)賬 簿數(shù)據(jù)，期末 結(jié)賬 后期末變成新會(huì)計(jì)期間的期初 資產(chǎn)負(fù)債表 統(tǒng)計(jì)用表，用于計(jì)算資產(chǎn)負(fù)債表 系統(tǒng)參數(shù)表 系統(tǒng)運(yùn)行所需的參數(shù)信息 用戶清單 保存系統(tǒng)用戶登錄信息 （ 1） 科目表 包括科目代碼、科目名稱、助記碼、科目類別、是否存貨科目、余額方向、數(shù)量單位 等 字段，其中科目代碼是主鍵 。 （ 2） 帳簿初始化表包括 科目代碼、科目名稱、累計(jì)借方、累計(jì)貸方、期初余額、余額方向等字段，其中科目代碼是主鍵。 （ 3）憑證表包括憑證編號(hào)、會(huì)計(jì)期間、憑證字號(hào)、日期、附單據(jù)、制單、借方合計(jì)、貸方合計(jì)、過帳狀態(tài)、憑證狀態(tài)等字段 ， 其中憑證編號(hào)是主鍵。 （ 4）分錄表包括編號(hào)、憑證編號(hào)、摘要、科目代碼、 借方、貸方、數(shù)量、單價(jià)、結(jié)算方式、結(jié)算號(hào)、結(jié)算日期等字段，其中編號(hào)是主鍵。 （ 5）科目余額表包括科目代碼、期初借方余額、期初貸方余額、本期借方發(fā)生額、本期貸方發(fā)生額、本年借方累計(jì)發(fā)生額、本年貸方累計(jì)發(fā)生額、本 期借方余額、本期貸方余額、最后結(jié)算分錄、會(huì)計(jì)期間、余額方向、內(nèi)部編號(hào)等字段，其中科目代碼是主鍵。 （ 6）憑證歷史包括憑證編號(hào)、會(huì)計(jì)期間、憑證字號(hào)、日期、附單據(jù)、制單、借方合計(jì)、貸方合計(jì)、過帳狀態(tài)、憑證狀態(tài)等字段，其中憑證編號(hào)是主鍵。 （ 7）分錄歷史包括編號(hào)、憑證編號(hào)、摘要、科目代碼、借方、貸方、數(shù)量、單價(jià)、結(jié)算方式、結(jié)算號(hào)、結(jié)算日期等字段，其中編號(hào)是主鍵。 （ 8）本期明細(xì)帳簿包括內(nèi)部編號(hào)、分錄編號(hào)、會(huì)計(jì)期間、憑證字號(hào)、憑證編號(hào)、摘湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 24 頁 共 77 頁 要、科目代碼、借方、貸方、余額方向、余額、數(shù)量、單價(jià)、結(jié)算方式、結(jié)算號(hào)、結(jié)算日期等字段，其中內(nèi)部編號(hào)是主鍵。 （ 9）本期匯總帳簿包括科目代碼、期初余額、余額方向、本期借方合計(jì)、本期貸方合計(jì)、本年借方累計(jì)、本年貸方累計(jì)、余額等字段，其中科目代碼是主鍵。 （ 10）資產(chǎn)負(fù)債表包括會(huì)計(jì)期間、現(xiàn)金及現(xiàn)金等價(jià)物、應(yīng)收帳款、壞帳準(zhǔn)備、應(yīng)收帳款凈值、流動(dòng)資產(chǎn)總計(jì)、固定資產(chǎn)原值、累計(jì)折舊、固定資產(chǎn)總計(jì)、其他資產(chǎn)、應(yīng)付帳款、預(yù)收帳款、應(yīng)付工資、其他負(fù)債、負(fù)債總計(jì)、資本公積、贏余公積等字段，其中會(huì)計(jì)期間是主鍵。 （ 11）系統(tǒng)參數(shù)表包括 參數(shù)名稱、取值、編號(hào)，其中參數(shù)名稱是主鍵。 （ 12）用戶清單包括 用戶編 號(hào)、用戶名、密碼，其中用戶編號(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)初始化）模塊的模塊定義來設(shè)計(jì)。 會(huì)計(jì)科目（系統(tǒng)初始化） 模塊算法設(shè)計(jì)要求如下： （ 1）新增科目時(shí)對(duì)于科目編號(hào)的輸入控制 ①首位必須為 1/2/3/4/5 ②編號(hào)符合編碼規(guī)則（也就說限制長度為 3/5/7/9） ③編碼不準(zhǔn)出現(xiàn)重復(fù) ④編碼不準(zhǔn)越級(jí)，不準(zhǔn)只有下級(jí)科目而不存在上級(jí)科目 ⑤對(duì)于已經(jīng)在輸入憑證中使用的科目編碼，不能再賦予其下級(jí)科目 （ 2）新 增科目時(shí)對(duì)于科目名稱的輸入控制 不準(zhǔn)出現(xiàn)空值。 （ 3）修改刪除會(huì)計(jì)科目時(shí)的控制條件 ①不準(zhǔn)修改科目編號(hào) ②科目若存在下級(jí)科目，將不準(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。判斷是否有更新的數(shù)據(jù) If = True Then (dataset11) End If Catch ex As Exception 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 26 頁 共 77 頁 (數(shù)據(jù)修改失敗！ ) End Try End Sub 刪除 科目 函數(shù)： Public Overrides Sub deletedata() Try 39。刪除當(dāng)前行的數(shù)據(jù) (科目表 ).rows().delete() If = True Then 39。更新 dataset11 (dataset11) End If Catch ex As Exception (數(shù)據(jù)刪除失??！ ) End Try End Sub 憑證 模塊算法設(shè)計(jì)和代碼實(shí)現(xiàn) 該模塊的算法根據(jù)憑證模塊的模塊定義來設(shè)計(jì)。 憑證模塊算法設(shè)計(jì)要求如下： （ 1）輸入憑證分錄時(shí)的輸入控制 ①憑證分 錄的發(fā)生科目必須已經(jīng)在科目表中存在。 ②憑證分錄的借貸方發(fā)生額必須相等，否則會(huì)提示用戶。 （ 2）修改 /刪除憑證分錄時(shí)的輸入控制 ①對(duì)于已經(jīng)審核完畢的憑證不準(zhǔn)修改 /刪除分錄。 ②修改之后的憑證依舊要保證借貸方發(fā)生額必須相等。 （ 3）審核憑證時(shí)的輸入控制 ①要求審核憑證的用戶和憑證制單的用戶不能為同一人。 ②審核憑證時(shí)若憑證借貸不平衡或者發(fā)生額為零則不能審核。 （ 4） 憑證登帳時(shí)的輸入控制 憑證登帳的前提是已經(jīng)審核完畢的憑證。 該模塊主要實(shí)現(xiàn)代碼為： 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 27 頁 共 77 頁 添加憑證函數(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 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。更新當(dāng)前行的數(shù)據(jù) Dim irow As Integer = (irow)(摘要 ) = (irow)(科目代碼 ) = (irow)(科目名稱 ) = (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。獲得 datagird當(dāng)前被選中的行號(hào) Dim irow = 39。彈出對(duì)話框讓用戶確認(rèn)要?jiǎng)h除記錄 39。如果用戶確認(rèn)要?jiǎng)h除記錄 If (確認(rèn)要?jiǎng)h除此記錄嗎？ , confirm, ) = Then 39。從憑證表中刪除當(dāng)前被選中記錄 () cleartextbox() 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 29 頁 共 77 頁 (irow) El