如何实现数据分页录入？(50分)

各位大虾：
现有一个间题向在家求教。 我现在在编一个有关调查表的录入系统。 由于系统有很多
录入项目，因此我将内容分成几个相关的子表，想用控件 实现在同一个窗口中分页录入，
而避免在几个窗口中来回转换录入的麻烦。 方法如下：
procedure TForm4.TabbedNotebook1Click(Sender: TObject);
var tj : string;
begin
case tabbednotebook1.pageindex of
0 : tj := 'select * from xlwssjk where 编号=:bh';
1 : tj := 'select * from jtjysjk where 编号=:bh';
2 : tj := 'select * from znxgsjk where 编号=:bh';
3 : tj := 'select * from znzzsjk where 编号=:bh';
4 : tj := 'select * from etxwsjk where 编号=:bh';
5 : tj := 'select * from WISC-R where 编号=:bh';
6 : tj := 'select * from WPPSI where 编号=:bh';
7 : tj := 'select * from GESELL-TEST where 编号=:bh';
8 : tj := 'select * from zdsjk where 编号=:bh';
end;

with query1 do
begin
query1.close;
query1.sql.clear;
query1.sql.add(tj);
query1.Params[0].asstring := form3.edit1.text;
end;
if not Query1.Prepared then
begin
Query1.Close;
Query1.Prepare;
Query1.Open;
end;
end;
该程序运行时出错，换页时，query1指向的数据库并不跟着改变，为什么？
各位如有更好的方法请赐教！
E-MAIL：dnsmay@21cn.com

跟踪调试，看在哪儿出错
程序上看不出什么毛病

后面改成
Query1.Close;
if not Query1.Prepared then
begin
Query1.Prepare;
end;
Query1.Open;

接受答案了.