中小型企業(yè)財(cái)務(wù)票據(jù)管理系統(tǒng)票據(jù)管理系統(tǒng)

1、中小型企業(yè)財(cái)務(wù)票據(jù)管理系統(tǒng)票據(jù)管理系統(tǒng)摘 要票據(jù)管理是指公司財(cái)務(wù)報(bào)銷工作中涉及的各種票據(jù)的日常管理，常見的票據(jù)有差旅費(fèi)報(bào)銷單、費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單等。這些票據(jù)的管理是公司財(cái)務(wù)工作中最為常見的工作，同時(shí)也是繁雜、煩瑣的工作。在工作量越來(lái)越大，而又不斷要求提高工作效率的實(shí)際工作中，傳統(tǒng)的手工票據(jù)管理工作方式已經(jīng)遠(yuǎn)遠(yuǎn)不能適應(yīng)工作需要。如何有效、高效的完成這項(xiàng)看似乎簡(jiǎn)單、實(shí)則復(fù)雜的工作呢。顯然采用軟件系統(tǒng)來(lái)實(shí)現(xiàn)輔助辦公是高效率完成這項(xiàng)工作的有效方法之一，雖然通用的票據(jù)管理系統(tǒng)不乏存在，但是和實(shí)際工作都存在一定差距，并不能很好地在實(shí)際應(yīng)用中使用。因此開發(fā)一個(gè)適合中小型企業(yè)使用的票據(jù)管

2、理系統(tǒng)是一個(gè)非常有實(shí)際意義的工作。本文正是針對(duì)現(xiàn)實(shí)中中小型企業(yè)財(cái)務(wù)票據(jù)管理的現(xiàn)狀，從實(shí)用角度介紹了一個(gè)使用Delphi開發(fā)的基于Access數(shù)據(jù)庫(kù)的票據(jù)管理系統(tǒng)。這個(gè)管理系統(tǒng)會(huì)針對(duì)以前財(cái)務(wù)系統(tǒng)所存在的問(wèn)題，根據(jù)我們公司實(shí)際使用情況進(jìn)行開發(fā)。主要從實(shí)用性為目的進(jìn)行設(shè)計(jì)，目的是設(shè)計(jì)一個(gè)適合中小型企業(yè)使用的財(cái)務(wù)票據(jù)管理系統(tǒng)。關(guān)鍵字：票據(jù)；Delphi；AccessManagement of Finance Bills System For a Small and medium enterpriseAbstractManagement of Bills refers to the companys f

3、inancial reimbursement work involved in the day-to-day management of the Bills. Bills are common travel claims, the cost of claims, accounting vouchers, checks and cash Jinzhangchan etc. These notes the companys financial management is the work of the most common work, It is also complicated, cumber

4、some task.In an increasingly heavy workload, and the growing demand for higher efficiency of the actual work.Notes the traditional manual management mode is far from being able to meet needs .How effective and efficient completion of this seems to be simple, but it is in fact a complex work? Clearly

5、 software system used to achieve back-office efficiency is completed this work one of the effective ways. Although generic instrument management system many exist, but the actual work, and there are some gaps, not very good in the use of practical applications. Therefore the development of small and

6、 medium enterprises to use the instrument management system is a very meaningful work. It is against this reality SMEs financial management of the paper, From a practical perspective on the use of a Delphi-based Access database Notes. This system can aim at the question which the before finance syst

7、em existed, carried on the development according to our company actual service condition. Mainly carries on the design from the usability for the goal, the goal is designs the financial bill management system management system which suits the small and medium-sized enterprise to use.Key words: Bills

8、; Delphi; Access目 錄論文總頁(yè)數(shù)：29頁(yè)1引言11.1編寫目的11.2編寫背景12系統(tǒng)需求說(shuō)明12.1系統(tǒng)需求分析12.2總體結(jié)構(gòu)22.3票據(jù)管理系統(tǒng)業(yè)務(wù)流程32.4票據(jù)管理系統(tǒng)模塊功能介紹32.4.1差旅費(fèi)報(bào)銷系統(tǒng)32.4.2費(fèi)用報(bào)銷系統(tǒng)42.4.3記帳憑證系統(tǒng)52.4.4現(xiàn)金支票系統(tǒng)52.4.5進(jìn)帳單系統(tǒng)63方案選擇73.1編程語(yǔ)言73.1.1編程語(yǔ)言介紹73.1.2系統(tǒng)中使用到的控件介紹83.2數(shù)據(jù)庫(kù)83.2.1數(shù)據(jù)庫(kù)選擇背景83.2.2數(shù)據(jù)庫(kù)介紹93.2.3數(shù)據(jù)源的約定93.2.4數(shù)據(jù)庫(kù)訪問(wèn)約定94票據(jù)系統(tǒng)的設(shè)計(jì)94.1系統(tǒng)介紹94.2系統(tǒng)功能性要求104.3數(shù)據(jù)庫(kù)命名

9、標(biāo)準(zhǔn)與規(guī)范104.4數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)104.5數(shù)據(jù)庫(kù)物理結(jié)構(gòu)設(shè)計(jì)114.6設(shè)計(jì)約束124.7設(shè)計(jì)策略124.8系統(tǒng)概要設(shè)計(jì)說(shuō)明124.8.1系統(tǒng)總體結(jié)構(gòu)圖124.8.2差旅票據(jù)登記流程圖135票據(jù)系統(tǒng)的實(shí)現(xiàn)135.1系統(tǒng)核心模塊135.2系統(tǒng)核心模塊詳解145.2.1函數(shù)auto_sql145.2.2函數(shù)read_data145.2.3函數(shù)clearctl155.3具體設(shè)計(jì)過(guò)程155.3.1差旅費(fèi)報(bào)銷單設(shè)計(jì)155.3.2主頁(yè)面設(shè)計(jì)175.4應(yīng)用界面舉例215.4.1選擇票據(jù)類型215.4.2新建票據(jù)記錄225.4.3打印界面22結(jié) 論25附 錄26參考文獻(xiàn)27致 謝28聲 明291引言1.1編寫

