电子合同的实现 合同套打

1 篇文章 0 订阅
1 篇文章 0 订阅

合同电子化,以方便和规范对合同的管理,实现合同签订、审批的流程化管理,满足管理信息化的要求。

将合同中变化的部分抽取出来,通过系统(用Delphi开发)录入数据库,借助审批流完成对合同的审批,最后转到打印管理员处打印、盖章。

一、实现方法一:WORD方式

用Word排版,将变化的部分用变量代替;在程序中通过COM操作Word,完成对变量的替换。保存成PDF文档,在客户端打印。

优点:对WORD版的合同,梢做改动即可使用,且WORD的普及率很高。

缺点:要求每台电脑上都要有WORD,且是安装版,不是简化版。后来把对WORD的处理和生成PDF放在服务器上完成,这虽然解决了对WORD的依赖,但是却带来效率的低下。由于多人同时生成合同,等待时间可能会较长。好在合同的签订量不大,也不太集中。COM技术操作Word的代码如下。

function TdmSrvr.CreateCompact2018PDF(Cds1:TDataSet;  var PDFile: string): Boolean;

var

  I:Integer;

 imgSample: TImage;

 vWord, vDoc: OleVariant;

 FileName,CompactBarCode,CompactID: string;

 lReturn: Boolean;

 procedure DocReplace(sText, sReplace: string);

 begin

   lReturn := True;

   while lReturn do //找到并替代成功则返回 True 共11个参数

     lReturn := vDoc.Range.Find.Execute(sText, , , , , , , , , sReplace,True);

 end;

 function GetFieldValue(aFT: TField): String;

 begin

   if (aFT.DataType = ftDate) or (aFT.DataType = ftDateTime) then

   begin

     if aFT.IsNull then Result := '  年  月   日'

     else Result := FormatDateTime('YYYY年MM月DD日', aFT.AsDateTime);

   end

   else Result := aFT.AsString;

 end; 

begin

 CompactID := Cds1.FieldByName('compactid').AsString;

 imgSample := TImage.Create(nil);//生成合同编号的条形码

 imgSample.Height := 46;

 imgSample.Width := 104;

 CompactBarCode := ExePath + CompactID + '.bmp';

 FileName := ExePath + 'upload\hetong';

 DrawBarCodeEAN13(imgSample, CompactID);

 imgSample.Update;

 imgSample.Picture.SaveToFile( CompactBarCode );

  try

   vWord := CreateOleObject('Word.Application'); //创建Word线程

vDoc := vWord.Documents.Open(FileName);

//这就是加放入图片的语句 cell(1,2)表示第一行第2列的地方

vDoc.tables.item(1).cell(2,2).range.InlineShapes.AddPicture(CompactBarCode,False, True);

//通过WORD的条形码控件实现,但是显示效果不好,太小。改为插入图片的方式

   //vDoc.BarCodeCtrl1.Value := Cds1.FieldByName('CompactID').AsString;

   vDoc.Select; //选取中整个文档

   for I := 0 to Cds1.FieldCount - 1 do//用字段名做文档中的变量

     DocReplace(Cds1.Fields[i].FieldName, GetFieldValue(cds1.Fields[i]));

   PDFile := ExePath + CompactID + '.pdf';

   vDoc.ExportAsFixedFormat(PDFile, 17);

   Result := True;

 finally

   imgSample.Free;

   vWord.Quit(False); //退出Word,不保存

   Sleep(500);

 end;

end;

二、实现方法二:网页方式。

利用HTML标签,定义各种格式,作为模板。当作文本文件处理,用程序动态生成网页,通过WebBrower控件显示并打印。这种方式没有尝试。

三、实现方法三:报表方式

用RM7.0可以支持HTML语法,太方便了。之前的版本2、3系列不支持,要实现不同的字体,需要分隔成多个MEMO控件。有了HTML语法的支持,可以直接用<b>来加粗,<h1>来指定字号,或者用font属性。一个页面一个MEMO控件就可以实现了,大大减化了设计的工作量。

这是最理想的实现方式。生成23页的报表不到一秒,而用WORD方式需要7秒,更重要的是这种方式脱离了WORD的依赖。

报表做成了,预览很漂亮,在惊喜之余,却发现好多行头有标点符号,这是不符合文档要求的。就开始摸索RM的功能,后来发现设置属性WordBreak就可以实现,只是有个遗憾。就是如果行尾是标点,则上一行最后一个字跑到下一行的行头了,用这种方式避免行头是标点符号,这样上一行最后就会有一个位置闲置。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值