delphi中一段代码问题
我有一个edit，一个button，将edit输入的内容在sql中进行查找，button按下后在后面显示出来，但是我有一个问题，如果在sql查询不到就很麻烦，像报错一样的跳一个对话框出来，我想如果没有搜索到，那跳一个对话框出来提示没有合适的查询，请问怎么弄？是自己添加一个form还是用showmessage？
都行，showmessage可能做起来更快
提示用showmessage最好.你可以把查询放到TRY中
if Qry.RecordCount = 0 then
ShowMessage('没有找到记录');
如果要它不报错：
用
try
...
except
...
finally
这个问题在于你想怎么做，showmessage就能弹出个框提示，如果你想附加更多的信息，就自己做一个窗体，显示一个窗体也不麻烦
try
if qy.IsEmpty then showmessage('没有找到记录！')；
except
on E:Exception do
ShowMessage(E.Message);
end;
showMessage很方便的
begin
if cus_name.Text=''
then showmessage('请输入要查询的客户姓名')
else
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 预订客户查询表 where 客户姓名=:name');
Parameters.ParamByName('name').Value:= Trim(cus_name.text);
open;
try
if adoquery1.RecordCount = 0 then
ShowMessage('没有找到记录');
except
while not eof do
begin
cus_time.Text:=adoquery1.Fieldbyname('入住时间').AsString;
cus_rnum.Text:=adoquery1.Fieldbyname('房间号').AsString;
Next;
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
橙子的空间里面关于D2011的一切评测都没有了，原因麻，不明白，反正就是已经删了..............
一个真实发言都不能接受的新东家，我们还是早日改选别的吧.....................
杯具......................... ......
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ?1996-2009 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by th ......
