F
frankie.dan
Unregistered / Unconfirmed
GUEST, unregistred user!
try
adoquery1.Post;
messagedlg('保存成功',mtInformation,[mbyes],0);
except
on E: exception do
begin
if pos('PRIMARY KEY', E.message) <> 0 then
begin
Application.MessageBox('型體重復,請檢查！', '出錯信息',MB_Ok or MB_ICONWARNING);
abort;
// button6.Click;
end;
end;
end;
adoquery1.Post;
messagedlg('保存成功',mtInformation,[mbyes],0);
except
on E: exception do
begin
if pos('PRIMARY KEY', E.message) <> 0 then
begin
Application.MessageBox('型體重復,請檢查！', '出錯信息',MB_Ok or MB_ICONWARNING);
abort;
// button6.Click;
end;
end;
end;