open;
setkey;
fieldindex:='xxxx'; ///?????
fieldbyname('id').asstring:=edit1.Text;
if gotokey then{测试gotokey没有反应!!!!!!!!!!!!!!}
label4.caption:='查询成功!'
else
begin
showmessage('查询失败!');
end;
setkey;
fieldindex:='xxxx'; ///?????
fieldbyname('id').asstring:=edit1.Text;
if gotokey then{测试gotokey没有反应!!!!!!!!!!!!!!}
label4.caption:='查询成功!'
else
begin
showmessage('查询失败!');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货