软件工程

本类阅读TOP10
·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八)： CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
delphi中实现黑标单据的打印（原创）

作者：未知 来源：月光软件站 加入时间：2005-5-13　月光软件站

对于很小的票据，打印起来很难套格式，连续打印时错位会很严重，这样我们可以用黑标检测来解决这个问题，当打印机打印完一张票据时就检测黑标，这样打印机将会停在检测到的黑标后面，打印一下张时将不会跑位。

黑标打印需要的条件：

１、打印机要支持黑标发票。打印说明书中可以查到。

２、行矩要跟据打印机来定，一般打印字体一样时，不同的打印机行矩会一样的。

下面是一个示例：

unit PrintHBUnit;

interface
            
uses SysUtils, IniFiles, windows, Forms, Dialogs, Classes;

//定义打印的记录类型

type
  TPrintObj = record
    Hbsbh: string;
    Dffsny: string;
    Khmc: string;
    Khdz: string;
    Dbcbh1: string;
    Jsbl1: string;
    Scbm1: string;
    Bcbm1: string;
    Dbcbh2: string;
    Jsbl2: string;
    Scbm2: string;
    Bcbm2: string;
    Dbcbh3: string;
    Jsbl3: string;
    Scbm3: string;
    Bcbm3: string;
    YDFLBH1: string;
    YDFLBH2: string;
    YDFLBH3: string;
    Fldl1: string;
    Fldl2: string;
    Fldl3: string;
    Fldj1: string;
    Fldj2: string;
    Fldj3: string;
    Shdl1: string;
    Shdl2: string;
    Shdl3: string;
    FlDF1: string;
    FlDF2: string;
    FlDF3: string;
    DDDF1: string;
    DDDF2: string;
    DDDF3: string;
    HjDL: string;
    HjDF: string;
    Scjy: string;
    Bcss: string;
    Bcxz: string;
    Bcjy: string;
    Ssdx: string;
    Cby: string;
    Sky: string;
    Fphm: string;
    Rq: string;
    sswyj: string;
    dyqdf : string;
    BlackMark: string;
    tbdf :string;
    dddf:String;//电度电费
    fldf:String;
  end;

var
  PrintObj: TPrintObj;
  MyFile: TIniFile;
  I:integer;//为1时代表已取电价,否则取电价
  mldjList:Tstrings;
  ydflbhList:Tstrings;

procedure SetPrintObj;
procedure pdrPrintObj(zs_bz:String='0');
procedure GetBlackMark;
function JeToDx(v_je: real): String;// 报表用的金额大写转换函数


implementation

uses   DB;


function JeToDx(v_je: real): String;// 报表用的金额大写转换函数
var
  l,i: integer;
  je_zs, je_xs, dx, dw, s, s1, dx_je: string;
  bFs:boolean;
begin
  If v_je=0 Then
  Begin
    Result:='零元整';
    Exit;
  End;
  if v_je<0 then
  begin
    bFs:=True;
    v_je:=(-1)*v_je;
  end
  else bFs:=False;

   je_zs:='';
   je_xs:='';
   if round(v_je)*100=v_je*100 then je_zs:=FloatToStr(v_je)
   else
   begin
      s:=FloatToStr(v_je*100);
      je_zs:=Copy(s,1,length(s)-2);
      je_xs:=Copy(s,length(je_zs)+1,2);
      if je_zs='' then je_zs:='00';
      if je_xs='' then je_xs:='00';
   end;
   dx:='零壹贰叁肆伍陆柒捌玖';
   dw:='元拾佰仟万拾佰仟亿';
   dx_je:='';
   if je_zs<>'' then
   begin
      l:=length(je_zs);
      s1:='';
      for i:=1 to l do
      begin
         s:=Copy(dx,StrToInt(Copy(je_zs,i,1))*2+1,2);
         if s<>'零' then
         begin
            dx_je:=dx_je+s;
            dx_je:=dx_je+Copy(dw,(l-i)*2+1,2);
         end
         else if s1<>'零' then dx_je:=dx_je+'零';
         if i=(l-4) then
         begin
            s:=Copy(dx_je,length(dx_je)-1,2);
            if s='零' then dx_je:=Copy(dx_je,1,length(dx_je)-2);
            if s<>'万' then dx_je:=dx_je+'万';
         end;
         s1:=s;
      end;
      s:=Copy(dx_je,length(dx_je)-1,2);
      if s='零' then dx_je:=Copy(dx_je,1,length(dx_je)-2);
      if s<>'元' then dx_je:=dx_je+'元';
   end;
   if je_xs='' then dx_je:=dx_je+'整'
   else
   begin
      if Copy(je_xs,1,1)<>'0' then
      begin
         if Copy(je_xs,2,1)<>'0' then
         begin
             if length(je_xs)=1 then je_xs:='0'+je_xs;
            dx_je:=dx_je+Copy(dx,StrToInt(Copy(je_xs,1,1))*2+1,2)+'角';
            dx_je:=dx_je+Copy(dx,StrToInt(Copy(je_xs,2,1))*2+1,2)+'分';
         end
         else dx_je:=dx_je+Copy(dx,StrToInt(Copy(je_xs,1,1))*2+1,2)+'角整';
      end
      else
      begin
         dx_je:=dx_je+'零'+Copy(dx,StrToInt(Copy(je_xs,2,1))*2+1,2)+'分';
      end;
   end;
   if copy(dx_je,1,2)='元' then dx_je:='零'+dx_je;
   if bFs then dx_je:='负'+dx_je;    
   Result:=dx_je;
