我想如果没有这个分类号,就报错怎么写啊 先谢了!!
begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end
application.MessageBox('没有这个分类号','错误',mb_ok);
end;
...全文
429打赏收藏
一个if语句
我想如果没有这个分类号,就报错怎么写啊 先谢了!! begin with dataform.StoredProc1 do begin close; unprepare; parambyname('@分类号').Value:=trim(edit1.Text); prepare; open; end application.MessageBox('没有这个分类号','错误',mb_ok); end;
to CoolAbu
我写错了,我不知道变量i放在哪,不会写,你会怎么写呢?
var:
i:string;
begin
with dataform.StoredProc1 do
if (parambyname('@分类号').Value:=trim(edit1.Text))=true then
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end