ÿÿÿÿÿ 4š (HHÿÿPage1Form€Üx|,Í ±¨±í±êÌâ1Hö:0ÿÿÿÿÿÈ2Ò³½Å1|ö0ÿÿÿÿÿÈ—ҳͷ1œö&0ÿÿÿÿÿÈŠ Ö÷ÏîÊý¾Ý2ö0ÿÿÿ frDBDataSet1begin  FoundDateId := -1;  for i:=0 to IDCount-1 do  begin ! if DateIDs[i]=["DateId"] then begin 0 DateSums[i] := DateSums[i]+[TimeInterval];  FoundDateId := i; break;  end;  end;  if FoundDateId=-1 then  begin # DateIds[IDCount] := ["DateId"]; ( DateSums[IDCount] := [TimeInterval];  inc(IDCount);  end; endÈ:·Ö×éÍ·1Üö0ÿÿÿ[qryLeave1."UserId"]begin  IDCount:=0;  DataIdSummary:=''; endÈ¡·Ö×é½Å1<ö0ÿÿÿÈ2Memo19@LðCÿÿÿ.Ô±¹¤¹«³ö/Çë¼Ùͳ¼Æ±íÿÿºÚÌåÿÿÿLine1@l,ÿÿÿ.ÿÿÐLine2@h,ÿÿÿ.ÿÿ[Memo200T€Cÿÿÿ. [ReportRange]ÿÿËÎÌå ÿÿÿªLine4A€ƒÿÿÿ.ÿÿ.Memo21L„ôSÿÿÿ.ÖÆ±í£ºÿÿËÎÌå ÿÿÿ»Memo22t„„Cÿÿÿ.[Administrator]ÿÿËÎÌå ÿÿÿNMemo23„¨Cÿÿÿ.['µÚ '][PAGE#][' Ò³']ÿÿËÎÌå ÿÿÿÒMemo24„tCÿÿÿ.[DATE]ÿÿËÎÌå ÿÿÿ¸ Memo25ÌTìCÿÿÿ.h[FORMATDATETIME('yyyy-mm-dd', [ReportStartDate])][' ÖÁ '][FORMATDATETIME('yyyy-mm-dd', [ReportEndDate])]ÿÿËÎÌå ÿÿÿ= Memo3<°\ÿÿÿ.¿ªÊ¼Ê±¼äÿÿËÎÌå †ÿÿÿâ Memo4<\ÿÿÿ,yy-mm-dd hh:nn[qryLeave1."STARTSPECDAY"]ÿÿËÎÌå ÿÿÿg Memo6˜°\ÿÿÿ.½áÊøÊ±¼äÿÿËÎÌå †ÿÿÿ Memo13˜\ÿÿÿ,yy-mm-dd hh:nn[qryLeave1."ENDSPECDAY"]ÿÿËÎÌå ÿÿÿ Memo16,°@ÿÿÿ.ÀàÐÍÿÿËÎÌå †ÿÿÿ Memo17,@ÿÿÿ.[qryLeave1."DATEID"]ÿÿËÎÌå ÿÿÿ¡ Memo18l°Tÿÿÿ.Ô­ÒòÿÿËÎÌå †ÿÿÿ5Memo26lTÿÿÿ.[qryLeave1."YUANYING"]ÿÿËÎÌå ÿÿÿ„Line5=ƒÿÿÿ.ÿÿMemo1<äxÿÿÿ.[qryLeave1."Name"]ÿÿËÎÌå ÿÿÿ©Memo2¼äxÿÿÿ.[qryLeave1."BadgeNumber"]ÿÿËÎÌå ÿÿÿ8Memo5<<hÿÿÿ.[qryLeave1."Name"]ÿÿËÎÌå ÿÿÿÎMemo7¤<lÿÿÿ.[qryLeave1."BadgeNumber"]ÿÿËÎÌå ÿÿÿgMemo8& ÿÿÿ,hh:nn[TimeInterval/(24*60)]ÿÿArial ÿÿÿMemo9ðC ÿÿÿ,hh:nnnt(TimeInterval/(24*60))]ÿÿArial ÿÿÿ‡Memo10ô°8ÿÿÿ.ʱ³¤ÿÿËÎÌå †ÿÿÿëMemo11<°ÿÿÿ.[DataIdSummary]begin A DataIdSummary := DateIds[0]+':'+STR(int(DateSums[0]/6)/10)+' ';  for i := 0 to IDCount-1 do  begin Q DataIdSummary := DataIdSummary+' '+DateIds[i]+':'+STR(int(DateSums[i]/6)/10);  end; endËÎÌå ÿÿÿþþÿ Var1IDCountDateIDs TimeIntervalBround(([qryLeave1."ENDSPECDAY"]-[qryLeave1."STARTSPECDAY"])*24*60)DateSums DataIdSummary qryLeave1 qryLeaveClassqryLeaveClass2qryLeave