Объявить dataset
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 589
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Воронеж ОАО Верофарм. Воронеж
Объявить dataset
Пожалуйста, дайте консультацию
Пробую объявить datastream:
файл MyInt.vih:
vipInterface Myint;
public:
dataStream Sm;
end;
при компиляции ошибка : Требуется Implements после MyInt!
В ДОКЕ ТА НЕТУ НИКАКОГО IMPLEMENTS!!!
Чего делать? Почему не компилит? или дока корявая иля я неструганый???
Пробую объявить datastream:
файл MyInt.vih:
vipInterface Myint;
public:
dataStream Sm;
end;
при компиляции ошибка : Требуется Implements после MyInt!
В ДОКЕ ТА НЕТУ НИКАКОГО IMPLEMENTS!!!
Чего делать? Почему не компилит? или дока корявая иля я неструганый???
-
- Местный житель
- Сообщения: 589
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Воронеж ОАО Верофарм. Воронеж
Но я свой пример тоже из доки взял! Там прописано как делать отчет по fastReport по шагам (дока vipprog.chm - поставка Гал-ки). И это объявление datastream без implements (и еще куча примеров без implements!). А что можно вообще ставить после implements, если я объявляю свой datastream???? Есть какой то стандартный datastream или еще какой то объект??
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
mytest.vih
maytest.vip
Код: Выделить всё
ObjInterface ObjMyTest;
DataStream dsTest;
end;
VipInterface iMyTest Implements ObjMyTest;
Код: Выделить всё
interface iMyTest '';
.......
dataStream dsTest
(
[Fld1] Value1;
.......
[FldN] ValueN;
table Tabel1
(
[TFld1] Table1.Fld1;
.......
[TFldN] Table1.FldN;
);
)
HandleEvent table Table1
cmOnProcess: if not NextVisual BreakProcess;
end;
HandleEvent
cmPreProcess: StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm, 'Формирование', 0);
cmPostProcess: StopVisual('', 0);
end;
end;
.......
end.
Жду выхода Вселенная 2.12!
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Вот специально сейчас решил проверить
Пример рабочий.
Может моя предыдущая догадка верна?
В доке черным по белому
"Версия
Атлантис 5.0.
Расширение потоков данных введено начиная с Атлантис 5.1.2x."
Код: Выделить всё
ObjInterface ObjMyTest;
DataStream dsTest;
end;
VipInterface iMyTest Implements ObjMyTest;
Код: Выделить всё
#include my.vih
interface iMyTest '';
create view
var wNONE: Word;
;
dataStream dsTest
(
[MyOrg] sGetTune('MYORG');
)
HandleEvent
cmPreProcess: StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm, 'Формирование', 0);
cmPostProcess: StopVisual('', 0);
end;
end;
end.
Может моя предыдущая догадка верна?
В доке черным по белому
"Версия
Атлантис 5.0.
Расширение потоков данных введено начиная с Атлантис 5.1.2x."
Жду выхода Вселенная 2.12!