вот так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.Label1.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(Ind_date)) FROM indication WHERE id_object=1 ORDER BY id DESC LIMIT 1');
  Form1.Label7.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(Ind_date)) FROM indication WHERE id_object=2 ORDER BY id DESC LIMIT 1');
  Form1.Label9.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(Ind_date)) FROM indication WHERE id_object=3 ORDER BY id DESC LIMIT 1');

  Form1.Label2.Caption :=  SQLExecute('SELECT Ind_name FROM indication WHERE id_object=1 ORDER BY id DESC LIMIT 1');
  Form1.Label8.Caption :=  SQLExecute('SELECT Ind_name FROM indication WHERE id_object=2 ORDER BY id DESC LIMIT 1');
  Form1.Label10.Caption :=  SQLExecute('SELECT Ind_name FROM indication WHERE id_object=3 ORDER BY id DESC LIMIT 1 ');

  Form1.Edit1.Text :=  SQLExecute('SELECT Ind_num2 FROM indication WHERE id_object=1 ORDER BY id DESC LIMIT 1');
  Form1.Edit2.Text :=  SQLExecute('SELECT Ind_num2 FROM indication WHERE id_object=2 ORDER BY id DESC LIMIT 1');
  Form1.Edit3.Text :=  SQLExecute('SELECT Ind_num2 FROM indication WHERE id_object=3 ORDER BY id DESC LIMIT 1');
end;

Я изменил на Ваш новый код.
Это точно работает, даже с существующей базой данных.

Спасибо огромное

SELECT MAX(Ind_name) FROM indication WHERE id_object=1

извлечь максимальную запись из поля ... из таблицы... где поле объект содержит значение 1
вроде все правильно

Если ввести данные по Объекту 1:

01.01.2000 Женя
02.01.2000 Алиса
03.01.2000 Вика
04.01.2000 Юля

И потом изменить последнюю запись Юля на Аню, то высветится максимальное по алфавиту значение Женя.

Подскажите.
Может тут что-то не правильно?

Новичок wrote:

[

Не получится менять имена? Я не понимаю.
Просто если изменить имя на цифры и латиницу все норм а кириллицей не все получается.

Или я что-то не догоняю...

здесь только Сергей не совпадает, видимо глюк в БД, попробуйте создать новую

Кажется заработала, пересоздал базу.

Владимир

Спасибо огромное, Вы очень мне помогли!

[

Не получится менять имена? Я не понимаю.
Просто если изменить имя на цифры и латиницу все норм а кириллицей не все получается.

Или я что-то не догоняю...

здесь только Сергей не совпадает, видимо глюк в БД, попробуйте создать новую

Новичок wrote:

Видео по ссылке: cloud.mail.ru/public/yPEC/ahs9va9KG

Вы таблицу по дате отфильтровали.. Скрипты пофиг фильтр, он всегда берет записи внесенные последними, а это в БД фиксируется по id записи.

Не получится менять имена? Я не понимаю.
Просто если изменить имя на цифры и латиницу все норм а кириллицей не все получается.

Или я что-то не догоняю...

Видео по ссылке: cloud.mail.ru/public/yPEC/ahs9va9KG

Вы таблицу по дате отфильтровали.. Скрипты пофиг фильтр, он всегда берет записи внесенные последними, а это в БД фиксируется по id записи.

У меня не получается изменить порядок даты в отображении
Как сделать дату в формате: 01.12.2023

Form1.Label1.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date,"%d.%m.%Y")) FROM indication WHERE id_object=1');

procedure Form2_ComboBox1_OnChange (Sender: TObject);
begin
  if (Form2.dbAction = 'NewRecord') then
    if (Form2.ComboBox1.ItemIndex > -1) then
       Form2.Edit2.Text := SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object='+IntToStr(Form2.ComboBox1.ItemIndex));
end;

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.Label1.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(MAX(Ind_date))) FROM indication WHERE id_object=1');
  Form1.Label7.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(MAX(Ind_date))) FROM indication WHERE id_object=2');
  Form1.Label9.Caption :=  SQLExecute('SELECT  STRFTIME("%d.%m.%Y",Date(MAX(Ind_date))) FROM indication WHERE id_object=3');

  Form1.Label2.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=1');
  Form1.Label8.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=2');
  Form1.Label10.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=3');

  Form1.Edit1.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=1');
  Form1.Edit2.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=2');
  Form1.Edit3.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=3');
end;

Новичок wrote:

Добрый вечер!

- При добавлении новой записи в проект и выбора объекта необходимо что бы поле предыдущих показаний подтягивалось с базы.
- Отображение на главной форме последних показаний по трем объектам (Дата, Имя и текущее показание).

Вроде так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.Label1.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=1');
  Form1.Label7.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=2');
  Form1.Label9.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=3');

  Form1.Label2.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=1');
  Form1.Label8.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=2');
  Form1.Label10.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=3');

  Form1.Edit1.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=1');
  Form1.Edit2.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=2');
  Form1.Edit3.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=3');
end;

Ага работает, спасибо за быстрый ответ!
При добавлении новой записи в базу данных можно сделать автозаполнение в Form2 - ПРЕДЫДУЩЕЕ ПОКАЗАНИЕ
При изменении записей не верно отображается поле ИМЯ

Видео по ссылке: cloud.mail.ru/public/yPEC/ahs9va9KG

Добрый вечер!

- При добавлении новой записи в проект и выбора объекта необходимо что бы поле предыдущих показаний подтягивалось с базы.
- Отображение на главной форме последних показаний по трем объектам (Дата, Имя и текущее показание).

Вроде так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
  Form1.Label1.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=1');
  Form1.Label7.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=2');
  Form1.Label9.Caption :=  SQLExecute('SELECT Date(MAX(Ind_date)) FROM indication WHERE id_object=3');

  Form1.Label2.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=1');
  Form1.Label8.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=2');
  Form1.Label10.Caption :=  SQLExecute('SELECT MAX(Ind_name) FROM indication WHERE id_object=3');

  Form1.Edit1.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=1');
  Form1.Edit2.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=2');
  Form1.Edit3.Text :=  SQLExecute('SELECT MAX(Ind_num2) FROM indication WHERE id_object=3');
end;

- При добавлении новой записи в проект и выбора объекта необходимо что бы поле предыдущих показаний подтягивалось с базы.
- Отображение на главной форме последних показаний по трем объектам (Дата, Имя и текущее показание).