【正文】 在本系統(tǒng)的設(shè)計過程中還得到了許多同學(xué)的幫助和指導(dǎo)，在此表示衷心的感謝。在系統(tǒng)設(shè)計初期的需求分析階段，趙廉玉老師給予了極大的幫助和支持。這些方面有待以后繼續(xù)完善，也請各位老師提出寶貴意見。由于缺乏系統(tǒng)開發(fā)經(jīng)驗，加上系統(tǒng)開發(fā)時間有限，該系統(tǒng)的設(shè)計和實現(xiàn)存在著許多不完善的地方。該系統(tǒng)基本上滿足了用戶的需求。忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn)346 結(jié)束語忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)已基本開發(fā)完畢。顯示明細(xì)帳查詢結(jié)果 End Sub忻州師范學(xué)院計算機系學(xué)士學(xué)位論文335 系統(tǒng)測試 測試環(huán)境操作系統(tǒng) windows XP數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 2022開發(fā)平臺 Microsoft Visual Basic 中文企業(yè)版 測試步驟向數(shù)據(jù)庫中輸入一些模擬數(shù)據(jù)，然后運行系統(tǒng)，觀察系統(tǒng)各個模塊的運行情況。設(shè)置電子表格的表頭 = 9 = resultxount + 1 = 0 = 0 = 日期 = 1 = 憑證編號 = 2 = 科目編號 = 3 = 科目名稱 = 4 = 摘要 = 5 = 借方金額 = 6 = 貸方金額 = 7 = 余額 = 8 = 余額方向 39。 strDSN = DSN=XzSystcw strDSN strSQL, Conn, adOpenDynamic, adLockPessimistic resultcount = 39。 rq and rq amp。 _ where amp。構(gòu)造查詢語句 strSQL = select rq,pzbh,kmbh,kmmc,zy,jfje,dfje,ye,fx amp。聲明一個 recordset 對象 Dim strDSN As String Dim strSQL As String Dim i As Integer忻州師范學(xué)院計算機系學(xué)士學(xué)位論文31 Dim resultcount As Long 39。明細(xì)帳查詢程序代碼如下：Private Sub Command1_Click() Dim Conn As New 39。在系統(tǒng)主界面／帳簿查詢中點擊“明細(xì)帳”按鈕，進入如圖 所示的明細(xì)帳查詢界面。記帳完畢釋放資源 MsgBox 明細(xì)帳記帳成功！End Sub 帳簿查詢模塊的實現(xiàn)帳簿查詢模塊包括日記帳查詢、明細(xì)帳查詢和總帳查詢。對符合時間要求的科目記明細(xì)帳 strDSNstrSQL2 = select * from mxz strSQL2, Conn2, adOpenDynamic, adLockPessimistic Do While Not 39。 amp。 amp。從憑證明細(xì)表中找出符合時間要求的記帳科目 strDSN strSQL1 = select * from pzmx amp。定義第一個 recordset 對象 Dim Rs2 As New 39。定義第一個 connection 對象 Dim Conn2 As New 39。明細(xì)帳記帳程序代碼如下：Private Sub Command1_Click() Dim initial As Currency 39。在系統(tǒng)主界面／帳簿記帳模塊中點擊“明細(xì)帳”按鈕，進入如圖 所示的明細(xì)帳記帳界面。更新完畢，釋放資源 MsgBox 記錄添加成功！End Sub 帳簿記帳模塊的實現(xiàn)帳簿記帳模塊包括日記帳記帳、明細(xì)帳記帳和總帳記帳。貸方今額匯總 Rs(hzJje) = 39。貸方金額 Rs(jfje) = 39。科目名稱 Rs(zy) = 39。憑證編號 Rs(kmbh) = 39。增加新記錄 Rs(rq) = 39。憑證編號不為空 MsgBox 憑證編號不可為空！, vbCritical Exit Sub End If忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn)28 39。定義一個 recordset 對象 Dim strDSN As String Dim strSQL As String strDSN = DSN=XzSystcw 39。釋放資源 MsgBox 憑證通過審核！End Sub Private Sub Command4_Click() Dim Conn As New 39。制單人簽字 Rs(Gz) = CBool() 39。審核人簽字 Rs(jzr) = 39。憑證編號 Rs(fjzs) = 39。增加新記錄 Rs(rq) = 39。制單人不為空 MsgBox 制單人不可為空！, vbCritical Exit Sub End If 39。審核人不為空 MsgBox 審核人不可為空！, vbCritical忻州師范學(xué)院計算機系學(xué)士學(xué)位論文27 Exit Sub End If If = Then 39。ADODB 數(shù)據(jù)源 If = Then 39。設(shè)置 ADODB 連接對象的變量 Dim Rs As New 39。系統(tǒng)將審核通過的記帳憑證保存到憑證明細(xì)庫文件和憑證記錄庫文件中。圖 系統(tǒng)主界面忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn)26 憑證處理模塊的實現(xiàn)在系統(tǒng)主界面中點擊“憑證填制”按鈕，進入如圖 所示的憑證填制界面?！￠_始權(quán)限檢測打開科目匯總庫文件打開科目維護界面退出 ？類型正確位數(shù)正確重復(fù)嗎？輸入科目名稱等數(shù)據(jù)項更新數(shù)據(jù)庫結(jié)束顯示類型錯誤顯示位數(shù)錯誤顯示編碼重復(fù)NYNYNYYN圖 科目增加過程流程圖輸入科目代碼忻州師范學(xué)院計算機系學(xué)士學(xué)位論文254 系統(tǒng)實現(xiàn) 系統(tǒng)開發(fā)平臺介紹開發(fā)工具：Microsoft Visual Basic 中文企業(yè)版數(shù)據(jù)庫管理系統(tǒng)(DBMS)：Microsoft Access 2022 系統(tǒng)功能模塊介紹系統(tǒng)登錄界面如圖 所示。顯示憑證填制界面獲得未記帳的憑證的編號范圍產(chǎn)生憑證編號編號越界？顯示憑證審核通過？加審核標(biāo)志返回刪除審核標(biāo)志YYNN開始圖 憑證審核過程流程圖忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn)22二、帳簿輸出帳簿輸出過程流程圖如圖 所示。 開始權(quán)限檢測打開憑證明細(xì)庫表顯示憑證填制界面退出？N輸入科目編碼是否存在？有下級科目？輸入金額金額＝0？追加空記錄更新記錄憑證刷新顯示結(jié)束顯示無此科目不是末級科目金額不能為零NNNYYYY圖 增加憑證明細(xì)過程流程圖輸入摘要忻州師范學(xué)院計算機系學(xué)士學(xué)位論文21二、憑證審核憑證審核過程流程圖如圖 所示。忻州師范學(xué)院計算機系學(xué)士學(xué)位論文15 表 用戶記錄字段名稱 字段類型 長度 備注用戶 ID 文本 3 主鍵密碼 文本 4 不為空表 憑證記錄字段名稱 字段類型 長度 備注日期 日期/時間 8 不為空憑證編號 文本 11 主鍵過帳否 邏輯 2 不為空附件張數(shù) 整型 3 可為空制單人 文本 4 不為空審核人 文本 4 不為空記帳人 文本 4 不為空表 憑證明細(xì)字段名稱 字段類型 長度 備注日期 時間/日期 8 不為空憑證編號 文本 11 主鍵科目編號 文本 7 不為空科目名稱 文本 6 不為空摘要 文本 10 不為空對方科目 備注 6 可為空借方金額 貨幣 9 不為零貸方金額 貨幣 9 不為零借方合計 貨幣 9 不為零貸方合計 貨幣 9 不為零忻州師范學(xué)院食堂財務(wù)管理系統(tǒng)的設(shè)計與實現(xiàn)16表 日記帳字段名稱 字段類型 長度 備注日期 時間/日期 8 不為空憑證編號 文本 11 主鍵科目編號 文本 7 主鍵科目名稱 文本 6 不為空摘要 文本 10 不為空借方金額 貨幣 9 不為零貸方金額 貨幣 9 不為零余額 貨幣 9 可為零表 明細(xì)帳