1
Ваши вопросы / Re: Чтение значения из БД
« : 16 Августа 2024, 14:39:08 »
Большое спасибо за помощь, всё получилось !
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
var
aQuery: string;
begin
aQuery := 'Select "Znachenie" from "Value" where ID=1';
RunSQL(aQuery);
if DataSet.Tag = 1 then Peremennaya.Value:= DataSet[0].AsFloat;
end.
var
Time, DateStart, DateEnd: TDateTime;
I:integer;
aQuery: string;
begin
DateEnd:= Now;
DateStart:= IncHour(Now, -1);
ArchiveTimeOn(HPT_2, HPT_2_narabotka, DateStart, DateEnd);
I:= MinutesBetween(0, HPT_2_narabotka.AsDateTime);
aQuery := 'INSERT INTO "public.equpment_operating" ("id","operating_time","operating_value") VALUES ('+IntToStr(2)+', Now(), '+IntToStr(I)+')';
RunSQL(aQuery);
end.
DateEnd:= Now;
DateStart:= IncHour(Now, -24);
ArchiveTimeOn(Bool_Val, DateTime_Val, DateStart, DateEnd);