【導(dǎo)讀】基于Delphi財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā)。完成日期：2020年05月20日。近年來，隨著我國(guó)信息技術(shù)的飛速發(fā)展，計(jì)算機(jī)應(yīng)用已逐漸滲透到各個(gè)領(lǐng)域。在企業(yè)管理領(lǐng)域內(nèi)，計(jì)算機(jī)的應(yīng)用已經(jīng)十分廣泛，各種管理機(jī)制與企業(yè)運(yùn)作流程。業(yè)的現(xiàn)代化管理形象。ERP之財(cái)務(wù)管理系統(tǒng)是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)財(cái)務(wù)管理走向科學(xué)?；?、規(guī)范化的必要條件，為企業(yè)建立起信息高速公路，促使企業(yè)逐步形成方便、ERP之財(cái)務(wù)管理系統(tǒng)屬于企業(yè)資源計(jì)劃模塊之一，同時(shí)它也是企業(yè)管理系統(tǒng)。中非常重要的一部分，該系統(tǒng)通過對(duì)財(cái)務(wù)信息進(jìn)行數(shù)字化管理，加快信息處理速。度，提高管理效率，從而促進(jìn)企業(yè)的發(fā)展。本系統(tǒng)結(jié)合中國(guó)企業(yè)管理制度而建立起來的一個(gè)信息系統(tǒng)，主要包括應(yīng)收管。理、應(yīng)付管理、資金管理和總帳管理等模塊，實(shí)現(xiàn)了個(gè)模塊的錄入、查找和生成

　　

