摘要本文主要介紹了本課題的開發背景，所要完成的任務和開發的過程。完成企業內部帳目財務管理系統，包括科目設置、帳戶設置、把憑證錄入電腦、將憑證過帳以及對帳簿進行查詢等功能。關鍵詞：VisualBasic6.0；賬目；ABSTRACTThefinancialdepartmentmanagesthemanagementastheenterprisethecoredepartment,itsaccountantthecomputerizationapplicationalsoisdecidinganenterpriseinformationsystemimplementationsuccessorfailurekey.Inbeforefinancialcontrol,aenterpriseaccountingfileduringeveryaccountantallwantstoarrangeaccordingtocertainrequest,togetherwithvariousaccessoriesfixesadatetoaddutensilcover,bindsinavolume,haveconsumedlargeamountoftimeandspace,havesoughttobedestroyedveryinconveniently,easily.Computerizationaccountantistakethecomputerasatool,utilizesaccountanttheuniquemethod,carriesonthereflectionandthesurveillancetoenterprise'smanagementsituation,thereforeitnotonlyisprovidesbythefinancialinformationprimarilyinformationsystem,simultaneouslyalsoisparticipatesinthemanagementonekindofmanagement.Theenterpriseinterioraccountitemmanagementsystemmanagementsystemisbythecomputerthefinancialcontrolsystemwhichdevelopsforthetool,ittookthebusinessmanagementtheconstituent,guaranteesthevalueincrementwiththeeconomicvalueorthewealthrelated,isaboutthecreationwealthdecision-making,thetotalgoalwhichtheenterprisesurvival,thedevelopment,makesaprofitcannotleavethefinancetofinance,theinvestmentaswellastothefundutilizationmanagement.Whatthistheproblemexploitationbackground,themainbodyofabookhasbeenintroducedmainlyneedtobecompletedmissionanddevelopmentprocess.Functionssuchasaccomplishingenterpriseinsideitemsofanaccountfinancialcontrolsystem,enteringacomputerincludingthatthesubjectsettingup,theaccountsettingup,withthevoucherrecord,avoucherbeinginquiredaboutaswellasthepostingofaccountbeinginprogresstotheaccountbook.Keyword:VisualBasic6.0；Accountitem；SQLServer2000；Memoryprocess目錄TOC\o"1-3"\f\h\z\u摘要……………IABCTRACT………………………..II前言 1第1章需求分析 21.1系統概述 21.2功能需求 21.2.1憑證管理 21.2.2帳簿管理 21.2.3結帳及報表管理 21.3系統數據庫分析 31.4系統流程圖 31.5運行環境 31.6系統性能需求 4第2章系統開發相關知識介紹 52.1VisualBasic6.0介紹 52.2SQLServer2000綜述 52.3ADO根底介紹 5第3章系統總體設計 73.1系統功能設計 73.2數據庫設計和實現 83.2.1創立表約束 123.2.2創立存儲過程 13第4章系統各功能模塊的詳細設計 154.1主窗體的設計 154.2創立數據訪問模塊 154.3會計科目設置模塊 164.4實現帳戶設置模塊 174.5 會計憑證輸入模塊 184.6實現憑證過帳功能 194.7實現總分類帳和明細帳查詢功能 204.8實現試算平衡表功能 214.9實現期末結帳功能 214.10實現資產負債表報表輸出功能 21第5章系統的測試 23 235.2功能測試 235.3測試評價 25總結 26致謝 27參考文獻 28前言VisualBasic6.0是Microsoft公司推出的32位Windows開發工具。VisualBasic6.0不僅繼承了TurboBasic使用簡便、功能強大、效率高等特點，而且它還具有可視化編程語言所有優點，并提供了基于對象的開發方法，因此是目前最為優秀的應用系統開發工具之一。管理信息系統是一個由人、計算機及其他外圍設備組成的能進行信息收集、傳遞、存儲、加工、維護和使用的系統。其主要任務是最大限度的利用計算機及網絡通信技術加強企業的信息管理，通過對企業擁有的人力、物力、財力、設備以及技術等資源的調查了解，建立正確的數據，對其加工處理并編制成各種信息資料及時提供應管理人員，以便進行正確的決策，不斷提高企業的管理水平和經濟效益。隨著計算機應用在中國的普及，眾多的企事業單位越來越重視管理信息系統的投入和應用，這為管理信息系統提供了廣闊的市場空間，也對開發人員產生了巨大的需求。MicrosoftSQLServer2000使用了最先進的數據庫構架，具有完全的Web功能，通過對高端硬件平臺以及最新的網絡和存儲技術的支持，可以為較大的Web站點和企業級的應用提供很好的解決方案，使得用戶能夠更方便、更快捷地管理數據庫和開發應用程序。手工的記帳方式給財務部門帶來了很多的不便，消耗了大量的人力物力。不能合理的籌資以及利用資產和有效的分配資金。時常給企業造成巨大損失。從理論與實際多角度出發，我設計開發了?企業內部帳目財務管理系統?。該系統通過對帳簿、憑證、財務報表、帳戶等有效的管理，切實解決了操作人員從繁重的工作中解放出來，降低了在工作中出現的錯誤率，提高財務部門整體的工作效率，有效指導財務人員標準業務操作流程，實行科學化管理，可以幫助企業合理籌集資金，滿足企業資金需要量。合理地安排各類資產，使其形成合理的資產結構。第1章需求分析1.1系統概述以前的財務部門管理相對落后，一個企業每個會計期間的帳目都是人工來管理的，消耗了大量的時間和空間，查找帳目很不方便，帳簿又易于毀壞。針對此類情況，開發了企業內部帳目財務管理系統。本系統主要以管理內部帳目為目標，形成了具有自己的特點，適應于現代化企業財務部門的需求。本系統開發的總體任務是實現對帳目的設置、憑證的管理、帳簿的查詢及打印財務報表等功能。1.2功能需求本系統主要有憑證管理、帳簿管理、結帳及報表管理等功能。從而實現對企業內部帳目的管理。其具體描述如下：憑證管理科目設置：通過輸入科目代碼、科目類別等可以對科目進行查詢。帳戶設置：可以新建帳戶、啟用帳戶。憑證輸入：可以添加、刪除、修改憑證。憑證過帳：就是確認輸入的會計憑證，過帳后的憑證不能再進行修改。帳簿管理總分類帳：可以查詢科目的匯總信息。明細帳：查詢科目在當前會計期間發生的每一筆業務及其余額。結帳及報表管理試算平衡表處理：可以隨時查看當前的帳簿信息是否平衡，用來驗證各分類帳登記和過帳的會計處理的正確信。資產負債表處理：用來保存企業財務的資產負債表信息。期末結帳：企業通過結帳來了解會計期間財務狀況和經營成果的大小。1.3系統數據庫分析根據以上需求分析，一個根本的帳目財務管理系統數據庫中大致包括100多張數據表，分別存放相應子功能的數據信息，其中“科目表〞是關鍵的表，用于存放科目的信息。其他涉及科目信息的數據表，都只記錄科目的代碼，根據作為外鍵的“科目代碼〞字段相對應。因此“科目表〞和其他數據表間的關系是1：N的關系。1.4系統流程圖根據功能模塊將系統流程圖設計如圖1-1所示：記錄業務記錄業務財務部門期末結帳憑證輸入憑證查詢憑證過帳分類帳分類帳查詢財務報表查詢圖1-1系統流程圖1.5運行環境操作系統：Windows95/98以及更高版本的各類windows系統。內存：128M以上CPU：60G以上顯卡：緩存64M以上軟件：VB6.0和SQLServer20001.6系統性能需求除了滿足用戶要求外，系統是還要要能為用戶提高工作效率和使用方便。所以，系統的性能要求就很高。系統的性能要求一般包括：查詢響應時間、處理容量、存儲容量、人機交互的友好性，系統的平安性、可靠性以及容錯能力等。由于本系統采用C/S系統模式，系統傳輸〔交換〕能力也很重要。例如：對信息查詢的性能要求是：常用信息檢索的響應時間，資料信息存儲容量，后備存儲容量。〔1〕系統性能一般由以下幾個方面確定：容量要求：確定系統的容量要求，如處理記錄和處理數據的最大容量等。精度要求：確定系統的精度要求。數據上傳的精度要求等。時間特性要求：確定系統的時間特性要求。如處量時間、響應時間，系統各項功能的順序關系，由于輸入類型的不同和操作方式的變化而引起的優先順序的變化等。適應性要求：必須指明反映系統環境變化和系統適應能力的各種參數。說明當需求發生某些變化時系統的適應能力，指出為適應這些變化而需要設計的軟件和過程。人機交互友好性：要有適用于用戶特點和智能化人機交互界面，便于用戶操作使用。系統的可靠性：為提高系統的可靠性采用了模塊化、結構化設計，對于需要容錯處理的模塊提供備份，以減少系統故障。〔2〕根據用戶的需求，應具有如下性能：數據庫和系統擴充的能力。快速的信息交換能力及響應能力。具有較大的數據存儲能力。系統快速恢復能力。保障數據庫系統和系統的平安第2章系統開發相關知識介紹2.1VisualBasic6.0介紹作為微軟最成功的開發工具之一，VisualBasic6.0是一功能強大的圖形用戶界面開發工具。由于它功能強大、容易掌握，頗受人們的青睞。它是一種在計算機技術開展史上應用得最為廣泛的語言。它是一種結構化的程序設計語言。具有面向對象的可視化設計工具和強大的數據庫功能以及網絡編程功能。VisualBasic6.0是編程愛好者的首選的編程語言，因為它簡單易懂,只要寫少量的代碼,就可以實現許多功能。即使非專業人員也能勝任，并可以在較短的時間內開發出質量高、界面好的應用程序。它具有可視化編程、面向對象程序設計、強大數據庫和網絡編程功能，再加上數據庫應用的普及，VisualBasic已經成為很多數據庫開發人員的首選編程語言。2.2SQLServer2000綜述SQLServer2000是一個關系數據管理系統，SQL全稱是“結構化查詢語言(StructuredQueryLanguage)〞。SQL語言可以完成許多功能，例如：查詢數據，在數據庫表格中插入、修改和刪除記錄，建立、修改和刪除數據對控制對數據和數據對象的存取，確保數據庫的一致性和完整性等數據查詢是關系運算理論在SQL語言中的主要表達，SELECT語句是SQL查詢的根本語句，當我們在對一個數據庫進各種各樣的操作時，使用的最多的就是數據查詢，在以SQL為根底的關系數據庫中，使用的最多的就是SELECT查詢語句。2.3ADO根底介紹VB連接數據庫有ADO﹑ODBC﹑OLEDB三種方法,視你熟悉哪種方法,本系統采用ADO連接數據庫,ADO〔ActivexDataObjects〕是Microsoft為了企業數據整體存取需所提出的解決方案UDA(UniversalDataAccess)之一,其核心作用是為了不同的數據源提供通用的數據訪問接口，它是以COM〔組件對象模型〕技術為根底的。OLEDB是其底層接口，ADO那么是建立在OLEDB上的高層應用模型。ADO以其簡單而明確的分工結構來執行數據訪問操作，為程序設計者提供了很多的方便。數據進行操作。所有Recordset對象均使用記錄〔行〕和字段〔列〕進行構造。由于提供者所支持的功能不同，某些Recordset方法或屬性有可能無效。可以使用Recordset對象的OPEN方法檢索查詢結果，還可以通過調用Connection或Command對象的Execute方法，生成Recordset對象。Recordset的ActiveConnection屬性引用Connection對象，Recordset通過該Connection對象與數據庫進行通信。同樣地，ActiveCommand屬性引用生成該Recordset的Command對象。通過對以上開發系統的相關知識的了解，有助于我們使用ADO數據庫訪問技術和使用SQL語言對數據庫進行記錄的添加﹑查詢和刪除等操作。第3章系統總體設計3.1系統功能設計為了更好的管理企業內部的帳目，對帳目進行電子化管理。企業內部賬目財務管理系統應實現以下功能：憑證管理、帳簿查詢、結帳及報表。功能模塊如下列圖3-1所示。企業內部賬目管理系統企業內部賬目管理系統憑證管理帳簿管理結帳及報表科目設置帳戶設置憑證輸入憑證過帳總分類帳明細帳試算平衡表資產負債表期末結帳圖3-1企業內部帳目財務管理系統功能模塊〔1〕憑證管理科目設置：就是在設計會計制度時事先規定這些工程，然后根據它在帳目中開立帳戶，分類地、連續地記錄各項經濟業務，反映由于各經濟業務的發生而引起的各會計要素的增減變動情況和結果，為經營管理提供各種類型的會計指標。帳戶設置：只是規定了對會計對象具體內容進行分類核算的工程，而為了及時、連續、系統地記錄由于經營業務的發生而引起的會計要素的增減變動，提供各種會計信息，還必須根據規定的會計科目在帳簿中開設帳戶。憑證輸入：會計憑證是記錄經濟業務，明確經濟責任的書面證明，故憑證輸入是必要的。憑證過帳：確認輸入的會計憑證，過帳后的憑證不能再進行修改．〔2〕帳簿查詢包括：總分類帳：總分類帳戶提供的是總括核算指標，一般只用貨幣計量。明細帳：提供的是明細分類核算指標，除了用貨幣度量外，還可用實物進行輔助的計量。〔3〕結帳及報表包括：試算平衡表：驗證各分類帳登記和過帳的會計處理的正確性。資產負債表：可以顯示企業的盈虧及經營狀況。期末結帳：可以將帳簿記錄定期結算清楚的帳務工作。3.2數據庫設計和實現本系統采用SQLServer2000數據庫系統,SQLServer2000能夠降低CPU的負擔，減少網絡流量。我們這個系統信息量比擬大，如果將這樣多的信息同時存放到同一張數據表中，由于它們之間的信息并不完全相同或類似，這樣勢必造成信息冗余。在設計一個數據庫時，應該注意將數據庫的設計與應用系統的設計結合起來。也就是說，要注意把結構〔數據〕設計和行為〔處理〕設計結合起來。數據庫質量的好壞將直接影響到系統中各個處理過程的質量和運行性能。一個設計失敗的數據庫往往到了應用程序上開發階段還要不斷地修改。根據數據庫需求分析，可以得到如圖3-2所示的實體—關系模型〔E-R模型〕。本期明細帳簿科目表操作本期明細帳簿科目表操作本期分類帳簿操作科目余額表分錄表憑證表操作操作操作該E-R圖有6個實體類型，其屬性如下：科目表(科目代碼、科目名稱、助記碼、科目類別、是否存貨科目、余額方向、數量單位)憑證表(憑證編號、會計期間、憑證字號、日期、附單據、制單、借方合計、貸方合計、過帳狀態、憑證狀態)分錄表(編號、憑證編號、摘要、科目代碼、借方、貸方、數量、單價、結算方式、結算號、結算日期)科目余額表(內部編號、科目代碼、期初借方余額、期初貸方余額、本期借方發生額、本期貸方發生額、本年借方累計發生額、本年貸方累計發生額、本期借方余額、本期貸方余額、最后結算分錄、會計期間、余額方向)本期明細帳簿(內部編號、分錄編號、會計期間、憑證字號、憑證編號、摘要、科目代碼、借方、貸方、數量、單價、結算方式、結算號、結算日期)本期分類帳簿(科目代碼、期初余額、本期借方合計、本期貸方合計、本年借方累計、本年貸方累計、余額、摘要)科目表：該表用來保存企業財務的科目設置信息。科目表的結構如表3-3所示。表3-3科目表列名數據類型長度允許空科目代碼char20不允許科目名稱char20允許助記碼char20允許科目類別char20允許是否存貨科目char10允許余額方向char4允許數量單位char10允許憑證表：該表是分錄表的主表，用來輸入會計憑證。憑證表的結構如表3-4所示。表3-4憑證表列名數據類型長度允許空憑證編號char10不允許會計期間int4允許憑證字號char2允許日期datetime8允許附單據int4允許制單char20允許借方合計money8允許貸方合計money8允許分錄表：該表主要用來輸入會計分錄，是分錄表的從表。分錄表的結構如表3-5所示。表3-5分錄表列名數據類型長度允許空編號int4不允許憑證編號char10不允許摘要char40允許科目代碼char20允許借方money8允許貸方money8允許數量int4允許單價money8允許結算方式char10允許結算號int4允許結算日期datetime8允許科目余額表：該表用來保存各個會計期間的科目借、貸、余額情況。科目余額表的結構如表3-6所示。表3-6科目余額表列名數據類型長度允許空科目代碼char20允許期初借方余額money8允許期初貸方余額money8允許本期借方發生額money8允許本期貸方發生額money8允許本年借方累計發生額money8允許本年貸方累計發生額money8允許本期借方余額money8允許本期貸方余額money8允許最后結算分錄int4允許會計期間int4允許余額方向char4允許內部編號int4不允許本期明細帳簿：該表的作用是保存當前會計期間的明細帳簿數據。本期明細帳簿的結構如表3-7所示。表3-7本期明細帳簿列名數據類型長度允許空內部編號int4不允許分錄編號int4允許會計期間int4允許憑證字號char4允許憑證編號int4允許摘要char40允許科目代碼char20允許借方money8允許貸方money8允許余額方向char4允許余額money8允許數量int4允許單價money8允許結算方式char10允許結算號int4允許結算日期char10允許余額標記char4允許〔6〕本期分類帳簿：該表的作用是保存當前會計期間的分類帳簿數據。本期分類帳簿的結構如表3-8所示：表3-7本期分類帳簿列名數據類型長度允許空科目代碼char20允許期初余額char1允許本期借方合計money8允許本期貸方合計money8允許本年借方累計money8允許本期貸方合計money8允許余額char1允許摘要char40允許創立表約束約束提供了一種自動保持數據庫完整性的方法，它定義了可輸入表或表的單個列中的數據的限制條件。〔1〕憑證表約束：ALTERTABLE[dbo].[憑證表]WITHNOCHECKADDCONSTRAINT[PK_憑證表]PRIMARYKEYCLUSTERED([憑證編號])ON[PRIMARY]GO〔2〕分錄表約束ALTERTABLE[dbo].[分錄表]WITHNOCHECKADDCONSTRAINT[PK_分錄表]PRIMARYKEYCLUSTERED([編號])ON[PRIMARY]GO〔3〕帳簿初始化表約束ALTERTABLE[dbo].[帳簿初始化表]WITHNOCHECKADDPRIMARYKEYCLUSTERED([科目代碼])ON[PRIMARY]GO〔4〕本期匯總賬簿約束ALTERTABLE[dbo].[本期匯總賬簿]WITHNOCHECKADDCONSTRAINT[PK_本期匯總賬簿]PRIMARYKEYCLUSTERED([科目代碼])ON[PRIMARY]GO〔5〕科目表約束ALTERTABLE[dbo].[科目表]WITHNOCHECKADDPRIMARYKEYCLUSTERED([科目代碼])ON[PRIMARY]GO〔6〕資產負債表約束ALTERTABLE[dbo].[資產負債表]WITHNOCHECKADDPRIMARYKEYCLUSTERED([會計期間])ON[PRIMARY]GO創立存儲過程存儲過程是分析和編譯后的SQL程序，它駐留在數據庫中，可以被客戶應用程序通過引用其名稱而調用，并允許數據以參數形式在過程和應用程序間來回傳遞。〔1〕初始化帳戶存儲過程：createprocsf_初始化帳戶asbegintrandeletefrom帳簿初始化表insertinto帳簿初始化表(科目代碼,科目名稱,累計借方,累計貸方,期初余額,余額方向)select科目代碼,科目名稱,0,0,0,余額方向from科目表update系統參數表set取值=datepart(mm,getdate())where參數名稱='會計期間開始月份'update系統參數表set取值=datepart(mm,getdate())where參數名稱='當前會計期間'commitGO〔2〕啟用帳戶存儲過程createprocsf_啟用帳戶asbegintrandeletefrom科目余額表deletefrom本期匯總賬簿deletefrom本期明細賬簿deletefrom分錄表deletefrom分錄表歷史deletefrom憑證表deletefrom憑證表歷史insertinto本期匯總賬簿select科目代碼,0,期初余額,0,0,0,0,期初余額,余額方向from帳簿初始化表update本期匯總賬簿set會計期間=b.取值from系統參數表asbwhere參數名稱='當前會計期間'insertinto科目余額表(科目代碼,期初借方余額,期初貸方余額,本期借方發生額,本期貸方發生額,本年借方累計發生額,本年貸方累計發生額,本期借方余額,本期貸方余額,余額方向)select科目代碼,累計借方,累計貸方,0,0,0,0,casewhen余額方向='借方'then期初余額else0end,casewhen余額方向='貸方'then期初余額else0end,余額方向from帳簿初始化表update科目余額表set會計期間=b.取值from系統參數表asbwhere參數名稱='當前會計期間'commitGO系統使用了“sf_初始化帳戶〞、“sf_啟用帳戶〞、“sf_憑證過帳〞、“sf_期末結帳〞和“sf_計算資產負債表〞五個存儲過程實現的功能分別為新建帳戶、啟用帳戶、憑證過帳確認、期末結帳和運行負債表等功能。各類存儲過程的實現類似，在此不一一列出。本章介紹了幾個主要的數據表、表約束及存儲過程的設計，但數據庫也有許多考慮缺乏的地方，如數據的平安性、容錯能力等問題，這些有待我們后期的完善。第4章系統各功能模塊的詳細設計本系統主要由以下幾個功能模塊組成,主窗體、會計科目設置、帳戶設置、會計憑證輸入、總分類帳查詢和明細帳查詢等模塊的設計以及功能的實現。4.1主窗體的設計主窗體是企業內部帳目財務管理系統的主要窗口，擔任著調動程序其他模塊的功能，是整個應用程序的核心。首先適當調整窗體的大小，設置其標題，窗體名稱，接著在VB中翻開工具菜單下的菜單編輯器，建立根底數據管理、憑證管理、帳簿查詢和結帳及報表菜單。其界面如圖4-1所示：圖4-1主窗體界面4.2創立數據訪問模塊因為各個窗體均需要對數據庫進行訪問，可以把與數據庫有關的一些操作放在一個類里實現，這樣可以使對數據庫的訪問更加簡單。〔1〕在ODBC中添加一個SQLServer系統DSN數據源指向caiwubook數據庫，名稱為“caiwubook〞。〔2〕在VisualBasic中選擇[工程]|[添加類模塊]命令，生成一個數據模塊并保存為“Databasees.vb〞文件。4.3會計科目設置模塊設置會計科目是設置帳戶、處理帳務所必須遵守的規那么和依據，是正確組織會計核算的一個重要條件。在會計科目設置窗體中輸入科目代碼、名稱或類別可以查詢相應科目。如圖4-2所示。圖4-2會計科目設置窗體主要代碼如下：'為會計科目設置窗體添加私有函數SaveForAdd,以實現增加功能PrivateSubSaveForAdd()DimdbAsNewDataBasesDimstrSQLAsStringstrSQL="insertinto科目表(科目代碼,科目名稱,助記碼,科目類別,余額方向)values('"strSQL=strSQL+Trim(txbCode.Text)+"','"strSQL=strSQL+Trim(txbName.Text)+"','"strSQL=strSQL+Trim(txbHelpCode.Text)+"','"strSQL=strSQL+Trim(cbbKind.Text)+"','"strSQL=strSQL+Trim(cbbDirection.Text)+"')"db.RunSelectSQL(strSQL)EndSub4.4實現帳戶設置模塊該功能模塊有[建立新帳簿]、[啟用帳簿]和[試算平衡]三個按鈕，如圖4-3所示。[建立新帳簿]按鈕用于建立一個新的初始帳簿，單擊該按鈕，系統在后臺調用“sf_初始化帳戶〞存儲過程，刪除“帳簿初始化表〞原有的信息，根據“科目表〞重新創立“帳簿初始化表〞并在窗體中顯示。在DBGrid中輸入各科目的初始信息和系統參數信息，完成后單擊[啟用帳簿]按鈕啟用新的帳簿。[啟用帳簿]按鈕檢查當前帳簿試算是否平衡，如果平衡那么在后臺調用“sf_啟用帳戶〞存儲過程，啟用新定義的帳簿，啟用新定義的帳簿會刪除系統中歷史的所有數據。[試算平衡]按鈕可以隨時查看當前的帳簿信息是否平衡。圖4-3帳戶設置窗體主要代碼如下：'建立新帳薄PrivateSubbtnNew_Click()IfMsgBox("是否去除原賬簿信息,并初始化新帳簿？",vbYesNo,"刪除")=vbYesThenDimdbAsNewDataBasesdb.RunSelectSQL("execsf_初始化帳戶")db.CloseConnEndIfEndSub會計憑證輸入模塊在啟用帳簿后可以進行憑證錄入的工作。選擇[憑證管理]|[憑證輸入]命令，進入[會計憑證輸入]功能窗體，如圖4-4所示：單擊[新增]按鈕，系統自動新建一個憑證，憑證號和會計期間等信息自動產生，其中會計期間是“系統參數表〞中的“當前會計期間〞。圖4-4會計憑證輸入窗體主要代碼如下：'修改功能PrivateSubbtnModify_Click()DimiAsIntegeri=fgDetail.rowDimrsAsRecordsetstrSQL="select科目名稱from科目表where科目代碼='"strSQL=strSQL+Trim(cbbSubjectCode.Text)+"'"Setrs=db.RunSelectSQL(strSQL)fgDetail.TextMatrix(i,1)=Trim(txbSummary.Text)fgDetail.TextMatrix(i,2)=Trim(cbbSubjectCode.Text)fgDetail.TextMatrix(i,3)=Trim(rs("科目名稱"))fgDetail.TextMatrix(i,4)=Trim(txbDebit.Text)fgDetail.TextMatrix(i,5)=Trim(txbLender.Text)UpdateMoneyEndSub4.6實現憑證過帳功能完成了會計憑證的輸入工作，需要對憑證進行過帳。憑證過帳就是確認輸入的會計憑證，過帳后的憑證不能再進行修改。因為憑證過帳功能是在程序中調用“sf_憑證過帳〞存儲過程完成的，不用制作窗體界面。在程序主窗體的[憑證過帳]菜單的響應函數中添加相應的處理代碼，完成憑證過帳的功能代碼如下。PrivateSubmnGuozhang_Click()DimdbAsNewDataBasesDimrsAsRecordsetIfMsgBox("憑證過帳后將不能再修改,是否進行憑證過帳操作?",vbYesNo)=vbYesThenstrSQL="begintran"strSQL=strSQL+"execsf_憑證過帳"db.RunSelectSQL(strSQL)‘過帳成功，提交事務strSQL="commit"db.RunSelectSQL(strSQL)‘統計匯總信息strMsg="過帳成功"+Chr(13)strSQL="selectcount(*)記錄數from憑證表"Setrs=db.RunSelectSQL(strSQL)strMsg=strMsg+"共有"+CStr(rs(0))+"張憑證"+Chr(13)strSQL="selectsum(借方)as借,sum(貸方)as貸from分錄表"Setrs=db.RunSelectSQL(strSQL)DimstrtempAsStringIfIsNull(rs("借"))Thenstrtemp="0"Elsestrtemp=Trim(rs("借"))EndIfstrMsg=strMsg+Chr(13)+"借方金額合計"+strtempIfIsNull(rs("貸"))Thenstrtemp="0"Elsestrtemp=Trim(rs("貸"))EndIfstrMsg=strMsg+Chr(13)+"貸方金額合計"+strtempCallMsgBox(strMsg,,"過賬完成")strSQL="deletefrom分錄表"strSQL=strSQL+"deletefrom憑證表"db.RunSelectSQL(strSQL)EndIfEndSub4.7實現總分類帳和明細帳查詢功能可以分別選擇[帳簿管理]|[總分類帳]和[帳簿查詢]|[明細帳]命令，分別進入[總分類帳查詢]和[明細帳查詢]功能窗體，如圖4-5和圖4-6所示。總分類帳查詢窗體的主要功能是查詢科目的匯總信息，明細帳查詢窗體的功能是查詢科目在當前會計期間發生的每一筆業務及余額。圖4-5總分類帳查詢窗體圖4-6明細帳查詢窗體4.8實現試算平衡表功能因為前面“實現帳戶設置功能〞小節已經建立了[試算平衡表]窗體，所以只要直接編寫[試算平衡表]菜單的響應函數。實現試算平衡功能代碼：PrivateSubmnPingheng_Click()DimfrmAsNewfrmPingHengfrm.Showfrm.CalPingHengEndSub4.9實現期末結帳功能當前會計期間內的所有憑證過帳完成后，可以進行月末結帳操作，轉入下一會計期間，因為期末結帳功能是在程序中調用“sf_期末結帳〞存儲過程完成的，不用制作窗體界面。在程序主窗體的[期末結帳]菜單的響應函數中添加相應的處理代碼，完成期末結帳功能。實現期末結帳功能的代碼如下。PrivateSubmnQimo_Click()IfMsgBox("結帳后將進入下一會計期間,是否結帳?",vbYesNo)=vbYesThenDimdbAsNewDataBasesdb.RunSelectSQL("begintranexecsf_期末結帳")db.RunSelectSQL("commit")MsgBox"結賬成功"EndIfEndSub4.10實現資產負債表報表輸出功能〔1〕新建一個DataEnviroment,并用“SELECT*FROM資產負債表〞為SQL語句，建立一個Command.〔2〕新建一個DataReport，布局如圖4-8所示：圖4-8資產負債表至此,企業內部帳目財務管理系統根本開發完畢。其功能根本符合財務部門的需求，能夠完成憑證管理、帳簿管理、結帳及報表管理，對于數據的一致性的問題也通過程序進行了有效的解決.第5章系統的測試在完成了網站的詳細設計后，對系統進行測試，由此找到系統中存在的錯誤、檢測系統的容錯性能，進而對其進行改良和優化。系統可根據需要開發各階段的規格說明和程序內部結構而精心設計的一批測試用例，并利用這些測試用例去運行程序，以發現程序錯誤的過程。測試是在軟件投入生產性運行之前必做的工作。