财务票据打印软件的开发

《财务票据打印软件的开发》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、财务票据打印软件的开发摘要］公司财务报销工作中涉及到各种票据，对这些票据的管理是财务工作中最为常见的、很烦琐的工作。在工作量越来越大，而又不断要求提高工作效率的实际工作中，传统的手工票据管理方式已经远远不能适应工作需要。为了高效地完成这项工作，本文开发了一个财务票据软件，介绍了软件的模块结构和所采用的关键技术。　　［关键词］财务票据；打印软件；　　１前言　　　　票据管理是指公司财务报销工作中涉及的各种票据的日常管理，常见的票据有差旅费报销单、费用报销单、记账凭证、现金支票以及进账单等。这些票据的管理是公司财

2、务工作中最为常见的工作，同时也是很烦琐的工作。在工作量越来越大，而又不断要求提高工作效率的实际工作中，传统的手工票据管理工作方式已经远远不能适应工作需要。采用软件系统来实现辅助办公是高效率完成这项工作的有效方法之一，虽然通用的票据管理系统很多，但是都和实际工作存在一定差距，使用不便。因此开发一个适合中小型企业使用的票据管理系统是一个非常有实际意义的工作。本文针对现实中中小型企业财务票据管理的现状，从实用角度介绍了一个使用ＶｉｓｕａｌＢａｓｉｃ６．０开发的基于ＳＱＬＳｅｒｖｅｒ２００８数据库的票据打印软件。　

3、　　　２软件的模块结构　　　　软件的模块结构如图１所示。　　模块是根据功能来划分的，在用户管理模块中，系统管理员可以增加新的用户名和密码，每个用户登录后可以修改自己的密码。在基本信息设置模块中，系统管理员可以把本公司经常来往的进账单的出票人和收票人提前设置好，供后面的业务反复调用。在后面的各种票据中功能基本是相似的，本文以工商银行的进账单为例（见图2）：　　对于出票人和收款人，将鼠标放在其全称后面的空行处双击，就出现如图３所示的界面。　　如果挑选长城物资贸易有限责任公司，就双击该行，图３的界面就关闭，回到图

4、２的界面，此时出票人的全称和账号就自动调用过来了；对于金额，只需要在小写的文本框中写数字，其大写金额就自动生成出来，这样用户非常方便，可以降低原来手工书写的错误率。　　当这些内容填写好以后，单击保存，再单击打印就可以定位打印到事先放在票据打印机中的进账单上面，既快捷又准确，效果非常好。　　　　３两个关键技术　　　　这个实用的票据打印软件，有两个技术需要解决：一是小写转大写的算法，二是定位打印技术。　　3.1小写转大写的算法ＳｍａｌｌＴｏＬａｒｇｅ　　Ｓｔｅｐ１设置变量并对其初始化；　　Ｓｔｒ（１０）：大写金

5、额数组，Ｓｔｒ（０）＝＂零＂，Ｓｔｒ（１）＝＂壹＂，……，Ｓｔｒ（９）＝＂玖＂；　　Ｃｈｉｎａ：金额单位，初始化为＂分角元拾佰仟万拾佰仟亿＂；　　ｌｎＰ：金额的长度；　　Ｐｒｃ：金额的字符串表示；　　Ｔｍｐ：金额大写的逆序；　　Ｄｘ：单位，＂分＂，＂角＂，＂元＂，＂拾＂，……，＂亿＂；　　Ｘｘ：金额大写，＂零＂，＂壹＂，＂贰＂，……，＂玖＂；　　Ｚｈｅｎ：判断金额是否为整。　　Ｓｔｅｐ２如果金额只有＂角＂，去掉小数点并在＂分＂上加＂０＂即Ｐｒｃ＝Ｒｅｐｌａｃｅ（Ｐｒｃ，＂．＂，＂＂）＋＂０＂；如果金额只有＂

6、分＂，去掉小数点即Ｐｒｃ＝Ｒｅｐｌａｃｅ（Ｐｒｃ，＂．＂，＂＂）；如果金额有＂角＂和＂分＂，去掉小数点即Ｐｒｃ＝Ｒｅｐｌａｃｅ（Ｐｒｃ，＂．＂，＂＂）；如果金额是整数，则在＂角分＂位置上加＂００＂。　　Ｓｔｅｐ３将金额以大写方式逆序显示，Ｔｍｐ＝Ｓｔｒ（Ｍｉｄ（Ｐｒｃ，ｉ，１））＆Ｔｍｐ。　　Ｓｔｅｐ４将金额与单位相对应：取数字的大写即Ｘｘ＝Ｍｉｄ（Ｔｍｐ，ｉ，１）；取对应单位即Ｄｘ＝Ｍｉｄ（Ｃｈｉｎａ，ｉ，１）；然后将数字的大写与单位结合，如下：　　（１）如果大写数字不为＂零＂，将大写数字与单位结合即ＺＤ

7、Ｘ＝Ｘｘ＆Ｄｘ＆ＺＤＸ；　　（２）如果大写数字为＂零＂：若在＂元＂位置，则将单位＂元＂补上即ＺＤＸ＝Ｄｘ＆ＺＤＸ；若在＂万＂位置，则将单位＂万＂补上即ＺＤＸ＝Ｄｘ＆ＺＤＸ；若＂角不为０，元为０，且高位有不为０的＂或者＂千不为０，万为０且高位有不为０的＂则将数字＂零＂补上即ＺＤＸ＝＂零＂＆ＺＤＸ。　　Ｓｔｅｐ５如果金额为整数（没有＂角＂和＂分＂），则在金额后加上＂整＂即ＺＤＸ＝ＺＤＸ＋＂整＂；如果金额中含有＂零元＂或者＂零万＂，则分别替换为＂元＂、＂万＂，即ＺＤＸ＝Ｒｅｐｌａｃｅ（ＺＤＸ，＂零元＂，＂元＂）和

8、ＺＤＸ＝Ｒｅｐｌａｃｅ（ＺＤＸ，＂零万＂，＂万＂）。　　Ｓｔｅｐ６如果只有＂分＂且不为０，则只要金额和＂分＂，ＺＤＸ＝Ｒｉｇｈｔ（ＺＤＸ，Ｌｅｎ（ＺＤＸ）－１）。　　Ｓｔｅｐ７如果有＂角＂没有＂分＂，则在金额后加上＂整＂即ＺＤＸ＝ＺＤＸ＆＂整＂。　　Ｓｔｅｐ８如果＂角＂不为０，＂元＂为０，且高位有不为０，则在＂元＂后面加上＂零＂，ＺＤＸ＝Ｒｅｐｌａｃｅ（ＺＤＸ，＂元＂，＂元零＂）。　　Ｓｔｅｐ９将大写金额显示在金