Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение атрибута элемента дерева 
:(
    Опции темы
Cerber24
Дата 7.4.2009, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Доброго времени суток. Есть приложение, написанное в Delphi 7, работающее с базой FireBird. В этом приложении есть дерево, постороенное из бд. Вопрос, как можно узнать какой-либо атрибут(ID, Parent и т.п.) элемента, кликая по нему мышкой! Заранее спс. если такое где-то уже описано прошу сильно ногами не пинать, smile а скинуть ссылку...
PM MAIL   Вверх
Kbl4AH
Дата 7.4.2009, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Код

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
    ShowMessage(TreeView1.Selected.Text);
    ShowMessage(IntToStr(TreeView1.Selected.StateIndex));
    ShowMessage(IntToStr(TreeView1.Selected.Level));
end;

Что именно нужно?

Это сообщение отредактировал(а) Kbl4AH - 7.4.2009, 16:27
PM MAIL ICQ   Вверх
Cerber24
Дата 7.4.2009, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Нет, нужно достать атрибут элемента из базы, а не индекс под которым он содержится в дереве.
PM MAIL   Вверх
Kbl4AH
Дата 7.4.2009, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Цитата(Cerber24 @  7.4.2009,  19:02 Найти цитируемый пост)
а не индекс под которым он содержится в дереве

Про индекс в дереве я ничего не говорил... smile 
1) можно целочисленное значение (например поле ID в таблице) записывать в StateIndex узла при заполнении дерева
2) потом можно по этому ID вытянуть любые поля записи из таблицы запросом:
Код

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin    
  Query.DeclareAndSet('ID', otInteger, TreeView1.Selected.StateIndex);
  Query.SQL.Text := 'select atribut from table where id = :ID';
  Query.Execute;
  if not Query.Eof then
    ShowMessage(Query.Field('atribut'));  
end;


Цитата(Cerber24 @  7.4.2009,  19:02 Найти цитируемый пост)
нужно достать атрибут элемента из базы

Я плохо понял, что за атрибут smile 

Это сообщение отредактировал(а) Kbl4AH - 7.4.2009, 19:32
PM MAIL ICQ   Вверх
Cerber24
Дата 7.4.2009, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Во большое спс, то что надо!!!! smile 
PM MAIL   Вверх
Cerber24
Дата 8.4.2009, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Еще такой вопрос, у меня есть SQL скрипт, со структурой базы FireBird с триггерами и ХП. Возможно ли создавать новую БД с помощью этого скрипта из приложения, написанного мной на Delphi? ну или как то им хоть воспользоваться, не охото всё это в приложении вбивать! =))
PM MAIL   Вверх
Akella
Дата 8.4.2009, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Cerber24, одна тема = один вопрос

Добавлено через 2 минуты и 38 секунд
Cerber24, какими компонентами ты пользуешься?
PM MAIL   Вверх
Cerber24
Дата 10.4.2009, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Среда разработки Delphi 7, база Fiebird 2.1, компоненты IBX.
PM MAIL   Вверх
Akella
Дата 10.4.2009, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Код

IBDatabase1.Connected=false;
IBDatabase1.DatabaseName=StrokaPodkluchenia;
IBDatabase1.Params.Clear();
IBDatabase1.Params.Add("user_name=I_AM_SUPER_PROGER");
IBDatabase1.Params.Add("password=SUPER_BUPER_PASSWORD");
IBDatabase1.Params.Add("page_size=4096");



//ВОТ ОНО
IBDatabase1.CreateDatabase();



IBDatabase1.Connected=true;


Это сообщение отредактировал(а) Akella - 10.4.2009, 22:33
PM MAIL   Вверх
Cerber24
Дата 11.4.2009, 10:32 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Вопрос был не в том, как создать базу, а как использовать скрипт, что бы загнать в неё всю структуру и тригерры из этого скрипта. И мне кажется ирония, на счет "I_AM_SUPER_PROGER", здесь неуместна...
PM MAIL   Вверх
Kbl4AH
Дата 11.4.2009, 11:04 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Цитата(Cerber24 @  11.4.2009,  11:32 Найти цитируемый пост)
И мне кажется ирония, на счет "I_AM_SUPER_PROGER", здесь неуместна...

Не обнадеживайся, это не ирония, это у Akella реальный username smile 
PM MAIL ICQ   Вверх
Cerber24
Дата 11.4.2009, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 3.7.2008

Репутация: нет
Всего: нет
Гы гы ну тогда сори! smile 
PM MAIL   Вверх
Kbl4AH
Дата 11.4.2009, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Цитата(Cerber24 @  11.4.2009,  15:11 Найти цитируемый пост)
Гы гы

стремится надо к такому юзернейму, а не гыкать smile 
PM MAIL ICQ   Вверх
Akella
Дата 11.4.2009, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
Cerber24, выполняй скрипты в квере с отключённым свойство AutoDDL.


Цитата(Cerber24 @  8.4.2009,  17:05 Найти цитируемый пост)
Возможно ли создавать новую БД с помощью этого скрипта из приложения, написанного мной на Delphi? 

ОТВЕЧАЮ НА ВОПРОС КОНКРЕТНО - ВОЗМОЖНО! smile

Добавлено через 2 минуты
Cerber24, говорю по-русски второй раз:
Модератор: Один вопрос = одна тема
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1201 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.