財務票據打印軟件的開發

［摘要］ 公司財務報銷工作中涉及到各種票據，對這些票據的管理是財務工作中最為常見的、很煩瑣的工作。在工作量越來越大，而又不斷要求提高工作效率的實際工作中，傳統的手工票據管理方式已經遠遠不能適應工作需要。為了高效地完成這項工作，本文開發了一個財務票據軟件，介紹了軟件的模塊結構和所采用的關鍵技術。

［關鍵詞］ 財務票據；打印軟件；

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2011 . 07. 002

［中圖分類號］F233；TP311.1 ［文獻標識碼］A ［文章編號］1673 - 0194（2011）07- 0004- 02

１前言

票據管理是指公司財務報銷工作中涉及的各種票據的日常管理，常見的票據有差旅費報銷單、費用報銷單、記賬憑證、現金支票以及進賬單等。這些票據的管理是公司財務工作中最為常見的工作，同時也是很煩瑣的工作。在工作量越來越大，而又不斷要求提高工作效率的實際工作中，傳統的手工票據管理工作方式已經遠遠不能適應工作需要。采用軟件系統來實現輔助辦公是高效率完成這項工作的有效方法之一，雖然通用的票據管理系統很多，但是都和實際工作存在一定差距，使用不便。因此開發一個適合中小型企業使用的票據管理系統是一個非常有實際意義的工作。本文針對現實中中小型企業財務票據管理的現狀，從實用角度介紹了一個使用Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０開發的基于ＳＱＬ Ｓｅｒｖｅｒ ２００８數據庫的票據打印軟件。

２軟件的模塊結構

軟件的模塊結構如圖１所示。

模塊是根據功能來劃分的，在用戶管理模塊中，系統管理員可以增加新的用戶名和密碼，每個用戶登錄后可以修改自己的密碼。在基本信息設置模塊中，系統管理員可以把本公司經常來往的進賬單的出票人和收票人提前設置好，供后面的業務反復調用。在后面的各種票據中功能基本是相似的，本文以工商銀行的進賬單為例（見圖2）：

對于出票人和收款人，將鼠標放在其全稱后面的空行處雙擊，就出現如圖３所示的界面。

如果挑選長城物資貿易有限責任公司，就雙擊該行，圖３的界面就關閉，回到圖２的界面，此時出票人的全稱和賬號就自動調用過來了；對于金額，只需要在小寫的文本框中寫數字，其大寫金額就自動生成出來，這樣用戶非常方便，可以降低原來手工書寫的錯誤率。

當這些內容填寫好以后，單擊保存，再單擊打印就可以定位打印到事先放在票據打印機中的進賬單上面，既快捷又準確，效果非常好。

３兩個關鍵技術

這個實用的票據打印軟件，有兩個技術需要解決：一是小寫轉大寫的算法，二是定位打印技術。

3 .1小寫轉大寫的算法ＳｍａｌｌＴｏＬａｒｇｅ

Ｓｔｅｐ １設置變量并對其初始化；

Ｓｔｒ（１０）：大寫金額數組，Ｓｔｒ（０） ＝ ＂零＂，Ｓｔｒ（１） ＝ ＂壹＂，……，Ｓｔｒ（９） ＝ ＂玖＂；

Ｃｈｉｎａ：金額單位，初始化為＂分角元拾佰仟萬拾佰仟億＂；

ｌｎＰ：金額的長度；

Ｐｒｃ：金額的字符串表示；

Ｔｍｐ：金額大寫的逆序；

Ｄｘ：單位，＂分＂，＂角＂，＂元＂，＂拾＂，……，＂億＂；

Ｘｘ：金額大寫，＂零＂，＂壹＂，＂貳＂，……，＂玖＂；

Ｚｈｅｎ：判斷金額是否為整。

Ｓｔｅｐ ２如果金額只有＂角＂，去掉小數點并在＂分＂上加＂０＂即Ｐｒｃ ＝ Ｒｅｐｌａｃｅ（Ｐｒｃ， ＂．＂， ＂＂） ＋ ＂０＂；如果金額只有＂分＂，去掉小數點即Ｐｒｃ ＝ Ｒｅｐｌａｃｅ（Ｐｒｃ， ＂．＂， ＂＂）；如果金額有＂角＂和＂分＂，去掉小數點即Ｐｒｃ ＝ Ｒｅｐｌａｃｅ（Ｐｒｃ， ＂．＂， ＂＂）；如果金額是整數，則在＂角分＂位置上加＂００＂。

Ｓｔｅｐ ３將金額以大寫方式逆序顯示，Ｔｍｐ ＝ Ｓｔｒ（Ｍｉｄ（Ｐｒｃ， ｉ， １）） ＆ Ｔｍｐ。

Ｓｔｅｐ ４將金額與單位相對應：取數字的大寫即Ｘｘ ＝ Ｍｉｄ（Ｔｍｐ， ｉ， １）；取對應單位即Ｄｘ ＝ Ｍｉｄ（Ｃｈｉｎａ， ｉ， １）；然后將數字的大寫與單位結合，如下：

（１）如果大寫數字不為＂零＂，將大寫數字與單位結合即ＺＤＸ ＝ Ｘｘ ＆ Ｄｘ ＆ ＺＤＸ；

