Search options (Page 3 of 6)

итак, корректно работающий код оказался таким:

var
  id_Sensors: TDataSet;
  i, maxIndex: integer;
  MeasurementData: array of TDataSet;
  frxDBDataset_MeasurementData: array of TfrxDBDataSet;
  ...
  SQLQuery('SELECT id FROM Sensors WHERE id_GroupPileList=' + id_GroupPileList, id_Sensors);  // в id_Sensors получили все id датчиков группы
  ...
  i := 0;
  SetLength(MeasurementData, 1);
  while not id_Sensors.Eof do
    begin
     SQLQuery('SELECT Sensors.SerialNumber, Sensors.SubGroupID, strftime("%d.%m.%Y",SensorsData.measurementDate) as "measurementDate", round(SensorsData.measurement_F,3) as "measurement_F", round(SensorsData.measurement_t,3) as "SensorsData.measurement_t", round(SensorsData.currentPressure, 3) as "currentPressure", SensorStatusList.SensorStatus FROM SensorsData LEFT JOIN Sensors ON Sensors.id = SensorsData.id_Sensors LEFT JOIN SensorStatusList ON SensorStatusList.id = SensorsData.id_SensorStatusList WHERE SensorsData.id_Sensors=' + id_Sensors.FieldByName('id').asString + ' ORDER BY SensorsData.measurementDate', MeasurementData[i]);
     id_Sensors.Next;
     SetLength(MeasurementData, Length(MeasurementData) + 1);
     i := i + 1;
   end;
  SetLength(MeasurementData, Length(MeasurementData) - 1);
  ...
  SetLength(frxDBDataset_MeasurementData, Length(MeasurementData));
  maxIndex := Length(frxDBDataset_MeasurementData) - 1;
  for i := 0 to maxIndex do
    begin
      frxDBDataset_MeasurementData[i] := TfrxDBDataset.Create(MeasurementData[i]);
      frxDBDataset_MeasurementData[i].UserName := 'MeasurementData_'+IntToStr(i);
      frxDBDataset_MeasurementData[i].CloseDataSource := True;
      frxDBDataset_MeasurementData[i].OpenDataSource := True;
      frxDBDataset_MeasurementData[i].DataSet := MeasurementData[i];
    end;
  ...
  for i := 0 to maxIndex do
    frmMain.frxReport.DataSets.Add(frxDBDataset_MeasurementData[i]);
  ...
  for i := 0 to maxIndex do
    frxDBDataset_MeasurementData[i].DataSet.Close;
  ...
  for i := 0 to maxIndex do
    frxDBDataset_MeasurementData[i].Free;

  SetLength(frxDBDataset_MeasurementData, 0);
  SetLength(MeasurementData, 0);

кстати, Дмитрий, чем отличается Form.Hide от Form.Close?

Хреновый костыль, в общем... Так как все равно требуется указать компонент, участвующий в поиске. Обычно я указываю сам грид на форме... Но если два-три раза подряд нажать, то в итоге в гриде одна запись и остается... Причем обычно самая первая по id в таблице БД.

Вот если бы можно было НЕ указывать компоненты, участвующие в поиске - тогда было бы здорово... Может, Дмитрий повесит туда по умолчанию какую-нить опцию, которая не будет встраивать конструкцию WHERE <условие>?..

Дмитрий, тут большинство не сильны в программировании баз данных, поэтому свои примеры желательно разжевывать тщательнее) это я еще могу понять, что к чему, а вот большинство - не очень...
Евгений, для тупого копирования содержимого одной таблицы в другую вам надо выполнить запрос такого вида:

INSERT INTO table2  (fieldname1, fieldname2, ...) SELECT fieldname1, fieldname2, ... FROM  table1

где table1 - название таблицы, откуда копируется, table2 - название таблицы, куда копируется, а fieldname1, fieldname2, ... - это название полей данных (таким образом вы можете выбрать какие поля хотите переносить в новую таблицу из старой).
Вы можете перенести ВСЕ поля со всеми данными следующим запросом:

INSERT INTO table2 SELECT * FROM table1

Если надо перенести данные с каким-то условием, то после FROM table1 используйте конструкцию WHERE <условие>, где <условие> - ваше условие выборки данных.

