Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Продвинутый бесплатный грид, посоветуте 
:(
    Опции темы
RST8
Дата 11.2.2007, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Бывает такое в природе вообще?
--------------------
Посадка, с места которой можно уйти на собственных ногах, считается удачной!
PM   Вверх
MetalFan
Дата 11.2.2007, 22:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
VirtualTreeView. в режиме грида


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Bose
Дата 12.2.2007, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
NextGrid - красивый и шустрый, но не совсем удобный

DBGridEh - функциональный грид, заточенный исключительно на работу с БД


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
aktuba
Дата 12.2.2007, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Bose, он просил бесплатный  smile 


RST8, используй VirtualTreeView, как посоветовал Metalfan, и будет тебе счастье  smile.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Bose
Дата 12.2.2007, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
Цитата(aktuba @  12.2.2007,  17:05 Найти цитируемый пост)
Bose, он просил бесплатный  

NextGrid - бесплатен. Просто он без исходников.
Ehlib Grid(DBGridEh) в версии 3.0(кажется) бесплатен для использования жителями бывшего СНГ(если ничего не путаю).

Об грида хороши, но каждый в своём. =)


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
RST8
Дата 12.2.2007, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Бум пробовать, спасибо  smile 
--------------------
Посадка, с места которой можно уйти на собственных ногах, считается удачной!
PM   Вверх
hilarios
Дата 5.6.2007, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(MetalFan @ 11.2.2007,  22:07)
VirtualTreeView. в режиме грида

Подскажите пожалуйста, как заставить VirtualTreeView работать как динамический грид??? И был ли у кого-нибудь опыт работы с этим? Буду благодарен за любую полезную информацию по этому поводу.
PM MAIL   Вверх
aktuba
Дата 5.6.2007, 07:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

динамический грид


Это как??? Объясни что тебе надо - будет проще помочь!


--------------------
user posted image
PM MAIL WWW Skype   Вверх
hilarios
Дата 5.6.2007, 08:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(aktuba @ 5.6.2007,  07:56)
Это как??? Объясни что тебе надо - будет проще помочь!

Мне надо создать справочник справочников. Куча разных справочников, с разными полями, должны отображаться в одном VirtualTreeView, структура открывается через ADOQuery. В принципе в идеале как DBGRid, динамически передавать список полей, которые должны раскидываться по соответствующим колонкам....


Код

 with ADOStoredProc8 do
    begin
      Parameters.ParamValues['@name'] := data.stri.table_name;
      Active := True;
      if not IsEmpty then
      begin
     // SetLength(stry, RecordCount);
        i := 0;
        First;
        while not Eof do
        begin

          column[i] := FieldValues['Des'];
          tip[i] := FieldValues['tip'];

          Inc(i);
          Next;
        end;
      end;
      Active := False;
    end;

   with VST1 do
    begin
      for n := 0 to i - 1 do // Iterate
      begin
        Header.Columns.Add;
        Header.Columns[n + 1].Text := column[n];
        Header.Columns[n + 1].Width := 100;
      end; // for