10、目的票據(jù)管理是指企業(yè)或者其他單位財(cái)務(wù)報(bào)銷工作中涉及的各種票據(jù)的日常管理，常見的票據(jù)有差旅費(fèi)報(bào)銷單、費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單等。上訴票據(jù)的管理一般包括對(duì)票據(jù)的填寫、保存、查詢、打印等，而票據(jù)管理是企業(yè)或者其他單位財(cái)務(wù)工作中最為常見的工作，同時(shí)也是繁雜、煩瑣的工作。在工作量越來(lái)越大，而又不斷要求提高工作效率的實(shí)際工作中，傳統(tǒng)的手工票據(jù)管理工作方式已經(jīng)遠(yuǎn)遠(yuǎn)不能適應(yīng)工作需要。如何有效、高效的完成這項(xiàng)看似乎簡(jiǎn)單、實(shí)則復(fù)雜的工作呢。顯然采用軟件系統(tǒng)來(lái)實(shí)現(xiàn)輔助辦公是高效率完成這項(xiàng)工作的有效方法之一，雖然通用的票據(jù)管理系統(tǒng)不乏存在，但是和實(shí)際工作都存在一定差距，并不能很好地在實(shí)際應(yīng)用中使用。因

11、此開發(fā)一個(gè)適合中小型企業(yè)使用的票據(jù)管理系統(tǒng)是一個(gè)非常有實(shí)際意義的工作。本文正是針對(duì)現(xiàn)實(shí)中中小型企業(yè)財(cái)務(wù)票據(jù)管理的現(xiàn)狀，從實(shí)用角度介紹了一個(gè)使用Delphi開發(fā)的基于Access數(shù)據(jù)庫(kù)的票據(jù)管理系統(tǒng)，在開發(fā)過(guò)程中，將針對(duì)以前類似軟件的不足進(jìn)行改進(jìn)，使財(cái)務(wù)票據(jù)管理系統(tǒng)能夠在實(shí)際工作中得到充分利用。1.2編寫背景項(xiàng)目名稱：中小型企業(yè)財(cái)務(wù)票據(jù)管理系統(tǒng)項(xiàng)目來(lái)源：公司項(xiàng)目項(xiàng)目性質(zhì)：應(yīng)用類軟件系統(tǒng)項(xiàng)目關(guān)鍵詞：票據(jù)、Delphi、Access開發(fā)者：成都信息工程學(xué)院網(wǎng)絡(luò)工程系網(wǎng)絡(luò)工程專業(yè)2003級(jí)2班王旭君2系統(tǒng)需求說(shuō)明2.1系統(tǒng)需求分析從主要性能上來(lái)講，財(cái)務(wù)票據(jù)管理主要實(shí)現(xiàn)對(duì)常見財(cái)務(wù)票據(jù)的填寫、保存、查詢、

12、修改、打印等工作，如差旅費(fèi)報(bào)銷單、費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單等；從系統(tǒng)本身適用性來(lái)講，財(cái)務(wù)票據(jù)管理主要是針對(duì)中小型企業(yè)或單位實(shí)現(xiàn)對(duì)數(shù)據(jù)的管理；從實(shí)用性來(lái)講，財(cái)務(wù)票據(jù)管理主要從安全性、存儲(chǔ)速度、操作方便程度來(lái)實(shí)現(xiàn)。因此，從實(shí)際工作出發(fā)，以主要性能為依據(jù)、以實(shí)用性為目標(biāo)，對(duì)系統(tǒng)的功能提出了如下需求：.財(cái)務(wù)工作人員可以根據(jù)實(shí)際情況方便快捷錄入財(cái)務(wù)數(shù)據(jù)：票據(jù)類型應(yīng)包含常見財(cái)務(wù)票據(jù)，如差旅費(fèi)報(bào)銷單、費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單等；不同票據(jù)類型也應(yīng)該根據(jù)實(shí)際情況設(shè)計(jì)相應(yīng)的操作界面，并包含相應(yīng)的詳細(xì)記錄，如在差旅費(fèi)報(bào)銷單中應(yīng)該有出差人、報(bào)銷日期、票據(jù)編號(hào)、出差事由、出差起止日期、單

13、據(jù)張數(shù)、單獨(dú)金額等詳細(xì)記錄，在費(fèi)用報(bào)銷單中應(yīng)該有費(fèi)用項(xiàng)目、類別、金額、報(bào)銷金額總計(jì)等，在記帳憑證中應(yīng)該有總帳科目、明細(xì)科目、借方、貸方等，在現(xiàn)金支票中應(yīng)該有付款行名稱、收款人、出票人帳號(hào)等；.財(cái)務(wù)工作人員在根據(jù)實(shí)際情況錄入數(shù)據(jù)以后，需要能快速、方便地核對(duì)數(shù)據(jù)：界面設(shè)計(jì)要求方便查閱和其他操作；相關(guān)的小類數(shù)據(jù)要求實(shí)現(xiàn)自動(dòng)疊加，以減少財(cái)務(wù)人員的工作量。.在錄入并核對(duì)完成后，實(shí)現(xiàn)對(duì)數(shù)據(jù)的保存：界面要求設(shè)保存和新鍵按鈕，以實(shí)現(xiàn)對(duì)現(xiàn)有數(shù)據(jù)的保存和接下來(lái)新數(shù)據(jù)的方便錄入；在點(diǎn)擊新鍵按鈕后，要求實(shí)現(xiàn)對(duì)現(xiàn)有界面的清空。.在順利保存完數(shù)據(jù)后，實(shí)現(xiàn)對(duì)數(shù)據(jù)的管理，包括查詢、修改、刪除等操作：實(shí)現(xiàn)對(duì)數(shù)據(jù)的查詢，這個(gè)功能