end;

procedure GetBlackMark;
var
  BlackMark: string;
begin

//从INI文件中读取黑票类型
  MyFile := Tinifile.create(ExtractFilePath(Application.ExeName)+'ydgl.ini');
  try
    BlackMark := MyFile.ReadString('Print', 'PrintType', '');
    if Length(BlackMark) <> 0 then
      PrintObj.BlackMark := BlackMark
    else
    begin
      Application.MessageBox('已自动配置ydgl.ini文件，默认打印机类型为：BS-310K，请检查！', '提示', MB_OK);
      MyFile.WriteString('Print', 'PrintType', 'BS-310K');
    end;
  finally
    MyFile.Free;
  end;
end;

procedure SetPrintObj;
begin
  with PrintObj do
  begin
    Hbsbh := '0123456789';
    Dffsny := '200401';
    Khmc := '测试用户';
    Khdz := '南昌市';
    Dbcbh1 := 'A0001';
    Jsbl1 := '1';
    Scbm1 := '100';
    Bcbm1 := '150';
    Dbcbh2 := 'A0002';
    Jsbl2 := '1';
    Scbm2 := '10';
    Bcbm2 := '110';
    Dbcbh3 := '';
    Jsbl3 := '';
    Scbm3 := '';
    Bcbm3 := '';
    Fldl1 := '150';
    Fldl2 := '';
    Fldl3 := '';
    Fldj1 := '0.50';
    Fldj2 := '';
    Fldj3 := '';
    Shdl1 := '';
    Shdl2 := '';
    Shdl3 := '';
    FlDF1 := '75.00';
    FlDF2 := '';
    FlDF3 := '';
    DDDF1 := '75.00';
    DDDF2 := '';
    DDDF3 := '';
    HjDL := '150';
    HjDF := '75.00';
    Scjy := '0';
    Bcss := '100.00';
    Bcxz := '75.00';
    Bcjy := '25.00';
    Ssdx := '壹佰元整';
    Cby := '小王';
    Sky := '小李';
    Fphm := '001';
    Rq := '2004-01-30';
    sswyj:='0';
    dyqdf:='';
    dddf:='';
    fldf:='';
  end;
end;

procedure pdrPrintObj(zs_bz:String='0');
var
  lpt: TextFile;
  str,Other:String;
begin
  AssignFile(lpt, 'LPT1');
  try
    ReWrite(lpt);
    with PrintObj do
    begin
      BlackMark:='SP512MC';
      if UpperCase(BlackMark)=UpperCase('SP512MC') then
      begin
          Writeln(lpt, '');
          Writeln(lpt, Format('    %S', [sswyj]));
          Writeln(lpt, Format('    %S       %S', [Hbsbh, dffsny]));
          Writeln(lpt, Format('    %S', [Khmc]));
          Writeln(lpt, Format('    %S', [Khdz]));
          Writeln(lpt, Format('    %-11S%-11S%-11S', [Dbcbh1,Dbcbh2,Dbcbh3]));
          Writeln(lpt, Format('    %-11S%-11S%-11S', [Jsbl1,Jsbl2,Jsbl3]));
          Writeln(lpt, Format('    %-11S%-11S%-11S', [Scbm1,Scbm2,Scbm3]));
          Writeln(lpt, Format('    %-11S%-11S%-11S', [Bcbm1,Bcbm2,Bcbm3]));
          Writeln(lpt, '');
          Writeln(lpt, Format('%-11S%-11S%-11S%S', [Fldl1, Shdl1, Fldj1,
            Fldf1]));
          Writeln(lpt, Format('%-11S%-11S%-11S%S', [Fldl2, Shdl2, Fldj2,
            Fldf2]));
          Writeln(lpt, Format('%-11S%-11S%-11S%S', [Fldl3, Shdl3, Fldj3,
            Fldf3]));
          Writeln(lpt, Format('    %-20S%S', [Hjdl, Hjdf]));
          //zs_bz:走收标致"1"为走收，"0"非走收
          if zs_bz='0' then
          begin
            Writeln(lpt, Format('     %-20S%S', [Scjy, Bcss]));
            Writeln(lpt, Format('     %-20S%S', [Bcxz, Bcjy]));
            Writeln(lpt, Format('     %S', [Ssdx]));
          end
          else
          begin
            Writeln(lpt, Format('     %-20S%S', ['', Hjdf]));
            Writeln(lpt, Format('     %-20S%S', [Hjdf, '']));
            Writeln(lpt, Format('     %S', [JeToDx(StrToFloatDef(Hjdf,0))]));
          end;
          Writeln(lpt, Format('  %-15S%-15S%S', [Cby, Sky, Rq]));
          Writeln(lpt, '');
          Writeln(lpt, Format('       %S', [Fphm]));
          Writeln(lpt, Format('    %-24S%S', [Hbsbh, dffsny]));
          if zs_bz='0' then
          begin
            Writeln(lpt, Format('    %-24S%S', [Bcss, Bcjy]));
          end
          else
          begin
            Writeln(lpt, Format('    %-24S%S', [Hjdf+JeToDx(StrToFloatDef(Hjdf,0)), '']));
          end;
          Writeln(lpt, Format('     %-23S%S', [Sky, Rq]));

//发送黑标指令
          Write(lpt, #12);
      end
    end;
  finally
    CloseFile(lpt);
  end;
end;
end.

相关文章：

相关软件：