| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Запретить Refresh при изменении несвязаного с параметрами поля?

Erik1 ©   (2004-12-17 13:52:00) 

Есть компонент TsvStoredProc наследние от TStoredProc у него имеется TQueryDataLink = class(TDataLink). В TQueryDataLink описан метод procedure RecordChanged(Field: TField); override; там происходит Refresh подчиненых DataSet.
procedure TQueryDataLink.RecordChanged(Field: TField);
begin
 if (Field = nil) and FProc.Active then
   FProc.RefreshParams(True); //refresh does not work
end;

procedure TsvStoredProc.RefreshParams(const Force: Boolean);
var
 DataSet: TDataSet;
begin
 if State in [dsEdit, dsInsert] then
   Post;
 if Cachedupdates and UpdatesPending then
   exit;

 DisableControls;
 try
   if Assigned(FDataLink.DataSource) then
   begin
     DataSet := FDataLink.DataSource.DataSet;
     if Assigned(DataSet) then
       if DataSet.Active and (DataSet.State <> dsSetKey) then
         if Force or IsChanged(DataSet, Params) then
         begin
           Close;
           Open;
         end;
   end;
 finally
   EnableControls;
 end;
end;
У всех TsvStoredProc есть возможность задать DataSource мастера и от туда подставляются параметвы в процедуры, это очень удобно при любых изменениях главной таблицы меняются все подчиненые.
К сожалению незнаю как лишний раз невызывать Refresh например когда изменяется поле неотносяшееся к Master-Detail связи?

---

Erik1   (2004-12-17 13:56:00) [1]

Тоесть мне нужно отличать Принудительный Refresh от простого изменения данных.

---

Наверх