14、至關(guān)重要，所謂的財(cái)務(wù)管理即是要做到對(duì)數(shù)據(jù)的保存，并方便在日后的工作中能找出歷史數(shù)據(jù)進(jìn)行核對(duì)，這就要求在系統(tǒng)內(nèi)能實(shí)現(xiàn)快速、方便地對(duì)數(shù)據(jù)庫(kù)進(jìn)行寫入和調(diào)用；實(shí)現(xiàn)對(duì)數(shù)據(jù)的修改，在已經(jīng)進(jìn)行了錯(cuò)誤錄入的情況下，要求實(shí)現(xiàn)對(duì)數(shù)據(jù)的修改，而實(shí)現(xiàn)這一功能的前提，即是實(shí)現(xiàn)對(duì)數(shù)據(jù)的查詢；實(shí)現(xiàn)對(duì)數(shù)據(jù)的刪除，考慮到此軟件的使用者是中小型企業(yè)的財(cái)務(wù)管理人員，并不能要求他們能熟練實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的操作，故要求在系統(tǒng)內(nèi)加入對(duì)系統(tǒng)數(shù)據(jù)的刪除功能。2.2總體結(jié)構(gòu)圖1 中小型企業(yè)財(cái)務(wù)票據(jù)管理系統(tǒng)主要功能模塊結(jié)構(gòu)示意圖整個(gè)票據(jù)管理系統(tǒng)包括五大部分：差旅費(fèi)報(bào)銷系統(tǒng)、費(fèi)用報(bào)銷系統(tǒng)、記帳憑證系統(tǒng)、現(xiàn)金支票系統(tǒng)和進(jìn)帳單系統(tǒng)。而每個(gè)系統(tǒng)都是先進(jìn)行詳

15、細(xì)信息登記，然后進(jìn)行保存，在保存后可以對(duì)登記信息進(jìn)行打印、查詢、修改、刪除等操作。而在進(jìn)行登記的時(shí)候，能夠從系統(tǒng)外加入相關(guān)數(shù)據(jù)。2.3票據(jù)管理系統(tǒng)業(yè)務(wù)流程財(cái)務(wù)票據(jù)管理系統(tǒng)業(yè)務(wù)流程設(shè)計(jì)思想如下：報(bào)銷人向財(cái)務(wù)人員提交相關(guān)數(shù)據(jù)，要求詳細(xì)而準(zhǔn)確；財(cái)務(wù)人員對(duì)提交的財(cái)務(wù)數(shù)據(jù)選擇相應(yīng)的系統(tǒng)進(jìn)行錄入，然后保存，如果是系統(tǒng)外數(shù)據(jù)，可以選擇“由文件裝入”；在對(duì)數(shù)據(jù)進(jìn)行錄入后，需要查詢歷史數(shù)據(jù)后，重新進(jìn)入系統(tǒng)，先設(shè)定好查詢條件，如票據(jù)類型、年、月等，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查詢；在查詢到相關(guān)數(shù)據(jù)后，若要對(duì)查看詳細(xì)信息，雙擊列表，在彈出的對(duì)話框中查看詳細(xì)信息；若要對(duì)數(shù)據(jù)進(jìn)行修改，在查詢出歷史記錄后，在表格內(nèi)對(duì)相關(guān)數(shù)據(jù)進(jìn)行改動(dòng)

16、，然后保存，當(dāng)提示“保存成功”后，數(shù)據(jù)修改成功；若要對(duì)數(shù)據(jù)進(jìn)行刪除，先查詢出列表，然后選中單條記錄，點(diǎn)擊“刪除”鍵。若要對(duì)相關(guān)數(shù)據(jù)進(jìn)行打印，進(jìn)入相關(guān)數(shù)據(jù)界面后，點(diǎn)擊打印，并要求能在打印時(shí)對(duì)打印進(jìn)行相關(guān)設(shè)置。2.4票據(jù)管理系統(tǒng)模塊功能介紹票據(jù)管理系統(tǒng)作為財(cái)務(wù)票據(jù)管理系統(tǒng)的主要實(shí)現(xiàn)部分，主要包括對(duì)差旅費(fèi)報(bào)銷單、費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單數(shù)據(jù)的錄入、保存、打印、查詢、修改、刪除等操作。2.4.1差旅費(fèi)報(bào)銷系統(tǒng)圖2 差旅費(fèi)報(bào)銷系統(tǒng)結(jié)構(gòu)圖1、差旅費(fèi)報(bào)銷系統(tǒng)查詢差旅費(fèi)報(bào)銷系統(tǒng)的查詢，作為模塊的功能放在首要位置，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查找，方便財(cái)務(wù)管理。在此功能中設(shè)定年份、月份以縮小查找范圍，更快地

17、找到指定目標(biāo)。2、差旅費(fèi)報(bào)銷系統(tǒng)刪除在查詢出相應(yīng)數(shù)據(jù)后，單擊選中要?jiǎng)h除的記錄，點(diǎn)擊“刪除”即可刪除。3、差旅費(fèi)報(bào)銷系統(tǒng)新建在點(diǎn)新建進(jìn)入填寫界面后，可直接錄入，也可以由文件裝入，也可以把填寫的數(shù)據(jù)保存為文本，直接填寫后，可以選擇保存、打印、預(yù)覽、新建。2.4.2費(fèi)用報(bào)銷系統(tǒng) 圖3 費(fèi)用報(bào)銷系統(tǒng)結(jié)構(gòu)圖1、費(fèi)用報(bào)銷系統(tǒng)查詢費(fèi)用報(bào)銷系統(tǒng)的查詢，作為模塊的功能放在首要位置，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查找，方便財(cái)務(wù)管理。在此功能中設(shè)定年份、月份以縮小查找范圍，更快地找到指定目標(biāo)。2、費(fèi)用報(bào)銷系統(tǒng)刪除在查詢出數(shù)據(jù)后，單擊選中后即可刪除。3、費(fèi)用系統(tǒng)新建在點(diǎn)新建進(jìn)入填寫界面后，直接填寫后，可以選擇保存、打印、預(yù)覽、新建

