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

　　

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