Програмне забезпеченння для адміністрування комп'ютерного клубу, страница 18

end;

function AsSubtract(logrec:writelogrecord):strlog;

var stmus:string;

begin

if logrec.todate<>0 then stmus:='новое время до '+getdecodeddatetime(logrec.todate)

else stmus:='время кончилось';

result:='Отнято время '+inttostr(logrec.forhours)+':'+zerostring(logrec.formins)+', '+stmus

end;

function AsSubtractAll(logrec:writelogrecord):strlog;

begin

result:='Отнято все время'

end;

function AsMovedTo(logrec:writelogrecord):strlog;

var stmus:string;

begin

if logrec.forevertime then stmus:='время бесконечно'

else stmus:='время до '+gettimeordate(logrec.todate);

result:='Пользователь с '+logrec.add1+' пересажен на '+logrec.add2+', '+stmus

end;

function AsPayNight(logrec:writelogrecord):strlog;

begin

result:='Оплачена ночь с '+logrec.add1+' на '+logrec.add2

end;

function AsAddPayNight(logrec:writelogrecord):strlog;

begin

result:='Доплачена ночь с '+logrec.add1+' на '+logrec.add2+', всего оплата - '+logrec.add3

end;

function AsDelNight(logrec:writelogrecord):strlog;

begin

result:='Удалена ночь с '+logrec.add1+' на '+logrec.add2+', было оплачено - '+logrec.add3

end;

function AsGetFromCash(logrec:writelogrecord):strlog;

begin

result:='ВЗЯТЫ ДЕНЬГИ ИЗ КАССЫ'

end;

function AsPutToCash(logrec:writelogrecord):strlog;

begin

result:='Добавлены деньги в кассу'

end;

function AsLeftInCash(logrec:writelogrecord):strlog;

begin

result:='В КАССЕ: '+logrec.add1

end;

function AsInfo(logrec:writelogrecord):strlog;

begin

result:='Примечание'+logrec.add1+': '+logrec.comments

end;

function AsChangedCardname(logrec:writelogrecord):strlog;

begin

result:='Изменено название карточки с '+logrec.add1+' на '+logrec.add2

end;

function AsAddTimeToCard(logrec:writelogrecord):strlog;

begin

result:='На карточку '+logrec.add1+' добавлено время '+logrec.add2+', общее время - '+logrec.add3

end;

function AsDeleteCard(logrec:writelogrecord):strlog;

begin

result:='Удалена карточка'

end;

function AsDelTimeFromCard(logrec:writelogrecord):strlog;

begin

result:='С карточки снято время '+logrec.add1

end;

//Depending on type of logrecord

//composes strings that will be written

//to a file

function ProcessLogRecord(logrec:writelogrecord):packedlogrec;

begin

with logrec do begin

//

result.time:=inttostr(hours)+':'+zerostring(mins);

result.logtype:=logtype;

result.comp:=comp;

result.card:=card;

if cash<0 then cash:=-cash;

result.cash:=inttostr(cash div 100)+'.'+zerostring(cash mod 100);

result.comments:=comments;

if logtype=LOG_NEW then result.info:=AsNew(logrec);

if logtype=LOG_ADD then result.info:=AsAdd(logrec);

if logtype=LOG_FOREVERTIME then result.info:=AsForeverTime(logrec);

if logtype=LOG_SUBTRACT then result.info:=AsSubtract(logrec);

if logtype=LOG_SUBTRACTALL then result.info:=AsSubtractAll(logrec);

if logtype=LOG_MOVEDTO then result.info:=AsMovedTo(logrec);

if logtype=LOG_GETFROMCASH then result.info:=AsGetFromCash(logrec);

if logtype=LOG_PUTTOCASH then result.info:=AsPutToCash(logrec);

if logtype=LOG_LEFTINCASH then result.info:=AsLeftInCash(logrec);

if logtype=LOG_INFO then result.info:=AsInfo(logrec);

if logtype=LOG_PAYNIGHT then result.info:=AsPayNight(logrec);

if logtype=LOG_ADDPAYNIGHT then result.info:=AsAddPayNight(logrec);

if logtype=LOG_DELNIGHT then result.info:=AsDelNight(logrec);

Лист

 

докум.

 

Дата

 

Изм.

 
Подпись: Инв.№ дубл.Подпись: Подп. и датаПодпись: Подп. и датаПодпись: Инв.№ подл.

Подп.

 

Лист

 
Подпись: Взам. инв. №

ИАЛЦ.467.449.001.ПЗ

 

if logtype=LOG_CHANGEDCARDNAME then result.info:=AsChangedCardName(logrec);

if logtype=LOG_ADDTIMETOCARD then result.info:=AsAddTimeToCard(logrec);