ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Наследование фрейма с TDataSet
25 сообщений из 41, страница 1 из 2
  1  все
Наследование фрейма с TDataSet
    #39924453
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Есть фрейм-заготовка на котором лежит сетка и набор данных.
Набор данных TUniQuery с пустым свойством SQL и, соответственно, нет persistent-полей.

Есть второй фрейм, который наследуется от первого. Всё шло хорошо, пока я не заполнил у НД свойство SQL и не создал поля.
При создании второго фрейма появляется ошибка: A component named qDataID already exists.
qDataID - это persistent-поле.

Я ведь полей в первом фрейме не создавал, поэтому дублей не должно быть.
В дизайне ошибок нет, только при создании фрейма.

Под фреймами я подразумеваю TUniFrame из UniGUI.

ЧЯДНТ?
...
Рейтинг: 0 / 0
09.02.2020, 23:32
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924472
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
X11,

Обращаешься не в тот форум, имхо.))
...
Рейтинг: 0 / 0
10.02.2020, 00:50
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924474
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
X11
В дизайне ошибок нет, только при создании фрейма

В смысле, в рантайме? Тогда похоже, что там пытается создаться ещё один набор полей. Для начала стоит посмотреть стек вызовов в момент ошибки и проследить логику.

X11
ЧЯДНТ?

Про Uni не в курсе. Из общих соображений - я бы не рекомендовал пользоваться persistent полями у SQL-датасетов. Пользы минимум, а геморроя много.
...
Рейтинг: 0 / 0
10.02.2020, 00:53
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924477
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
softwarer
В смысле, в рантайме?


ага
...
Рейтинг: 0 / 0
10.02.2020, 00:59
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924478
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
softwarer
Тогда похоже, что там пытается создаться ещё один набор полей.


это я понимаю, я не понимаю, почему создается набор полей дважды
...
Рейтинг: 0 / 0
10.02.2020, 00:59
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924479
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
softwarer
Про Uni не в курсе. Из общих соображений - я бы не рекомендовал пользоваться persistent полями у SQL-датасетов. Пользы минимум, а геморроя много.


а как мне в DBGrid вывести данные?
...
Рейтинг: 0 / 0
10.02.2020, 01:00
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924480
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Vlad F
X11,

Обращаешься не в тот форум, имхо.))


я ещё не скопил нужную сумму, чтобы там задавать вопросы
...
Рейтинг: 0 / 0
10.02.2020, 01:03
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924485
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
X11
а как мне в DBGrid вывести данные?

Точно так же. Persistent поля для этого не нужны (ну... если версия дельфы новее, чем 1.0).
...
Рейтинг: 0 / 0
10.02.2020, 01:12
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924486
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
X11
это я понимаю, я не понимаю, почему создается набор полей дважды

Вот это уже может быть вопрос к неизвестному мне TUniFrame.
...
Рейтинг: 0 / 0
10.02.2020, 01:15
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924546
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
softwarer
X11
а как мне в DBGrid вывести данные?

Точно так же. Persistent поля для этого не нужны (ну... если версия дельфы новее, чем 1.0).


Настраивать, вводить локализованные названия в DisplayCaption удобно в дизайне.
...
Рейтинг: 0 / 0
10.02.2020, 10:05
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924556
vavan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vavan
Участник
X11
Настраивать, вводить локализованные названия в DisplayCaption удобно в дизайне
да там масса свойств к-е удобно в дизайне задавать
...
Рейтинг: 0 / 0
10.02.2020, 10:30
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924561
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
X11
Настраивать, вводить локализованные названия в DisplayCaption удобно в дизайне.

Спасибо, я работал с Delphi 1.0 и помню, как оно там было. Но с тех пор технология немного ушла вперёд, и начиная с 2.0 в гридах появились колонки, в которых это не менее удобно настраивается без persistent fields.
...
Рейтинг: 0 / 0
10.02.2020, 10:36
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924709
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
X11
Настраивать, вводить локализованные названия в DisplayCaption удобно в дизайне.
Удобнее. А при обновлении структуры БД замучаешься искать ошибки. Поэтому лучше это делать все таки в рантайме. В нашей системе все настройки по отображению полей лежат в самой БД в описании поля.

По сути вопроса - смотри dfm всех фреймов и формы на которой они лежат. Скорее всего что-нибудь увидишь
...
Рейтинг: 0 / 0
10.02.2020, 15:38
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924712
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
_Vasilisk_
А при обновлении структуры БД замучаешься искать ошибки. Поэтому лучше это делать все таки в рантайме.


