Помогите разабратся, как синхронизировать TabbedSheet

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Belenko
Сообщения: 3
Зарегистрирован: 08 ноя 2005, 16:11

Помогите разабратся, как синхронизировать TabbedSheet

Сообщение Belenko »

Помогите разабратся, как синхронизировать TabbedSheet
при переходе с одной закладки на другую позиция из Browse ActiveUsersT по строке должна сохранятся в интерфейсе и window.

Ниже пример, убрано всё лишнее, заранее спасибо.

!*************
interface INFOS;
show at (,,100,25);
var par444:comp;
parameters
par444;
create view as
select
X$ACTIVEUSERS.SESSIONID
from X$ACTIVEUSERS;

screen Inform 'Расширенная информация';
show at(,,,13);
Fields
X$ACTIVEUSERS.NOVELLNAME : protect,noDel;
<<
ИНФОРМАЦИЯ о ПОЛЬЗОВАТЕЛЕ
Login : .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
end; // Inform 'Расширенная информация'
end.


!************* Главный интерфейс

Interface AAAAGalUsers 'Список ' escclose,cyan;
show at (,,100,25);

create view
var
pActiveUsers:comp;
as
select
X$ACTIVEUSERS.SESSIONID
from X$ACTIVEUSERS (readonly);
!********************************************************
window InfosW 'Информация по пользователю ';
var test3:comp;
panel wtest;
Table X$ACTIVEUSERS;
screen InformW 'Расширенная информация';
show at(,,,13);
Fields
X$ACTIVEUSERS.NOVELLNAME : protect,noDel;
<<
ИНФОРМАЦИЯ о ПОЛЬЗОВАТЕЛЕ
Login : .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
end;
screen screen2 'Инфо2';
show at(,14,,);
<<
ИНФОРМАЦИЯ о ПОЛЬЗОВАТЕЛЕ 2
>>
end;
end;
end; //windows
!********************************************************
TabbedSheet BOTTOM tabbed

Browse ActiveUsersT 'Активные пользователи';
fields
X$ACTIVEUSERS.NOVELLNAME 'Сетевое Имя':[10], protect,noDel;
end; // ActiveUsersT 'Активные пользователи'

Embedded scINFOS1 'Занятые модули1' interface INFOS;
end; // Browse

Embedded scINFOS2 'Занятые модули2' interface AAAAGalUsers.infosw;
end; // Browse
end; // TabbedSheet

handleevent
cmChangeTabbedSheetFormat : {

}
end;//handleevent

!=============================================================================

end.
Ответить