18、。在費(fèi)用欄里填寫入數(shù)字信息后，財(cái)務(wù)人員不用手動(dòng)計(jì)算總和，系統(tǒng)會(huì)自動(dòng)計(jì)算并顯示在金額總計(jì)里。2.4.3記帳憑證系統(tǒng)圖4 記帳憑證系統(tǒng)結(jié)構(gòu)圖1、記帳憑證系統(tǒng)查詢費(fèi)用報(bào)銷系統(tǒng)的查詢，作為模塊的功能放在首要位置，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查找，方便財(cái)務(wù)管理。在此功能中設(shè)定年份、月份以縮小查找范圍，更快地找到指定目標(biāo)。2、記帳憑證系統(tǒng)刪除在查詢出數(shù)據(jù)后，單擊選中后即可刪除。3、記帳憑證新建在點(diǎn)新建進(jìn)入填寫界面后，直接填寫后，可以選擇保存、打印、預(yù)覽、新建。在費(fèi)用欄里填寫入數(shù)字信息后，財(cái)務(wù)人員不用手動(dòng)計(jì)算總和，系統(tǒng)會(huì)自動(dòng)計(jì)算并顯示在金額總計(jì)里。2.4.4現(xiàn)金支票系統(tǒng)圖5 現(xiàn)金支票系統(tǒng)結(jié)構(gòu)圖1、現(xiàn)金支票系統(tǒng)查詢現(xiàn)金支

19、票系統(tǒng)的查詢，作為模塊的功能放在首要位置，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查找，方便財(cái)務(wù)管理。在此功能中設(shè)定年份、月份以縮小查找范圍，更快地找到指定目標(biāo)。2、現(xiàn)金支票系統(tǒng)刪除在查詢出數(shù)據(jù)后，單擊選中后即可刪除。3、現(xiàn)金支票新建在點(diǎn)新建進(jìn)入填寫界面后，直接填寫后，可以選擇保存、打印、預(yù)覽、新建。在費(fèi)用欄里填寫入數(shù)字信息后，財(cái)務(wù)人員不用手動(dòng)計(jì)算總和，系統(tǒng)會(huì)自動(dòng)計(jì)算并顯示在金額總計(jì)里。2.4.5進(jìn)帳單系統(tǒng)圖6 進(jìn)帳單系統(tǒng)結(jié)構(gòu)圖1、進(jìn)帳單系統(tǒng)查詢進(jìn)帳單系統(tǒng)的查詢，作為模塊的功能放在首要位置，實(shí)現(xiàn)對(duì)歷史數(shù)據(jù)的查找，方便財(cái)務(wù)管理。在此功能中設(shè)定年份、月份以縮小查找范圍，更快地找到指定目標(biāo)。2、進(jìn)帳單系統(tǒng)刪除在查詢出數(shù)據(jù)后

20、，單擊選中后即可刪除。3、進(jìn)帳單新建在點(diǎn)新建進(jìn)入填寫界面后，直接填寫后，可以選擇保存、打印、預(yù)覽、新建。在費(fèi)用欄里填寫入數(shù)字信息后，財(cái)務(wù)人員不用手動(dòng)計(jì)算總和，系統(tǒng)會(huì)自動(dòng)計(jì)算并顯示在金額總計(jì)里。3方案選擇3.1編程語(yǔ)言3.1.1編程語(yǔ)言介紹本系統(tǒng)采用的編程語(yǔ)言是Borland Delphi5.0。Delphi：Delphi是Borland公司研制的新一代可視化開發(fā)工具，可在Windows3.x、Windows95、WindowsNT等環(huán)境下使用。它擁有一個(gè)可視化的集成開發(fā)環(huán)境(IDE)，采用面向?qū)ο蟮木幊陶Z(yǔ)言O(shè)bjectPascal和基于部件的開發(fā)結(jié)構(gòu)框架。Delphi它提供了500多個(gè)可供使用

21、的構(gòu)件，利用這些部件，開發(fā)人員可以快速地構(gòu)造出應(yīng)用系統(tǒng)。開發(fā)人員也可以根據(jù)自己的需要修改部件或用Delphi本身編寫自己的部件。主要特點(diǎn)如下： (1)直接編譯生成可執(zhí)行代碼，編譯速度快。由于Delphi編譯器采用了條件編譯和選擇鏈接技術(shù)，使用它生成的執(zhí)行文件更加精煉，運(yùn)行速度更快。在處理速度和存取服務(wù)器方面，Delphi的性能遠(yuǎn)遠(yuǎn)高于其他同類產(chǎn)品。(2)支持將存取規(guī)則分別交給客戶機(jī)或服務(wù)器處理的兩種方案，而且允許開發(fā)人員建立一個(gè)簡(jiǎn)單的部件或部件集合，封裝起所有的規(guī)則，并獨(dú)立于服務(wù)器和客戶機(jī)，所有的數(shù)據(jù)轉(zhuǎn)移通過(guò)這些部件來(lái)完成。這樣，大大減少了對(duì)服務(wù)器的請(qǐng)求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速

22、度。(3)提供了許多快速方便的開發(fā)方法，使開發(fā)人員能用盡可能少的重復(fù)性工作完成各種不同的應(yīng)用。利用項(xiàng)目模板和專家生成器可以很快建立項(xiàng)目的構(gòu)架，然后根據(jù)用戶的實(shí)際需要逐步完善。(4)具有可重用性和可擴(kuò)展性。開發(fā)人員不必再對(duì)諸如標(biāo)簽、按鈕及對(duì)話框等Windows的常見部件進(jìn)行編程。Delphi包含許多可以重復(fù)使用的部件，允許用戶控制Windows的開發(fā)效果。(5)具有強(qiáng)大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具BDE(BorlandDatabaseEngine)是一個(gè)標(biāo)準(zhǔn)的中介軟件層，可以用來(lái)處理當(dāng)前流行的數(shù)據(jù)格式，如xBase、Paradox等，也可以通過(guò)BDE的SQLLink直接與Sybase、SQL

