Редактирование БД через Edit'ы

@CfgHack · Регистрация: 07.02.2015

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

Всем привет , нужно сделать редакиование в базе , через ИДИТЫ1.
Вообще присваиваю таблицы к ИДИТАМ.
Так вот возникла проблема , калапс так сказать. Отображаются данные только первой строки. Тоесть когда выбираю вторую или третью отображение в ИДИТАХ идёт только первой.
Вот мой код редактирование , да кстате , к сожалению не меняет данные в тоаблице при нажатии на бютон 1 , даже первой О_о , im shoked.

Delphi
1
2
3
4
5
6
7
8
Edit1.Text:=Form5.Adoquery1.FieldByName('ФИО').Asstring;
Edit2.Text:=Form5.Adoquery1.FieldByName('Рост').Asstring;
Edit3.Text:=Form5.Adoquery1.FieldByName('Вес').Asstring;
Edit4.Text:=Form5.Adoquery1.FieldByName('Цвет волос').Asstring;
Edit5.Text:=Form5.Adoquery1.FieldByName('Вид услуг').Asstring;
Edit6.Text:=Form5.Adoquery1.FieldByName('Номер и серия паспорта').Asstring;
Form5.Adoquery1.Edit;
Form5.Adoquery1.Post;

@qwertehok · 24.02.2016, 12:54

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

ИДИТЫ1

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

ИДИТАХ

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

при нажатии на бютон

ааааааааааааааааааа

ЗА автор, ты что к чему присваиваешь?

@CfgHack · 24.02.2016, 12:56 **[ТС]**

В коде же видно, вроде. Edit1 к Записи в базе , тем самым вывожу результат в Edit"ы , затем просто пользователь меняет и по нажатию на Бютон 1 должно поменяться в таблице. Но в таблице не меняется , а в Edit"х отображается только первая строчка

@qwertehok · 24.02.2016, 12:59

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

Edit1 к Записи в базе , тем самым вывожу результат в Edit"ы

этот код есть

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

затем просто меняю и по нажатию на Бютон 1 должно поменяться в таблице.

а этого кода нет

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

Но в таблице не меняется

покажи код

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

а в Edit"х отображается только первая строчка

а ты какую хотел?
ты встал на первую запись - отобразилась первая, сделал Next - будет вторая

@ВасильевСА · 24.02.2016, 13:02

Присваивай данные этим Эдитам в событии ADOQuery -> AfterScroll -> Edit1.Text:=Form5.Adoquery1.FieldByName( 'ФИО').Asstring;

@Пытливый · 24.02.2016, 13:02

Нафига в этом коде?:

Delphi
1
2
Form5.Adoquery1.Edit;
Form5.Adoquery1.Post;

Вы из базы берете значение, а не наоборот, так-что эти две строчки не в тему.

И вообще, вы не те контролы используете. Вместо идитов возьмите дубидиты

@CfgHack · 24.02.2016, 13:07 **[ТС]**

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

а этого кода нет

Только не ругайся и пряниками не закидывай , но мне казалось Adoquery1.edit и Adoquery1.post отвечают за это?

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

а ты какую хотел?
ты встал на первую запись - отобразилась первая, сделал Next - будет вторая

Ну нет второй. Я мышкой выбираю запись серавно отображается только первая

@qwertehok · 24.02.2016, 13:28

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

но мне казалось Adoquery1.edit и Adoquery1.post отвечают за это?

за что именно они по-твоему отвечают?

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

Ну нет второй. Я мышкой выбираю запись серавно отображается только первая

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

@CfgHack · 24.02.2016, 13:39 **[ТС]**

