首先你要设定好条件,如果输入1,则查一级分类;2,查二级分类等。 然后在edit的onkeypress事件处理: case strtoint(edit1.text) of 1 : begin with qfl1 do begin if active then close; sql.clear; sql.add('select * from fl1'); open; end; dbgrid2.DataSource =dqfl1; end; 2 : begin (类似1) end; 另外,为保证用户不会输入错误,可以使用一个updown控件与edit相关联,控制其范围在1—6之间,那么就不用去判断用户是否输入错误的数字了 --------------------------------------------------------------------------------
然后在edit的onkeypress事件处理:
case strtoint(edit1.text) of
1 : begin
with qfl1 do
begin
if active then close;
sql.clear;
sql.add('select * from fl1');
open;
end;
dbgrid2.DataSource =dqfl1;
end;
2 : begin
(类似1)
end;
另外,为保证用户不会输入错误,可以使用一个updown控件与edit相关联,控制其范围在1—6之间,那么就不用去判断用户是否输入错误的数字了
--------------------------------------------------------------------------------