RUS  ENG 

IZbVisualQuery добавление поля со справочником

Поиск  Правила  Войти
Страницы: 1
RSS
IZbVisualQuery добавление поля со справочником
 
#1
21.03.2019 14:10:48
Добрый день!

Программно создаю базу.
Так же программно сделал таблицу, сделал справочник, делаю запрос, но как подключить простой справочник к запросу?
Подскажите алгоритм, в сторону каких объектов и методов смотреть.
Если есть пример, неважно на каком языке - буду обязан.

Спасибо.
 
 
 
#2
25.03.2019 14:28:01
В общем, все на самом деле достаточно тривиально:
Код
//создаем простой справочник
BookInf := db.Books.AddNew(zbbtSimple, 'справочник');

// добавляем значения
SimBook := BookInf.SimpleBook;
SimBook.AddValue('0', 'нет');
SimBook.AddValue('1', 'да');

// создаем запрос 'Основной'
qryinf := db.Queries.AddNew(zbqtVisualQuery, 'Основной');
visqry := qryinf.VisualQuery;

// потом нужному полю запроса просто задаем источник значений
visqry.Fields.Item[visqry.Fields.GetIndexByName(0,'нужное поле')].Book := db.Books.Item[db.Books.GetIndexByName(0,'справочник')];


'нужное поле' и 'справочник' - имена просто для наглядности, в коде наверно нужны англ. буковки (потому как в GetIndexByName тип 0, т.е. короткие имена).

ZuluGIS 8.0.0.6970u, Delphi XE6, но скорее всего это работает и на более ранних версиях.
 
 
 
Страницы: 1