Редактирование dbgrid и сравнение с combobox

@jtdepressive · Регистрация: 03.04.2015

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

Здравствуйте, уважаемые форумчане. Возникли небольшие проблемы.
1. На форме использован PageControl, в котором 7 вкладок. Одна общая, где хранятся все данные. В остальных же - отдельно взятые части первой вкладки. С добавлением в обе вкладки я разобралась, но что делать с редактированием? Если я редактирую в общей, то данные в побочной вкладке остаются неизменными. Как реализовать редактирование в обеих вкладках?

Редактирование dbgrid и сравнение с combobox

2. Открываем вкладку "Об устройстве", открывается новая форма, где расположены 5 Combobox'ов. Суть вопроса такова, как осуществить сравнение данных из Combobox'a с данными из DBGRid'а?

@krapotkin · 27.06.2018, 07:22

1. если ваши данные на вкладках отображают ОДИН И ТОТ ЖЕ датасет, то обновляя в одном месте, вы обновляете и второе. Если нет, то при изменении в одном датасете, нужно ПЕРЕОТКРЫТЬ другой, чтобы скачать изменения из БД
2. про формы
https://www.cyberforum.ru/blog... g4873.html
про данные, которые лежат
https://www.cyberforum.ru/blog... g5259.html
в датасетах.

@jtdepressive · 27.06.2018, 07:46 **[ТС]**

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

если ваши данные на вкладках отображают ОДИН И ТОТ ЖЕ датасет, то обновляя в одном месте, вы обновляете и второе. Если нет, то при изменении в одном датасете, нужно ПЕРЕОТКРЫТЬ другой, чтобы скачать изменения из БД

не совсем понимаю насчёт "переоткрыть другой". Вы про это?

DataSet.Close;
DataSet.Open;

именно в редактировании использовала DBEdit. у него привязка к общей. или здесь лучше юзать обычный Edit?

@krapotkin · 27.06.2018, 08:32

переоткрыть - да - Close; Open;
а что использовать - используйте DBEdit, это проще
помле выхода из формы по OK - делайте Post; по Отмена - Cancel.

@jtdepressive · 28.06.2018, 06:04 **[ТС]**

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

помле выхода из формы по OK - делайте Post; по Отмена - Cancel.

датасеты разные, и я сделала, как вы говорили. а если это не работает?

@krapotkin · 28.06.2018, 06:09

1. никогда не верить авторам вопроса на слово
2. только кот

@jtdepressive · 28.06.2018, 06:37 **[ТС]**

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

никогда не верить авторам вопроса на слово

делаю на клик кнопки.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
procedure TForm4.BitBtn1Click(Sender: TObject);
  var p: tdbgrid;  T: TADOTable;
begin
 case Form1.PageControl1.ActivePageIndex of
  0: p := Form1.DBGrid1;
  1: p := Form1.DBGrid2;
  2: p := Form1.DBGrid3;
  3: p := Form1.DBGrid4;
  4: p := Form1.DBGrid5;
  5: p := Form1.DBGrid6;
  6: p := Form1.DBGrid7;
 end;
 
 case Form1.PageControl1.ActivePageIndex of
  0 : T := DataModule2.ADOtable1;
  1 : T := DataModule2.ADOtable2;
  2 : T := DataModule2.ADOtable3;
  3 : T := DataModule2.ADOtable4;
  4 : T := DataModule2.ADOtable5;
  5 : T := DataModule2.ADOtable6;
  6 : T := DataModule2.ADOtable7;
 end;
 
  t.Open;
  t.Edit;
  t.FieldByName('Наименование').AsString:=dbedit1.Text;
  t.FieldByName('Производитель').AsString:=dbedit2.Text;
  t.FieldByName('Модель').AsString:=dbedit3.Text;
  t.FieldByName('Количество портов').AsString:=dbedit4.Text;
  t.FieldByName('Инвентарный номер').AsString:=dbedit5.Text;
  t.FieldByName('IP address').AsString:=dbedit6.Text;
  t.FieldByName('Монтированная').AsString:=dbedit7.Text;
  t.FieldByName('Задействованная').AsString:=dbedit8.Text;
  t.FieldByName('Свободная').AsString:=dbedit9.Text;
  t.FieldByName('Выход из строя').AsString:=dbedit10.Text;
  t.FieldByName('Тип').AsString:=dbcombobox1.Text;
  t.Post;
 
  p.DataSource.DataSet.Close;
  p.DataSource.DataSet.Open;