23、Server、Informix、Oracle等大型數(shù)據(jù)庫(kù)連接。 Delphi既可用于開發(fā)系統(tǒng)軟件，也適合于應(yīng)用軟件的開發(fā)。(6)擁有強(qiáng)大的網(wǎng)絡(luò)開發(fā)能力，能夠快速的開發(fā)B/S應(yīng)用，它內(nèi)置的IntraWeb和ExpressWeb使得對(duì)于網(wǎng)絡(luò)的開發(fā)效率超過(guò)了其他任何的開發(fā)工具。(7)Delphi使用獨(dú)特的VCL類庫(kù)，使得編寫出的程序顯得條理清晰，VCL是現(xiàn)在最優(yōu)秀的類庫(kù)，它使得Delphi在軟件開發(fā)行業(yè)處于一個(gè)絕對(duì)領(lǐng)先的地位。用戶可以按自己的需要，任意的構(gòu)建、擴(kuò)充、甚至是刪減VCL，以滿足不同的需要3.1.2系統(tǒng)中使用到的控件介紹1、Tdatabase部件為應(yīng)用程序提供了對(duì)單個(gè)數(shù)據(jù)庫(kù)的直接連接功能，

24、它對(duì)于應(yīng)用程序連接至遠(yuǎn)程數(shù)據(jù)庫(kù)服務(wù)器時(shí)，控制數(shù)據(jù)庫(kù)事務(wù)處理特別重要。其主要屬性有：aliasename:指定用于數(shù)據(jù)庫(kù)連接的Borland數(shù)據(jù)庫(kù)引擎的別名。即在 ODBC中指定的數(shù)據(jù)源名稱。Databasename:指定于數(shù)據(jù)庫(kù)部件相關(guān)聯(lián)的數(shù)據(jù)庫(kù)名稱。即在程序內(nèi)部引用控件時(shí)使用的名稱。Loginprompt:指定當(dāng)建立一個(gè)數(shù)據(jù)庫(kù)連接時(shí)是否顯示一個(gè)標(biāo)準(zhǔn)注冊(cè)對(duì)話框。當(dāng)指定為false時(shí)，需要在params屬性中指定訪問(wèn)數(shù)據(jù)庫(kù)的用戶名和密碼。2、Tdataset部件數(shù)據(jù)集部件，編程通過(guò)此部件實(shí)現(xiàn)各種數(shù)據(jù)庫(kù)SQL語(yǔ)言操作。其主要方法有：open：打開數(shù)據(jù)集。next:移動(dòng)到下一條數(shù)據(jù)記錄。Close:

25、關(guān)閉數(shù)據(jù)集。3、Tdatasource部件Tdatasource部件提供了數(shù)據(jù)集部件與數(shù)據(jù)感應(yīng)部件之間的接口，它在數(shù)據(jù)集和數(shù)據(jù)控件之間起著管道作用，管道中的信息就是數(shù)據(jù)集中的數(shù)據(jù)，而數(shù)據(jù)控件把通過(guò)通過(guò)數(shù)據(jù)源傳遞過(guò)來(lái)的數(shù)據(jù)流在窗體中可視地顯示出來(lái)，并且允許用戶可視地編輯、導(dǎo)航這些數(shù)據(jù)。任何數(shù)據(jù)集的數(shù)據(jù)要想在數(shù)據(jù)控件中顯示和操作，都必須與一個(gè)數(shù)據(jù)源部件建立連接，同樣，任何數(shù)據(jù)控件希望接收和操作數(shù)據(jù)集中的數(shù)據(jù)，也需要一個(gè)與數(shù)據(jù)源建立連接，圖2-1顯示了數(shù)據(jù)集部件、數(shù)據(jù)源部件和數(shù)據(jù)感應(yīng)部件之間的關(guān)系。數(shù)據(jù)感應(yīng)部件顯示操作數(shù)據(jù)數(shù)據(jù)源部件數(shù)據(jù)集部件存儲(chǔ)數(shù)據(jù)圖7 數(shù)據(jù)源部件的作用3.2數(shù)據(jù)庫(kù)3.2.1數(shù)據(jù)庫(kù)

26、選擇背景本系統(tǒng)采用MICROSOFT ACCESS2000作為數(shù)據(jù)庫(kù)系統(tǒng)存儲(chǔ)數(shù)據(jù)。因?yàn)槠睋?jù)系統(tǒng)只是一個(gè)單用戶使用的系統(tǒng)，而且數(shù)據(jù)量相對(duì)較小，而且本軟件對(duì)數(shù)據(jù)庫(kù)的要求較低，因此選用ACCESS數(shù)據(jù)庫(kù)作為本系統(tǒng)的數(shù)據(jù)存儲(chǔ)。3.2.2數(shù)據(jù)庫(kù)介紹Access：ACCESS是微軟公司出的OFFICE中一個(gè)軟件，是一個(gè)小型數(shù)據(jù)庫(kù)，美國(guó)Microsoft公司于1994年推出的微機(jī)數(shù)據(jù)庫(kù)管理系統(tǒng)。它具有界面友好、易學(xué)易用、開發(fā)簡(jiǎn)單、接口靈活等特點(diǎn)，是典型的新一代桌面數(shù)據(jù)庫(kù)管理系統(tǒng)。其主要特點(diǎn)如下：(1)完善地管理各種數(shù)據(jù)庫(kù)對(duì)象，具有強(qiáng)大的數(shù)據(jù)組織、用戶管理、安全檢查等功能。(2)強(qiáng)大的數(shù)據(jù)處理功能，在一個(gè)工作

