Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос по TreeView, в БД 
:(
    Опции темы
Sidelong
Дата 2.6.2005, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вообщем, сделал чтобы в TreeView по нажатию правой кнопки мыши вылетало PopUpMenu такого содержания:

Добавить ----> Рабочая станция
Переименовать Изделие
-------------------- Техсредство
Удалить

как сделать так чтобы в TreeView при добавлении имени рабочей станции поулчалось

Рабочая станция
.
.- имя раб.стан.1
.- имя раб.стан.2
...........
.- имя раб.стан.n

т.е. при добавлении либо раб.стан. либо Изделия либо Техсредства
они в TreeView виделсь 1 раз а все остальные ихние введеные имена появлялись в соответствии под ними?!
PM MAIL   Вверх
Sonya
Дата 2.6.2005, 17:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
я раз надцать перечитала вопрос и так и непоняла, вопрос.
подробней напиши что уже есть и что хочешь получить.
PM MAIL ICQ   Вверх
Albinos_x
Дата 2.6.2005, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Цитата
т.е. при добавлении либо раб.стан. либо Изделия либо Техсредства
они в TreeView виделсь 1 раз а все остальные ихние введеные имена появлялись в соответствии под ними?!


до этой фразы вроде всё понятно было...

Нужно, чтоб при добавлении станции не получилось повторов, типа

рабоч.стан.1
рабоч.стан.1
???

Или чтоб они сортировались в порядке возростания???

ничего понять не могу...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
RA
Дата 2.6.2005, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: нет
Всего: 115
Sidelong Тоже не понял smile
И еще причём тут БД ?

Вобще лутше нарисуй что ты хочешь. smile
PM   Вверх
Sidelong
Дата 2.6.2005, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
вообщем пишу я клиентскую часть к БД которая храниться на SQL Server 2000

в TreeView хочу выводить следующее:
по нажатию правой кнопки мыши выбираем меню "Добавить->Раб.станция", пишм ее название (например pc1). В TreeView хочу что бы вывелось Раб.станция->"имя раб.стан."
и так вводит имена рабочих станций сколько нужно.
Теперь вопрос.
Как сделать так чтобы в TreeView на самом верхнем уровне было Раб.станция, а ее корнями были имена рабочих станций?!

ну и соответственно также должно работать на Изделиях и Техсредствах.

С Уважением, Данил.
PM MAIL   Вверх
Albinos_x
Дата 2.6.2005, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Цитата
Как сделать так чтобы в TreeView на самом верхнем уровне было Раб.станция, а ее корнями были имена рабочих станций?!


Код
...
if TreeView1.Selected.Level=0 then
  TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text)
  else
  TreeView1.Items.AddFirst(TreeView1.Selected,Edit1.Text);
...



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Albinos_x
Дата 3.6.2005, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Цитата
ну и соответственно также должно работать на Изделиях и Техсредствах.


Код
...
var   Noddy :TTreeNode;
begin
Noddy := TreeView1.Items[i];
TreeView1.Selected := Noddy;
TreeView1.SetFocus;
if TreeView1.Selected.Level=0 then
  TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text)
  else
  TreeView1.Items.AddFirst(TreeView1.Selected,Edit1.Text);
end;
...


где i := 1,2,3 {integer} рабочая станция, Изделие, техСредство соответственно, при условии что они есть по умолчанию(можно использовать свойство Tag кнопок);
Edit1.Text -здесь хранится имя рабочей станции или Изделия или техСредства...

В зависимости от кнопки.. то, что нужно подправишь...

Дерзай smile

Это сообщение отредактировал(а) Albinos_x - 3.6.2005, 00:05


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Sidelong
Дата 3.6.2005, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Albinos_x @ 3.6.2005, 00:03)
Цитата
ну и соответственно также должно работать на Изделиях и Техсредствах.


Код
...
var   Noddy :TTreeNode;
begin
Noddy := TreeView1.Items[i];
TreeView1.Selected := Noddy;
TreeView1.SetFocus;
if TreeView1.Selected.Level=0 then
  TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text)
  else
  TreeView1.Items.AddFirst(TreeView1.Selected,Edit1.Text);
end;
...


где i := 1,2,3 {integer} рабочая станция, Изделие, техСредство соответственно, при условии что они есть по умолчанию(можно использовать свойство Tag кнопок);
Edit1.Text -здесь хранится имя рабочей станции или Изделия или техСредства...

