Sep

Скрипт для скрытия ненужных полей в таблицах в PowerDesigner

osya

При анализе ER-диаграмм в PowerDesigner иногда возникает потребность для облегчения восприятия скрыть некоторые служебные поля в таблицах. Пусть все таблицы на диаграмме содержат одинаковый набор служебных полей – ID, ПометкаУдаления, Версия. Для их скрытия удобно использовать следующий VBScript:

Set myModel = ActiveModel
Set diag = ActiveDiagram
For each T in myModel.Tables
  For each C in T.Columns
    If C.name = "ID" or C.name = "ПометкаУдаления" or C.name = "Версия" _
      then C.Displayed = false
    Next
Next