Формирование меню из таблици базы данных

← →
Lex_! © (2006-09-21 07:51) [0]

Всем доброе время суток.
Вопрос собственно следующий: имеется таблица с пунктами меню, требуется сформировать это самое меню, но ... пункты меню некоторые должны быть вложенные.. т.е.
есть допустим:

1 "Пункт 1" "СубМеню" "n1" ""
2 "Пункт 2" "НеСубМеню" "n2" "n1"

n1,n2 именя меню пунктов, во втором пункте n1 имя родительсмкого пункта... внутри чего он быть должен...

Так вот как программно организовать это вложение?

← →
ЮЮ © (2006-09-21 07:58) [1]

> Так вот как программно организовать это вложение?

Написать код. Или это за тебя кто-то должен сделать?

← →
Mike Kouzmine © (2006-09-21 07:59) [2]

Так же как и не программно. Самое понятное - почитать справку. Там ВСЕ НАПИСАНО.

← →
evvcom © (2006-09-21 08:32) [3]

> [0] Lex_! © (21.09.06 07:51)

Обычно структуру делают типа такого:
Id,ParentId,Caption
1,null,"Пункт 1"
2,1,"Пункт 1.1"
3,1,"Пункт 1.2"
4,null,"Пункт 2"
и т.д.

← →
Lex_! © (2006-09-21 09:43) [4]

> ЮЮ

Типа сумничал? .......
Если бы я знал как это сделать я бы не спрашивал ..... Не знаешь или не хочешь говорить как - лучче промолчать .....

> evvcom

Оно так и с делано только порядок не такой ....
Вопрос в том как это писать ....

сейчас так:
dm.MainMenuSql.Open; dm.MainMenuSql.First; for i:= 1 to dm.MainMenuSql.RecordCount do Begin mn:=TMenuItem.Create(n1); mn.Name:=dm.MainMenuSql.FieldByName("NameMenu").AsString; mn.Caption:=dm.MainMenuSql.FieldByName("TextMenu").AsString; MainMenu.Items.Insert(tmpMenu.Items.Count+i,mn); dm.MainMenuSql.Next; end;
но .... тут что - то не так....
Где не так.... другой ворпос ... о чем я и спрашиваю ....

← →
Сергей М. © (2006-09-21 09:57) [5]

> тут что - то не так.

"Не так" здесь начинается уже с использования RecordCount.

Цикл д.б. таким:

dm.MainMenuSql.Open;
while not dm.MainMenuSql.Eof do
Begin
...
dm.MainMenuSql.Next;
end;

← →
Lex_! © (2006-09-21 10:27) [6]

Сергей М. - не принципиально.
Конкретно по теме можно?

← →
ЮЮ © (2006-09-21 10:35) [7]

> Lex_! © (21.09.06 09:43) [4]
> > ЮЮ
> Типа сумничал? .......

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

if dm.MainMenuSql.FieldByName(<5-е, там где "n1">).AsString = 0 then
//пункт главного меню
MainMenu.Items.Insert(tmpMenu.Items.Count+i,mn)
else begin
// подменю
<ищем пункт меню по имени и в него делаем Items.Insert>
end;

← →
ЮЮ © (2006-09-21 10:36) [8]

AsString = "", конечно. Это я опять сумничал :)

← →
Lex_! © (2006-09-21 10:53) [9]

:)
про значение понятно... )

← →
Lex_! © (2006-09-21 11:11) [10]

procedure TMainForm.FormShow(Sender: TObject); var mn:TMenuItem; i:integer; s:string; begin dm.MainMenuSql.Open; dm.MainMenuSql.First; for i:= 1 to dm.MainMenuSql.RecordCount do Begin s:=dm.MainMenuSql.FieldByName("OwnerMenu").AsString; if s<>"" then mn:=TMenuItem.Create(MainMenu)else mn:=TMenuItem.Create(TMenuItem(MainMenu.FindComponent(s))); if s = "" then MainMenu.Items.Insert(MainMenu.Items.Count+i,mn) else begin TMenuItem(MainMenu.FindComponent(s)).Insert(TMenuItem(MainMenu.FindComponent(s)) .Count+1,mn); end; dm.MainMenuSql.Next; end; end;

← →
Lex_! © (2006-09-21 11:11) [11]

Вот так тоже не пашить ...
Или я туплю или одно изх двух ... :о\

← →
ЮЮ © (2006-09-21 11:38) [12]

var
parentName: string;
newItem , parentItem: TMenuItem;

....

while not dm.EOF do begin
parentName := dm.MainMenuSql.FieldByName("OwnerMenu").AsString;
newItem := TMenuItem.Create(MainMenu);
newItem.Caption := ...
...
if ParentName = "" then
parentItem := MainMenu.Items;
else
parentIem := TMenuItem(MainMenu.FindComponent(parentName));
if parentIem = nil then begin
// подумать над структурой запроса, чтобы такого не случалось
// или над механизмом отложенной вставки, если элемент подменю
// поднят из базы раньше самого подменю
end
else
parentItem.Inser(newItem);
dm.MainMenuSql.Next;
end;

← →
Lex_! © (2006-09-22 05:06) [13]

ЮЮ - благодарю, все работает ..)

> [6] Lex_! © (21.09.06 10:27)

Это будет принципиально в другом твоем вопросе. Чтобы его предотвратить, воспользуйся советом и попробуй понять, почему RecordCount в данном случае использовать нельзя.

А таки пояснить необразованному?...

>Lex_! © (05.10.06 13:22) [15]
>А таки пояснить необразованному?...

Необразованный может в ДВУХ словах объяснить нафига задумано пункты меню держать в БД и каким макаром назначить обработчики этим пунктам и кто проверит "на лету" корректность назначения этих обработчиков ?

Точно также нельзя объяснить в двух словах почему Jet (OLE DB) или ODBC (это такие хреновины, которые испрользуются ADO для "общения с различными СУБД) не считает нужным открывать курсор на клиенте только после того, как на него на свалятся все 10 000 000 записей, выданных сервером в ответ на запрос, посланный подобным НЕОБРАЗОВАННЫМ программером.

пунктов меню максимум 100.
а никак не 10 млн.

>Lex_! © (05.10.06 13:54) [17]
>пунктов меню максимум 100. а никак не 10 млн.

???

Умываю руки.. Чего и остальным советую

конкретно касаемо даного случая я говорю ..

Формирование меню из таблици базы данных Найти похожие ветки