Как удалить запись из таблицы, чтобы DBGrid не скакал как конь?

@DobryaKaktus · Регистрация: 30.06.2022

Студворк — интернет-сервис помощи студентам

Когда удаляю запись из таблицы, фокус и выбор строки в таблице устанавливается на первую запись, а мне хотелось бы добиться, чтобы выбор и фокус устанавливались на следующую строку, далее например удаляем записи, дошли конца таблицы, теперь фокус и выбор должны перемещаться на предыдущую строку.
В принципе этого я мог добиться когда данных очень мало (которые помещаются в видимую часть DBGrid) с помощью:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
k:=IBQuery1.FieldByName('KEY0').AsInteger; //это содержимое записи, которую будем удалять
if IBQuery1.RecNo <> IBQuery1.RecordCount then // пока не достигли конца
IBQuery1.Next //выбираем следующую строку
else IBQuery1.Prior; //в противном случае выбираем предыдущую
l:=IBQuery1.FieldByName('KEY0').AsInteger; //заносим значение первичного ключа в переменную, которую будем использовать для Locate после удаления записи 
 
 
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('DELETE FROM test_table WHERE KEY0 =:param1');
    IBQuery1.Prepare;
    IBQuery1.ParamByName('param1').AsInteger := k;
    IBQuery1.ExecSQL;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('SELECT * FROM test_table;');
    IBQuery1.Prepare;
    IBQuery1.Close;
    IBQuery1.Open;
    IBQuery1.Locate('key0',l,[loPartialKey]);

Но это неправильно, а хотелось бы удалять правильно, и чтобы выбор и положение скрола не скакали, т.е. нужна некая синхронизация.
В общем плиз помогите, постарался сформулировать понятно.
Схема связи следующая:

Code
1
IBDatabase1 > IBTransaction1 > IBQuery1 > DataSource1 > DBGrid1 (FireBerd 3.0.10.33601)

п.с. Как вариант подумал не удалять, а помечать на удаление выбранные строки, а потом в качестве сервисной функции, была бы возможность очистить таблицу(ы) от записей помеченных на удаление, но также хотелось бы иметь возможность горячего удаления.

@krapotkin · 19.02.2024, 12:06

да что ж такое
за неделю уже по три раза пишу, что два компонента идут по цене одного, и даже три
зачем пихать все в один, раз за разом вставляя туда один и тот же SQL
оставьте для показа в гриде компонент с SELECT
для удалений/обновлений и других важных штук заведите отдельные.
Тем более если вы пользуетесь IB/FB
там есть IBDataset, куда отлично записываются все нужные SQL

Воспользуйтесь им и удаляйте
dataset1.Delete;
по поводу обновлений данных в гриде нужно
1) отключить связь датасета с контролами
2) запомнить ключевое поле
3) закрыть/открыть
4) по ключу найти запись где стояли до закрытия

Delphi
1
2
3
4
5
6
dataset1.DisableControls;
id := dataset1.FieldByName('id').AsInteger;
dataset1.Close;
dataset1.Open;
dataset1.Locate('id', id, []);
dataset1.EnableControls;

P.S.
для работы с Firebird лучше взять FIBPlus
https://github.com/madorin/fibplus

@DobryaKaktus · 19.02.2024, 18:51 **[ТС]**

Что то у меня не получается нормально обновить DBGrid, после удаления появляется два выделения, первое на следующей записи (так и нужно), а вот второе выделение на первой записи, и получается что если опять нажать кнопку удалить, то удалится первая запись.
При этом, обновление DBGrid я выполняю в IBDataSet, а удаление в IBQuery. IBDataSet не использую для удаления, так как пока не разобрался с параметрами.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
    del:=IBDataSet1.FieldByName('key0').AsInteger;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :param1');
    IBQuery1.Prepare;
    IBQuery1.ParamByName('param1').AsInteger := del;
    IBQuery1.ExecSQL;
 
    IBDataSet1.DisableControls;
    id:=IBDataSet1.FieldByName('key0').AsInteger;
    IBDataSet1.Close;
    IBDataSet1.Open;
    IBDataSet1.Locate('key0',id,[]);
    IBDataSet1.EnableControls;

Как удалить запись из таблицы, чтобы DBGrid не скакал как конь?

П.с. сортировкой ещё не занимался.

@DedFriend · 19.02.2024, 19:01

IBQuery сам по себе - объект "только для чтения".
Лично я использую IBTable , но был многократно за это бит на форуме

@DobryaKaktus · 19.02.2024, 19:22 **[ТС]**

По поводу параметров, если прикрутить к DataSet такой механизм:

Delphi
1
2
3
4
    IBQuery1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :param1');
    IBQuery1.Prepare;
    IBQuery1.ParamByName('param1').AsInteger := del;
    IBQuery1.ExecSQL;

