为什么我deiphi运行没反应啊？
procedure TForm7.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('无输入，请输入查询要求!')
else
with adoquery1 do
begin
close;
Sql.Clear;
SQL.ADD('select 客户姓名,预住天数,房间号,房间电话,应收金额 from [预订客户查询表] where [客户姓名]=:pname and [预住天数]=:Pday');
Parameters.ParamByName('pname').Value:= Trim(edit1.text);
Parameters.ParambyName('pday').Value:= Trim(edit4.text);
OPEN;
while not eof do
begin
Edit5.Text:=adoquery1.FieldByName('客户姓名').AsString;
Edit6.Text:=adoquery1.FieldByName('预住天数').AsString;
Edit7.Text:=adoquery1.FieldByName('房间号').AsString;
Edit9.Text:=adoquery1.FieldByName('房间电话').AsString;
Edit8.Text:=adoquery1.FieldByName('应收金额').AsString;
Next;
end;
end;
end;
代码有什么错误吗？这是一个查询的form，当用户输入edit1，edit4，程序将把用户输入的进行查找，找出想联系的信息并在下面的edit中显示出来，大体就是这样，可是一运行，输入edit1，edit4，按button，没任何反应，等于没按，没显示，是我的代码有问题还是我的数据库有问题啊，急啊，在线等~
[解决办法]
没有反应就是没有 就说明没查询到 符合条件的信息啊
[解决办法]
没有反应就是没有 就说明没查询到 符合条件的信息啊
[解决办法]
那也有可能输错了，或者多出空格什么了，你trim下，
[解决办法]
跟踪一下看看咯
[解决办法]
else要有begin end.
[解决办法]
你在while前面加条if语句判断一下。 看下能通过啵？
[解决办法]
要个Next;干嘛？
去掉它！
[解决办法]
OPEN后面还少一个end呢
