1
with table1 do
begin
SetKey;
FieldByName(‘name’)。Asstring:=Edit.Text;
if GotoKey then
statusbar1.SimpleText:='找到了关于'+Edit1.Text+‘的记录’
else
MessageDlg('呵呵,!',,metwaring,[mbOk],0);
end;
Setkey
MessadeDlg怎么用?
with table1 do
begin
SetKey;
FieldByName(‘name’)。Asstring:=Edit.Text;
if GotoKey then
statusbar1.SimpleText:='找到了关于'+Edit1.Text+‘的记录’
else
MessageDlg('呵呵,!',,metwaring,[mbOk],0);
end;
Setkey
MessadeDlg怎么用?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货