Как в Delphi реализовать связь многие-ко-многим

[edsjeka]

Есть таблица по учету заправленных картриджей, в которой есть обычные поля, которые вводит пользователь, есть поля данные для которых берутся из других справочных таблиц (тут я использую поля подстановки для ADOTable и все нормально), но есть одно поле Raboti, которое связано с другой таблицей многие-ко-многим. Использую таблицу DBGrid. Вопрос как можно сделать так, чтобы при нажатии на это поле двойным щелчком мыши или Enter, открывалась справочная таблица, в которой можно было бы выбрать нужные пункты, желательно установив галки на нужных значениях, т.к. вариантов там не много и после закрытия справочной таблицы, все данные сохранились в связывающей таблице и в основной.

[come-on]

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

[edsjeka]

Сообщение от come-on

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

Для начала, не пойму как по нажатию на поле энтер или двойной клик что-то открыть. Как ловить двойной клик или энтер, у меня получается только изменение значения поля, потом нажатие энтер, потом открывается справочник.

[Dvoishnik]

On1DblClick- событие есть такое на DBgrid. по двойному клику будет выполняться что там напишешь.

П.С.и что то не вижу я у вас связи многое ко многим не где.

[phomm]

Это, наверное, для видов работ, у единицы обрабатываемой сущности может быть много записей о проделанных работах, в то же время виды проделанных работ не ограничены той единицей, могут быть применимы ко многим. В реальности такая структура делается просто 3й таблицей, где 1 запись на пару объект-работа, но таких записей по одному с разной работой может быть несколько.

Я бы сделал так - завёл проперти (или просто поле или переменную) гласящее, что в данный момент работаем со списком работ по выбранной единице.
Свойство это устанавливать по тому же даблклику, например, проверяя что кликнули в нужной ячейке, и показывал бы TCheckListBox (о нём подробней ниже). По смене фокуса ячейки бокс скрываем и свойство сбрасываем, например, по событию OnColExit. Также может понадобиться свойство - айдишник текущей записи (например, привязываемся к TDataSet.AfterScroll)
При показе бокса (созданого заранее и скрытого) надо вызвать код, который бы получил список всех работ, а также список всех работ данного объекта, заполняем список строками с именами работ, а работы у данного объекта ещё и помечаем галочкой (массивовое свойство Checked у бокса). При скрытии бокса (а лучше по выключению свойства) вызываем код переустановки записей о работах текущего объекта - пробегаем по "массиву" Checked и для добавленных записей инсертим в базу, для убраных - удаляем.
Операции по селекту, инсерту и делиту неплохо бы оформить отдельно - на стороне приложения запросами или на стороне бд хранимыми процедурами.
Например, вот селектящий запрос

SELECT job.Name, CASE WHEN oj.ID IS NULL THEN 0 ELSE 1 END AS Checked
FROM Objects AS obj 
CROSS JOIN Jobs AS job 
LEFT JOIN ObjectJobs AS oj ON oj.ID_Job = job.ID AND obj.ID = oj.ID_Object
WHERE obj.ID = _нужный_айдишник_объекта_

По инсерту и делиту по желанию надо смотреть - либо отдельно список запоминать в программе что изменилось (это меньше нагрузка на базу, зато менее надёжно при многопользовательском режиме) и только с ним работать, либо циклом по всем работам гнать и сверять с базой (для многопользовательского режима надо ещё некий маркер времени изменений и его проверять, при конфликте можно откатить всю транзакцию и уведомить пользователя)

[edsjeka]

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

Это, наверное, для видов работ, у единицы обрабатываемой сущности может быть много записей о проделанных работах, в то же время виды проделанных работ не ограничены той единицей, могут быть применимы ко многим. В реальности такая структура делается просто 3й таблицей, где 1 запись на пару объект-работа, но таких записей по одному с разной работой может быть несколько.

Я бы сделал так - завёл проперти (или просто поле или переменную) гласящее, что в данный момент работаем со списком работ по выбранной единице.
Свойство это устанавливать по тому же даблклику, например, проверяя что кликнули в нужной ячейке, и показывал бы TCheckListBox (о нём подробней ниже). По смене фокуса ячейки бокс скрываем и свойство сбрасываем, например, по событию OnColExit. Также может понадобиться свойство - айдишник текущей записи (например, привязываемся к TDataSet.AfterScroll)
При показе бокса (созданого заранее и скрытого) надо вызвать код, который бы получил список всех работ, а также список всех работ данного объекта, заполняем список строками с именами работ, а работы у данного объекта ещё и помечаем галочкой (массивовое свойство Checked у бокса). При скрытии бокса (а лучше по выключению свойства) вызываем код переустановки записей о работах текущего объекта - пробегаем по "массиву" Checked и для добавленных записей инсертим в базу, для убраных - удаляем.
Операции по селекту, инсерту и делиту неплохо бы оформить отдельно - на стороне приложения запросами или на стороне бд хранимыми процедурами.
Например, вот селектящий запрос

SELECT job.Name, CASE WHEN oj.ID IS NULL THEN 0 ELSE 1 END AS Checked
FROM Objects AS obj 
CROSS JOIN Jobs AS job 
LEFT JOIN ObjectJobs AS oj ON oj.ID_Job = job.ID AND obj.ID = oj.ID_Object
WHERE obj.ID = _нужный_айдишник_объекта_

По инсерту и делиту по желанию надо смотреть - либо отдельно список запоминать в программе что изменилось (это меньше нагрузка на базу, зато менее надёжно при многопользовательском режиме) и только с ним работать, либо циклом по всем работам гнать и сверять с базой (для многопользовательского режима надо ещё некий маркер времени изменений и его проверять, при конфликте можно откатить всю транзакцию и уведомить пользователя)

Спасибо, вот это я и хотел узнать, я представлял как это должно выглядеть, но какими средствами это сделать не знал. Попробую реализовать.

[edsjeka]

Я не могу понять у какого объекта мне нужно установить даблклик. У DBGrid.Columns событие только PopupMenu, у поля ADOTable тоже нет события DoubleClick. Не пойму как мне указать что я кликнул по какой-то ячейке.

[Iron Monk]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(DBGrid1.SelectedField.AsString);
end;

[edsjeka]

Сообщение от Iron Monk

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(DBGrid1.SelectedField.AsString);
end;

А если мне нужно по нажатию на одно конкретное поле открыать другую форму или какое-то другое действие производить?

[Iron Monk]

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

А если мне нужно по нажатию на одно конкретное поле открыать другую форму или какое-то другое действие производить?

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  i, n: Integer;
begin
   i:= DBGrid1.SelectedIndex;
   n:= DataSource1.DataSet.RecNo;
   if (i = 2) and (n = 3) then
   Form3.Show;
end;