【正文】 經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)， ERP 之財(cái)務(wù)管理基本開發(fā)完畢。其界面設(shè)計(jì)和代碼設(shè)計(jì)同上述應(yīng)收管理子系統(tǒng)，在此不作詳細(xì)講述，詳細(xì)代碼見附錄。人口分別有“結(jié)帳單號(hào)碼”和“收款單號(hào)碼”。) () 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 30 end if end if n=() //獲取當(dāng)前數(shù)據(jù)窗口記錄數(shù) =string(n) if n=0 then messagebox(查詢結(jié)果 ,沒有符合條件的記錄 ) end if 上述就是應(yīng)收結(jié)帳單查詢界面設(shè)計(jì)信息窗口的主要設(shè)計(jì)過程以及主要的程序代碼，對(duì)于系統(tǒng)下述模塊中，有用到“查詢”的控件，其設(shè)計(jì)也是采用類似的方法。) () elseif zd=送貨單號(hào)碼 then (sqlca) (rinvoice_delno+fh+ 39。) () 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 29 elseif zd=客戶代號(hào) then (sqlca) (del_customerid+fh+39。 應(yīng)收結(jié)帳單查找界面設(shè)置 該窗口主要功能是對(duì)應(yīng)收結(jié)帳單從多人口進(jìn)行查找。 會(huì)計(jì)期間設(shè)置界面設(shè)置 該窗口，主要功能對(duì)會(huì)計(jì)期間信息進(jìn)行錄入、維護(hù)。 1．當(dāng)信息管理者需要插入一條新的員工記錄時(shí)，只要通過鼠標(biāo)選擇“增加”按鈕，其程序代碼如下： (0) () (1) (()) 2． “刪除”按鈕的主要功能是用于刪除當(dāng)前顯示的那條記錄，其程序代碼如下： int s //用于存放消息框返回值 int i //用于存放 update()函數(shù)返回值 s=messagebox(,真的要?jiǎng)h除嗎？ ,question!,yesnocancel!,2) //提醒用戶是否真的要?jiǎng)h除 if s=1 then (0) //刪除當(dāng)前行 i=() //更新數(shù)據(jù)表 if i=1 then //根據(jù)更新記錄數(shù)判斷是否執(zhí)行成功 mit using sqlca。分別對(duì)會(huì)計(jì)科目、會(huì)計(jì)期間和兌換率的各信息進(jìn)行維護(hù)。用戶必須通過系統(tǒng)登陸窗口才能夠進(jìn)入主界面。 在“ Database Profile”對(duì)話框完成設(shè)置后，單擊“ Preview”標(biāo)簽頁，在該標(biāo)簽頁中列出了配置的語句。這時(shí)“ ODB ODBC”節(jié)點(diǎn)下面就多了剛剛配置好的Database Profile。 2 程序設(shè)計(jì)時(shí)與數(shù)據(jù)庫(kù)連接 在程序設(shè)計(jì)中可以使用“ Database Profile”對(duì)話框完成配置和連接。 PowerBuilder 與數(shù)據(jù)庫(kù)的連接建立在驅(qū)動(dòng)程序之上。 ? 現(xiàn)金出納簿信息表 (localkeeping)：日期 (date)、會(huì)計(jì)員 (accountant)、幣種(currency)、摘要 (description)、金庫(kù)代碼 (localid)、借方 (dr)、貨方 (cr)、備注 (remaeks)等。 ? 保密性、可靠性好。 ? 用戶信息。 ? 會(huì)計(jì)憑證信息。包括的數(shù)據(jù)項(xiàng)有貨號(hào)、收 貨單號(hào)碼、客戶代號(hào)、客戶名稱、收貨單日期、收貨數(shù)量等。包括的數(shù)據(jù)項(xiàng)有貨號(hào)、貨品名稱、貨品描述、單位、庫(kù)存數(shù)量、單價(jià)等。在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)過程中，數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)是一個(gè)非常重要的的問題。 (3)貨幣兌換率設(shè)置：主要包括主要貨幣與人民幣之間的兌換率錄入、維護(hù)等操作。默認(rèn)值“ F” 科目全名 C 40 設(shè)計(jì)該字段將避免為獲得科目全名進(jìn)行復(fù)雜的計(jì)算 圖 3— 7 主表科目字典 主表摘要 字段名 字段類型 字段長(zhǎng)度 小數(shù)位數(shù) 備 注 摘要編碼 C 10 摘要 C 30 圖 3— 8 主表摘要 已過賬記賬憑證 字段名 字段類型 字段長(zhǎng)度 小數(shù) 位數(shù) 備 注 憑證號(hào) C 6 日期 D 8 摘要 C 30 科目名稱 C 40 借方金額 N 14 2 貸方金額 N 14 2 借方外幣額 N 14 2 貸方外幣額 N 14 2 匯率 N 9 6 附件張數(shù) N 3 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 11 錄入員姓名 C 10 審核員姓名 C 10 審核標(biāo)志 C 1 恢復(fù)標(biāo)志 C 1 可取值“ Y”或“ N”默認(rèn)值“ N” 科目編號(hào) C 12 圖 3— 9 已過賬記賬憑證 科目發(fā)生額及余額 字段名 字段 類型 字段長(zhǎng)度 小數(shù) 位數(shù) 備 注 科目編號(hào) C 12 先以該字段建立索引標(biāo)記為“科目 編 號(hào)”的普通索引，再以該字段取 值前 4 位建立索引標(biāo)記為“一級(jí)編 號(hào)”的普通索引。 圖例如下： 單據(jù)、報(bào)表、賬目 數(shù)據(jù)流向（不含數(shù)據(jù)內(nèi)容） 系統(tǒng)內(nèi)的部門或人員（含處理過程） 系統(tǒng)外的實(shí)體（部門或人員） 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 4 圖 2— 1 系統(tǒng)業(yè)務(wù)流程圖 原始憑證 收款憑 證 轉(zhuǎn)賬憑 證 付款憑 證 會(huì)計(jì) 報(bào)表 總 賬 明細(xì)業(yè)務(wù) 臺(tái)賬 科目匯 總表 存款日 記賬 現(xiàn)金日 記賬 原始憑證匯 總表 制證人 員 數(shù)據(jù)登 錄人員 數(shù)據(jù)錄 入人員 數(shù)據(jù)登 錄人員 財(cái)務(wù)部 工作人 員 財(cái)務(wù)部 核對(duì)人 員 總賬會(huì) 計(jì) 財(cái)務(wù)部 核對(duì)人 員 有關(guān)單位 及領(lǐng)導(dǎo) 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 5 系統(tǒng)數(shù)據(jù)流程的調(diào)查 有了業(yè)務(wù)流程圖，還需要對(duì)信息的流動(dòng)、傳遞、處理、存儲(chǔ)等進(jìn)行分析。其完成業(yè)務(wù)如下： 根據(jù)原始憑證編制原始憑證匯總表。 根據(jù)現(xiàn)行狀況中存在的問題，又從計(jì)算機(jī)的優(yōu)勢(shì)看，它具有根據(jù)原始憑證和基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 2 記賬憑證按需要瞬時(shí)生成所需要的賬表的能力。但如果分析一下各步驟存儲(chǔ)的內(nèi)容，就不難發(fā)現(xiàn)，各步驟所形成并存儲(chǔ)的都是由記賬憑證派生出來的中間結(jié)果，或由憑證分類匯總而形成（如：科目匯總表、匯總記賬憑證、總賬等），或由憑證分類順序而形成（如：日記賬、明細(xì)賬、逐筆登記的總賬等）。 涉密論文按學(xué)校規(guī)定處理。對(duì)本研究提供過幫助和做出過貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說明并表示了謝意。在企業(yè)管理領(lǐng)域內(nèi)，計(jì)算機(jī)的應(yīng)用已經(jīng)十分廣泛，各種管理機(jī)制與企業(yè)運(yùn)作流程都與計(jì)算機(jī)緊密結(jié)合在一起，計(jì)算機(jī)的應(yīng)用進(jìn)一步完善了企業(yè)的管理，提高了企業(yè)的現(xiàn)代化管理形象。s management and enhanced the image of enterprise39。本人完全意識(shí)到本聲明的法律后果由本人承擔(dān)。 手工核算方式下，不論采取哪種會(huì)計(jì)核算形式，為了滿足在會(huì)計(jì)期末及時(shí)編制會(huì)計(jì)報(bào)表的需要，必須將大部分工作量分散到日常工作中完成，因此需要將從憑證到報(bào)表的數(shù)據(jù)處理過程，分解為若干工作步驟，每一步驟都產(chǎn)生一些中間數(shù)據(jù)（如：科目匯總表、匯總記賬憑證、日記賬 、明細(xì)賬、總賬等）。 系統(tǒng)開發(fā)的可行性 分析 原始的手工處理方式為了使會(huì)計(jì)信息有清新的來龍去脈，需要將從憑證到報(bào)表的數(shù)據(jù)處理過程，分解為若干步驟，每一步都產(chǎn)生一些中間數(shù)據(jù)。該初步調(diào)查是認(rèn)識(shí)、了解現(xiàn)行系統(tǒng)狀況的過程。 現(xiàn)金日記賬、存款日記賬及明細(xì)賬業(yè)務(wù)臺(tái)賬定期同總賬核對(duì)。即定義文件和數(shù)據(jù)流由哪些更小的單位組成（這些單位一般稱為字段或數(shù)據(jù)項(xiàng)） ，并描述每個(gè)數(shù)據(jù)項(xiàng)的數(shù)據(jù)類型、長(zhǎng)度、取值范圍等具體內(nèi)容。此模塊主要用于會(huì)計(jì)基礎(chǔ)的科目基本設(shè)置，以便于會(huì)計(jì)憑證的輸入。 6)總帳管理： 主要包括憑證信息的錄入和維護(hù)、產(chǎn)生日記帳、明細(xì)帳和總帳 。 數(shù)據(jù)庫(kù)需求分析 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的第一階段是數(shù)據(jù)庫(kù)需求分析，此階段也是非常重要的一個(gè)階段。 資金管理子系統(tǒng) 錄 入 查 詢 報(bào) 表 現(xiàn)金出納簿 銀行出納簿 現(xiàn)金出納簿 銀行出納簿 銀行出納簿 現(xiàn)金出納簿 總帳管理子系統(tǒng) 報(bào) 表 總 帳 明細(xì)帳 日記帳 錄 入 憑 證 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 17 ? 應(yīng)收結(jié)帳單信息。包括的數(shù)據(jù)項(xiàng)有日期、帳戶、會(huì)計(jì)員、幣種、摘要、銀行代碼、借方、貨方、備注等。包括的數(shù)據(jù)項(xiàng)有年份、會(huì)計(jì)期間、開始時(shí)間、結(jié)束時(shí)間等。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為 ASA 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)庫(kù)模型。 ? 收貨單信息 (porv)：貨號(hào) (huohao)、收貨單號(hào)碼 (porvno)、客戶代號(hào)n m m n 1 1 1 1 1 1 1 1 貨 品 驗(yàn) 證 送貨單 應(yīng)收結(jié)帳單 收款單 收貨單 應(yīng)付結(jié)帳單 付款單 驗(yàn) 證 查 看 查 看 查 看 查 看 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 19 (customerid)、客戶名稱 (customername)、收貨單日期 (porvdate)、收貨數(shù)量 (porvqty)等。 ? 用戶信息表 (yonghu)：用戶姓名 (xingming)、用戶編碼 (bianma)、用戶密碼 (mima)、職位 (zhiwei)、聯(lián)系電話 (lianxidianhua)等。 當(dāng)開發(fā)環(huán)境通過 Database Profile 連接到數(shù)據(jù)庫(kù)上之后，在 PowerBuilder 中基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 21 使用數(shù)據(jù)庫(kù)畫筆可實(shí)現(xiàn)對(duì)該數(shù)據(jù)庫(kù)中表格、視圖等的操作，如創(chuàng)建表、修改表、刪除表、增加／刪除記錄。然后，單擊“ New”按鈕，打開“ Database Profile SetupODBC”對(duì)話框，并設(shè)置所要連接數(shù)據(jù)庫(kù)的配置信息。 一般數(shù)據(jù)庫(kù)的連接是在應(yīng)用程序開始運(yùn)行是建立起來的。DSN=caiwu39。 圖 主界面圖 主界面設(shè) 計(jì)中主要是菜單 m_main 的設(shè)計(jì)，該菜單結(jié)構(gòu)及代碼如下： 1） 系統(tǒng)管理： ? 重新登陸 Clicked 事件程序代碼： opensheet(w_denglu_chongxing,w_main,7,original!) ? 用戶管理 Clicked 事件程序代碼： opensheet(w_yonghu,w_main,7,original!) ? 退出 Clicked 事件程序代碼： close(w_main) 2） 參數(shù)設(shè)置： ? 科目設(shè)置 Clicked 事件程序代碼： opensheet(w_account,w_main,7,original!) ? 會(huì)計(jì)期間定義 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 24 Clicked 事件程序代碼： opensheet(w_nianfen,w_main,7,original!) ? 兌換率設(shè)置 Clicked 事件程序代碼： opensheet(w_huobi,w_main,7,original!) 3） 應(yīng)收管理子系統(tǒng)： ? 應(yīng)收結(jié)帳單管理 Clicked 事件程序代碼： opensheet(w_rinvoice,w_main,7,original!) ? 應(yīng)收結(jié)帳單查找 Clicked 事件程序代碼： opensheet(w_rinvoice_chaxun,w_main,7,original!) ? 應(yīng)收結(jié)帳單報(bào)表 Clicked 事件程序代碼： opensheet(w_rinvoice_biao,w_main,7,original!) ? 收款單管理 Clicked 事件程序代碼： opensheet(w_shoukuandan_guanli,w_main,7,original!) ? 收款單查找 Clicked 事件程序代碼： opensheet(w_shoukuandan_chaxun,w_main,7,original!) ? 收款單報(bào)表 Clicked 事件程序代碼： opensheet(w_shoukuandan_biao,w_main,7,original!) 4） 應(yīng)付管理子系統(tǒng)： ?