遇到了一些问题 高分求救！！！！！！

Question

各位大哥，你们好，最近小弟做毕业设计，遇到了一些问题是：我用PageControl实现分页功能，我的目的是TabSheet1显示某人的基本资料，TabSheet2显示其家人的资料，TabSheet3实现其工作经历......但是我总是不能将其显示为一致，即当其基本资料变化时，其家人的资料，其工作经历......等等都同时变化，请问怎样才能实现呢？请众高手指教一二，如果能附上源码，真是感激不尽！[email protected]

Answer 1

你的几个TabSheet肯定不能同时显示，你可以在OnPageChage的事件中检查基本资料有没有变化，变化了，就改变相应的信息。

Answer 2

用一个全局变量，在第一个OnShow中赋Key进去，在其它的OnShow再据此Key查询

Answer 3

www.xmflyfish.com/awind/permis.rar有一个类似的，/apermis.exe是程序，看看是不是想实现的

Answer 4

大家好，请大家看看，我这样可不可以，他怎么总显示treeview1.Selected.Text没有默认值
procedure Tfrmstainfo.TreeView1GetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
var
str,s:string;
begin
dm.aqSta.SQL.Clear;
str:='and native='+''''+treeview1.Selected.Text+'''';
dm.aqSta.SQL.Add('select * from stainfo where 1=1'+str);
dm.aqSta.Open;
dm.aqSta.Active :=true;dm.aqExper.SQL.Clear;
dm.aqExper.SQL.Add('select sdate,edate,company,dep,duty,des from wexper where wexper.sid  in (select id from stainfo where  native=''''+trim(treeview1.Selected.Text)+'''')');
dm.aqExper.Open;
dm.aqExper.Active:=true;
end;

Answer 5

如果没有这段程序，第一个TabSheet1县是很正常！！
dm.aqExper.SQL.Clear;
dm.aqExper.SQL.Add('select sdate,edate,company,dep,duty,des from wexper where wexper.sid  in (select id from stainfo where  native=''''+trim(treeview1.Selected.Text)+'''')');
dm.aqExper.Open;
dm.aqExper.Active:=true;