FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9176
Вход
Автоматическое заполнение заголовков лок. представлений

Утилита, предназначенная для автоматического заполнения заголовков полей в локальных представлениях при разработке базы данных. Названия считывает с заголовков полей в источниках.


 
Прислал: ElenaB   Категория: Инструменты разработчика


Автоматическое заполнение заголовков лок. представлений

Надо открыть дизайнер базы данных, создать представление и запустить следующую утилиту:

view_name = '' && имя локального представления, куда хотим поместить заголовки
DO view_captions.prg WITH view_name

view_captions.prg
*****************

PARAMETERS view_name

IF !USED(view_name)
USE &view_name. IN 0 EXCLUSIVE
ENDIF

SELECT(view_name)
nCol = FCOUNT()

FOR i = 1 TO nCol
ii = ALLTRIM(STR(i))
CurField = view_name + '.'+ ALLTRIM(FIELD(i))
CurUpName =DBGETPROP(CurField,"FIELD","UpdateName")
CurUpName = RIGHT(CurUpName,LEN(CurUpName)-AT('!',CurUpName))
CurHead =DBGETPROP(CurUpName,"FIELD","Caption")
= DBSETPROP(CurField,"FIELD","Caption",CurHead )
ENDFOR
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.861)
Дополнения пользователей
Автоматическое заполнение заголовков лок. представлений
[+][?]
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика