printerclass.pas

来自「停车场收费系统停车场收费系统停车场收费系统停车场收费系统」· PAS 代码 · 共 39 行

unit PrinterClass;

interface
uses
    comctrls;

type TPter = class(TRichEdit)
public
    EnterTime,LeaveTime : TDateTime;
    TotalFee : double;
    function PrintMoney():integer;
end;

implementation
uses
    Sysutils;

{ TPter }

function TPter.PrintMoney: integer;
begin
    Lines.Add('**************************');
    Lines.Add('     停车场收费系统');
    Lines.Add('**************************');
    Lines.Add('');
    Lines.Add('进入时间：'+ DateTimeToStr(Self.EnterTime));
    Lines.Add('离开时间：'+ DateTimeToStr(Self.LeaveTime));
    Lines.Add('停车费用：'+ Format('%8.2f',[Self.TotalFee]));
    Lines.Add('');
    Lines.Add('**************************');
    Lines.Add('本系统由北京点阵工作室开发');
    Lines.Add('mail: [e-mail]');
    Lines.Add('**************************');
    //调用基类函数打印
    Print('');
end;

end.