Вот не совсем так.
Например, TpFibDataSet умеет автоматически менять параметры persistent-полей при открытии формы в дизайне.

А если бы у меня было всё в pas файлах, то действительно пришлось бы всё править ручками.

Ок, вот, например, UniQuery (DevArt) не умеет так делать, но всё равно - почему в редакторе кода должно быть удобнее?
...
Рейтинг: 0 / 0
10.02.2020, 15:50
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924715
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
_Vasilisk_
По сути вопроса - смотри dfm всех фреймов и формы на которой они лежат. Скорее всего что-нибудь увидишь


неа, ничего нету "криминального"

В первом (родительском) фрейме - только НД (снимок экрана)

во втором (дочернем) уже с persistent-полями и поля в единственном экземпляре
...
Рейтинг: 0 / 0
10.02.2020, 15:54
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924722
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
_Vasilisk_
В нашей системе все настройки по отображению полей лежат в самой БД в описании поля.

Меня всегда восхищало умение противопоставить одно плохое решение другому плохому решению.
...
Рейтинг: 0 / 0
10.02.2020, 15:57
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924723
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Отбой, не заметил unigui..
...
Рейтинг: 0 / 0
10.02.2020, 15:57
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924727
Zelius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zelius
Участник
X11,

покажи такой же снимок для дочернего фрейма
...
Рейтинг: 0 / 0
10.02.2020, 16:03
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924734
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
X11
почему в редакторе кода должно быть удобнее?
Потому что пишется одна строка
Код: pascal
1.
2.
3.
4.
procedure AfterOpen(ADataSet: TDataSet);
begin
  ApplyFields(ADataSet);
end;

и где-то в служебных функциях
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure ApplyFields(ADataSet: TDataSet);
var
  LFieldsInfo: TArray<TFieldInfo>
  Li: Integer;
begin
  LFieldsInfo := LoadInfos(ADataSet: TDataSet);
  for Li := 0 to ADataSet.FieldCount - 1 do
    ApplyField(ADataSet.Fields[Li], LFieldsInfo[Li]);
end;


После этого в Description поля заносим всю нужную для отображения информациюИмя;1;16;0Здесь используется такой формат: DisplayLabel;Visible;Width;Align и при модификации поля в БД тут же изменяем его стиль отображения
...
Рейтинг: 0 / 0
10.02.2020, 16:13
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924736
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
softwarer
Меня всегда восхищало умение противопоставить одно плохое решение другому плохому решению.
Обоснуешь?
...
Рейтинг: 0 / 0
10.02.2020, 16:15
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924740
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
_Vasilisk_
softwarer
Меня всегда восхищало умение противопоставить одно плохое решение другому плохому решению.
Обоснуешь?

Без проблем.
...
Рейтинг: 0 / 0
10.02.2020, 16:21
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924742
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Zelius,

Такого же точно снимка не будет, потому что в дочернем уже созданы поля, в один снимок всё не влезет.
Запрос большой, плюс много полей, всё в один снимок не влезет, даже в два, наверное, не влезет.
Я сделал так: оставил только одно поле ID и склеил снимок из двух, вырезав SQL запрос:
...
Рейтинг: 0 / 0
10.02.2020, 16:24
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924748
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
_Vasilisk_
Здесь используется такой формат: DisplayLabel;Visible;Width;Align и при модификации поля в БД тут же изменяем его стиль отображения


А если с программой работают несколько пользователей и все нужны разные настройки столбцов/сеток?
...
Рейтинг: 0 / 0
10.02.2020, 16:28
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924758
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
X11
_Vasilisk_
Здесь используется такой формат: DisplayLabel;Visible;Width;Align и при модификации поля в БД тут же изменяем его стиль отображения

А если с программой работают несколько пользователей и все нужны разные настройки столбцов/сеток?

Логично, что в БД хранятся дефолтные, а модификации пишутся локально в реестр и при необходимости (при изменении типа поля, например) - сбрасываются.
Ну я бы так сделал.
...
Рейтинг: 0 / 0
10.02.2020, 16:52
| Ответить | Цитировать | Написать  
Наследование фрейма с TDataSet
    #39924762
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
X11
В первом (родительском) фрейме - только НД (снимок экрана)

Так, чисто наобум - попробуй убрать этот KeyFields. Вдруг он создаёт поле под него, а потом оно конфликтует с полями из дочернего?
...
Рейтинг: 0 / 0
10.02.2020, 17:01
| Ответить | Цитировать | Написать  
25 сообщений из 41, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Наследование фрейма с TDataSet
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39924478&tid=2038612]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 179ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 255ms
total:  539ms
созд. / загр.: 539ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]