网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
delphi吧 关注：17,479贴子：81,699
  • 27回复贴，共1页

delphi 如何循环遍历acess表 然后计算存入到另一张表

delphi 如何循环遍历acess表 然后计算存入到另一张表


具体是 讲一张表的数据遍历一次，讲数据加工下然后 将新的数据集存在另一张表。。现在我做的只能保存一条记录了


2025-06-30 06:55:36
广告


大神呢




大神 帮我看看


直接用sql语言做就好了
或者delphi写 First 移到第一条记录 not Eof 本条记录不为空 Next 移到下条记录





2025-06-30 06:49:36
广告
看了你的源码，感觉你还是比较擅长使用ADOTable比较多些。改回用ADOTable吧，使用ADOQuery不用这样写，需要修改的过多了。


使用TADOTable控件
旧表ADOTable1,新表ADOTable2
清空ADOTable2
ADOTable1.First;
While not ADOTable1.Eofdo begin
….. //计算
ADOTable2.Append;
…… //将ADOTable1相同的字段数据赋值给 ADOTable2字段
…… //将计算结果赋值给ADOTable2字段
ADOTable2.post;
ADOTable1.next; end;
使用TADOQuery 控件
Var SQL_s:String;
begin
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.add('Select * from Bid');
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
...... //赋值及计算
ADOQuery2.close;
ADOQuery2.SQL.clear;
SQL_s:='Insert into ...' //(你的写法)
ADOQuery2.SQL.add(SQL_s);
ADOQuery2.ExecSQL;
ADOQuery1.next; end;
ADOQuery2.close; //打开新表
ADOQuery2.SQL.clear;
ADOQuery2.SQL.add('Select * from Estimate);
ADOQuery2.Open;
end;


改过的代码 。。@云中龙168168
procedure TfrmMain.NcaculateClick(Sender: TObject);
var
bid1: TBid;
estimate: TEstimate;
sql_s: string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add ('select * from Bid');
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
bid1.CompanyNo := ADOQuery1.FieldByName('CompanyNo').AsString;
bid1.Quantity := ADOQuery1.FieldByName('Quantity').AsInteger;
bid1.MaterialPrice := ADOQuery1.FieldByName('MaterialPrice').AsInteger;
bid1.Workdayprice := ADOQuery1.FieldByName('Workdayprice').AsInteger;
bid1.Mechanicalprice := ADOQuery1.FieldByName('Mechanicalprice').AsInteger;
bid1.OtherPrice := ADOQuery1.FieldByName('OtherPrice').AsInteger;
bid1.FinishTime := ADOQuery1.FieldByName('FinishTime').AsInteger;
estimate.EstimateFactor := 0.2*bid1.Quantity + 0.3*bid1.MaterialPrice
+ 0.2*bid1.Workdayprice + 0.15*bid1.Mechanicalprice + 0.05*bid1.OtherPrice
+ 0.1*bid1.FinishTime;
estimate.CompanyNo :=bid1.CompanyNo;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
sql_s := ('insert into Estimate(CompanyNo, EstimateFactor )'+
'values(:CompanyNo, :EstimateFactor)');
ADOQuery2.SQL.Add(sql_s);
ADOQuery2.Parameters.ParamByName('CompanyNo').Value :=bid1.CompanyNo;
ADOQuery2.Parameters.ParamByName('EstimateFactor').Value := estimate.EstimateFactor;
ADOQuery2.ExecSQL;
ADOQuery1.Next;
end;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from Esitmate');
ADOQuery2.Open;
end;


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 27回复贴，共1页
分享到: