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

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

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

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

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

Автор: ElenaB

Автор публикации

не в сети 19 лет

ElenaB

0
Комментарии: 0Публикации: 3Регистрация: 28-09-2001
0
Оставить комментарий
Авторизация
*
*
Регистрация
*
*
*
Пароль не введен
*
Генерация пароля