«yyyy р.», ADate);
end;
/ / Відкриття порожнього бланка дефектної відомості:
procedure Rep_Defect;: Variant;:=CreateOleObject («Word.Application»);. Cursor:=crHourGlass;. Documents.Open (GetCurrentDir + « Templates Дефектна ведомость.dot») ;. Visible:=True;. Quit;;. Cursor:=crDefault;;;. uStatistics;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, StdCtrls, Buttons, DBCtrls, ExtCtrls, TeEngine, , TeeProcs, Chart, DbChart, TeePrevi;=class (TForm): TPageControl;: TTabSheet;: TTabSheet;: TDBChart;: TTabSheet;: TDBChart;: TBarSeries;: TBarSeries;: TTabSheet;: TDBChart;: TPieSeries;: TPanel; : TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TLabel;: TDateTimePicker;: TLabel;: TDateTimePicker;: TBitBtn;: TBitBtn;: TDBChart;: TPieSeries; dtpDate1Change (Sender: TObject); FormCreate (Sender: TObject); BitBtn2Click (Sender: TObject); bbtExitClick (Sender: TObject); SpeedButton1Click (Sender: TObject); SpeedButton4Click (Sender: TObject); SpeedButton3Click (Sender: TObject); SpeedButton2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TfmStatistics; uDM, uRep;
{$ R *. dfm} TfmStatistics.dtpDate1Change (Sender: TObject);
begin
/ / Залежно від активної закладки запускається обробник відповідної кнопки:
case PageControl1.ActivePageIndex of
: SpeedButton1Click (Self);
: SpeedButton2Click (Self);
: SpeedButton3Click (Self);
: SpeedButton4Click (Self);;; TfmStatistics.FormCreate (Sender: TObject);. Date:=Date;. Date:=Date;
SpeedButton1.Caption:=«Потреба в МТР» + Chr (13) + «за період»;. Caption:=«Статистика витрати МТР за період»;. Caption:=«Суми робіт з» + Chr (13) + «клієнтам за період»;
SpeedButton1.Down:=True; Click (Self);; TfmStatistics.BitBtn2Click (Sender: TObject);
begin
/ / Залежно від активної закладки виводиться в режим перегляду перед друком
/ / вибрана діаграма: PageControl1.ActivePageIndex=0 then (Self, DBChart1) if PageControl1.ActivePageIndex=1 then (Self, DBChart2) if PageControl1.ActivePageIndex=2 then (Self, DBChart3) if PageControl1 . ActivePageIndex=3 then (Self, DBChart4);; TfmStatistics.bbtExitClick (Sender: TObject);
begin;;
/ / Формування діаграми «Потреба МТР за період»:
procedure TfmStatistics.SpeedButton1Click (Sender: TObject);. ActivePageIndex:=0;. dstStatPartsCateg.Close;. dstStatPartsCateg.Parameters.ParamByName («pDate1»). Value:=dtpDate1.Date;. dstStatPartsCateg.Parameters.ParamByName («pDate2»). Value:=dtpDate2.Date;. dstStatPartsCateg.Parameters.ParamByName («pDate11»). Value:=dtpDate1.Date;. dstStatPartsCateg.Parameters.ParamByName («pDate22» ). Value:=dtpDate2.Date;. dstStatPartsCateg.Open;. Title.Text.Strings [0]:=«Потреба в МТР c» + (DtpDate1.Date) + « по » + DateToStr (dtpDate2.Date);
end;
/ / Формування діаграми «Статистика витрати МТР за період»:
procedure TfmStatistics.SpeedButton2Click (Sender: TObject);. ActivePageIndex...