困惑!高手回复!

Question

现在开发的程序中,mainmenu选项实在是太多了,如果每一个都去触发一张数据表的话,将会有2257项需要重复性编写,如何编写一段简单高效的程序,取出每一个mainmenu的子项名,然后就触发一张数据表!谢谢!

Answer 1

VCL控件一般都有个tag 你可以每个项存一个不同的tag值然后在MenuItemClick里用  case TMenuItem(Sender).Tag of
    1:
    2:
    .....
  end;这种方法来处理当然要触发一张数据表，那就要看你对重复代码的提练能力了 hehe^^

Answer 2

如果想要名字与表来对应
可以用SQLStr := 'select * from ' + TMenuItem(Sender).Name;这样的形式.....

Answer 3

高手!你们的方法有没有明确一点的!用sql来实现的!提出若干个变量,然后由sql来判断,满足的触发表!