提示产生多步操作
我在对表进行POST操作时,提示产生多步操作,保存失败
procedure Tzxcpgydfrm.btnbcClick(Sender: TObject);
var
bh:tbhscq;
begin
bh:=tbhscq.Create(self);
if (trim(dbsl.Text)='') or (trim(dbyfsl.Text)='') then
showmessage('请输入下单数量和余放数量(红色字体的选项).')
else
begin
adotable1.FieldByName('kdrq').AsDateTime:=date(); //设置开单日期
adotable1.FieldByName('kdr').AsString:=yhdm; //设置开单人
adotable1.FieldByName('jhrq').AsDateTime:=jhrq.Date; //设置开单日期
adotable1.FieldByName('cplx').AsString:='2'; //设置产品类型
adotable1.FieldByName('gg').AsString:=l.Text+'*'+w.Text+'*'+h.Text;
with adoquery1 do //设置生产批号
begin
close;
sql.Clear;
sql.Add('select hsdwbh from rl_ygxxb where ygbh='+yhdm+'');
open;
adotable1.FieldByName('scph').AsString:=bh.buildzbscph('0',adoquery1.Fields[0].Text,'2');
end;
if ckzwl.Checked=true then //设置瓦楞方向
adotable1.FieldByName('wlfx').Value:=1
else
adotable1.FieldByName('wlfx').Value:=2;
end;
try
form1.ADOConnection1.BeginTrans;
adotable1.Post;
form1.ADOConnection1.CommitTrans;
showmessage('数据保存成功!');
except
on e:exception do
begin
showmessage(e.Message);//这里提示信息说是产生多步操作
form1.ADOConnection1.RollbackTrans;
showmessage('数据保存失败!');
end;
end;
end;