ACCESS为什么会这样？

[zangqi]

ACCESS为什么会这样？
我写了两个过程
//将 车辆信息表 中的一条记录的 查车标志 置为T
procedure docarT(phone:string);
begin
form2.ADOQuery3.Active := false;
form2.ADOQuery3.SQL.Clear;
form2.ADOQuery3.SQL.Add('select * from 车辆信息表 where 手机号 = '+''''+phone+''''+';');
form2.ADOQuery3.Active := true;
if not form2.ADOQuery3.IsEmpty then
begin
form2.ADOQuery3.First;
form2.ADOQuery3.Edit;
form2.ADOQuery3.FieldValues['查车标志']:='T';
form2.ADOQuery3.Post;
end;
end;

//将所有 查车标志 为T 的记录显示出来
procedure showallTcar;
begin
form2.ADOQuery2.Active := false;
form2.ADOQuery2.SQL.Clear;
form2.ADOQuery2.SQL.Add('select 手机号,车辆牌照 from 车辆信息表 where 查车标志 = '+''''+'T'+'''');
form2.ADOQuery2.Active := true;
end;

奇怪的是我执行了
docarT(phone);
showallTcar;
后，并没有显示出新改动的记录。
但当我先执行docarT(phone); 后，过几秒钟再执行showallTcar;就能显示出相应的记录了，为什么会这样？请指教。

[zangqi]

up

[tanqth]

docarT(phone);执行后刷新一次数据再执行showallTcar;
或者两个都用ADOQuery2控件。

[zangqi]

怎么刷新数据？

[dabaicai]

不明白你到底要做什么？
仔细点，说明要实现的功能