Всё, отбой воздушной тревоги по посту номер 6 в этой теме. Покурил маны, потыкал в SQLiteStudio свою БД разными запросами, в итоге нужный результат получился следующим запросом:

SELECT strftime('%d.%m.%Y',Date) as "mDate", AVG(P) as "avgP" FROM SensorsData WHERE (id_Sensors=.. OR id_Sensors=.. OR id_Sensors=..) GROUP BY Date ORDER BY Date

важным оказалось иметь именно mDate вместо Date, иначе ORDER BY Date не срабатывал
P.S. Однако я все равно хотел бы видеть в следующих версиях MVD возможность создания DataSet'ов вручную из скрипта...

Что самое интересное - и при реализации собственной функции Pos

function MyPos(ps,st:string):byte;
var n,m,i,j,p: byte;
    s: string;
begin
  p := 0;
  n := ord(st[0]);
  m := ord(ps[0]);
  for i := 1 to n-m+1 do
    if st[i] = ps[1] then
      begin
        s := '';
        for j := i to i+m-1 do
          s := s + st[j];
        if s=ps then
          begin
            p := i;
            break;
          end;
      end;
  Result := p;
end;

тот же самый результат... я уже ни черта не понимаю...

Если бы можно было передавать в отчет массив и синхронизировать вывод элементов массива с элементами DataSet'а, то вопросов бы у меня не возникало...

есть таблица в БД, назовем SensorsData, в которой содержатся записи вида

Date | id_Sensors | t | F | P 

то есть ежемесячные показания датчиков, включающих температуру, частоту и давление, например,

2018-06-27 | 17 | 22 | 2850 | 0,300
2018-06-27 | 18 | 21 | 2840 | 0.290
2018-06-27 | 19 | 22 | 2845 | 0.294
...
2018-01-02 | 17 | -3 | 2832 | 0.150
2018-01-02 | 18 | -3 | 2839 } 0.154
2018-01-02 | 19 | -3 | 2825 | 0.137

id_Sensors - это ключ на другую таблицу, где находятся данные по собственно датчикам, каждый из которых имеет свою присущую ему информацию. датчики объединены в группы по три, то есть id_Sensors = 17, 18 и 19 относятся к одной группе датчиков.
я пытаюсь получить данные по изменению показаний датчика по времени (по датам записи показаний) по каждому датчику и вычислить среднее значение по группе, чтобы отобразить это на графике в отчете.
сейчас я вывожу серию данных по каждому датчику в отдельный DataSet SQL-запросом, однако не могу создать DataSet, в котором бы присутствовали Date и среднее значение по группе датчиков за дату замера. то есть создаваемый мной DataSet должен иметь всего два поля - Date и avgP.
я думал над SQL-запросом, который бы создавал вычисляемое поле, но я так и не допёр, как вычислить среднее арифметическое от P трех id_Sensors за одну и ту же дату, при этом дат может быть сколь угодно...

Вообще, насколько я понимаю, пп. 1 и 2 первого поста можно решить конструкцией SELECT .. JOIN LEFT ... в SQLQuery() при заполнении SensorsSettingData: TDataSet... однако я пока еще не разобрался как из нескольких таблиц, связанных ключами, выбрать информацию сложным SQL-запросом/

UPD. Ну так и решил, да, конструкцией SELECT ... JOIN LEFT ...  WHERE, однако это не снимает вопросы, заданные в первом посте данной темы)

ну так вам же и нужна строковая переменная, не? иначе FastReport не будет принимать значение передаваемой переменной как строку, а будет еще пытаться исчислять его

Employees.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+ReportFile);
Employees.frxReport.PrepareReport();
Filter.FileName := ChangeFileExt(GetTempFileName, sExt);
Employees.frxReport.Export(Filter);

получается, что вместо показа уже сформированного отчета при помощи Employees.frxReport.ShowReport или вместо открытия его в дизайнере при помощи Employees.frxReport.DesignReport можно экспортировать отчет в указанные выше форматы при помощи последних трех строк в приведенном куске кода
однако я бы поставил Filter.ShowDialog := True в принципе для всех вариантов экспорта, потому как стандартное имя шаблона отчета не должно фигурировать в названии файла с готовым отчетом. ну или проще для пакетной выдачи отчета формировать название файла теми же скриптами