请老师们帮我看一段代码!急急!!

[gdczwzq]

编译的时候没有出错,一执行(只要在EDIT1中打入字符就出错)

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==13)

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from dhhm where dh='"+Edit1->Text.Trim()+"'or ch='"+Edit1->Text.Trim()+"'");
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
if (ADOQuery1->RecordCount==0)
{
Application->MessageBox("找不到该号码,请重新输入号码!","提示!",MB_OK&MB_ICONWARNING);
return;
}

return;

[叶子哟]

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==13)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from dhhm where dh='"+Edit1->Text.Trim()+"'or ch='"+Edit1->Text.Trim()+"'"); //建议用select count(*) as number ....
//ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
if (ADOQuery1->RecordCount==0) //这儿还是判断是否有记录的数据比较好
{
Application->MessageBox("找不到该号码,请重新输入号码!","提示!",MB_OK&MB_ICONWARNING);
ADOQuery1->Active=false;
return;
}
ADOQuery1->Active=false;
}
return;

}

[gdczwzq]

还是不行,我本来的意思是用回车的时候才去执行的,可是现在我一打入一个数字,它就自动去执行,并且出错!急呀!!

[JetKingLau]

if (Key!=13)
return;

[叶子哟]

ADOQuery1->Active=true;
修改为ADOQuery1->Open();
...
处理完成后用ADOQuery1->Close();

实在不行,你单步跟一下就知道错在哪儿了

[gdczwzq]

这个问题解决了 应该为
if (Key==13)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from dhhm where dh='"+Edit1->Text.Trim()+"'or ch='"+Edit1->Text.Trim()+"'");
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
if (ADOQuery1->RecordCount==0)

{Application->MessageBox("没有该号码,请再次输入！","查询结果!",MB_OK|MB_ICONINFORMATION);
Edit1->Text="";
return;
}
}