динамически список колонок получить проблем не составило, а вот заполнить их данными ни как не выходит :(

Добавлено @ 08:19
Цитата(hilarios @ 5.6.2007,  08:13)
Это как??? Объясни что тебе надо - будет проще помочь

Потом получаю данные с QUERY по имени таблицы :

Добавлено @ 08:21
Код

      with ADOQuery1 do
      begin

        SQL.Clear;
        sql.Add('select  *  from ' + Data.stri.table_name);



//if not Active then
        Open;
        Filtered := False;
        Filter := '';
        First;
      end; // with


а вот распихать их по дереву не выходит....и как создать из них динамический массив тоже не особо выходит впринципе....


M
Alexeis		Модератор: используйте подсветку кода  http://forum.vingrad.ru/index.php?show_typ...howtopic=126445


Это сообщение отредактировал(а) Alexeis - 5.6.2007, 09:30
PM MAIL   Вверх
hilarios
Дата 6.6.2007, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(MetalFan @ 11.2.2007,  22:07)
VirtualTreeView. в режиме грида

Не было-ли случайно у тебя опыта работы с VirtualTreeView в качестве динамического грида??? В который можно было бы выводить таблицы с разной структурой?
PM MAIL   Вверх
RST8
Дата 6.6.2007, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Цитата(hilarios @  5.6.2007,  08:13 Найти цитируемый пост)
Мне надо создать справочник справочников. 


Щас использую BERG-а для этого. В древовидной структуре список справочников, которые описаны в одной из таблиц БД. (структура не описана). При выборе нужного руками создаю и привязываю нужные колонки - все очень просто. Справочников около 30, разной структуры около 10. 
--------------------
Посадка, с места которой можно уйти на собственных ногах, считается удачной!
PM   Вверх
aktuba
Дата 6.6.2007, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

Щас использую BERG-а для этого. В древовидной структуре список справочников, которые описаны в одной из таблиц БД. (структура не описана). При выборе нужного руками создаю и привязываю нужные колонки - все очень просто. Справочников около 30, разной структуры около 10. 


А почему не VT? Ведь не сложно, да и выводить можно что угодно, вплоть до графиков...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
hilarios
Дата 6.6.2007, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(aktuba @ 6.6.2007,  10:23)
А почему не VT? Ведь не сложно, да и выводить можно что угодно, вплоть до графиков...

Да вот в том то и дело что не получается вгонять в VT эти справочники...третий днь над этим бьюсь, да и использование других компонент не желательно...хотелось бы на нем все провернуть...может кто сталкивался с таким...есть примерчик или еще что???? 
PM MAIL   Вверх
aktuba
Дата 6.6.2007, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Я честно не понимаю в чем сложность... Я на работе использую VT вместо грида и все нормально. Сделай тестовый пример и выложи. И опиши нормально, что не получается...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
hilarios
Дата 6.6.2007, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(aktuba @ 6.6.2007,  12:32)
Я честно не понимаю в чем сложность... Я на работе использую VT вместо грида и все нормально. Сделай тестовый пример и выложи. И опиши нормально, что не получается...

Не выходит правильно выделять память под этот динамический массив. Все время ошибка при VST1InitNode...найти что-то не получается...я не так долго работаю с VT. Буду благодарен за любую помощь!!! smile) Вот исходники...правда еще очень сырые....

Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  Test.rar 68,35 Kb
PM MAIL   Вверх
aktuba
Дата 6.6.2007, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Жэстоко  smile Вообще-то я просил тестовый пример, а не рабочий... Этот у меня не откомпилился (чего-то не хватает - разбираться не стал). Но!!!

Для загрузки данных из базы в VT лучше организовать отдельную процедуру. Так легче проверять, да и изменять код... Загружать данные в InitNode не стоит. Остально просмотрел мельком, т.к.код оформлен просто ужасно. Сделай тестовое приложение, которое будет только загружать данные из базы в VT и выложи сюда.



--------------------
user posted image
PM MAIL WWW Skype   Вверх
hilarios
Дата 7.6.2007, 07:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(aktuba @ 6.6.2007,  13:43)
Сделай тестовое приложение, которое будет только загружать данные из базы в VT и выложи сюда.

Выкладываю тестовый пример. Не получается заполнить динамический массив.... :( Все предыдущие замечания учел!

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  Test.zip 9,45 Kb
PM MAIL   Вверх
aktuba
Дата 7.6.2007, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Мдя... Ну ладно, попробуем на том, что есть. Я так понял, проблема в следующем фрагменте (убрал лишнее):
Код

procedure TForm1.AddChild(Sender: TObject);
var
  i: Integer;
  CNode: PVirtualNode;
  Data: PVSTRecord;
begin
  i := 0;
  while VST.Header.Columns.Count > 0 do
    VST.Header.Columns.Delete(VST.Header.Columns.Count - 1);
  for I := 0 to 5 do    // Iterate
  begin
  column[i]:='Êîëîíêà'+IntToStr(i);
  end;    // for
  with VST do
  begin
    for n := 0 to i - 1 do // Iterate
    begin
      Header.Columns.Add;
      Header.Columns[n].Text := column[n];
      Header.Columns[n].Width := 100;
    end; // for
    with VST do
    begin
      Clear;
      NodeDataSize := SizeOf(TVSTRecord);
      CNode := AddChild(RootNode);
      if not (vsInitialized in CNode.States) then ReinitNode(CNode, False);
      Data := GetNodeData(CNode);
      for I := 0 to VST.Header.Columns.Count - 1 do // Iterate
      begin
        Data.arr[i] := 'sdfsdfsdfs';
      end; // for
      Header.SortColumn := 0;
      SortTree(0, sdAscending, True);
    end;
  end;
end;


Все верно? Кстати, переделал удаление колонок VST. Ну а проблема пустяковая - перед тем как заполнять динамический массив - было бы не плохо, задать размер этого массива! Например так:
Код

SetLength(Data^.arr, VST.Header.Columns.Count);


Вставь эту строку перед
Код

for I := 0 to VST.Header.Columns.Count - 1 do // Iterate


и все будет номально...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
hilarios
Дата 7.6.2007, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(aktuba @ 7.6.2007,  09:06)
SetLength(Data^.arr, VST.Header.Columns.Count);

Да уж...вот надо же было так ступить :( Ты прав!!! Совсем что-то у меня это из головы вылетело....Попробую теперь получить динамические данные таким же способом из ADOQuery...Спасибо за помощь!!!!! smile
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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