提示产生多步操作

ADWARDS00 2003-10-21 09:45:45
我在对表进行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;
...全文
38 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ADWARDS00 2003-10-21
  • 打赏
  • 举报
回复
没有用,还是错误,估计原因应该在bh.buildzbscph()这个函数里,因为我不调用这个函数就可以保存的,我把语句改成adotable1.FieldByName('scph').AsString:='dddddddd';这样就可以保存
佣工7001 2003-10-21
  • 打赏
  • 举报
回复
adotable1.FieldByName('scph').AsString:=bh.buildzbscph('0',adoquery1.Fields[0].Text,'2');
后面加一句
adoquery1.Close();

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