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;就能显示出相应的记录了,为什么会这样?请指教。
我写了两个过程
//将 车辆信息表 中的一条记录的 查车标志 置为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;就能显示出相应的记录了,为什么会这样?请指教。
解决方案 »
- TToolButton点击之后不可见问题
- 国内仿Excel最完美的电子表格控件
- 散1000分,第三个
- 请问能产生条形码的delphi6控件?
- 关于远程监控,请大家给点建议100分
- 如何把系统其他form里焦点的文字复制到自己的程序里的组件
- 第二次关于'DBLookupComboBox'??????????????????????????????????????????
- 一個SQL問題?
- 怎样在DBGrid中把浮点或货币型数值显示成#,###.00(12,345.00)?
- !给位大哥:请问怎样把word2000中的数据插入到数据库中
- listview中数据保存到对应数据库字段中!?
- 数据转化啊,在线等待
或者两个都用ADOQuery2控件。