В зависимости от кнопки.. то, что нужно подправишь...

Дерзай smile

Большое спасибо!

получилось smile

только мне надо что бы она еще введеное имя раб.станции например, занесла в поле не Edit1, а в DBEdit1.
Как это сделать?
Если пишу reeView1.Items.AddChild(TreeView1.Selected,root) то пишет ошибку!

вот код:

root:TTreeNode;
st:string;
begin
root:=TreeView1.Items[i];
TreeView1.Selected := root;
TreeView1.SetFocus;
InputQuery('Окно ввода','Название рабочей станции: ', st);
if TreeView1.Selected.Level=0 then
TreeView1.Items.AddChild(TreeView1.Selected,root)
else
TreeView1.Items.AddFirst(TreeView1.Selected,DBEdit17.Text);
DBEdit17.Text:=st;
ADOQuery_rab_st.Append;
Form2.PageControl1.Visible:=true;
PM MAIL   Вверх
Albinos_x
Дата 3.6.2005, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Цитата
Код
...
f TreeView1.Selected.Level=0 then
TreeView1.Items.AddChild(TreeView1.Selected,root)
else
TreeView1.Items.AddFirst(TreeView1.Selected,DBEdit17.Text);
DBEdit17.Text:=st;
...


делай так

Код
...
f TreeView1.Selected.Level=0 then
TreeView1.Items.AddChild(TreeView1.Selected,st)
else
TreeView1.Items.AddFirst(TreeView1.Selected,st);
DBEdit17.Text:=st;
...




--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Dynamic
Дата 4.6.2005, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Цитата(Albinos_x @ 3.6.2005, 19:35)
DBEdit17.Text:=st;

все же лучше так:
Код

DBEdit17.Field.AsString := st;


Это сообщение отредактировал(а) Dynamic - 4.6.2005, 17:01


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Sidelong
Дата 4.6.2005, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
а как сохранять все введенные в TreeView раб.станции, Изделия и техСредства??
а то завершаю работу базы, азпускаю снова и нифига в TreeView нет то что вводил smile

С уважением, Данил.
PM MAIL   Вверх
Dynamic
Дата 5.6.2005, 05:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Не поверишь:
Код

TreeView.SaveToFile(...);
TreeView.LoadFromFile(...);
smile


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Sidelong
Дата 5.6.2005, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Dynamic @ 5.6.2005, 05:39)
Не поверишь:
Код

TreeView.SaveToFile(...);
TreeView.LoadFromFile(...);
smile

блин я че-то парюсь, куда их поместить? TreeView.SaveToFile(...);
TreeView.LoadFromFile(...)??

Код

var
root:TTreeNode;
st:string;
begin
  DateTimePicker_otvet_in.Checked:=false;
  DateTimePicker_otvet_out.Checked:=false;
  root:=TreeView1.Items[0];
  TreeView1.Selected := root;
  TreeView1.SetFocus;
  InputQuery('Окно ввода','Название рабочей станции: ', st);
  DBComboBox_audit.Items.Add(DBComboBox_audit.Text);
  ADOQuery_audit.Append;
  ADOQuery_otvet.Append;
  ADOQuery_rab_st.Append;
  if TreeView1.Selected.Level=0 then  begin
    TreeView1.Items.AddChild(TreeView1.Selected,st)
  end
  else
      TreeView1.Items.AddFirst(TreeView1.Selected,st);
      DBEdit17.Field.AsString := st;
      Form2.PageControl1.ActivePage.PageControl.Visible:=true;
PM MAIL   Вверх
Albinos_x
Дата 5.6.2005, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
TreeView.LoadFromFile(...)

в событие формы OnCreate

TreeView.SaveToFile(...)

в событие формы OnClose



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Sidelong
Дата 5.6.2005, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Albinos_x @ 5.6.2005, 22:05)
TreeView.LoadFromFile(...)

в событие формы OnCreate

TreeView.SaveToFile(...)

в событие формы OnClose

выдает ошибку типа: Project такой-то raised exception class EFOpenError with message 'Cannot open file "". Системе не удается найти указанный путь' прсеес остановлен!

Как быть?
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


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

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

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


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

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

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

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


 




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


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

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