169 похожих чатов

Всем привет @nikron79 подскажи ,пожалуйста, ты каким образом миграцию организовал

у себя в орм?

3 ответов

18 просмотров

Привет. Подключаюсь к БД, вычитываю текущие метаданные и сравниваю с эталоном, который в программе имеется. По разнице генерирую Update.sql. При необходимости есть возможность загрузки данных в справочники и выполнение внешнего sql-скрипта.

Евгений-IceProduct Автор вопроса
Nik
Привет. Подключаюсь к БД, вычитываю текущие метада...

Как ты с "эталоном сравниваешь" , я хочу сделать как в django/ в классе поле поменял, раз миграцию вызвал он тебе сам все определил) но так что бы из pas файла собрать нужную инфу я так понимаю парсер нужен. может есть уже готовые парсеры pas файла?

Евгений IceProduct
Как ты с "эталоном сравниваешь" , я хочу сделать к...

У меня есть структуры, в которых описываются метаданные. В исходниках происходит заполнение этих структур. Каких-то парсеров я не делал отдельных. procedure TReportsMeta.Table_Filter; begin var T: MetaTableHelper; T.Table := Scheme.AddTable('RPT_WT_FILTER', 'Таблица "Фильтры"'); T.WorkTable.SetGUID('{4F454C5F-2B64-4904-BCD1-35601037BBE7}'); T.Int('ID').PKey.AutoInc(0); T.GUID('UID').NotNull.Indexed(True); T.Int('ID_FILTER_CATEGORY', 'ID категории фильтра').FKey('RPT_CT_FILTER_CATEGORY', 'ID').NotNull; T.Str('TABLE_LINK', 64, 'Таблица-источник данных'); T.Str('TABLE_WHERE', 512, 'Условие фильтрации таблицы-источника'); T.Str('FILL_QUERY', 512, 'Запрос для получения данных для фильтра'); T.Int('PARAM_COUNT', 'Количество параметров у запроса/условия фильтрации'); T.Str('CREATE_USER', 64, 'Имя пользователя, создавшего запись').Service(sfUserName).NotNull; T.TimeStamp('CREATE_TIME', 'Время создания').Service(sfTimeStamp).NotNull; T.Str('CHANGE_USER', 64, 'Имя пользователя').Service(sfUserName); T.TimeStamp('CHANGE_TIME', 'Время изменения').Service(sfTimeStamp); T.Table.SchemeTo(Scheme); end;

Похожие вопросы

Обсуждают сегодня

Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...
Евгений
44
И никого не интересует какие пакеты кто использует. ((% Заходишь на сайт симфони и видишь поддержку Украины - по законам РФ это ж экстремизм. Только никто не отказывается от с...
Am Ambrion
11
лучше скажите, причём тут паскаль?
Alexey Kulakov
36
Чтобы перехватить все нажимания буков на форме, надо хук ставить? Пробовал на форме ОнКейДаун, оно ловит клаву если фокус не на компоненте с вводом текста
Serjone
15
Народ! Впервые клиенту пришло письмо от РКН, у вас, дескать, есть яндекс метрика, а нигде не написано, что вы ее юзаете. Никто не сталкивался?
Sasha Beep
14
Всем привет! вывожу на общей стр дочерние ресурсыв каждом ресурсе галерея, и первая фотка должна выводиться на общей [!DocLister? &prepare=photo !]
Alekso
12
А можно вопрос? Мне сегодня сказали что у меня функция (которая просто заполняет массив значениями) не правильная void Full(double * arr, int n) { for (int i = 0; i < n; i...
† C E †
7
День добрый, подскажите пожалуйста, есть ли какой-то способ сказать ребару не компилировать определённое приложение? Всю доку их перечиатл ничего подобного не нашёл
Кирилл
14
Добрый вечер. Хочу чтобы у меня в классе поле было функцией, которая возвращает строку. Делаю так: interface ... TGetOutPath = function : String of object; ... protec...
Kirill Filippenok
12
Всем привет. Возможно ли выполнить код ahk без интерпритатора? Имея только скомпилированный ехе файл? Например как функция eval
proxy
6
Карта сайта