Фильтрация и редактирование записей

@Landser · Регистрация: 18.04.2009

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

доброго времени суток
делаю приложение ,которое делает операции с записями:редактирует, добавляет записи
использую ADOConnection, ADOQuery, стандартный DBgrid
на кнопку добавить подвязаны следующие действия

Delphi
1
2
3
4
5
6
form5.adoquery7.open
form5.ADOquery7.Insert;
form5.ADOquery7.FieldByName('номер').AsString := Edit1.Text;
form5.ADOquery7.FieldByName('дата').AsString := datetostr(datetimepicker2.date);
form5.ADOquery7.post;
form5.adoquery7.close;

на кнопку отредактировать :

Delphi
1
2
3
4
5
6
form5.adoquery7.open
form5.ADOquery7.Edit;
form5.ADOquery7.FieldByName('рег№').AsString := Edit1.Text;
form5.ADOquery7.FieldByName('от').AsString := datetostr(datetimepicker2.date);
form5.adoquery7.close;
form5.ADOquery7.post;

на кнопку поиск:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
if radiobutton1.Checked then
begin
form5.adoquery7.open;
form5.adoquery7.Filter:='[номер] like %'+edit1.text+'%';
end;
 
if radiobutton2.Checked then
begin
form5.adoquery7.open;
form5.adoquery7.Filter:='[дата] = '+datetostr(datetimepicker1.date);
end;
form5.adoquery7.Filtered:=true;

на нажатие на грид:

Delphi
1
2
 form2.Edit1.Text:=dbgrid1.Fields[0].asstring 
  form2.DateTimePicker2.date:=strtodate(dbgrid1.Fields[1].asstring);

кнопки добавить и редактировать находятся на form2

а вопрос вот в чём:допустим я нашёл запись под номером 10, и хочу её отредактировать и отредактировать поле как раз номер,а это не получается, тк текущее значение поля номер
является частью фильтра и поэтому Delphi ругается
а если я ищу по номеру, а редактирую поле дата, то всё благополучно сохраняется
как эту систему наилучшем образом организовать, чтобы можно быkо удобно делать эти операции с записями?подскажите пожалйста

@SAMZ · 20.05.2010, 19:48

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

тк текущее значение поля номер
является частью фильтра и поэтому Delphi ругается

А как ругается - то. Сомнительно, чтобы это было причиной

@Landser · 21.05.2010, 12:09 **[ТС]**

спасибо за ответ,SAMZ
так ругается:я фильтрую ADOquery по дате, допустим дата равна 01.01.2010
нажатием на грид редактирую не номер, который ей соответствует,а саму эту дату, допустим на 05.05.2005, нажимаю кнопку сохранить.
в результате вижу следующее сообщение:
Project Project1.exe raised exception class EOleExcption with messge 'BOF или EOF имеет значение true, либо текущая запсиь удалена, для ыполняемой операции требуется текущая запись
а перезапускаю project и вижу, что дата всё таки изменилась на ту, которую я хотел

@SAMZ · 21.05.2010, 12:54

Посмотри, нет ли у тебя обработчика

Delphi
1
form5.ADOquery7.AfterPost;

Если есть, то посмотри, что там делается. Попробуй пройтись отладчиком. Впечатление такой, что какой - то объект после поста пытается что-то делать с этой записью.

@Landser · 21.05.2010, 14:25 **[ТС]**

нету этого обработчика. а какой объект это может быть?у меня после post в зависимости от даты выдаются сообщения, а потом сортировка ADOquery..

@Demon008 · 21.05.2010, 15:22

Попробуй поиск организовать через Query.

@Sweet_Sleep · 22.05.2010, 16:37

В коде отредактировать у тебя,как я думаю, ошибочка-вначале AdoQuery7.Post, а потом уже Close
Но скорее всего не в этом проблема.Но исправить бы надо.

@Landser · 23.05.2010, 22:02 **[ТС]**

ивзиняюсь, комп ломался.
Sweet_Sleep,спасибо, попробую так

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

Попробуй поиск организовать через Query.

я пробовал, но была какая то чехарда с записями, не подскажите, как лучше, выводить в один датасет все записи запросом, а потом в этот же датасет записи по условию поиска?не будет ли глюков при добавлении/редктировании?как всю эту систему организовать на идейном уровне?

@Demon008 · 24.05.2010, 07:42

Вот рабочий пример поиска, думаю что это то что вам нужно... попробуйте.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add ('Select* ');
DataModule2.ADOQuery1.SQL.Add ('From Таблица1');
if (Length(Edit1.Text)>0) then
begin
DataModule2.ADOQuery1.SQL.Add ('Where Фамилия  Like'+#39+Edit1.Text+'%'+#39);
DataModule2.ADOQuery1.Active:=True;
if DataModule2.ADOQuery1.RecordCount>0 then
DataModule2.ADOTable1.Locate('Фамилия', DataModule2.ADOQuery1['Фамилия'],[]);
end;
end;

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@Landser 57 / 7 / 4 Регистрация: 18.04.2009 Сообщений: 429
	21.05.2010, 12:09 [ТС]
	спасибо за ответ,SAMZ так ругается:я фильтрую ADOquery по дате, допустим дата равна 01.01.2010 нажатием на грид редактирую не номер, который ей соответствует,а саму эту дату, допустим на 05.05.2005, нажимаю кнопку сохранить. в результате вижу следующее сообщение: Project Project1.exe raised exception class EOleExcption with messge 'BOF или EOF имеет значение true, либо текущая запсиь удалена, для ыполняемой операции требуется текущая запись а перезапускаю project и вижу, что дата всё таки изменилась на ту, которую я хотел 0

@Landser 57 / 7 / 4 Регистрация: 18.04.2009 Сообщений: 429
	21.05.2010, 14:25 [ТС]
	нету этого обработчика. а какой объект это может быть?у меня после post в зависимости от даты выдаются сообщения, а потом сортировка ADOquery.. 0

@Demon008 6 / 6 / 1 Регистрация: 31.03.2009 Сообщений: 54
	21.05.2010, 15:22
	Попробуй поиск организовать через Query. 1

@Sweet_Sleep 10 / 10 / 1 Регистрация: 04.11.2009 Сообщений: 147
	22.05.2010, 16:37
	В коде отредактировать у тебя,как я думаю, ошибочка-вначале AdoQuery7.Post, а потом уже Close Но скорее всего не в этом проблема.Но исправить бы надо. 1