То вылазит ошибка, что мол field'a param1 не существует. Что это ещё за подарочек.
Читал справку на https://www.ibase.ru/ibx/, но не заметил там какие-то особенности с параметрами SQL запроса данной компоненты. Разве что компонента имеет специальные параметры, которые могут быть использованы в запросах. Параметры именуются автоматически, и соответствуют именам столбцов, предваряемые префиксами old_ и new_.

@DedFriend · 19.02.2024, 21:51

Возможно, Prepare рано вызвали. Я, признаться, вообще их никогда явно не вызываю.

@DobryaKaktus · 20.02.2024, 08:59 **[ТС]**

Сообщение от DedFriend

Возможно, Prepare рано вызвали. Я, признаться, вообще их никогда явно не вызываю.

Да вроде вызывать нужно именно так, правда скорее всего ExecSQL не нужно, так как в последствии мы вызываем Delete.

Delphi
1
2
3
4
    IBDataSet1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :param1');
    IBDataSet1.Prepare;
    IBDataSet1.ParamByName('param1').AsInteger := del;
    IBDataSet1.Delete;

Хотя, может параметры вообще по другому работают у данного компонента.

@DobryaKaktus · 20.02.2024, 12:39 **[ТС]**

Сообщение от krapotkin

P.S.
для работы с Firebird лучше взять FIBPlus
https://github.com/madorin/fibplus

Я установил FIBPlus, но что то на палитре компонентов иконки отображаются не так по ходу.
Также добавил в library путь до:

Code
1
2
3
...20.0\source\FIBPlus
...20.0\source\FIBPlus\Editors
...20.0\source\FIBPlus\Packages

Где мышь зарыта?!

@DobryaKaktus · 20.02.2024, 16:27 **[ТС]**

Разобрался с параметрами IBDataSet1, насколько я понял, параметры он именует сам, соответствующие именам field-ов.
Вот так удаляет, удаляет корректно, но скачет...
1. Что нужно исправить?
2. Правильно ли составлен код?

Delphi
1
2
3
4
5
6
7
8
9
10
    id:=IBDataSet1.FieldByName('key0').AsInteger;
    IBDataSet1.DeleteSQL.Clear;
    IBDataSet1.DeleteSQL.Add('DELETE FROM test_table WHERE KEY0 = :key0');// задать текст запроса
    IBDataSet1.DisableControls;
    IBDataSet1.Close;
    IBDataSet1.Open;
    IBDataSet1.Locate('key0',id,[]);
    IBDataSet1.Delete;
    IBDataSet1.Locate('key0',id,[]);
    IBDataSet1.EnableControls;

3. Плз помогите с постом №3.
4. Плз помогите с постом №8.

@krapotkin · 20.02.2024, 17:46

все SQL стоит задать не в коде а заранее, в design-time
чем в частности хорош FIBPlus
что вам хватит просто

Delphi
1
IBDataSet1.Delete;

надо в Options только покопаться на тему AutoCommit, RefreshAfterDelete и еще каких-то Refresh, если сразу не пойдет

@DobryaKaktus · 21.02.2024, 00:07 **[ТС]**

Сообщение от krapotkin

все SQL стоит задать не в коде а заранее, в design-time

Так параметры у данных SQL запросов не управляемые ведь, разве это не недостаток? По крайней мере я не понял как изменять значения параметров, если это вообще можно делать.

Плиз подскажите почему DBGrid нормально не обновляется в данном примере? на первую запись переходит.

Delphi
1
2
3
4
5
6
7
8
9
10
11
    id:=IBDataSet1.FieldByName('key0').AsInteger;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :key0');
    IBQuery1.Prepare;
    IBQuery1.ParamByName('key0').AsInteger := id;
    IBQuery1.ExecSQL;
    IBDataSet1.DisableControls;
    IBDataSet1.Close;
    IBDataSet1.Open;
    IBDataSet1.Locate('key0',id,[]);
    IBDataSet1.EnableControls;

@northener · 21.02.2024, 01:34

Сообщение от DobryaKaktus

Так параметры у данных SQL запросов не управляемые ведь, разве это не недостаток? По крайней мере я не понял как изменять значения параметров, если это вообще можно делать.

Не понял. И тип параметра и его значение вполне можно задать.

@didgik · 21.02.2024, 01:42

Плиз подскажите почему DBGrid нормально не обновляется в данном примере? на первую запись переходит.

Потому что сначала удаляется запись id, а потом пытается на неё перейти, но не находит, она же удалена.

@DobryaKaktus · 21.02.2024, 09:20 **[ТС]**

Сообщение от northener

Не понял. И тип параметра и его значение вполне можно задать.

