| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 944 人关注过本帖
标题:[求助]如何动态生成菜单项,谢谢!!
只看楼主 加入收藏
season22
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-9
收藏
 问题点数:0 回复次数:7 
[求助]如何动态生成菜单项,谢谢!!

根据数据库里的数据库表如何生成菜单!!!谢谢

搜索更多相关主题的帖子: 菜单 动态 
2007-05-09 17:00
season22
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-9
收藏
得分:0 

procedure Tf_main.N10Click(Sender: TObject);
var
i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from owner');
open;
begin
ADOQuery1.First ;
for i:=1 to ADOQuery1.RecordCount do
begin
MainMenu1.Items[10].Add(TMenuItem.Create(self));
MainMenu1.Items[10].Items[i-1].Name := 'N_10_' + IntToStr(i);
MainMenu1.Items[10].Items[i-1].Caption := ADOQuery1.FieldByName('o_name').AsString;
MainMenu1.Items[10].Items[i-1].OnClick := myclick;
ADOQuery1.Next;
end;

end;
end;
end;

end.
错在哪里?急啊!!!

2007-05-09 18:55
xiexinxing
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-4-19
收藏
得分:0 
i:integer;
begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select * from owner');
open;
begin
ADOQuery1.First ;
for i:=1 to
哪来的?
2007-05-10 09:48
xiexinxing
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-4-19
收藏
得分:0 
for i:=0 to adoquery1.recordcount-1 do
看看
2007-05-10 09:54
xu2000
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:51
帖 子:3890
专家分:56
注 册:2006-4-8
收藏
得分:0 

有报错吗,拿出来看看。


我会拿出我全部的钱财,以保你衣食无忧。我会献出我所有的智慧,以助你一帆风顺。我会想到所有的笑语,以令你展眉开颜。我会挤出最长的时间,以使你终生幸福。        [本人原创的结婚宣言]
2007-05-10 17:40
season22
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-9
收藏
得分:0 
回复:(season22)[求助]如何动态生成菜单项,谢谢!...

问题解决了 ,是10超出了边界!谢谢各位!!!

2007-05-10 21:16
xu2000
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:51
帖 子:3890
专家分:56
注 册:2006-4-8
收藏
得分:0 
我就说代码没问题吗。

我会拿出我全部的钱财,以保你衣食无忧。我会献出我所有的智慧,以助你一帆风顺。我会想到所有的笑语,以令你展眉开颜。我会挤出最长的时间,以使你终生幸福。        [本人原创的结婚宣言]
2007-05-10 22:25
season22
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-9
收藏
得分:0 

为什么每运行一次它都会多几个空的菜单?
能不能不要多啊?

2007-05-13 19:27
快速回复:[求助]如何动态生成菜单项,谢谢!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024454 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved