137
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;