Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте уважаемые эксперты. У меня к вам огромная просьба. У меня есть две таблицы InterBase, где в первой поля PodrID - идентификатор подразделения, ParentID - идентификатор родителя, PodrName - название подразделения; Во второй таблице SotrID - идентификатор сотрудника, PodrID идентификатор подразделения, SotrName - Данные сотрудника. Помогите пожалуйста связать первую таблицу с TreeView, чтобы дерево имело неограниченное количество ветвей, можно было изменять родителя той или иной ветви, добавлять, изменять и удалять подразделения. Если у кого-то есть похожий исходник, пришлите пожалуйста на мыло desdeemon@yandex.ru буду очень признателен и благодарен. Заранее СПАСИБО!!!!!!!

Вопрос задал: Димон (статус: Посетитель) Вопрос отправлен: 9 мая 2008, 22:22 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: ANBsoft

Здравствуйте, Димон!
Когда-то писал подобную задачу.
Точнее задача была совершенно другая, но алгоритмы теже.
Приведу содержимое одной из форм, не буду особо описывать, если нужно - то разберетесь.
Это работающая форма из проекта. Вам нужно только поменять названия
"Группы товаров" на "Подразделения", а "Товары" на "Сотрудники".
Кроме того в форме присутствует сортировка по отдельному идентификатору
(для ручного задания порядка следования групп и товаров в них - так было нужно в проекте).
Вам это скорее всего не нужно (будете сортировать по алфавиту),
тогда поменяете поле в ORDER BY в запросах и уберете кнопки со стрелками.
Перенос веток мне был не нужен, но реализуется он легко,
добавляете кнопки "Вырезать" "Вставить". По "Вырезать" запоминаете идентефикатор переносимой ветки.
А по "Вставить" меняете в этой строке "ParentID" или "PodrID" и перестраиваете дерево.
В моем проекте "ID"-идентификатор строки, "IDParent"-идентификатор родителя.
С остальным, думаю, разберетесь, если захотите.
Успехов.
PS: мне выдает что приложение к вопросу слишком большое,
поэтому выложу архив с кодом на каком-нибудь шаровом сервере (выложиль здесь у меня нет прав).
Ссылка на архив с кодом

Ответ отправил: ANBsoft (статус: Студент) Время отправки: 10 мая 2008, 12:14

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.