小问题。(10分)

P

pzning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #1

if messagedlg('有没有错误？',mtconfirmation,[mbyes,mbno],0)=mryes then
if (flatedit1.text='') then
showmessage('编号不能为空!');
adotable1.Insert;
可是当提示出来时我选择取消时，也增加数据，请大家告知。

 

L

libaoliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #2

改成这样：
if (flatedit1.text='') then
begin
showmessage('编号不能为空!');
abort;
end
else
adotable1.Insert;

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #3

if messagedlg('有没有错误？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
if (flatedit1.text='') then
showmessage('编号不能为空!')
else
adotable1.Insert;
end

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #4

揣测你意思，楼上有错误，应如下：
if messagedlg('有没有错误？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
if (flatedit1.text='') then

begin

showmessage('编号不能为空!');
exit;
//此处退出
end
else
adotable1.Insert;
end;
---------------
楼上又修改了！ []

 

S

SanDao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #5

第二个if 下面有两句话，当然要加begin

end;

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #6

jrq说的没错(混点分[^])

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #7

我看用abort好;它引发一个哑异常并不执行以后的代码,
如果以上过程是由其它过程或函数调用,用abort不会返回.

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #8

不管你怎么着，都运行Insert了吧。
如果不想运行，点取消就Exit吧

 

P

pzning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #9

结束