一个if语句

dayangyang 2002-12-29 03:28:27

我想如果没有这个分类号,就报错怎么写啊 先谢了!!
begin
with dataform.StoredProc1 do
begin
close;
unprepare;
parambyname('@分类号').Value:=trim(edit1.Text);
prepare;
open;
end


application.MessageBox('没有这个分类号','错误',mb_ok);

end;
...全文
42 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;
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;
ToUpdate 2002-12-29
  • 打赏
  • 举报
回复
UP
CoolAbu 2002-12-29
  • 打赏
  • 举报
回复
先做判断有没有这个分类号,不行吗??

34,838

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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