27、組級(jí)別的網(wǎng)絡(luò)環(huán)境中，使用Access開發(fā)的多用戶數(shù)據(jù)庫(kù)管理系統(tǒng)具有傳統(tǒng)的XBASE（DBASE、FoxBASE的統(tǒng)稱）數(shù)據(jù)庫(kù)系統(tǒng)所無(wú)法實(shí)現(xiàn)的客戶服務(wù)器(Cient/Server)結(jié)構(gòu)和相應(yīng)的數(shù)據(jù)庫(kù)安全機(jī)制，Access具備了許多先進(jìn)的大型數(shù)據(jù)庫(kù)管理系統(tǒng)所具備的特征，如事務(wù)處理/出錯(cuò)回滾能力等。(3)可以方便地生成各種數(shù)據(jù)對(duì)象，利用存儲(chǔ)的數(shù)據(jù)建立窗體和報(bào)表，可視性好。(4)作為Office套件的一部分，可以與Office集成，實(shí)現(xiàn)無(wú)縫連接。(5)能夠利用Web檢索和發(fā)布數(shù)據(jù)，實(shí)現(xiàn)與Internet的連接。Access主要適用于中小型應(yīng)用系統(tǒng)，或作為客戶機(jī)/服務(wù)器系統(tǒng)中的客戶端數(shù)據(jù)庫(kù)。3.2.3數(shù)

28、據(jù)源的約定本系統(tǒng)中使用了自定義控件，如數(shù)據(jù)庫(kù)訪問(wèn)和打印。數(shù)據(jù)庫(kù)訪問(wèn)控件Tclset通過(guò)對(duì)Tquery控件，Tdatasource控件，Tdatabase控件的封裝形成了一個(gè)新的自定義控件，它簡(jiǎn)化了數(shù)據(jù)庫(kù)訪問(wèn)時(shí)需要對(duì)Tquery，Tdatasource，Tdatabase控件進(jìn)行關(guān)系設(shè)置的煩瑣手續(xù)，在使用它時(shí)Tclset控件的使用方法和Tquery的使用完全一致。Tclset控件通過(guò)ODBC與Access數(shù)據(jù)庫(kù)連接。使用ODBC而不使用ADO是ODBC比ADO更具備通用性。3.2.4數(shù)據(jù)庫(kù)訪問(wèn)約定數(shù)據(jù)庫(kù)在ODBC中被引用的數(shù)據(jù)源名稱為erm。4票據(jù)系統(tǒng)的設(shè)計(jì)4.1系統(tǒng)介紹票據(jù)管理系統(tǒng)定位于簡(jiǎn)單、

29、適用，適合各種中小企業(yè)對(duì)票據(jù)管理需要。系統(tǒng)使用桌面數(shù)據(jù)庫(kù)ACCESS作為后臺(tái)數(shù)據(jù)庫(kù)。因此，系統(tǒng)適合在任何能運(yùn)行Access的windows平臺(tái)。票據(jù)系統(tǒng)界面友好，操作簡(jiǎn)單。在操作上充分考慮財(cái)務(wù)人員使用的方便性。4.2系統(tǒng)功能性要求表4-2 系統(tǒng)功能性要求功能序號(hào)功能名稱功能說(shuō)明1差旅費(fèi)報(bào)銷單管理包含差旅費(fèi)報(bào)銷單信息的登記、修改等2費(fèi)用報(bào)銷單管理包含費(fèi)用報(bào)銷單信息的登記、修改等3記帳憑證管理包含記帳憑證信息的登記、修改等4現(xiàn)金支票管理包含現(xiàn)金支票信息的登記、修改等5進(jìn)帳單管理包含進(jìn)帳單信息的登記、修改等6數(shù)據(jù)查詢包含數(shù)據(jù)查詢4.3數(shù)據(jù)庫(kù)命名標(biāo)準(zhǔn)與規(guī)范表4-3 數(shù)據(jù)庫(kù)及各表、視圖的命名方法名稱類型

30、命名辦法約定票據(jù)數(shù)據(jù)庫(kù)系統(tǒng)數(shù)據(jù)庫(kù)字母表基本表漢字或字母查詢查詢漢字字段字段漢字或字母4.4數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)表4-4 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)名稱類型用途名稱差旅費(fèi)報(bào)銷單基本表用于記錄員工出差費(fèi)用詳細(xì)情況登記，如車船票，機(jī)票，住宿費(fèi)，出租車費(fèi)用及出差補(bǔ)助費(fèi)用等。chuchai費(fèi)用報(bào)銷單基本表用于記錄員工出差時(shí)購(gòu)買生活必須品的報(bào)銷記錄，如床單，被褥以及其他工作物品如網(wǎng)絡(luò)測(cè)試儀器，電工工具等。feiyong記帳憑證基本表用于公司記錄借貸情況明細(xì)記錄jizhang 現(xiàn)金支票基本表指銀行進(jìn)帳單，用于公司通過(guò)銀行出帳支票交易的記錄，及出帳單的套打。zhipiao進(jìn)帳單基本表指銀行進(jìn)帳單，用于公司通過(guò)銀行進(jìn)帳支票交易的

31、記錄，及進(jìn)帳單的套打。jinzhangdan圖8 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)圖4.5數(shù)據(jù)庫(kù)物理結(jié)構(gòu)設(shè)計(jì)系統(tǒng)目前只涉及到六張表格，為適應(yīng)以后添加更多的表單及情況下，系統(tǒng)能達(dá)到易于擴(kuò)展的目的，以及系統(tǒng)所涉及的表格的各種數(shù)據(jù)項(xiàng)目的特點(diǎn)，在程序設(shè)計(jì)時(shí)對(duì)保存數(shù)據(jù)及讀取的統(tǒng)一處理。在表設(shè)計(jì)時(shí)表中只設(shè)計(jì)兩種字段類型即數(shù)字型和字串型，且只有主鍵使用數(shù)字型，其他字段全部使用字串型，盡管實(shí)際存放的數(shù)據(jù)應(yīng)該是日期，數(shù)字或貨幣型。字段名使用有規(guī)律的序號(hào)排列，字段名稱不表示任何和實(shí)際存儲(chǔ)的數(shù)據(jù)的聯(lián)系。具體表結(jié)構(gòu)及表名如下：表名：chuchai表名：chuchai表名：jinzhangdan表名：jizhang表名：zhipiao以

