【正文】 adOpenDynamic, adLockPessimistic Do While Not 39。余額計(jì)算公式initial = (jfje).Value (dfje).Value Rs2(rq) = Rs1(rq) Rs2(pzbh) = Rs1(pzbh) Rs2(zy) = Rs1(zy) Rs2(kmbh) = Rs1(kmbh) Rs2(kmmc) = Rs1(kmmc) Rs2(jfje) = Rs1(jfje) Rs2(dfje) = Rs1(dfje) Select Case initial Case Is = 0 (fx).Value = 平 Rs2(ye) = initial Case Is 0 (fx).Value = 借 Rs2(ye) = initial Case Is 0 (fx).Value = 貸 (ye).Value = initial * 1 End Select Loop 39。記帳完畢釋放資源 MsgBox 明細(xì)帳記帳成功！End Sub 帳簿查詢模塊的實(shí)現(xiàn)帳簿查詢模塊包括日記帳查詢、明細(xì)帳查詢和總帳查詢。查詢程序的設(shè)計(jì)思想基本相同，這里只例舉明細(xì)帳查詢程序的實(shí)現(xiàn)。在系統(tǒng)主界面／帳簿查詢中點(diǎn)擊“明細(xì)帳”按鈕，進(jìn)入如圖 所示的明細(xì)帳查詢界面。圖 　明細(xì)帳查詢在查詢界面中輸入查詢期間，然后點(diǎn)擊“查詢”按鈕，系統(tǒng)自動(dòng)執(zhí)行查詢過程并顯示查詢結(jié)果。明細(xì)帳查詢程序代碼如下：Private Sub Command1_Click() Dim Conn As New 39。聲名一個(gè) connection 對象 Dim Rs As New 39。聲明一個(gè) recordset 對象 Dim strDSN As String Dim strSQL As String Dim i As Integer31 / 40 Dim resultcount As Long 39。判斷查詢條件的合法性 If Then MsgBox 起始日期不能大于截止日期！, vbInformation, End Sub End If 39。構(gòu)造查詢語句 strSQL = select rq,pzbh,kmbh,kmmc,zy,jfje,dfje,ye,fx amp。 _ from mxz amp。 _ where amp。 amp。 rq and rq amp。 amp。 strDSN = DSN=XzSystcw strDSN strSQL, Conn, adOpenDynamic, adLockPessimistic resultcount = 39。返回記錄集中的記錄數(shù) 39。設(shè)置電子表格的表頭 = 9 = resultxount + 1 = 0 = 0 = 日期 = 1 = 憑證編號 = 2 = 科目編號 = 3 = 科目名稱 = 4 = 摘要 = 5 = 借方金額 = 6 = 貸方金額 = 7 = 余額 = 8 = 余額方向 39。將記錄信息填入電子表格 For i = 1 To resultcount = i = 0 = Rs(rq) = 1 = Rs(pzbh) = 2 = Rs(kmbh) = 3 = Rs(kmmc) = 4 = Rs(zy) = 5 = Rs(jfje) = 6 = Rs(dfje) = 7 = Rs(ye) = 8 = Rs(fx) Next i 39。顯示明細(xì)帳查詢結(jié)果 End Sub33 / 405 系統(tǒng)測試 測試環(huán)境操作系統(tǒng) windows XP數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 2022開發(fā)平臺(tái) Microsoft Visual Basic 中文企業(yè)版 測試步驟向數(shù)據(jù)庫中輸入一些模擬數(shù)據(jù)，然后運(yùn)行系統(tǒng)，觀察系統(tǒng)各個(gè)模塊的運(yùn)行情況。 測試結(jié)果經(jīng)過測試系統(tǒng)基本上滿足了用戶需求，各個(gè)功能模塊運(yùn)行基本正常。6 結(jié)束語忻州師范學(xué)院食堂財(cái)務(wù)管理系統(tǒng)已基本開發(fā)完畢。該系統(tǒng)實(shí)現(xiàn)了記帳憑證的填制、審核和查詢功能；帳簿記帳功能；帳簿查詢功能和自動(dòng)生成財(cái)務(wù)報(bào)表的功能。該系統(tǒng)基本上滿足了用戶的需求。通過對該系統(tǒng)的開發(fā)，我基本掌握了數(shù)據(jù)庫技術(shù)和可視化程序設(shè)計(jì)技術(shù)，增加了系統(tǒng)開發(fā)方面的經(jīng)驗(yàn)，從多方面鍛煉了自己的能力，提高了自身的素質(zhì)。由于缺乏系統(tǒng)開發(fā)經(jīng)驗(yàn)，加上系統(tǒng)開發(fā)時(shí)間有限，該系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)存在著許多不完善的地方。在系統(tǒng)設(shè)計(jì)方面，系統(tǒng)的安全性設(shè)計(jì)不夠完善；在系統(tǒng)的實(shí)現(xiàn)方面，部分功能模塊的部分代碼還未調(diào)試通過。這些方面有待以后繼續(xù)完善，也請各位老師提出寶貴意見。 35 / 40致　　謝在本系統(tǒng)的設(shè)計(jì)過程中，鄭志榮老師給予了極大的關(guān)心，并對系統(tǒng)的設(shè)計(jì)做了全面的指導(dǎo)，對系統(tǒng)設(shè)計(jì)的按時(shí)完成起了重要的作用。在系統(tǒng)設(shè)計(jì)初期的需求分析階段，趙廉玉老師給予了極大的幫助和支持。在此對兩位老師的杰出工作表示衷心的感謝。在本系統(tǒng)的設(shè)計(jì)過程中還得到了許多同學(xué)的幫助和指導(dǎo)，在此表示衷心的感謝。年 月 日參考文獻(xiàn)[1] 齊治昌，譚慶平，寧洪．軟件工程[M] ．北京：高等教育出版社， ．[2] 許曉林，董明．電算化會(huì)計(jì)信息系統(tǒng)[M] ．北京：機(jī)械工業(yè)出版社， 2022，第 1 版．[3] 莊明來，傅元略．會(huì)計(jì)電算化[M] ．天津:天津大學(xué)出版社， 1994 年 9 月，第 1 版.[4] 劉志翔,傅壘．會(huì)計(jì)學(xué)[M] ．北京:首都經(jīng)濟(jì)貿(mào)易大學(xué)出版社 ,2022 年 10 月，第 2 版.[5] 薩師煊,王珊．?dāng)?shù)據(jù)庫系統(tǒng)概論[M] ．北京：高等教育出版社 ,2022 年 2 月,第 3 版.[6] 導(dǎo)向科技．金蝶財(cái)務(wù)管理一點(diǎn)通[M] . 北京：人民郵電出版社 ,2022 年 7 月,第 1 版.[7] 李尊卿，謝紅兵，張廣福．會(huì)計(jì)電算化實(shí)用教程[M]．北京：高等教育出版社，2022年 6 月，第 2 版.[8] 楊密，楊樂，葛瑩明．Access 在財(cái)務(wù)中的應(yīng)用[M]．北京：電子工業(yè)出版社，2022 年9 月，第 1 版[9] Ullman of the Database York:Computers science press,1983年[10] (美)Patrick O’Neil．?dāng)?shù)據(jù)庫原理、編程與應(yīng)用 [M]．北京：機(jī)械工業(yè)出版社，2022．1[11] 孫萬軍．電算化會(huì)計(jì)[M] ．大連：東北財(cái)經(jīng)大學(xué)出版社， 1998 年，第 1 版．[12] 王建南．Visual Basic 電子商務(wù)項(xiàng)目方案精解[M] ．北京：航空工業(yè)出版社 ,2022 年10 月，第 1 版.[13] 郭崎．Visuan Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)技術(shù)[M]．北京：人民郵電出版社，2022 年 12月，第 1 版．[14] 明日科技．Visual Basic 控件參考大全[M] . 北京：人民郵電出版社， 2022 年 12 月，第 1 版．[15] (美)Steve McConnell．代碼大全[M]. 北京：電子工業(yè)出版社，2022 年 4 月，第 1版． [16] 林永. Visual Basic 用戶編程手冊[M]．北京：人民郵電出版社，1999 年 11 月,第 1 版． [17] 鄒光宗 . 水晶報(bào)表中文版標(biāo)準(zhǔn)教材[M] . 北京：電子工業(yè)出版社，2022 年 11 月，第 1