SQLStr := 'SELECT * FROM TrendValues WHERE ParameterID =' + ParamID + ' AND Index1=' + Detector + ' AND Index2=' + Range + ' ORDER BY TrendedDateTime, Index2';
Query := TADOQuery.Create(nil);
try
Query.Connection := MainForm.ADOConnectionTrendDB;
Query.SQL.Add(SQLStr);
Query.Open;
I := 0;
while not Query.eof do
begin
MainForm.DebugLogMemo.Lines.Add(DateTimeToStr(Query.FieldByName('TrendedDateTime').AsDateTime) + ' ' + Query.FieldByname('TrendValue').AsString);
S := DateToStr(Query.FieldByName('TrendedDateTime').AsDateTime);
if Detector = Detector1 then
begin
MainForm.Series3.XLabel[I] := S;
MainForm.Series5.XLabel[I] := S;
end;
if Detector = Detector2 then
begin
MainForm.Series4.XLabel[I] := S;
MainForm.Series6.XLabel[I] := S;
end;
if ParamID = ZMAP then
begin
if Range = '1' then // NR
begin
if Detector = Detector1 then
begin
MainForm.Series3.AddY(Query.FieldByname('TrendValue').AsFloat);
Det1NR := Query.FieldByname('TrendValue').AsFloat;
if Det1NR < Det1NR_Max then Det1NR_Max := Det1NR;
pDiversen.Det1NR_Max := Det1NR_Max;
pDiversen.ZMapDet1NR[I] := Det1NR;
N1 := I;
// showmessage('N1 :' + inttostr(N1) + ' ' + 'N2: ' +inttostr(N2));
end;
if Detector = Detector2 then
begin
MainForm.Series4.AddY(Query.FieldByname('TrendValue').AsFloat);
Det2NR := Query.FieldByname('TrendValue').AsFloat;
if Det2NR < Det2NR_Max then Det2NR_Max := Det2NR;
pDiversen.Det2NR_Max := Det2NR_Max;
pDiversen.ZMapDet2NR[I] := Det2NR;
N2 := I;
//showmessage('N1 :' + inttostr(N1) + ' ' + 'N2: ' +inttostr(N2));
end;
end;
if Range = '0' then // ER
begin
if Detector = Detector1 then
begin
MainForm.Series5.AddY(Query.FieldByname('TrendValue').AsFloat);
Det1ER := Query.FieldByname('TrendValue').AsFloat;
if Det1ER < Det1ER_Max then Det1ER_Max := Det1ER;
pDiversen.Det1ER_Max := Det1ER_Max;
pDiversen.ZMapDet1ER[I] := Det1ER;
end;
if Detector = Detector2 then
begin
MainForm.Series6.AddY(Query.FieldByname('TrendValue').AsFloat);
Det2ER := Query.FieldByname('TrendValue').AsFloat;
if Det2ER < Det2ER_Max then Det2ER_Max := Det2ER;
pDiversen.Det2ER_Max := Det2ER_Max;
pDiversen.ZMapDet2ER[I] := Det2ER;
end;
end;
end;
INC(I);
Query.Next;
end; // While
except
on E : Exception do
begin
if Range = '1' then Range := 'Normal range';
if Range = '0' then Range := 'Extended range';
Uitzondering := 'Detector' + Detector + ' ' + Range + ' Z-Map ' + E.Message;
MainForm.mDebugLog.Lines.add(Uitzondering);
end;
end; // Except
Query.close;
Bookmarks