32、上表結(jié)構(gòu)都一樣，表4-5 具體結(jié)構(gòu)字段名稱類型字段長(zhǎng)度備注ID數(shù)字字母主鍵f1文本255f2文本255F3文本255F4文本255F5文本255F6文本255F7文本255文本255F30文本2554.6設(shè)計(jì)約束系統(tǒng)在設(shè)計(jì)時(shí)，從用戶使用的角度上講要達(dá)到方便性，因此在輸入問(wèn)題上需要提供以下方便性。一、能夠提供記憶功能：也即用戶下次在該輸入框輸入數(shù)據(jù)時(shí)，以下拉列表的形式提供用戶選擇最近有限次數(shù)的輸入數(shù)據(jù)項(xiàng)。二、固定文本選擇功能：功能類似windows標(biāo)準(zhǔn)下拉框，所不同之處在于用戶能夠自行維護(hù)選擇框的內(nèi)容。三、用戶在錄入數(shù)據(jù)時(shí)按照輸入順序在回車之后自動(dòng)跳轉(zhuǎn)到下一個(gè)輸入框，而不是借用鼠標(biāo)或者TAB鍵移

33、動(dòng)。四、在輸入框控件上實(shí)現(xiàn)數(shù)據(jù)類型的約束，即輸入數(shù)字的地方不能輸入非數(shù)字信息。從系統(tǒng)實(shí)現(xiàn)考慮，每個(gè)表格的數(shù)據(jù)保存與讀取采用一個(gè)通用的保存數(shù)據(jù)和讀取數(shù)據(jù)函數(shù)來(lái)解決，這樣有利于提高代碼可用性和可維護(hù)性。各種票據(jù)的打印是票據(jù)管理軟件的最常用功能，本軟件的打印控件是本公司其他軟件中的打印控件引用過(guò)來(lái)的。它的功能非常強(qiáng)大，例如能夠?qū)崿F(xiàn)在預(yù)覽界面調(diào)整上下左右邊距，拖動(dòng)整個(gè)打印區(qū)域，橫向、縱向打印，設(shè)置各種字體等，還有一個(gè)很重要的功能就是套打，它的實(shí)現(xiàn)原理就是在預(yù)覽時(shí)能夠?qū)?shí)際的掃描進(jìn)系統(tǒng)的需要套打的票據(jù)圖片顯示出來(lái)，給人以實(shí)際感覺(jué)，然后需要套打的部份則可以在預(yù)覽界面編輯，或調(diào)整位置，設(shè)置字體，字體大小等。

34、打印的時(shí)候，只打印定義為需要打印的部分。4.7設(shè)計(jì)策略要實(shí)現(xiàn)用戶輸入的要求，必須要自行開發(fā)一個(gè)控件來(lái)實(shí)現(xiàn)該功能，該控件封裝自Tedit類，其四個(gè)功能可以通過(guò)為Tedit的hint屬性設(shè)置為mem(表示記憶框),int（表示輸入數(shù)字）,money（表示輸入的數(shù)據(jù)為貨幣型）或?yàn)橐粋€(gè)文本文件名如“出差人員.txt”來(lái)實(shí)現(xiàn)。要自動(dòng)實(shí)現(xiàn)通用的保存數(shù)據(jù)和讀取數(shù)據(jù)功能，需要程序設(shè)計(jì)時(shí)對(duì)需要保存數(shù)據(jù)的控件的名稱做約定。例如控件名稱即為對(duì)應(yīng)存儲(chǔ)表的字段名稱。或建立一個(gè)控件名和字段的對(duì)應(yīng)關(guān)系設(shè)置來(lái)實(shí)現(xiàn)。4.8系統(tǒng)概要設(shè)計(jì)說(shuō)明4.8.1系統(tǒng)總體結(jié)構(gòu)圖圖9 系統(tǒng)總體結(jié)構(gòu)圖4.8.2差旅票據(jù)登記流程圖圖10 差旅票據(jù)登

35、記流程圖5票據(jù)系統(tǒng)的實(shí)現(xiàn)5.1系統(tǒng)核心模塊表5-1 系統(tǒng)核心模塊模塊名類型原型或聲明模塊說(shuō)明openform子程序procedure openform(s_flag:boolean)打開票據(jù)登記界面的方式，是只讀狀態(tài)還是非只讀狀態(tài)。getnewid函數(shù)Functiongetnewid(table:string;query1:Tclset):string;往數(shù)據(jù)庫(kù)寫新的記錄時(shí)取得的id值auto_sql函數(shù)function auto_sql(aform:Tform;atable:string;flag:integer;query1:Tclset;txtrecord:Ttxtrecord):str

36、ing;自動(dòng)合成的保存數(shù)據(jù)的sql語(yǔ)句。read_data子程序procedure read_data(aform:Tform;atable:string;query1:Tclset);讀取數(shù)據(jù)過(guò)程。compute_sum函數(shù)function compute_sum(aform:Tform;e1,e2,e3,e4,e5,e6,e7,e8,e9,e10:string):string;計(jì)算合計(jì)項(xiàng)目clearctl子程序procedure clearctl(aform:Tform;c_type:string);新增狀態(tài)時(shí)，清除界面上的某些輸入項(xiàng)目。5.2系統(tǒng)核心模塊詳解5.2.1函數(shù)auto_sql

