sResult: TFastLineSeries;
sData: TFastLineSeries;
sSmoothing: TFastLineSeries;
sTrend: TFastLineSeries;
Splitter1: TSplitter;
procedure aAnalysisExecute(Sender: TObject);
procedure DBGrid2TitleClick(Column: TColumn);
procedure cbHideSmoothingClick(Sender: TObject);
procedure cbHideTrendClick(Sender: TObject);
procedure cbHideResultClick(Sender: TObject);
procedure cbHideDataClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure cbHideValuesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fRointers: TfRointers;
implementation
{$R *.dfm}
uses udmData, ufAnalyserParams;
procedure TfRointers.aAnalysisExecute(Sender: TObject);
procedure GetValues;
var
I : Integer;
begin
//
mValues.Clear;
mValues.Lines.Add ('Прогноз');
mValues.Lines.Add ('');
for I := 1 to dmData.cdsAnalysis.RecordCount do
begin
//
dmData.cdsAnalysis.RecNo := I;
if (dmData.cdsAnalysisResult.IsNull = false) then
begin
mValues.Lines.Add ('Дата ' + dmData.cdsAnalysisDate.AsString);
mValues.Lines.Add ('Прогноз ' + dmData.cdsAnalysisResult.AsString);
mValues.Lines.Add ('');
end;
end;
end;
begin
//
dmData.TestActiveConnection;
if (fAnalyserParams.ShowModal = mrOk) then
begin
//
RemoteMethods.Analysis(fAnalyserParams.DefectID,
fAnalyserParams.Date1,
fAnalyserParams.Date2,
fAnalyserParams.DaysCount,
fAnalyserParams.K,
fAnalyserParams.B
);
dmData.cdsAnalysis.Close;
dmData.cdsAnalysis.IndexDefs.Clear;
with dmData.cdsAnalysis.IndexDefs.AddIndexDef do
begin
Fields := 'Date';
Name := 'IX';
end;
dmData.cdsAnalysis.IndexName := 'IX';
dmData.cdsAnalysis.Open;
DBChart3.RefreshData;
GetValues;
end;
end;
procedure TfRointers.cbHideDataClick(Sender: TObject);
begin
sData.Visible := cbHideData.Checked;
end;
procedure TfRointers.cbHideResultClick(Sender: TObject);
begin
sResult.Visible := cbHideResult.Checked;
end;
procedure TfRointers.cbHideSmoothingClick(Sender: TObject);
begin
//
sSmoothing.Visible := cbHideSmoothing.Checked;
end;
procedure TfRointers.cbHideTrendClick(Sender: TObject);
