高手!这条SQL怎么写?

Question

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

Answer 1

你可以设置mainmenu的tag标志，菜单的响应事件都是一个，根据tag的标志来拼成sql语句。
响应事件你可以通过  (sender as TMenuItem).Tag) 来判断是哪一个菜单

Answer 2

你所有的菜单都响应同一个onclick事件,然后菜单上响应的按钮就命名为 Btn_数据表名，然后用copy命令取出相应的表名就可以判断是哪一个数据表了。
Function // you Function :String
var iTbname:String
begin
 iTbname := copy((Sender as TMenuItem).Name,4,Length((Sender as TMenuItem).Name));
 Result := 'select * from '+iTbname 
end;