这个提示如何写

[guess1975]

Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select RKBH as bianhao from XYKRKXX where RKBH like '"+Edit1->Text+"%'");
Query1->Open();
我想做一个提示，如果查到到相关记录，则给出提示 “有记录”
如果没有查到相关记录 则给出提示“没有记录”
请问如何实现？

[ljianq]

Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select RKBH as bianhao from XYKRKXX where RKBH like '"+Edit1->Text+"%'");
Query1->Open();

if (Query1->RecordCount>0)
Application->MessageBox("有记录.","提示",MB_OK);