财务票据打印软件的开发

来源:岁月联盟 作者:方木云 时间:2014-06-25

摘要] 公司财务报销工作中涉及到各种票据,对这些票据的管理是财务工作中最为常见的、很烦琐的工作。在工作量越来越大,而又不断要求提高工作效率的实际工作中,传统的手工票据管理方式已经远远不能适应工作需要。为了高效地完成这项工作,本文开发了一个财务票据软件,介绍了软件的模块结构和所采用的关键技术。
  [关键词] 财务票据;打印软件;

  1前言
  
  票据管理是指公司财务报销工作中涉及的各种票据的日常管理,常见的票据有差旅费报销单、费用报销单、记账凭证、现金支票以及进账单等。这些票据的管理是公司财务工作中最为常见的工作,同时也是很烦琐的工作。在工作量越来越大,而又不断要求提高工作效率的实际工作中,传统的手工票据管理工作方式已经远远不能适应工作需要。采用软件系统来实现辅助办公是高效率完成这项工作的有效方法之一,虽然通用的票据管理系统很多,但是都和实际工作存在一定差距,使用不便。因此开发一个适合中小型企业使用的票据管理系统是一个非常有实际意义的工作。本文针对现实中中小型企业财务票据管理的现状,从实用角度介绍了一个使用Visual Basic 6.0开发的基于SQL Server 2008数据库的票据打印软件。
  
  2软件的模块结构
  
  软件的模块结构如图1所示。
  模块是根据功能来划分的,在用户管理模块中,系统管理员可以增加新的用户名和密码,每个用户登录后可以修改自己的密码。在基本信息设置模块中,系统管理员可以把本公司经常来往的进账单的出票人和收票人提前设置好,供后面的业务反复调用。在后面的各种票据中功能基本是相似的,本文以工商银行的进账单为例(见图2):
  对于出票人和收款人,将鼠标放在其全称后面的空行处双击,就出现如图3所示的界面。
  如果挑选长城物资贸易有限责任公司,就双击该行,图3的界面就关闭,回到图2的界面,此时出票人的全称和账号就自动调用过来了;对于金额,只需要在小写的文本框中写数字,其大写金额就自动生成出来,这样用户非常方便,可以降低原来手工书写的错误率。
  当这些内容填写好以后,单击保存,再单击打印就可以定位打印到事先放在票据打印机中的进账单上面,既快捷又准确,效果非常好。
  
  3两个关键技术
  
  这个实用的票据打印软件,有两个技术需要解决:一是小写转大写的算法,二是定位打印技术。
  3 .1小写转大写的算法SmallToLarge
  Step 1设置变量并对其初始化;
  Str(10):大写金额数组,Str(0) = "零",Str(1) = "壹",……,Str(9) = "玖";
  China:金额单位,初始化为"分角元拾佰仟万拾佰仟亿";
  lnP:金额的长度;
  Prc:金额的字符串表示;
  Tmp:金额大写的逆序;
  Dx:单位,"分","角","元","拾",……,"亿";
  Xx:金额大写,"零","壹","贰",……,"玖";
  Zhen:判断金额是否为整。
  Step 2如果金额只有"角",去掉小数点并在"分"上加"0"即Prc = Replace(Prc, ".", "") + "0";如果金额只有"分",去掉小数点即Prc = Replace(Prc, ".", "");如果金额有"角"和"分",去掉小数点即Prc = Replace(Prc, ".", "");如果金额是整数,则在"角分"位置上加"00"。
  Step 3将金额以大写方式逆序显示,Tmp = Str(Mid(Prc, i, 1)) & Tmp。
  Step 4将金额与单位相对应:取数字的大写即Xx = Mid(Tmp, i, 1);取对应单位即Dx = Mid(China, i, 1);然后将数字的大写与单位结合,如下:
  (1)如果大写数字不为"零",将大写数字与单位结合即ZDX = Xx & Dx & ZDX;
  (2)如果大写数字为"零":若在"元"位置,则将单位"元"补上即ZDX = Dx & ZDX;若在"万"位置,则将单位"万"补上即ZDX = Dx & ZDX;若"角不为0,元为0,且高位有不为0的" 或者 "千不为0,万为0且高位有不为0的"则将数字"零"补上即ZDX = "零" & ZDX。

图片内容