Подправил , теперь отображается норм по всем записям. Код выше , который я писал поставил на компонент "Adoquery" в событии Afrsroll (На первое окно, не в то окно где Edit"ы висят) всё работает.
Вот так получилось

Delphi
1
Form11.Edit1.Text:=Form5.Adoquery1.FieldByName('ФИО').Asstring;

Но при запуске пишет ошибку такую "Access violation at address 005ACC... in module 'project' Read of address".Однаковсё работает

Теперь насчёт редактирования самих данных. По прежнему ничего не меняет при нажатии.

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

за что именно они по-твоему отвечают?

Мне кажется post что то типо добавления? , а edit - замена

@Пытливый · 24.02.2016, 13:50

Весело читать, как вы методом научного тыка изучаете Дельфи.
Вы читали мой пост чуть выше? Прочитайте еще раз.

@CfgHack · 24.02.2016, 13:58 **[ТС]**

Сообщение от Пытливый

Весело читать, как вы методом научного тыка изучаете Дельфи.
Вы читали мой пост чуть выше? Прочитайте еще раз.

Через дубидиты также , а есть разница между ними?
А как я без них отредактирую запись? А что тогда использовать? Как быть?

@Пытливый · 24.02.2016, 19:30

Все очень просто. DBEdit компонент специально предназначенный для работы с базой. Все что необходимо это его правильно настроить. У вас есть источник данных, AdoQuery1. На форму поместите компонент TDataSource он нужен как мост между TAdoTable и другими визуальными компонентами. Настройте TDataSource установив свойство DataSet = AdoTable1. Добавьте на форму TDBEdit и установите его свойство DataSource = DataSource1 и DataField = ФИО. Вот и все.
Теперь при перемещении по записям в AdoQuery1 автоматически будет браться значение ФИО из текущей записи. Редактировать вы так же можете это значение прямо в этом поле. Аналогично можете добавить все поля из AdoQuery.
Для удобства управления записями еще можно поместить на форму TDBNavigator указав для его свойства DataSource = DataSource1.

@CfgHack · 25.02.2016, 12:22 **[ТС]**

Сообщение от Пытливый

Все очень просто. DBEdit компонент специально предназначенный для работы с базой. Все что необходимо это его правильно настроить. У вас есть источник данных, AdoQuery1. На форму поместите компонент TDataSource он нужен как мост между TAdoTable и другими визуальными компонентами. Настройте TDataSource установив свойство DataSet = AdoTable1. Добавьте на форму TDBEdit и установите его свойство DataSource = DataSource1 и DataField = ФИО. Вот и все.
Теперь при перемещении по записям в AdoQuery1 автоматически будет браться значение ФИО из текущей записи. Редактировать вы так же можете это значение прямо в этом поле. Аналогично можете добавить все поля из AdoQuery.
Для удобства управления записями еще можно поместить на форму TDBNavigator указав для его свойства DataSource = DataSource1.

Пробовал через дубидиты , но текст не прописывает , при нажатии на "Отредактировать" выдёт ошибку. Делал через идиты , там хоть текст вписывать можно. Однако при нажатии на "Отерадктировать" точно такая же ошибка , что и с дубидитами. Вот ошибка: @adoquery1: Dataset is not in edit or inesrt mode.@
Вот код . который использую для отредактирования: (С тем , чтобы данные вписывались в идиты разобрался)

Delphi
1
2
3
4
5
6
7
8
ADOQuery1.Edit;
Form5.Adoquery1.FieldByName('ФИО').Asstring:=Form11.Edit1.Text;
Form5.Adoquery1.FieldByName('Рост').Asstring:=Form11.Edit2.Text;
Form5.Adoquery1.FieldByName('Вес').Asstring:=Form11.Edit3.Text;
Form5.Adoquery1.FieldByName('Цвет волос').Asstring:=Form11.Edit3.Text;
Form5.Adoquery1.FieldByName('Вид услуг').Asstring:=Form11.Edit4.Text;
Form5.Adoquery1.FieldByName('Номер и серия паспорта').Asstring:=Form11.Edit5.Text;
Adoquery1.Post;

@qwertehok · 25.02.2016, 12:26

В именах колонки в базе пробелы использовать можно только [так]

вы опять путаете что куда присваивать
откройте эту ветку и посмотрите пару страниц тем - все же уже написано

@Пытливый · 25.02.2016, 12:47

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

@CfgHack · 25.02.2016, 14:18 **[ТС]**

Можно пример в прокете поалуйста?

Простенький

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@CfgHack 0 / 0 / 0 Регистрация: 07.02.2015 Сообщений: 115
	24.02.2016, 12:56 [ТС]
	В коде же видно, вроде. Edit1 к Записи в базе , тем самым вывожу результат в Edit"ы , затем просто пользователь меняет и по нажатию на Бютон 1 должно поменяться в таблице. Но в таблице не меняется , а в Edit"х отображается только первая строчка 0

@ВасильевСА 8 / 8 / 2 Регистрация: 01.12.2015 Сообщений: 195
	24.02.2016, 13:02
	Присваивай данные этим Эдитам в событии ADOQuery -> AfterScroll -> Edit1.Text:=Form5.Adoquery1.FieldByName( 'ФИО').Asstring; 1

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	24.02.2016, 13:50
	Весело читать, как вы методом научного тыка изучаете Дельфи. Вы читали мой пост чуть выше? Прочитайте еще раз. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	24.02.2016, 19:30
	Все очень просто. DBEdit компонент специально предназначенный для работы с базой. Все что необходимо это его правильно настроить. У вас есть источник данных, AdoQuery1. На форму поместите компонент TDataSource он нужен как мост между TAdoTable и другими визуальными компонентами. Настройте TDataSource установив свойство DataSet = AdoTable1. Добавьте на форму TDBEdit и установите его свойство DataSource = DataSource1 и DataField = ФИО. Вот и все. Теперь при перемещении по записям в AdoQuery1 автоматически будет браться значение ФИО из текущей записи. Редактировать вы так же можете это значение прямо в этом поле. Аналогично можете добавить все поля из AdoQuery. Для удобства управления записями еще можно поместить на форму TDBNavigator указав для его свойства DataSource = DataSource1. 0

@qwertehok 5961 / 4537 / 1094 Регистрация: 29.08.2013 Сообщений: 28,145 Записей в блоге: 3
	25.02.2016, 12:26
	В именах колонки в базе пробелы использовать можно только [так] вы опять путаете что куда присваивать откройте эту ветку и посмотрите пару страниц тем - все же уже написано 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	25.02.2016, 12:47
	А как выглядит сам запрос к базе? Что-то мне подсказывает, что у вас там сложный запрос собирающий данные из нескольких таблиц, а если это так, то такой запрос нельзя использовать для изменения данных. 0

@CfgHack 0 / 0 / 0 Регистрация: 07.02.2015 Сообщений: 115
	25.02.2016, 14:18 [ТС]
	Можно пример в прокете поалуйста? Простенький 0