with dm.ClientUpdate do
  begin
    close;
    commandtext:= 'select * from cs_setting';
    open;
    if recordcount <> 0 then
    begin
      first;
      for i:= 0 to recordcount-1 do
      begin
        edit;
        if fieldbyname('csmc').AsString = '续筹比例' then
          fieldbyname('csz').AsInteger:= strtoint(xcbl);
        if fieldbyname('csmc').AsString = '活期利率' then
          fieldbyname('csz1').AsFloat:= strtofloat(ll);
        if fieldbyname('csmc').AsString = '缴款滞后天数' then
          fieldbyname('csz').AsInteger:= strtoint(zhts);
        if fieldbyname('csmc').AsString = '交缴比例' then
          fieldbyname('csz').AsInteger:= strtoint(jjbl);
        if fieldbyname('csmc').AsString = '第一次划拨比例' then
          fieldbyname('csz').AsInteger:= strtoint(dychbbl);
        if fieldbyname('csmc').AsString = '系统启用日期' then
          begin
            fieldbyname('csz2').AsDateTime:= datetimepicker1.DateTime;
          end;
        post;
        next;
      end;
    end;  为什么,数据库并没有更新;