:=1;. dstStatPartsSum.Close;. dstStatPartsSum.Parameters.ParamByName («pDate1»). Value:=dtpDate1.Date;. dstStatPartsSum.Parameters.ParamByName («pDate2»). Value:=dtpDate2.Date;. dstStatPartsSum.Open;. Title.Text.Strings [0]:=«Статистика витрати МТР c» + (DtpDate1.Date) + « по » + DateToStr (dtpDate2.Date);
end;
/ / Формірованія діаграми «Суми робіт за період»:
procedure TfmStatistics.SpeedButton3Click (Sender: TObject);. ActivePageIndex:=2;. dstStatOrderSum.Close;. dstStatOrderSum.Parameters.ParamByName («pDate1»). Value:=dtpDate1.Date;. dstStatOrderSum.Parameters.ParamByName («pDate2»). Value:=dtpDate2.Date;. dstStatOrderSum.Parameters.ParamByName («pDate11»). Value:=dtpDate1.Date;. dstStatOrderSum.Parameters.ParamByName («pDate22» ). Value:=dtpDate2.Date;. dstStatOrderSum.Open;. Title.Text.Strings [0]:=«Суми робіт c» + (DtpDate1.Date) + « по » + DateToStr (dtpDate2.Date);
end;
/ / Формування діаграми «Суми робіт з клієнтам за період»:
procedure TfmStatistics.SpeedButton4Click (Sender: TObject);. ActivePageIndex:=3;. dstStatClientSum.Close;. dstStatClientSum.Parameters.ParamByName («pDate1»). Value:=dtpDate1.Date;. dstStatClientSum.Parameters.ParamByName («pDate2»). Value:=dtpDate2.Date;. dstStatClientSum.Parameters.ParamByName («pDate11»). Value:=dtpDate1.Date;. dstStatClientSum.Parameters.ParamByName («pDate22» ). Value:=dtpDate2.Date;. dstStatClientSum.Open;. Title.Text.Strings [0]:=«Суми робіт з клієнтам c» + (DtpDate1.Date) + « по » + DateToStr (dtpDate2.Date);
end;. uStr;
/ / Модуль для перекладу числового представлення суми в строкове, StrUtils; SumToTxt (Value: String): string;// Функція для перекладу (аргумент - рядок, що містить суму)
implementationa: array [0 .. 8,0 .. 9] of string=(
(«», «один», «два», «три», «чотири», «п'ять», «шість», «сім», «вісім», «дев'ять»),
(«», «», «двадцять», «тридцять», «сорок», «п'ятдесят», «шістдесят», « ; сімдесят »,« вісімдесят »,« дев'яносто »),
(«», «сто», «двісті», «триста», «чотириста», «п'ятсот», «шістсот», «сімсот», «вісімсот», «дев'ятсот»),
(«тисяч», «тисяча», «дві тисячі», «три тисячі», «чотири тисячі», «п'ять тисяч», « ; шість тисяч »,« сім тисяч »,
«вісім тисяч», «дев'ять тисяч»),
(«», «», «двадцять», «тридцять», «сорок», «п'ятдесят», «шістдесят», « ; сімдесят »,« вісімдесят »,« дев'яносто »),
(«», «сто», «двісті», «триста», «чотириста», «п'ятсот», «шістсот», «сімсот», «вісімсот», «дев'ятсот»),
(«мільйонів», «один мільйон», «два мільйони», «три мільйони», «чотири мільйони», «п'ять мільйонів»,
«шість мільйонів», «сім мільйонів», «вісім мільйонів», «дев'ять мільйонів»),
(«», «», «двадцять», «тридцять», «сорок», «п'ятдесят», «шістдесят», « ; сімдесят »,« вісімдесят »,« дев'яносто »),
(«», «сто», «двісті», «триста», «чотириста», «п'ятсот», «шістсот», «сімсот», «вісімсот», «дев'ятсот»));: array [0 .. 9] of string=
(«десять», «одинадцять», «дванадцять», «тринадцять», «чотирнадцять», «пятьнадцать», «шестьнадцать» ,