某師范學(xué)院食堂財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-wenkub
2023-04-24 01:02:07 本頁面
【正文】 目編號 文本 7 主鍵科目名稱 文本 6 不為空摘要 文本 10 不為空借方金額 貨幣 9 不為零貸方金額 貨幣 9 不為零余額方向 文本 1 借、貸、平余額 貨幣 9 可為零表 總 帳字段名稱 字段類型 長度 備注日期 時(shí)間/日期 8 不為空憑證編號 文本 11 主鍵科目編號 文本 7 主鍵科目名稱 文本 6 不為空摘要 文本 10 不為空借方金額 貨幣 9 不為零貸方金額 貨幣 9 不為零17 / 40表 科目項(xiàng)字段名 類型 長度 備注 字段名 類型 長度 備注科目編號 文本 7 主鍵 LJ06 貨幣 9 6 月借方發(fā)生額科目名稱 文本 6 不為空 LD06 貨幣 9 6 月貸方發(fā)生額科目性質(zhì) 文本 4 不為空 Ye06 貨幣 9 6 月余額科目類別 文本 4 不為空 LJ07 貨幣 9 7 月借方發(fā)生額末級 邏輯 1 是／否 LD07 貨幣 9 7 月貸方發(fā)生額過帳 邏輯 1 是／否 Ye07 貨幣 9 7 月余額余額方向 文本 1 借、貸、平 LJ08 貨幣 9 8 月借方發(fā)生額Ye00 貨幣 9 年初余額 LD08 貨幣 9 8 月貸方發(fā)生額LJ00 貨幣 9 年初借方金額 Ye08 貨幣 9 8 月余額LD00 貨幣 9 年初貸方金額 LJ09 貨幣 9 9 月借方發(fā)生額LJ01 貨幣 9 1 月借方發(fā)生額LD09 貨幣 9 9 月貸方發(fā)生額LD01 貨幣 9 1 月貸方發(fā)生額Ye09 貨幣 9 9 月余額Ye01 貨幣 9 1 月余額 LJ10 貨幣 9 10 月借方發(fā)生額LJ02 貨幣 9 2 月借方發(fā)生額LD10 貨幣 9 10 月貸方發(fā)生額LD02 貨幣 9 2 月貸方發(fā)生額Ye10 貨幣 9 10 月余額Ye02 貨幣 9 2 月余額 LJ11 貨幣 9 11 月借方發(fā)生額LJ03 貨幣 9 3 月借方發(fā)生額LD11 貨幣 9 11 月貸方發(fā)生額LD03 貨幣 9 3 月貸方發(fā)生額Ye11 貨幣 9 11 月余額Ye03 貨幣 9 3 月余額 LJ12 貨幣 9 12 月借方發(fā)生額LJ04 貨幣 9 4 月借方發(fā)生額LD12 貨幣 9 12 月貸方發(fā)生額LD04 貨幣 9 4 月貸方發(fā)生額Ye12 貨幣 9 12 月余額Ye04 貨幣 9 4 月余額 QCye 貨幣 9 期初余額LJ05 貨幣 9 5 月借方發(fā)生額BQjf 貨幣 9 本期借方發(fā)生額LD05 貨幣 9 5 月貸方發(fā)生額BQdf 貨幣 9 本期貸方發(fā)生額Ye05 貨幣 9 5 月余額 系統(tǒng)詳細(xì)設(shè)計(jì) 憑證處理模塊的設(shè)計(jì)一、增加憑證增加憑證記錄過程流程圖如圖 所示。顯示憑證填制界面獲得未記帳的憑證的編號范圍產(chǎn)生憑證編號編號越界？顯示憑證審核通過？加審核標(biāo)志返回刪除審核標(biāo)志YYNN開始圖 憑證審核過程流程圖二、帳簿輸出帳簿輸出過程流程圖如圖 所示。圖 系統(tǒng)主界面 憑證處理模塊的實(shí)現(xiàn)在系統(tǒng)主界面中點(diǎn)擊“憑證填制”按鈕，進(jìn)入如圖 所示的憑證填制界面。設(shè)置 ADODB 連接對象的變量 Dim Rs As New 39。審核人不為空 MsgBox 審核人不可為空！, vbCritical27 / 40 Exit Sub End If If = Then 39。增加新記錄 Rs(rq) = 39。審核人簽字 Rs(jzr) = 39。釋放資源 MsgBox 憑證通過審核！End Sub Private Sub Command4_Click() Dim Conn As New 39。憑證編號不為空 MsgBox 憑證編號不可為空！, vbCritical Exit Sub End If 39。憑證編號 Rs(kmbh) = 39。貸方金額 Rs(jfje) = 39。更新完畢，釋放資源 MsgBox 記錄添加成功！End Sub 帳簿記帳模塊的實(shí)現(xiàn)帳簿記帳模塊包括日記帳記帳、明細(xì)帳記帳和總帳記帳。明細(xì)帳記帳程序代碼如下：Private Sub Command1_Click() Dim initial As Currency 39。定義第一個(gè) recordset 對象 Dim Rs2 As New 39。 amp。對符合時(shí)間要求的科目記明細(xì)帳 strDSNstrSQL2 = select * from mxz strSQL2, Conn2, adOpenDynamic, adLockPessimistic Do While Not 39。在系統(tǒng)主界面／帳簿查詢中點(diǎn)擊“明細(xì)帳”按鈕，進(jìn)入如圖 所示的明細(xì)帳查詢界面。聲明一個(gè) recordset 對象 Dim strDSN As String Dim strSQL As String Dim i As Integer31 / 40 Dim resultcount As Long 39。 _ where amp。 strDSN = DSN=XzSystcw strDSN strSQL, Conn, adOpenDynamic, adLockPessimistic resultcount = 39。顯示明細(xì)帳查詢結(jié)果 End Sub33 / 405 系統(tǒng)測試 測試環(huán)境操作系統(tǒng) windows XP數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 2022開發(fā)平臺 Microsoft Visual Basic 中文企業(yè)版 測試步驟向數(shù)據(jù)庫中輸入一些模擬數(shù)據(jù)，然后運(yùn)行系統(tǒng)，觀察系統(tǒng)各個(gè)模塊的運(yùn)行情況。該系統(tǒng)基本上滿足了用戶的需求。這些方面有待以后繼續(xù)完善，也請各位老師提出寶貴意見。在本系統(tǒng)的設(shè)計(jì)過程中還得到了許多同學(xué)的幫助和指導(dǎo)，在此表示衷心的感謝。在系統(tǒng)設(shè)計(jì)初期的需求分析階段，趙廉玉老師給予了極大的幫助和支持。由于缺乏系統(tǒng)開發(fā)經(jīng)驗(yàn)，加上系統(tǒng)開發(fā)時(shí)間有限，該系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)存在著許多不完善的地方。6 結(jié)束語忻州師范學(xué)院食堂財(cái)務(wù)管理系統(tǒng)已基本開發(fā)完畢。設(shè)置電子表格的表頭 = 9 = resultxount + 1 = 0 = 0 = 日期 = 1 = 憑證編號 = 2 = 科目編號 = 3 = 科目名稱 = 4 = 摘要 = 5 = 借方金額 = 6 = 貸方金額 = 7 = 余額 = 8 = 余額方向 39。 rq and rq amp。構(gòu)造查詢語句 strSQL = select rq,pzbh,kmbh,kmmc,zy,jfje,dfje,ye,fx amp。明細(xì)帳查詢程序代碼如下：Private Sub Command1_Click() Dim Conn As New 39。記帳完畢釋放資源 MsgBox 明細(xì)帳記帳成功！End Sub 帳簿查詢模塊的實(shí)現(xiàn)帳簿查詢模塊包括日記帳查詢、明細(xì)帳查詢和總帳查詢。 amp。從憑證明細(xì)表中找出符合時(shí)間要求的記帳科目 strDSN strSQL1 = select * from pzmx amp。定義第一個(gè) connection 對象 Dim Conn2 As New 39。在系統(tǒng)主界面／帳簿記帳模塊中點(diǎn)擊“明細(xì)帳”按鈕，進(jìn)入如圖 所示的明細(xì)帳記帳界面。貸方今額匯總 Rs(hzJje) = 39?？颇棵Q Rs(zy) = 39。增加新記錄 Rs(rq) = 39。定義一個(gè) recordset 對象 Dim strDSN As String Dim strSQL As String strDSN = DSN=XzSystcw 39。制單人簽字 Rs(Gz) = CBool() 39。憑證編
公司管理相關(guān)推薦
鄂ICP備17016276號-1