（２）如果大寫數字為＂零＂：若在＂元＂位置，則將單位＂元＂補上即ＺＤＸ ＝ Ｄｘ ＆ ＺＤＸ；若在＂萬＂位置，則將單位＂萬＂補上即ＺＤＸ ＝ Ｄｘ ＆ ＺＤＸ；若＂角不為０，元為０，且高位有不為０的＂ 或者 ＂千不為０，萬為０且高位有不為０的＂則將數字＂零＂補上即ＺＤＸ ＝ ＂零＂ ＆ ＺＤＸ。

Ｓｔｅｐ ５如果金額為整數（沒有＂角＂和＂分＂），則在金額后加上＂整＂即ＺＤＸ ＝ ＺＤＸ ＋ ＂整＂；如果金額中含有＂零元＂或者＂零萬＂，則分別替換為＂元＂、＂萬＂，即ＺＤＸ ＝ Ｒｅｐｌａｃｅ（ＺＤＸ， ＂零元＂， ＂元＂）和ＺＤＸ ＝ Ｒｅｐｌａｃｅ（ＺＤＸ， ＂零萬＂， ＂萬＂）。

Ｓｔｅｐ ６如果只有＂分＂且不為０，則只要金額和＂分＂，ＺＤＸ ＝ Ｒｉｇｈｔ（ＺＤＸ， Ｌｅｎ（ＺＤＸ） － １）。

Ｓｔｅｐ ７如果有＂角＂沒有＂分＂，則在金額后加上＂整＂即ＺＤＸ ＝ ＺＤＸ ＆ ＂整＂。

Ｓｔｅｐ ８如果＂角＂不為０，＂元＂為０，且高位有不為０，則在＂元＂后面加上＂零＂，ＺＤＸ ＝ Ｒｅｐｌａｃｅ（ＺＤＸ， ＂元＂， ＂元零＂）。

Ｓｔｅｐ ９將大寫金額顯示在金額欄的表格中，結束。

3.2 定位打印技術

為了打印信息定位準確，每一類票據采用兩個窗體來進行定位，如下：

一個窗體（Ｆｏｒｍ １）做成票據的樣式，不需打印的信息直接顯示出來，需要打印的信息填寫到文本框ＴｅｘｔＢｏｘ控件中；

另外一個窗體（Ｆｏｒｍ ２）設置參考位置作為打印機的打印初始位置，該窗體只使用文本框ＴｅｘｔＢｏｘ控件，對這些文本框控件的位置進行不斷調整與測試，使其與Ｆｏｒｍ １窗體中相關的ＴｅｘｔＢｏｘ控件位置相對應，其他不需打印的位置上不使用控件；

當用戶單擊Ｆｏｒｍ １窗體中“打印”按鈕的時候， 將Ｆｏｒｍ １中需要打印的文本框ＴｅｘｔＢｏｘ控件信息傳遞給Ｆｏｒｍ ２的對應文本框，然后使用Ｆｏｒｍ ２窗體的 ＰｒｉｎｔＦｏｒｍ 方法打印窗體，即可將指定的內容準確地定位到要打印的位置，并且打印出來。

４ 軟件實施后的效果

（１）對于票據上應有的金額，只需要在小寫的文本框中寫數字，其大寫金額就自動生成出來，這樣用戶非常方便，可以降低原來手工書寫的錯誤率，而且節省時間，提高了工作效率。

（２）打印信息定位準確。當打印內容填寫好以后，就可以打印到事先放在票據打印機中的進賬單上面，既快捷又準確，票據單看上去既清晰又整潔，效果非常好。

（３）減輕了工作人員的勞動強度。在沒有使用打印軟件之前，工作人員要花很大的精力來填寫各種紙質票據材料，在操作過程中重復填寫信息，工作非常枯燥和辛苦。該打印軟件極大地減輕了他們填寫票據資料的工作量，為企業節省了大量資金和時間。

５結束語

本軟件已經在安徽工業大學財務處等單位使用，并已在中國版權局軟件著作權登記，具有很好的推廣價值。

主要參考文獻

［1］李德文．通用報表打印程序的設計與實現［Ｊ］．計算機系統應用，１９９５（2）：２７－３０.

［2］ 孫家廣，胡事民．計算機圖形學基礎教程［Ｊ］．北京：清華大學出版社，２００５：３１－３９.

［３］［美］Ｒ Ｆ岡薩雷斯，等．數字圖像處理［Ｍ］．第2版.阮秋琦，阮宇智，譯．北京：電子工業出版社，２００５.

［４］于英民，等．計算機接口技術［Ｍ］． 北京：電子工業出版社，２００4.

［５］羅鴻．ＥＲＰ原理·設計·實施［Ｍ］． 北京：電子工業出版社，２００３：１２－２２．

［６］劉炳文．Ｖｉｓｕａｌ Ｂａｓｉｃ程序設計例題匯編［Ｍ］．北京：清華大學出版社，２００６：９７－１１９.

［７］劉天惠．Ｖｉｓｕａｌ Ｂａｓｉｃ程序設計教程［Ｍ］．北京：清華大學出版社，２００６：２９－７８.