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; 为什么,数据库并没有更新;
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; 为什么,数据库并没有更新;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货