procedure Tfm_quy_water.btn_wspfzlqnClick(Sender: TObject);
begin
with dm_land do
begin
quy_djnd.Close;
quy_djnd.SQL.Clear;
quy_djnd.SQL.Add('select id from djnd where djnd like "%'+edit_year.Text+'%"');
quy_djnd.RequestLive:=true;
quy_djnd.Open; quy_wspf.Close;
quy_wspf.SQL.Clear;
quy_wspf.SQL.Add('select sum(wspfl) from wspf,djnd where wspf.id=djnd.id');
quy_wspf.RequestLive:=true;
quy_wspf.Open;
edit_sum_pfl.Text:=quy_wspf.Fields[0].Value;
end;
end;错误提示 table id read only!
begin
with dm_land do
begin
quy_djnd.Close;
quy_djnd.SQL.Clear;
quy_djnd.SQL.Add('select id from djnd where djnd like "%'+edit_year.Text+'%"');
quy_djnd.RequestLive:=true;
quy_djnd.Open; quy_wspf.Close;
quy_wspf.SQL.Clear;
quy_wspf.SQL.Add('select sum(wspfl) from wspf,djnd where wspf.id=djnd.id');
quy_wspf.RequestLive:=true;
quy_wspf.Open;
edit_sum_pfl.Text:=quy_wspf.Fields[0].Value;
end;
end;错误提示 table id read only!
解决方案 »
- DBGRid能控制小数位数吗
- 多线程采集网页问题
- Delphi 调用C++的dll问题
- 请权威人士给点意见:在3层系统中,我要传一个很大的字符串(widestring)(不传流)给服务端,可行吗,数据会丢失吗?
- 为什么检测路径的语句执行有误
- 图表的问题。HELP
- 使用database的程序同时运行多个实例
- 关于Treeview展开用panel做显示问题
- 问题:我们程序员能活多久
- 经理要我做个修改文件夹创建时间、修改时间的程序,注意是修改文件夹时间,如何做?
- 今天早上起床洗脸了,疯狂散分
- 打开的Powerpoint',我在另一个程序里关闭它时,他要求保存文档,我只想不保存就关闭,如何做呢?下面是我的代码
select sum(wspfl) as sumwspfl from wspf,djnd where wspf.id=djnd.id'
........edit_sum_pfl.Text:=quy_wspf.fieldByName('sumwspfl').asString;
quy_wspf.fields[0].asstring;