большая проблема с редактированием dbgrid

[undead92]

у меня есть таблица в mysql, соединяюсь из delphi компонентом mydac

так вот есть несколько dbgrid, данные из таблицы базы поступают в них sql запросами. Проблема в том как реализовать редактирование.

Если бы я выводил всю таблицу, то никаких проблем dbedit и post

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

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

[astecenko]

Не пользовался mydac, но по сути Вам нужны "живые запросы", если компонент поддерживает подобную возможность (может быть есть свойство или опция LiveQuery или что-то типа того), то можете использовать. Но для работы "живых запросов" в выборке должно быть достаточно ключевых полей. Да и сама реализация "живых запросов" именно так как Вы предполагаете и делается - запросами. Так что если нельзя выборки связанные с DbGrid-ами сделать "живыми" то тогда только самостоятельно писать запросы на редактирование записей. Это все без привязки к mySQL. Возможно там можно триггеры написать какие-то, не знаю, не работал...

[Vapaamies]

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

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

У нормальных программистов по щелчку на строку текущая выделенная записть в DBGrid должна быть выведена в DB-компоненты в диалоге, подключенные к тому же DataSource, что и DBGrid.

Если правильно понимаю, то MyDAC должен использовать ту же систему, что и ODAC, поскольку написан на том же DAC-движке. В нем обычно бывает "ручная" и "продвинутая" версии -- TxxQuery и TxxSmartQuery. В ручной версии нужно UpdateSQL и DeleteSQL нужно писать вручную, а в smart-версии достаточно указать KeyFields, и компонент сгенерит соответствующие UpdateSQL сам.

[undead92]

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

У нормальных программистов по щелчку на строку текущая выделенная записть в DBGrid должна быть выведена в DB-компоненты в диалоге, подключенные к тому же DataSource, что и DBGrid.

Если правильно понимаю, то MyDAC должен использовать ту же систему, что и ODAC, поскольку написан на том же DAC-движке. В нем обычно бывает "ручная" и "продвинутая" версии -- TxxQuery и TxxSmartQuery. В ручной версии нужно UpdateSQL и DeleteSQL нужно писать вручную, а в smart-версии достаточно указать KeyFields, и компонент сгенерит соответствующие UpdateSQL сам.

Ручной вариант получился по образцу, прикрепил.

в принципе keyfields тоже попробовал - быстрее. Но! печаль в том что все записи должны быть уникальны, потому что если в дбгриде есть 2 одинаковые строки - то выскочит ошибка

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

У нормальных программистов по щелчку на строку текущая выделенная записть в DBGrid должна быть выведена в DB-компоненты в диалоге, подключенные к тому же DataSource, что и DBGrid.

Можно про это поподробней? с примером


Идея! Если создать в базе id2 например, и сделать его автозаполнение, то если в keyfields засунуть id 2 - проблема решиться? все остальные поля в строках могут быть одинаковыми

[Vapaamies]

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

если в дбгриде есть 2 одинаковые строки - то выскочит ошибка

И правильно, ибо нефиг. Возможных причин две:

• Запрос выбирает не все ключевые поля.
• Таблица/представление БД не имеют первичного ключа.

По второму случаю предлагаю глубже ознакомиться с теорией реляционных БД, особенно в части нормализации.

По поводу редактирования и диалогов:

• На главной форме лежит DBGrid, DataSource, DataSet (SmartQuery). DBGrid отображает данные из DataSet-а, что логично.
• Диалог создается как отдельная форма с расположенными на ней DB-компонентами и своим DataSource, но без DataSet:
  • DB-компоненты диалога привязываются к лежащему на нем DataSource.
  • Создается публичный метод Execute, назначение которого -- редактирование переданного набора данных.

type
  TEditCar = class(TForm)
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
  public
    function Execute(DataSet: TDataSet): Boolean;
  end;

function TEditCar.Execute(DataSet: TDataSet): Boolean;
begin
  DataSource.DataSet := DataSet;
  Result := ShowModal = mrOK;
end;

Вызов такого диалога:

procedure btInsert.Click(Sender: TObject);
begin
  qCars.Insert;
  if EditCar.Execute(qCars) then
    qCars.Post
  else
    qCars.Cancel;
end;

procedure btEdit.Click(Sender: TObject);
begin
  qCars.Edit;
  if EditCar.Execute(qCars) then
    qCars.Post
  else
    qCars.Cancel;
end;

С сохранением режима редактирования при присвоении DataSource.DataSet вроде ничего не напутал...