万能打印之Delphi 2010实现(二)
作者:互联网
1.根据背景图片(业务委托书_标准打印格式.jpg),可以添加数据(含:格式)到背景图上,如下所示:(ImageEn的TImageEnDBVect)
此矢量图保存在表:MyPhoto中,字段:1.ID 数字,2.Name 文本,3.Photo OLE 对象(ID=1,Name = '业务委托书',Photo为以上矢量图)。数据对象中含:1.名称,2.格式,3.临时赋值。其中:格式是自己根据实际要求编辑得来,如:文本框是否有边框,字体大小、颜色等设置。数据对象名称以数据字段为名。[见程序Vectorial]
2.数据库查询数据后,更新此矢量图,就可以得到一张有新数据的矢量图,可以看到,有些数据不如人意,如:金额大写中还是小写等。[见程序Vectorial、查询数据:见程序:BuildSQL]
3.关于金额小写转金额大写、日期由数字转大写格式等,操作如下:
新建一INI文件,内容:字段[业务委托书]由矢量图的名称项自动生成,项由数据对象自动生成并赋值-1,如下:
[业务委托书]
年=-1(都是为-1,表示不用文字格式转换)
手动增加字段如下:(注:‘‘_转换’’不能更改为其他后缀)
[业务委托书_转换]
年=31 //自动调用不同的内部函数转换:如‘‘2021-11-21’’转换为:‘‘贰零贰壹’’,下同,
月=32
日=33
金额大写=11
金额小写=21
这样修改后的INI文件被引入系统后,数据可被转换。[转换用的内部函数见程序AllToStr]。
标签:转换,矢量图,委托书,Delphi,大写,格式,数据,2010,万能 来源: https://blog.csdn.net/tnware163/article/details/121451642