end;

@krapotkin · 28.06.2018, 08:05

вторая ссылка не читана.
там всего один очень наболевший абзац

Нет смысла брать текст из DBEdit, его надо брать из поля датасета, к которому этот DBEdit подключен.
И наоборот, писать туда значение - такая же дичь.

куда там у вас эти едиты подключены тоже загадко
это раз

два. Если у вас 7 ОДИНАКОВЫХ ADOTable то у вас беда в архитектуре БД

три.
вы и первую ссылку не читали.
там написано все наоборот.
Форму для редактирования создаем там, откуда запускаем.
1.Создаем.
2.Настраиваем (в вашем случае например даем едитам на форме датасурс тот который собираетесь редактировать)
3.Показываем модально
(Ничего на кнопках формы редактирования нет, кроме ModalResult OK и Cancel)
4.После выхода из формы если выход по OK, то делаем пост, иначе Cancel
5.Убиваем форму.

@jtdepressive · 28.06.2018, 08:25 **[ТС]**

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

Нет смысла брать текст из DBEdit, его надо брать из поля датасета, к которому этот DBEdit подключен.
И наоборот, писать туда значение - такая же дичь.

я читала это. и первую ссылку тоже.
суть-то в том, что я не понимаю, как тогда сделать так, чтобы был использован всего один ADOTable, если названия разные и нужно именно 7 вкладок. я делала так, как поняла, исходя из форумов и методом проб и ошибок. (делфи ранее не изучала и надобности не возникло бы, если бы не практика на производстве).

не совсем понимаю так же, как создание из главной формы поможет мне отредактировать данные во всех таблицах.

@krapotkin · 28.06.2018, 08:28

Как всегда. Пытки - лучшее средство узнать, чего хотел заказчик.
Вот тема

Редактирование dbgrid и сравнение с combobox

А вот настоящий вопрос

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

как ... мне отредактировать данные во всех таблицах.

Найдите пару отличий...

Давайте с начала начнем.
Почему у вас 7 одинаковых таблиц?
Должна быть только одна таблица с одним набором полей
А потом поговорим про 7 вкладок.

@jtdepressive · 28.06.2018, 08:38 **[ТС]**

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

А вот настоящий вопрос

вопросов было два. и о них я писала выше.

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

Почему у вас 7 одинаковых таблиц?

они не совсем одинаковы. во вкладке "общая" - хранятся все данные. в остальных же таблицах - конкретно для их, можно сказать, регионов, данные. в акссессе я создала 7 таблиц с нужным набором данных.

@krapotkin · 28.06.2018, 08:49

я смотрю на код, базу вы не показали, задание не рассказали.
t.FieldByName('Наименование')
t.FieldByName('Производитель')
t.FieldByName('Модель').AsString
t.FieldByName('Количество портов')
t.FieldByName('Инвентарный номер')
t.FieldByName('IP address')
t.FieldByName('Монтированная')
t.FieldByName('Задействованная')
t.FieldByName('Свободная')
t.FieldByName('Выход из строя')
t.FieldByName('Тип')

и при этом t - любая из 7 таблиц.
значит, во всех них одинаковые поля
значит, таблицы одинаковые.

такого быть не должно
должна быть одна таблица и возможно еще дополнительное поле, по которому вы будете определать в какую из 7 вкладок эта таблица попадет

я еще раз говорю, что если у вас DBEdit подключен к тому же Datasource что и DBGrid
то проблема, о которой вы рассказываете, вообще не может возникнуть
при этом код никакой не нужен вообще

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

@jtdepressive · 28.06.2018, 08:56 **[ТС]**

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

был бы проект, посмотрели бы прямо в проекте

архив, состоящий из проекта делфи и бд access (database.accdb нужная).
форма 1 - главная.
форма 2 - дата модуль.
форма 3 - добавление.
форма 4 - редактирование. (проблемная форма) та, где я не знаю, почему не идёт редактирование в нескольких таблицах.
форма 5 - об устройстве. (вторая проблемная форма) не знаю, как прописать такое условие, чтобы данные из combobox'ов удовлетворяли данным какой-либо строки из dbgrid.
форма 6 - добавление новой модели.
форма 7 - добавление нового типа.
форма 8 - справка.

@krapotkin · 28.06.2018, 10:12

в БД таблицы DSLAM, Ethernet, FTTBxxxx, Switch должны быть одной таблицей
вместо PageControl тогда можно обойтись TabControl, и держать всего один DBGrid, меняя фильтр при переходе по закладкам