Я про то, что метод ParamByName не работает у меня, говорит что не найден такой field, даже если имя параметру задать соответствующее имени field'a. Видимо я не понял что то.

Delphi
1
2
3
    IBDataSet1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :key0');
    IBDataSet1.ParamByName('key0').AsInteger := del;
    IBDataSet1.Delete;

Сообщение от didgik

Потому что сначала удаляется запись id, а потом пытается на неё перейти, но не находит, она же удалена.

А как тогда нужно? В смысле я пробовал по разному, у меня не получается добиться нужного эффекта.

@D1973 · 21.02.2024, 09:26

Сообщение от DobryaKaktus

А как тогда нужно?

Для позиционирования указать номер существующей записи, предыдущей или следующей относительно удаляемой. Предвосхищая вопрос "как?" - почитайте про функцию Locate и подключите голову.

@DobryaKaktus · 21.02.2024, 10:04 **[ТС]**

Сообщение от D1973

Предвосхищая вопрос "как?" - почитайте про функцию Locate и подключите голову.

Я читал про эту функцию, Вы имеете в виду про методы next, prior и last у датасета? оперируя ими, добиться нужного эффекта?

@D1973 · 21.02.2024, 10:15

Сообщение от DobryaKaktus

Я читал про эту функцию

Ну и что Вы вычитали? Куда будет позиционироваться запись при таком вызове?

Delphi
1
IBDataSet1.Locate('key0',id,[]);

@DobryaKaktus · 21.02.2024, 10:21 **[ТС]**

Сообщение от D1973

Ну и что Вы вычитали? Куда будет позиционироваться запись при таком вызове?

Позиционироваться будет на записи удовлетворяющей критерию поиска, в данном случае критерий, это значение первичного ключа которое я получил ранее вызовом "id:=IBDataSet1.FieldByName('key0').AsIn teger;".

Добавлено через 1 минуту

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    IBDataSet1.DisableControls;
    id:=IBDataSet1.FieldByName('key0').AsInteger;
    IBDataSet1.Close;
    IBDataSet1.Open;
    if IBDataSet1.Locate('key0',id,[]) = true then
    IBDataSet1.Locate('key0',id,[])
      else begin
       if IBDataSet1.Locate('key0',id,[]) = {как узнать что данная запись последняя?} then
       IBDataSet1.Prior
        else
        IBDataSet1.Next;
 
      end;
    IBDataSet1.EnableControls;

Что то типа такого? а как узнать что Locate соответствует последней записи? как это узнать правильно?

@D1973 · 21.02.2024, 10:36

Сообщение от DobryaKaktus

а как узнать что Locate соответствует последней записи?

А нет такого понятия в общем случае. Все зависит от режима сортировки набора данных. А вообще - проверять набор данных на Eof:

Delphi
1
if IBDataSet.Eof then ...

Добавлено через 2 минуты

Сообщение от DobryaKaktus

Что то типа такого?

Вам же уже говорили, что запись, в которой поле "key0" равно значению переменной id Вы уже удалили. Ну так и куда Вы позиционироваться собираетесь?

@DobryaKaktus · 21.02.2024, 11:03 **[ТС]**

Сообщение от D1973

Ну так и куда Вы позиционироваться собираетесь?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    del:=IBDataSet1.FieldByName('key0').AsInteger;
    IBDataSet1.DisableControls;
    if IBDataSet1.Eof then
     begin
     IBDataSet1.Prior;
     id:=IBDataSet1.FieldByName('key0').AsInteger;
       end else begin
       IBDataSet1.Next;
       id:=IBDataSet1.FieldByName('key0').AsInteger;
       end;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('DELETE FROM test_table WHERE KEY0 = :key0');
    IBQuery1.Prepare;
    IBQuery1.ParamByName('key0').AsInteger := del;
    IBQuery1.ExecSQL;
    IBDataSet1.Close;
    IBDataSet1.Open;
    IBDataSet1.Locate('key0',id,[]);
    IBDataSet1.EnableControls;

Вот что у меня получилось, удаляет последовательно записи, но после удаления последней переходит на 1 запись. И скролл скачет

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Как удалить запись из таблицы, чтобы DBGrid не скакал как конь?

Решение

Решение

@DedFriend 184 / 37 / 8 Регистрация: 14.04.2019 Сообщений: 238
	19.02.2024, 19:01
	IBQuery сам по себе - объект "только для чтения". Лично я использую IBTable , но был многократно за это бит на форуме 0

@DedFriend 184 / 37 / 8 Регистрация: 14.04.2019 Сообщений: 238
	19.02.2024, 21:51
	Возможно, Prepare рано вызвали. Я, признаться, вообще их никогда явно не вызываю. 0