37、功能說(shuō)明：該函數(shù)在調(diào)用時(shí)能夠遍列窗體上的TEdit,TDatatime,TMemo等輸入性的控件，根據(jù)控件的name和實(shí)際存儲(chǔ)的表字段之間的約定自動(dòng)生成操縱數(shù)據(jù)庫(kù)的語(yǔ)句。如insert語(yǔ)句和update語(yǔ)句。（1）變量value_str為Tstringlist,用于為動(dòng)態(tài)生成insert或update語(yǔ)句臨時(shí)存儲(chǔ)輸入控件的值， （2）循環(huán)遍列控件語(yǔ)句：for i:=0 to aform.ComponentCount-1 do （3）根據(jù)控件的Classname屬性確定控件的類型。如果控件的ClassName=TEdit，則為標(biāo)準(zhǔn)輸入控件。如下為代碼片段。if aform.Componentsi

38、.ClassName=TEdit then/ 判斷該控件是Tedit類 sqlstr:=sqlstr+aform.Componentsi.Name;/取控件名，該控件名即為其對(duì)應(yīng)的數(shù)據(jù)庫(kù)存儲(chǔ)字段名 value_str.Add(aform.Componentsi as Tedit).text);/取控件輸入框的值，該值即為當(dāng)前用戶輸入的值。 （1）value_str中值的順序與insert中的字段順序一一對(duì)應(yīng)。（2）同樣可以遍列TDatatime,Tmemo控件，并取得對(duì)應(yīng)字段和值。5.2.2函數(shù)read_data功能說(shuō)明：該過(guò)程通過(guò)遍列窗體上的Tedit,Tdatatime,Tmemo等輸入性

39、的控件，根據(jù)控件的name和實(shí)際存儲(chǔ)的表字段之間的約定自動(dòng)賦予相應(yīng)的值到控件上。（1）從對(duì)應(yīng)的表選擇相應(yīng)的數(shù)據(jù)。readsql:=select * from +atable+ where id=+cur_id; （2）通過(guò)循環(huán)生成字段和值間對(duì)應(yīng)關(guān)系。for j:=0 to fields.Count-1 do/ /str_name存儲(chǔ)字段名,同時(shí)該名稱還是窗體上輸入控件的名字。 str_name.Add(fields.Fieldsj.FieldName); / str_value存儲(chǔ)字段名對(duì)應(yīng)的值, 同時(shí)該值是窗體上輸入控件的值。 str_value.add(fields.Fieldsj.ass

40、tring);（3）str_name 和str_value 之間存儲(chǔ)的字段名和值是一一對(duì)應(yīng)的關(guān)系，因此控件名在str_name中找到的索引也為值在str_value中的索引。對(duì)應(yīng)代碼片段為：value_index:=str_name.IndexOf(aform.Componentsi.Name);/控件名在str_name中找到的索引 if value_index-1 then (aform.Componentsi as Tedit).text:=str_value.Stringsvalue_index; /控件值在str_value中的索引5.2.3函數(shù)clearctl功能說(shuō)明：該函數(shù)在新建

41、記錄時(shí)，清除輸入控件上當(dāng)前值。例如，清除Tedit控件的值代碼如下。if aform.Componentsi.ClassName=TEdit then (aform.Componentsi as TEdit).text:=;5.3具體設(shè)計(jì)過(guò)程5.3.1差旅費(fèi)報(bào)銷單設(shè)計(jì)1、首先新建一個(gè)Application,將Form1的Caption屬性設(shè)置為差旅費(fèi)報(bào)銷單，然后在此設(shè)計(jì)面板上加上若干控件，其中包括：TOpenDialog、TButton、TShape、TLabel以及TSpeedButton，在差旅費(fèi)報(bào)銷單設(shè)計(jì)中主要實(shí)現(xiàn)的幾個(gè)功能按鈕為“由文件裝入”、“保存為文本”、“保存”、“打印”、“預(yù)覽

42、”、“新建”、“關(guān)閉”。其中，“由文件裝入”的OnClick事件的處理程序如下， sql.text:=sqlstr; sql.SaveToFile(error.log); try execsql; m_mode:=2; application.MessageBox(保存成功,提示,64); except application.MessageBox(保存失??！,提示,64); end; end;end;“打印”的OnClick事件的處理程序如下，其中的 *.mws文件為本公司自定義報(bào)表文件。procedure TFrmChuChai.SpeedButton2Click(Sender: TObj

43、ect);begin OpenReport(self,差旅報(bào)銷單.mws,nil,0,true);end;“預(yù)覽”的OnClick事件的處理程序如下，procedure TFrmChuChai.SpeedButton5Click(Sender: TObject);begin OpenReport(self,差旅報(bào)銷單.mws,nil,0,false);end;“新建”的OnClick事件的處理程序如下，原理是使用Clear清除現(xiàn)有表格中有的數(shù)據(jù)，procedure TFrmChuChai.SpeedButton3Click(Sender: TObject);begin clearctl(sel

44、f,2); m_mode:=1;end;而“關(guān)閉”的OnClick事件的處理程序僅僅是調(diào)用close來(lái)退出當(dāng)前程序。其他幾個(gè)表單，如費(fèi)用報(bào)銷單、記帳憑證、現(xiàn)金支票以及進(jìn)帳單的設(shè)計(jì)與差旅費(fèi)報(bào)銷單的設(shè)計(jì)類似，這里就不在贅述，下面介紹一下主頁(yè)面的設(shè)計(jì)：5.3.2主頁(yè)面設(shè)計(jì)主頁(yè)面上主要包含了TEdit、TLabel、TButton、TListView、TImageList等控件，其中的功能按鈕主要包括：“查詢”、“刪除”、“新建”、“關(guān)閉”，其中，“查詢”的OnClick事件處理程序?yàn)椋?list_item.caption:=fields0.asstring; listview1.Columns.Items3.Width:=0; listview1.Selected.Delete ; end; end;end;“新建”的OnClick事件的處理程序：procedure TFrmList.SpeedButton1Click(Sender: TObject)