форма 3 ничем не отличается от формы 4 и не нужна

ADOConnection у вас подключается к data.accdb а не database.accdb как вы тут приврали
ессно ждем вашу следующую тему "у меня все работает, а на других компьютерах не подключается к бд"
и даже ответим тут же
Путь к БД

форма 5 отличается от всех остальных тем что у вас там вообще не-DB-компоненты
что вы там хотели и чем это отличается от form4 я не понимаю

все формы создаются конечно же сразу. нужны не нужны - пофиг. будет 100 форм. все 100 загрузим...
статью про формы в этом месте читать еще раз

про то что в 21 веке не может программа работать в окне с фиксированным размером, говорить аж печально
может, воспользуетесь словом Align, а?

если вы цепляете Form1.dbgrid1 к datamodule.datasource1, а тот подключен к ADOTable1 то зачем вам
Form1.dbgrid1.DataSource.Dataset.fieldBy Name('xxx')
это же просто
datamodule.ADOTable1.fieldByName('xxx')
и не надо никаких ссылок на Form1 в Form3,4,5...

и теперь, наконец, то что вы спрашивали
ну и соответственно

Delphi
1
if datamodule.ADOTable1.fieldByName('xxx').asstring = combo1.text

а еще лучше combo1.style = csDropownList и

Delphi
1
if datamodule.ADOTable1.fieldByName('xxx').asstring = combo1.items[combo1.itemIndex]

при условии, что combo1.itemIndex<>-1

для того чтобы проверить, что все так как я говорю, положите DBEdit не на Form4 а прямо под грид. и начните там что-то менять
если у грида и едита общий датасурс, то изменения идут и там и там

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. 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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@jtdepressive 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 10

	Delphi 6-7 Редактирование dbgrid и сравнение с combobox 27.06.2018, 06:50. Показов 862. Ответов 13 Метки нет (Все метки) Здравствуйте, уважаемые форумчане. Возникли небольшие проблемы. 1. На форме использован PageControl, в котором 7 вкладок. Одна общая, где хранятся все данные. В остальных же - отдельно взятые части первой вкладки. С добавлением в обе вкладки я разобралась, но что делать с редактированием? Если я редактирую в общей, то данные в побочной вкладке остаются неизменными. Как реализовать редактирование в обеих вкладках? 2. Открываем вкладку "Об устройстве", открывается новая форма, где расположены 5 Combobox'ов. Суть вопроса такова, как осуществить сравнение данных из Combobox'a с данными из DBGRid'а? 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	27.06.2018, 07:22
	1. если ваши данные на вкладках отображают ОДИН И ТОТ ЖЕ датасет, то обновляя в одном месте, вы обновляете и второе. Если нет, то при изменении в одном датасете, нужно ПЕРЕОТКРЫТЬ другой, чтобы скачать изменения из БД 2. про формы https://www.cyberforum.ru/blog... g4873.html про данные, которые лежат https://www.cyberforum.ru/blog... g5259.html в датасетах. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	27.06.2018, 08:32
	переоткрыть - да - Close; Open; а что использовать - используйте DBEdit, это проще помле выхода из формы по OK - делайте Post; по Отмена - Cancel. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	28.06.2018, 06:09
	1. никогда не верить авторам вопроса на слово 2. только кот 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	28.06.2018, 08:49
	я смотрю на код, базу вы не показали, задание не рассказали. t.FieldByName('Наименование') t.FieldByName('Производитель') t.FieldByName('Модель').AsString t.FieldByName('Количество портов') t.FieldByName('Инвентарный номер') t.FieldByName('IP address') t.FieldByName('Монтированная') t.FieldByName('Задействованная') t.FieldByName('Свободная') t.FieldByName('Выход из строя') t.FieldByName('Тип') и при этом t - любая из 7 таблиц. значит, во всех них одинаковые поля значит, таблицы одинаковые. такого быть не должно должна быть одна таблица и возможно еще дополнительное поле, по которому вы будете определать в какую из 7 вкладок эта таблица попадет я еще раз говорю, что если у вас DBEdit подключен к тому же Datasource что и DBGrid то проблема, о которой вы рассказываете, вообще не может возникнуть при этом код никакой не нужен вообще значит вы делаете что-то не так. а как мы не знаем, поэтому приходится задавать наводящие вопросы был бы проект, посмотрели бы прямо в проекте 0