【正文】 用戶編碼和密碼；用戶修改密碼時(shí)，要提供原密碼以確認(rèn)操作是否合法；創(chuàng)建新用戶由用戶姓名、用戶編碼、用戶密碼，職位和聯(lián)系電話組成。 參數(shù)設(shè)置界面設(shè)計(jì) 參數(shù)界面設(shè)計(jì)，主要包括了科目設(shè)置、會(huì)計(jì)期間設(shè)置和貨幣兌換率設(shè)置。分別對(duì)會(huì)計(jì)科目、會(huì)計(jì)期間和兌 換率的各信息進(jìn)行維護(hù)。 科目設(shè)置界面設(shè)置 該窗口，主要功能對(duì)會(huì)計(jì)科目信息進(jìn)行錄入、維護(hù)。以方便在憑證錄入時(shí)的操作。在此系統(tǒng)中均采用數(shù)據(jù)窗口來進(jìn)行對(duì)數(shù)據(jù)的處理方法。通過數(shù)據(jù)窗口，可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，不但可以對(duì)每個(gè)數(shù)據(jù)庫(kù)的表進(jìn)行檢索、查詢、插入、刪除和更新，而且還可以為數(shù)據(jù)指定輸入格式、輸出格式和顯示風(fēng)格等。圖 該 數(shù)據(jù)窗口屬于為 Freedom 風(fēng)格。本系統(tǒng)中還會(huì)用到 Grid 風(fēng)格、 Group 風(fēng)格的基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 26 數(shù)據(jù)窗口，將在后面的內(nèi)容中具體介紹?？颇吭O(shè)置圖如 圖所示。 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。 messagebox(恭喜 :),您已刪除成功！ ) =string(integer()1) else rollback using sqlca。 messagebox(提示 ,您刪除不成功！ ) end if end if 3． “保存”按鈕用于提交和確認(rèn)對(duì)該數(shù)據(jù)庫(kù)表格中的記錄所做的修改，包括插入和刪除，如果提交失敗，則取消修改。程序代碼如下： int t t=() if t=1 then mit using sqlca。 messagebox(,保存成功 ) =string(()) else messagebox(錯(cuò)誤信息 ,操作不成功 ) 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 27 rollback using sqlca。 end if 4． “退出”按鈕用于關(guān)閉該輸入窗口，其程序代碼如下： close(w_account) 5．當(dāng)信息管理者需要瀏覽科目的基本資料時(shí)，可以通過“第一頁”“上一頁”“下一頁”“最后一頁”按鈕來實(shí)現(xiàn)這樣的功能。 ? “第一頁””的程序代碼如下： (1) //將數(shù)據(jù)窗口滾動(dòng)到第一行 =1 ? “上一頁””的程序代碼如下： integer row_current row_current=() =string(row_current) if row_current=1 then messagebox(警告 ,已經(jīng)是最前一條記錄 ) =1 end if ? “下一頁”的程序代碼如下： integer row_count integer row_current row_current=() =string(row_current) row_count=() if row_current=row_count then =string(()) messagebox(警告 ,已經(jīng)是最后一條記錄 ) end if ? “最后一頁”的程序代碼如下： int i i=() (i) =string(i) 上述就是科目設(shè)置信息輸入窗口的主要設(shè)計(jì)過程以及主 要的程序代碼，對(duì)于系統(tǒng)下述模塊中，有用到“第一頁”“上一頁”“下一頁”“最后一頁”的控件，基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 28 其設(shè)計(jì)也是采用類似的方法。這里就不再作詳細(xì)的解釋了。 會(huì)計(jì)期間設(shè)置界面設(shè)置 該窗口，主要功能對(duì)會(huì)計(jì)期間信息進(jìn)行錄入、維護(hù)。以方便在憑證錄入時(shí)的操作。會(huì)計(jì)期間設(shè)置界面圖、代碼都類似與兌換率設(shè)置界面。 兌換率設(shè)置界面設(shè)置 該窗口，主要功能對(duì)貨幣兌換率信息進(jìn)行錄入、維護(hù)。以方便在貨幣進(jìn)行轉(zhuǎn)換時(shí)的操作。兌換率設(shè)置界面如圖 所示。 應(yīng)收管理子系統(tǒng)界面設(shè)計(jì) 應(yīng)收管理子系統(tǒng)的設(shè)計(jì)，主要根據(jù)銷售部門提供的發(fā)票單據(jù)，進(jìn)行財(cái)務(wù)管理上應(yīng) 收結(jié)帳單和收款單的錄入，同時(shí)設(shè)計(jì)了對(duì)這兩種單據(jù)的查找界面，而且能根據(jù)所需信息，生成對(duì)應(yīng)報(bào)表。 應(yīng)收結(jié)帳單管理界面設(shè)置 該窗口主要功能是進(jìn)行應(yīng)收結(jié)帳單的錄入 本界面按鈕的代碼都同科目界面，詳細(xì)代碼見附錄。 應(yīng)收結(jié)帳單查找界面設(shè)置 該窗口主要功能是對(duì)應(yīng)收結(jié)帳單從多人口進(jìn)行查找。人口分別有“結(jié)帳單號(hào)碼”、“送貨單號(hào)碼”、“客戶代號(hào)”、“貨號(hào)”和“送貨地代號(hào)”，多人口設(shè)計(jì)方便財(cái)務(wù)人員，在需要時(shí)能快速，準(zhǔn)確的查找出所需信息。界面在查找的符號(hào)上設(shè)計(jì)了“ ”、“ ”、“ =”、和“ like”，更方便用戶。應(yīng)收結(jié)帳單查詢界面 設(shè)計(jì)如圖 所示。 本界面按鈕的代碼大部分同科目界面，其中“查找”鍵的代碼如下： string zd,nr,sql,fh int n zd=trim() fh=trim() nr=trim() if fhlike then if zd=結(jié)帳單號(hào)碼 then (sqlca) (rinvoice_invno+fh+39。+nr+39。)//設(shè)置 檢索條件 () elseif zd=送貨單號(hào)碼 then (sqlca) (rinvoice_delno+fh+39。+nr+39。) () 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 29 elseif zd=客戶代號(hào) then (sqlca) (del_customerid+fh+39。+nr+39。) () elseif zd=貨號(hào) then (sqlca) (del_huohao+fh+39。+nr+39。) () elseif zd=送貨地代號(hào) then (sqlca) (del_shippingid+fh+39。+nr+39。) () end if else if zd=結(jié)帳單號(hào)碼 then (sqlca) (rinvoice_invno +fh+ 39。%+nr+%39。) () elseif zd=送貨單號(hào)碼 then (sqlca) (rinvoice_delno+fh+ 39。%+nr+%39。) () elseif zd=客戶代號(hào) then (sqlca) (del_customerid +fh+ 39。%+nr+%39。) () elseif zd=貨號(hào) then (sqlca) (del_huohao +fh+ 39。%+nr+%39。) () elseif zd=送貨地代號(hào) then (sqlca) (del_shippingid +fh+ 39。%+nr+%39。) () 基于 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ì)也是采用類似的方法。這里就不再作詳細(xì)的解釋。 應(yīng)收結(jié)帳單報(bào)表界面設(shè)置 上述就是應(yīng)收結(jié)帳單查詢界面設(shè)計(jì)信息窗口的主要設(shè)計(jì)過程以及主要的程序代碼，對(duì)于系統(tǒng)下述模塊中，有用到“查詢”的控件，其設(shè)計(jì)也是采用類似的方法。這里就不再作詳細(xì)的解釋。 本界面按鈕的代碼大部分同上科目界面，其中“生成”鍵的代碼如下： jz=trim() (sqlca) (jz) //jz 全局變量； 收款單管理界 面設(shè)置 該窗口主要功能是進(jìn)行收款單的錄入。收款單是客戶付款的根據(jù) 。 其界面的設(shè)計(jì)代碼同應(yīng)收結(jié)帳單管理界面，詳細(xì)代碼見附錄。 收款單查找界面設(shè)置 該窗口主要功能是對(duì)收款單從兩個(gè)人口進(jìn)行查找。人口分別有“結(jié)帳單號(hào)碼”和“收款單號(hào)碼”。界面在查找的符號(hào)上同樣設(shè)計(jì)了“ ”、“ ”、“ =”、和“ like”，更方便用戶。 其界面的設(shè)計(jì)代碼同應(yīng)收結(jié)帳單管理界面，詳細(xì)代碼見附錄。 收款單報(bào)表界面設(shè)置 該窗口主要是根據(jù)財(cái)務(wù)管理人員的需要，生成收款單報(bào)表，從而清晰的看見貨品的收款情況。 應(yīng)付管理子系統(tǒng)界面設(shè)置 應(yīng)付管理子系統(tǒng)的 設(shè)計(jì)，主要根據(jù)采購(gòu)部門提供的發(fā)票單據(jù)，進(jìn)行財(cái)務(wù)管理上應(yīng)付結(jié)帳單和付款單的錄入，同時(shí)設(shè)計(jì)了對(duì)這兩種單據(jù)的查找界面，而且能根據(jù)所需信息，生成對(duì)應(yīng)報(bào)表。應(yīng)付管理子系統(tǒng)共設(shè)計(jì)了應(yīng)付結(jié)帳單管理、應(yīng)付結(jié)帳單查詢、應(yīng)付結(jié)帳單報(bào)表、付款單、付款單查詢和付款單報(bào)表六各界面，其界面設(shè)計(jì)和代碼設(shè)計(jì)同上述應(yīng)收管理子系統(tǒng)，在此不作詳細(xì)講述，詳細(xì)代碼見附錄。 基于 Delphi 的 財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 31 資金管理子系統(tǒng)界面設(shè)置 資金管理子系統(tǒng)的設(shè)計(jì)，主要根據(jù)資金屬性的不同分為現(xiàn)金和銀行資金兩大塊，本子系統(tǒng)是讓出納員分別進(jìn)行現(xiàn)金出納簿和銀行出納簿的錄入，同時(shí)根據(jù)錄入信息分別可以對(duì)現(xiàn) 金出納簿和銀行出納簿的條目進(jìn)行查詢，現(xiàn)金出納簿查詢?nèi)丝谟小叭掌凇焙汀罢?，銀行出納簿查詢?nèi)丝谟小叭掌凇?、“銀行代號(hào)”和“摘要”，從而方便使用。同時(shí)還設(shè)計(jì)了報(bào)表窗口。其界面設(shè)計(jì)和代碼設(shè)計(jì)同上述應(yīng)收管理子系統(tǒng)，在此不作詳細(xì)講述，詳細(xì)代碼見附錄。 總帳管理子系統(tǒng)界面設(shè)置 總帳管理子系統(tǒng)界面設(shè)計(jì)，主要包括了憑證輸入界面、日記帳界面、明細(xì)帳界面和總帳界面。其中根據(jù)日常的帳目往來，錄入憑證，日記帳界面是根據(jù)憑證日期的先后順序生成的報(bào)表，明細(xì)帳是根據(jù)憑證科目代號(hào)生成的報(bào)表，總帳則是總的報(bào)表。 幫助界面設(shè)置 在幫助模 塊中，通過關(guān)于界面的顯示了解到本系統(tǒng)的基本信息 。 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 32 結(jié) 論 通過這次畢業(yè)設(shè)計(jì)的過程，使我對(duì) ERP(企業(yè)資源計(jì)劃 )進(jìn)行了深入了解。企業(yè)的所有資源簡(jiǎn)要地說包括三大流：物流、資金流、信息流， ERP 也就是對(duì)這三種資源進(jìn)行全面集成管理的管理信息系統(tǒng)。概括地說， ERP 是建立在信息技術(shù)基礎(chǔ)上，利用現(xiàn)代企業(yè)的先進(jìn)管理思想，全面地集成了企業(yè)所有資源信息，為企業(yè)提供決策、計(jì)劃、控制與經(jīng)營(yíng)業(yè)績(jī)?cè)u(píng)估的全方位和系統(tǒng)化的管理平臺(tái)。同時(shí)對(duì)Delphi數(shù)據(jù)庫(kù)開發(fā)系統(tǒng)也有了深入了解。 經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)， ERP 之財(cái)務(wù)管理基本開發(fā)完畢 。其功能基本符合企業(yè)財(cái)務(wù)管理的日常業(yè)務(wù)，包括應(yīng)收帳、應(yīng)付帳、資金管理、總帳管理等。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯(cuò)處理不夠，系統(tǒng)功能有待于進(jìn)一步提高等這些都有待于進(jìn)一步改善。 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 33 致 謝 大學(xué)即將結(jié)束，在此，我要感謝所有曾經(jīng)在學(xué)習(xí)上和生活中給予過我?guī)椭睦蠋熀屯瑢W(xué)們。 尤其要感謝我的指導(dǎo)老師沈麗容老師，在本次畢業(yè)設(shè)計(jì)中，我從沈老師身上學(xué)到了很多東西。沈老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。無論在理論上還是在實(shí)踐中，沈 老師都給與我很大的幫助，使我學(xué)到以前在書本上所學(xué)不到的知識(shí)，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。感謝沈老師耐心的教導(dǎo)，同時(shí)也要感謝給予過幫助的同學(xué)和老師。 學(xué)校在這方面也給我們提供了很大的支持和幫助，學(xué)校以及學(xué)院領(lǐng)導(dǎo)也比較重視，定期關(guān)心設(shè)計(jì)進(jìn)展，為設(shè)計(jì)提供較大的方便，同時(shí)為每個(gè)設(shè)計(jì)小組配有專門的指導(dǎo)老師，幫助我們能順利完成整個(gè)設(shè)計(jì)。對(duì)于學(xué)校和老師為我的畢業(yè)設(shè)計(jì)所提供的極大幫助和關(guān)心，在此我表示衷心的感謝！ 感謝和我一組的同學(xué)，他們給了我很多支持和幫助，與我共享了很多有價(jià)值的資料。同時(shí)，他們對(duì)我的論文 也提出了很多寶貴的意見。 感謝我的父母，雖然他們遠(yuǎn)在千里之外，卻時(shí)時(shí)關(guān)心著我的學(xué)業(yè)，我走的每一步都包涵著他們的辛勞與付出。在此，我忠心的感謝他們，感謝他們一直以來對(duì)我的關(guān)愛。 感謝我在大學(xué)的好朋友們，在這段時(shí)間里，大家都是相當(dāng)忙碌和疲勞，正是朋友之間相互鼓勵(lì)和支持，讓大家都全力投入到工作中。我不會(huì)忘記這份難得的友誼。 基于 Delphi 的財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與開發(fā) 34 參考文獻(xiàn) 1．王東迪編著． ERP 原理、應(yīng)用與實(shí)踐．人民郵電出版社． 2020 2．王東迪編著． ERP 開發(fā)實(shí)例詳解之財(cái)務(wù)人事薪資編．人民郵電出版社． 2020 3．張海藩編著．軟件工程．人民郵電出