PartNum:=(TruncNum mod (D*1000)) div D;
D:=D div 1000;
end;
END;
//тиындардың аударымы
PartNum:=Round(Frac(Number)*100);
if PartNum=0 then
begin
SumNumToFull:=NumStr+'00 ТИЫН';
Exit;
End;
NumTMP:=PartNum div 10; {ондық сандарды белгілеу }
if NumTMP=0 then NumStr:=NumStr+'0'+IntToStr(PartNum)+' '
else NumStr:=NumStr+IntToStr(PartNum)+' ';
NumTMP:=PartNum mod 10; {бірлік сандарды белгілеу}
Case NumTMP of
1: if PartNum<>11 then NumStr:=NumStr+'ТИЫН'
else NumStr:=NumStr+'ТИЫН';
2,3,4: if (PartNum<5) or (PartNum>14)
then NumStr:=NumStr+'ТИЫН'
else NumStr:=NumStr+'ТИЫН';
else NumStr:=NumStr+'ТИЫН';
end;
SumNumToFull:=NumStr;
end; //---SumNumToFull
end.
QRBand4 өрісіне TQRLabel (аты QRLabel8) компонентасын қосайық, Caption қасиетіне "Итого:" деп өзгертеміз. Тағы да TQRExpr (аты QRExpr1) компонентін қосайық және ол SUM(Table1.Stoim) формуласы болуы керек оның Expression қасиетінің мәнін анықтаймыз 44-суретте алдын-ала қарау терезесінде есебінің нәтижесі көрсетілген.
44-сурет – Тауардың нәтижелік мәндерінің есеп беруі
№2 жөндетуі
Есепті дайындау үшін, Excel-дің көптеген мүмкіндіктері (графикалық бейнелеулер және т.с.с.) бар.
Сонымен қатар, бизнес-үрдіске Excel ортасында жасау ыңғайлы болып келеді. Сондықтан, осы ресурсты қолдану үшін, OLE процедурасы көмегімен мәліметтерді Excel-ге жіберу керек.
Достарыңызбен бөлісу: |
