screenclass.~pas

停车场收费系统

unit ScreenClass;

interface
uses
    Sysutils,Windows,OleCtrls, MSCommLib_TLB;

type TUserScreen = class
private
    FPort : smallint;
public
    constructor Create(APort : smallint);
    function DisplayTotal(ANum : double): integer;
    function DisplayChange(ANum : double): integer;
    function DisplayTime(ADateTime:TDateTime): integer;
end;


implementation

uses
    ScreenAPI;

const
    ERROR_OPEN = 'error';
    ERROR_DISPLAY = 'error';
    ERROR_CLOSE = 'error';
{ TUserScreen }

constructor TUserScreen.Create(APort: smallint);
begin
    if (APort < 1) or (APort > 15) then FPort := 1
    else FPort := APort;
end;

function TUserScreen.DisplayChange(ANum: double): integer;
var
    mStr: string;
    mPort : smallint;
begin
    mPort := FPort ;
    mStr := Format('CHANGE  %6.2f',[ANum]);
    gOpenCom(mPort,PChar(ERROR_OPEN));
    gSend_ShowString(PChar(mStr),PChar(ERROR_DISPLAY));
    gCloseCom(PChar(ERROR_CLOSE));
end;

function TUserScreen.DisplayTime(ADateTime: TDateTime): integer;
var
    Year,Month,Day,Hour,Min,Sec,MSec:word;
    mStr : string;
    mPort : smallint;
begin
    DecodeDate(ADateTime,Year,Month,Day);
    DecodeTime(ADateTime,Hour,Min,Sec,MSec);
    mStr := IntToStr(Month) + '-'
           +IntToStr(Day) + '-'
           +IntToStr(Hour) + '-'
           +IntToStr(Min);
    mPort := FPort ;
    gOpenCom(mPort,PChar(ERROR_OPEN));
    gSend_ShowString(PChar(mStr),PChar(ERROR_DISPLAY));
    gCloseCom(PChar(ERROR_CLOSE));
end;

function TUserScreen.DisplayTotal(ANum: double): integer;
var
    mStr: string;
    mPort : smallint;
begin
    mPort := FPort ;
    mStr := Format('TOTAL  %6.2f',[ANum]);
    gOpenCom(mPort,PChar(ERROR_OPEN));
    gSend_ShowString(PChar(mStr),PChar(ERROR_DISPLAY));
    gCloseCom(PChar(ERROR_CLOSE));
end;


end.