Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

n раз возникает событие OnNewRecord

}|{yk © (2004-04-21 16:32:00)
На OnNewrecord у меня такой код

if Table_Kontragent.IsEmpty then Exit;
Query_Kontragent_RSKONTRAGENT_ID.AsInteger := Table_KontragentKONTR_ID.AsInteger;
with TFormKontragentRS.Create(Self) do
begin
Caption := 'Ðàññ÷åòíûé ñ÷åò êîíòðàãåíòà ' + Query_Kontragent_RSKONTRAGENT.AsString + ' - äîáàâëåíèå';
try
ShowModal;
finally
Free;
end;
end;
if (Query_Kontragent_RS.State = dsInsert) or (Query_Kontragent_RS.State = dsEdit) then
Query_Kontragent_RS.Post;

но после появления формы любое изменение в ней приводит
к возбуждению события OnNewRecord. Почему???
DB - FireBird 1/5 Компоненты доступа FIBPlus 4.8.1

Соловьев (2004-04-21 17:42:00) [1]

> Query_Kontragent_RS

SQL?

}|{yk (2004-04-21 17:39:00) [2]
Query_Kontragent_RS

Соловьев (2004-04-21 17:32:00) [3]

> к возбуждению события OnNewRecord.

какого НД?

}|{yk (2004-04-21 17:28:00) [4]
в datasource TableKontragent на OnDataChange испоняется запрос на выборку значений
вот он
if Table_Kontragent.IsEmpty then Exit;
if Table_Kontragent.State <> dsBrowse then Exit;
Query_Kontragent_RS.Active := False;
Query_Kontragent_RS.ParamByName('kontr_id').AsString := Table_KontragentKONTR_ID.AsString;
Query_Kontragent_RS.Active := True;
Все

Соловьев (2004-04-21 17:23:00) [5]

> }|{yk © (21.04.04 17:16) [2]

есть какая-то обработка событий у НД которые привязаны к этим контролам?

}|{yk (2004-04-21 17:16:00) [6]
Да любое изменение любого dbedit, изменение loockupcombobox etc

Vlad (2004-04-21 17:09:00) [7]

> но после появления формы любое изменение в ней приводит
>
> к возбуждению события OnNewRecord. Почему???

Какие именно изменения приводят к OnNewRecord ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »