3.2w+
社区成员
- 主页
- 基础类
- 应用实例
- 新技术前沿
一个if语句
我想如果没有这个分类号，就报错怎么写啊 先谢了!!
begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end
application.MessageBox('没有这个分类号','错误',mb_ok);
end;
...全文
请发表友善的回复…
发表回复
lxinjun 2002-12-29
你的数据原用的是什么!(这应该是delphi问题)
pengdali 2002-12-29
begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end
if dataform.StoredProc1.RecordCount=0 then
showmessage('没有这个分类号');
end;
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end
if dataform.StoredProc1.RecordCount=0 then
showmessage('没有这个分类号');
end;
dayangyang 2002-12-29
up
CoolAbu 2002-12-29
FT，这是啥？Delphi，我也不会。
dayangyang 2002-12-29
请高手帮忙!!!!!!
dayangyang 2002-12-29
up
dayangyang 2002-12-29
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
else
application.MessageBox('没有这个分类号','错误',mb_ok);
end;
我写错了，我不知道变量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
else
application.MessageBox('没有这个分类号','错误',mb_ok);
end;
ToUpdate 2002-12-29
UP
CoolAbu 2002-12-29
先做判断有没有这个分类号，不行吗？？