Форум: "Базы";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Внизn раз возникает событие OnNewRecord Найти похожие ветки
← →
}|{yk © (2004-04-21 16:32) [0]На 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
← →
Vlad © (2004-04-21 17:09) [1]
> но после появления формы любое изменение в ней приводит
>
> к возбуждению события OnNewRecord. Почему???
Какие именно изменения приводят к OnNewRecord ?
← →
}|{yk © (2004-04-21 17:16) [2]Да любое изменение любого dbedit, изменение loockupcombobox etc
← →
Соловьев © (2004-04-21 17:23) [3]
> }|{yk © (21.04.04 17:16) [2]
есть какая-то обработка событий у НД которые привязаны к этим контролам?
← →
}|{yk © (2004-04-21 17:28) [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:32) [5]
> к возбуждению события OnNewRecord.
какого НД?
← →
}|{yk © (2004-04-21 17:39) [6]Query_Kontragent_RS
← →
Соловьев © (2004-04-21 17:42) [7]
> Query_Kontragent_RS
SQL?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c