Скачать: CL | DM;

Открыть все НД в datamodule   Найти похожие ветки 

← →
RomanH ©   (2006-09-14 12:41) [0]

Извините мастера но немогу найти, хотя не давно видел, читал такой топик.
Требуется окрыть все наборы данных в DATA MODULE Делаю так
for i:= to dm1.ComponentCount do
      begin
         dm1.Components[i].
      end
а дальше  не знаю,подскажите пожайлусто

---

← →
ЮЮ ©   (2006-09-14 12:51) [1]

if  dm1.Components[i] is TDataSet then
   TDataSet(dm1.Components[i]).Open

---

← →
RomanH ©   (2006-09-14 13:02) [2]

for i:=0 to dm1.ComponentCount do
      begin
           if  (dm1.Components[i] is TIBDataSet) or
               (dm1.Components[i] is TIBQuery)  then
             TDataSet(dm1.Components[i]).Open;

      end;
Как объявить TIBDataSet и TIBQuery?Чтобы компилятор не выдавал ошибку
Undeclared indefiner TIBDataSet/
Undeclared indefiner TIBQuery или необходимо использовать какой нить модуль

> ЮЮ ©

Спасибо за совет

---

← →
Desdechado ©   (2006-09-14 15:32) [3]

> необходимо использовать какой нить модуль
F1 на непонятом компилятором классе

---

← →
evvcom ©   (2006-09-15 08:37) [4]

> for i:=0 to dm1.ComponentCount do

for i:=0 to dm1.ComponentCount - 1 do

> if  (dm1.Components[i] is TIBDataSet) or
>               (dm1.Components[i] is TIBQuery)

Все они потомки TDataSet, потому оптимальнее будет как в [1]

---

← →
Desdechado ©   (2006-09-15 13:15) [5]

> Все они потомки TDataSet, потому оптимальнее будет как в [1]
Не всегда. Например, ClientDataSet, зацепленный за SQLDataset. Открывать нужно только CDS, а SQLDataset откроется автоматически. Поэтому проверки весьма логичны.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c