我的代码:
dm.CDS_CW_ZCSY_BB.Close;
dm.CDS_CW_ZCSY_BB.CommandText:='';
dm.CDS_CW_ZCSY_BB.CommandText:='select cast(8/4 as REAL) as k';
dm.CDS_CW_ZCSY_BB.open;
dm.CDS_CW_ZCSY_BB.Refresh;
if not dm.CDS_CW_ZCSY_BB.IsEmpty then
begin
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.FieldByName('bqs').AsFloat:=strtofloat(formatfloat('0.00',dm.CDS_CW_ZCSY_BB.Fields[0].asfloat));
end;
sqlstring:='';
for cyc:=0 to pri_mcyc do
begin
if pri_msum[cyc]<>null then
begin
sqlstring:=sqlstring+floattostr(pri_msum[cyc]);
if (cyc<=fhcyc)and(pri_myfh[cyc]<>'') then
sqlstring:=sqlstring+pri_myfh[cyc];
end;
end;
dm.CDS_CW_ZCSY_BB.Close;
dm.CDS_CW_ZCSY_BB.CommandText:='';
dm.CDS_CW_ZCSY_BB.CommandText:='select cast('100/5' as REAL) as k';
dm.CDS_CW_ZCSY_BB.open;
dm.CDS_CW_ZCSY_BB.Refresh;
if not dm.CDS_CW_ZCSY_BB.Eof then
begin
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.FieldByName('bnljs').AsFloat:=strtofloat(formatfloat('0.00',dm.CDS_CW_ZCSY_BB.Fields[0].asfloat));
end;
end;
dm.CDS_CW_ZCSY.Next;
end;
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.Post;
dm.CDS_CW_ZCSY.ApplyUpdates(0);
dm.CDS_CW_ZCSY.Active:=false;
dm.CDS_CW_ZCSY.Active:=true;
//showmessage(inttostr(dm.CDS_CW_ZCSY.RecordCount));
以下这几句可以运行,但为什么不能保存到数据库里呀?
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.Post;
dm.CDS_CW_ZCSY.ApplyUpdates(0);
dm.CDS_CW_ZCSY_BB.Close;
dm.CDS_CW_ZCSY_BB.CommandText:='';
dm.CDS_CW_ZCSY_BB.CommandText:='select cast(8/4 as REAL) as k';
dm.CDS_CW_ZCSY_BB.open;
dm.CDS_CW_ZCSY_BB.Refresh;
if not dm.CDS_CW_ZCSY_BB.IsEmpty then
begin
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.FieldByName('bqs').AsFloat:=strtofloat(formatfloat('0.00',dm.CDS_CW_ZCSY_BB.Fields[0].asfloat));
end;
sqlstring:='';
for cyc:=0 to pri_mcyc do
begin
if pri_msum[cyc]<>null then
begin
sqlstring:=sqlstring+floattostr(pri_msum[cyc]);
if (cyc<=fhcyc)and(pri_myfh[cyc]<>'') then
sqlstring:=sqlstring+pri_myfh[cyc];
end;
end;
dm.CDS_CW_ZCSY_BB.Close;
dm.CDS_CW_ZCSY_BB.CommandText:='';
dm.CDS_CW_ZCSY_BB.CommandText:='select cast('100/5' as REAL) as k';
dm.CDS_CW_ZCSY_BB.open;
dm.CDS_CW_ZCSY_BB.Refresh;
if not dm.CDS_CW_ZCSY_BB.Eof then
begin
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.FieldByName('bnljs').AsFloat:=strtofloat(formatfloat('0.00',dm.CDS_CW_ZCSY_BB.Fields[0].asfloat));
end;
end;
dm.CDS_CW_ZCSY.Next;
end;
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.Post;
dm.CDS_CW_ZCSY.ApplyUpdates(0);
dm.CDS_CW_ZCSY.Active:=false;
dm.CDS_CW_ZCSY.Active:=true;
//showmessage(inttostr(dm.CDS_CW_ZCSY.RecordCount));
以下这几句可以运行,但为什么不能保存到数据库里呀?
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.Post;
dm.CDS_CW_ZCSY.ApplyUpdates(0);
解决方案 »
- 给一个窗口指定父窗口
- 能否提供一个Delphi2007下的Indy10的IdTcpServer的多线程列子.谢谢
- 在两个窗体间调用函数的问题
- FastReport的OLE里怎样动态加载word文档??急!~~~~
- 用SetWindowLong()在treeview上加载checkbox后如何取值???
- 屏蔽CTRL+F4 的方式关闭窗体, 解决立即给分,up有分!!!
- Delphi中非常难处理的Treeview问题,四五个呀,不好实现呀。
- ***请高手看看,一个很奇怪的问题,不知何故。关于dbgrid的显示问题***
- 急!!!!
- 在adoconnection中设置connectionstring访问access数据库,出现密码无效提示,内详!
- TreeView和数据库连接的问题(急)
- clientdataset的中文过滤
你可以直接让rs执行SQL语句,一个update就搞定而不用设置这么多东西
dm.CDS_CW_ZCSY.Edit;
dm.CDS_CW_ZCSY.Post;
dm.CDS_CW_ZCSY.ApplyUpdates(0);
dm.CDS_CW_ZCSY.ApplyUpdates(0);改为dm.CDS_CW_ZCSY.ApplyUpdates(-1);
在ApplyUpdates后的数字我还不知道是什么意思?0,代表什么?-1,代表什么?
POST是用来刷新的吗?