Конфигурирование Browse-окна

Контроль и ограничения редактирования записей

Valid <ВырL2> [Error <ВырC3>] ‑ вычисляется при выборе записи.

Значение Valid вычисляется после изменения записи при переходе на другую запись. Если опция Valid возвращает значение логической истины (.T.), то можно осуществлять переход на другую запись. Если опция Valid возвращает логическую ложь, то курсор остается в текущем поле текущей записи, и появляется системное сообщение “Invalid Input“. Ис­поль­зуя опцию Error <ВырC3>, можно вывести и собственное сооб­ще­ние об ошибке. Если опция Valid возвращает 0, то курсор остается в текущем поле текущей записи, но сообщение об ошибке не выдается.

Если после ключевого слова Valid поставить “:F”, то опция Valid бу­дет выполняться и перед переходом на каждую следующую запись.

When <ВырL3> ‑ позволяет либо запрещает выбор записи. Если опция When возвращает ложь или 0, то выбранная запись становится доступной только для чтения.

Noappend, Noedit, Nodelete ‑ предотвращает включение, корректировку и уда­ление записей соответственно.

Freeze <поле> - позволяет вносить изменения только в одно <поле>.

Last - открывает окно Browse в той же конфигурации, что сохранена в фай­ле Foxuser.

Preference <ВырC1> - сохраняет атрибуты и опции окна Browse в исходном файле для их дальнейшего использования.

Noclear - после выхода из окна Browse сохраняет его образ на экране.

Nomenu - запрещает доступ к вертикальному меню Browse и его опциям.

Timeout <ВырN3> - задает время (в секундах) ожидания ввода.

Title <ВырC2> - задает заголовок, который появляется вверху окна Browse.

Window <имя окна> [In Window <имя окна2>] - открывает окно Browse в другом окне. Окно, в котором будет открыто окно Browse, сначала дол­жно быть определено в команде Define Window. Опция Window акти­визирует окно и помещает в него окно Browse. Если используется опция In Window <имя окна2>, то окно Browse открывается в порож­даю­щем окне независимо.

Nowait - после открытия окна Browse продолжает выполнение программы.

Save - после выхода из окна Browse сохраняет его и любые другие открытые временные окна.

Width <ВырN4> - ограничивает количество отображаемых символов для всех полей. Опция не изменяет размер полей в самой базе данных.

Команда Edit имеет аналогичные параметры.

Пример. Настройка окна редактирования происходит таким обра­зом, чтобы оно имело собственные заголовки колонок Fam, Dtr, Pol, Det, Sem, Szar, заголовок окна - КАДРЫ, указания на возможные действия в окне (Ctrl+T, Ctrl+Y, Ctrl+W), ограничение на верхнюю границу средней зарплаты в 50000 и вы­чис­ля­емые поля Pom (Помощь), Pen (пенсия).

Use Kadr && открытие таблицы 'kadr'

Set Date German && установка формата даты

Browse Title '^T - удалить, ^Y - вставить КАДРЫ ^W-выход' Fields;

Fam:H='Фамилия':12,;

Dtr:H='Родился':V=Between(Dtr,Date()-365*100,Date()-365*18);
:E='Возраст от 18 до 100 лет',;

Pol:H='Пол':V=Inlist(upper(Pol),'М','Ж');

:E='Допустимые значения - М (Муж) или Ж (Жен'),;

Det:H='Детей':V=Between(Det,0,15):E='Число детей от 0 до 15',;

Sem:H='Сем.пол.':V=Inlist(upper(Sem),'Б','Х','Р',’В’);

:E='Вводить Б(в Браке), Х(Холост),Р(Разведен),В(вдовец)',;

Szar:H='Ср.зар.':V=Between(Szar,0,50000):E='Зарплата <=50000',;

Pom=Iif(Szar>1600,0,Min(Det*Szar*0.7,900)) H='Помощь':P='###.##',;

Pen=Iif(Gomonth(Dtr,12*Iif(upper(Pol)=’М’,60,55))<=Date(),'Пенсионер','');
:H='Пенсия'

Дата добавления: 2014-12-10