for i:=1 to self.StringAlignGrid1.RowCount-2 do
begin
with f_datamodule.ADOQuery2 do
begin
close;
sql.Clear ;
sql.Add('insert into t_indetail(partno,project,quantity,memo,summary) values(:itemid,:itemproject,:qty,:memo,:summary) ') ;
parameters.ParamByName('itemid').Value :=trim(self.StringAlignGrid1.Cells[0,i]);
parameters.ParamByName('itemproject').Value :=trim(self.StringAlignGrid1.Cells[4,i]);
parameters.ParamByName('qty').Value :=strtofloat(self.StringAlignGrid1.Cells[5,i]);
parameters.ParamByName('memo').Value :=trim(self.StringAlignGrid1.Cells[6,i]);
parameters.ParamByName('summary').Value :=trim(self.Edit1.Text );
execsql;
end;
end;
begin
with f_datamodule.ADOQuery2 do
begin
close;
sql.Clear ;
sql.Add('insert into t_indetail(partno,project,quantity,memo,summary) values(:itemid,:itemproject,:qty,:memo,:summary) ') ;
parameters.ParamByName('itemid').Value :=trim(self.StringAlignGrid1.Cells[0,i]);
parameters.ParamByName('itemproject').Value :=trim(self.StringAlignGrid1.Cells[4,i]);
parameters.ParamByName('qty').Value :=strtofloat(self.StringAlignGrid1.Cells[5,i]);
parameters.ParamByName('memo').Value :=trim(self.StringAlignGrid1.Cells[6,i]);
parameters.ParamByName('summary').Value :=trim(self.Edit1.Text );
execsql;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货