收录日期:2019/06/20 01:23:15 时间:2016/05/24 00:06:39 标签:数据库相关
代码如下,主要功能就是用qry1中的'Unit'匹配qry2中的‘minunit’,‘maxunit’匹配成功后,更新qry1的‘res’字段
procedure TForm1.Button1Click(Sender: TObject);
var
 bigorsmall,res,count:integer;
begin
  bigorsmall:=0;
  count:=0;
  qry2.Close;
   qry2.SQL.Clear;
   qry2.SQL.Add('select minunit,maxunit,num,bidid from zbfw ');
   qry2.Open;
  with qry1 do
  begin
     close;
     sql.clear;
     sql.add('select id,bidid,unit,amount,res1 from sumry1 ');
     open;
  end;
  gauge1.MaxValue:=qry1.RecordCount;
  while not qry1.eof do
    begin
       qry2.Filtered:=false;
       qry2.Filter:='';
       qry2.Filter:='bidid='+trim(qry1.fieldbyname('bidid').AsString);
       qry2.Filtered:=true;
       //匹配大小单位
       try
       if qry1.Fieldbyname('unit').AsString=qry2.Fieldbyname             ('minunit').AsString then
          bigorsmall:=1;
       if qry1.Fieldbyname('unit').AsString=qry2.Fieldbyname('maxunit').AsString  then
          bigorsmall:=2;
       except
         showmessage('unit='+qry1.fieldbyname('unit').AsString+',minunit='+qry2.fieldbyname('minunit').AsString+',maxunit='+qry2.fieldbyname('maxunit').AsString+'出错');

       end;
       if bigorsmall=2 then
          res:=qry1.fieldbyname('amount').AsInteger*qry2.fieldbyname('num').AsInteger
       else
          if bigorsmall=1 then
             res:=qry1.fieldbyname('amount').AsInteger
          else
             res:=-1;
        label2.Caption:='amount='+qry1.fieldbyname('amount').AsString+',res='+intTostr(res);
       //更新res字段
       qry1.Edit;
       qry1.FieldValues['res1']:=res;
       qry1.Post;
        //
        qry1.Next;
       count:=count+1;
       application.ProcessMessages;
       label1.Caption:=intTostr(count)+'/'+intTostr(qry1.RecordCount);
       gauge1.Progress:=count;
    end;
   showMessage('完成!~') ;
end;
问题是,程序运行后,发现sumry1表(qry1连接的表)的res字段很多没有被更新(90%以上),跟踪程序,发现每次res有产生正确的值,但是qry1没有写进数据库!请高手指教一下

如何计算下次维护的日期并能查询到每周的维护内容? tomcat连接mysql需要的jar包有哪些 C#DllImport错误 求助 sql不好,自己写的通不过检查,无奈求助了 突然间的一个小错误 求高手解答URLConnection实现远程FTP文件下载,文件名为中文名(如:测试.jpg)时,报错求解? NPAPI 插件如何回调结果给js页面 关于syslog,希望有牛人帮分析一下 MDX语句截取前六位字段 Jmail 邮件接收 怎么在界面上调用gridcontrol的propertyEditor窗口 lucence System.UnauthorizedAccessException异常 Ext.ux.grid.RowEditor点击取消是的事件 求解。貌似是个指针的问题。。。 Linq表达式树问题 寻找TR069测试平台 ACS服务器 【技术宅进】用编程搞定问题,创意有了,求技术合体! 关于bind的一个基础问题 Hashtable的浅表复制问题,有懂的请进来一下 打卡机消息注册 js 判断滚动条的高度位置 在虚拟机上怎么装 64位的 win7 我要说的是 我本身的机子是32位的 访问https地址怎么避开浏览器设置 php编程中遇到的在不同网页实现调用checkbox的value值的问题 CSS加载外部字体 需找tr069测试工具 请各位大神帮忙优化一下这个sql语句 如何修改IIS的这个设置 CSSIE 6PNG透明滤镜写法