Как эмулировать связь между таблицами "master-detail"

← →
DmitryNekl © (2004-03-23 11:00) [0]

при использовании Query?

Проблема такая. Есть 3 таблицы. 3-я использует данные из первой и второй (первая и вторая независимы), в каждой таблице - куча данных. Для доступа используются компоненты TADOQuery.

Около первой и второй таблиц есть checkboxы.

Если checkbox у первой таблицы отмечен, то в третьей таблице должны остаться только записи, у которых определенное поле совпадает с текущим в первой таблице. При движении по первой таблице третья меняется.
Аналогично - со второй таблицей. Одновременно оба checkboxа отмечены быть не могут.

Что я делаю? На щелчок по checkboxу обрабатываю событие:

procedure MakeMasterDetailExecute(Sender: TObject); var s: string; begin if (Sender = checkbox1) then begin checkbox2.Enabled := not checkbox2.Enabled; if checkbox1.Checked then s:="SELECT * FROM tbl3 where id1=" + "" + DataModule1.ADOQuery1.Fields.Fields[0].AsString + "" else s:="SELECT * FROM tbl3"; end; if (Sender = checkbox2) then begin checkbox1.Enabled := not checkbox1.Enabled; if checkbox2.Checked then s:="SELECT * FROM tbl3 where id2=" + "" + DataModule1.ADOQuery2.Fields.Fields[0].AsString + "" else s:="SELECT * FROM tbl3"; end; RunSQL(DataModule1.ADOQuery3, s); //выполняет запрос end;

Далее обрабатываю событие DataSourceDataChange:

procedure DataModule1.DataSourceDataChange(Sender: TObject; Field: TField); var s: string; begin if Sender=DataSource1 then If Form1.checkbox1.Checked then begin s:="SELECT * FROM tbl3 where id1=" + "" + DataModule1.ADOQuery1.Fields.Fields[0].AsString + ""; RunSQL(NewsDataModule.ADOQuery3, s); end; if Sender=DataSource2 then If Form1.checkbox2.Checked then begin s:="SELECT * FROM tbl3 where id2=" + "" + DataModule1.ADOQuery2.Fields.Fields[0].AsString + ""; RunSQL(NewsDataModule.ADOQuery3, s); end; end;

И при щелчке по любому checkboxу программа зацикливается и виснет при выполнении этой процедуры. Что я делаю не так? В чем ошибка? И как еще можно решить задачу (т.е. эмулировать связь master-detail)?

← →
stud © (2004-03-23 11:10) [1]

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

← →
DmitryNekl © (2004-03-23 11:16) [2]

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

← →
Sergey13 © (2004-03-23 11:21) [3]

Навскидку.
А не происходит по
checkbox2.Enabled := not checkbox2.Enabled;
событие смены значения чекбокса? Не проверял, но похоже. Посмотри под отладчиком.

← →
bushmen © (2004-03-23 11:24) [4]

>На щелчок по checkboxу обрабатываю событие:
А ты не учитываешь, что снятие галочки с чекбокса - это тоже событие обрабатывается?!

← →
DmitryNekl © (2004-03-23 11:38) [5]

2 bushmen

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

2 Sergey13

Не, не происходит. Причем, что интересно: если вообще выкинуть обработку события DataSourceDataChange, то щелчки по checkboxам обрабатываются хорошо и все работает, как надо... только при изменении текущей записи ничего не происходит. А пытаюсь отловить изменение текущей записи в DataSourceDataChange - зацикливается... :(

2DmitryNekl © (23.03.04 11:38) [5]
>А пытаюсь отловить изменение текущей записи
В смысле "изменение"? Апдейт или скрол? После перемещения по записям в головных таблицах тебе афтерскрол на них надо обрабатывать.

Переписал все с использованием afterscroll вместо DataSourceDataChange и увидел интересную фишку:

procedure DataModule1.ADOQuery1AfterScroll(DataSet: TDataSet); procedure RunSQL(var Query: TADOQuery; s: string); begin Query.Close; Query.SQL.Clear; Query.SQL.Add(s); Query.Active:=true; end; var s: string; begin if DataSet=ADOQuery1 then If Form1.checkbox1.Checked then begin s:="SELECT * FROM tbl_Articles_Publications where id_gr=" + "" + DataSet.Fields.Fields[0].AsString + ""; RunSQL(DataModule1.ADOQuery3, s); end; end;

В режиме трассировки по F8 после вызова RunSQL(DataModule1.ADOQuery3, s) снова идет начало процедуры DataModule1.ADOQuery1AfterScroll...

Интересно, каким образом выполнение запроса над ADOQuery3 приводит к скроллингу ADOQuery1???

Как эмулировать связь между таблицами "master-detail" Найти похожие ветки