查询出错(100分)

  • 主题发起人 主题发起人 dxhb
  • 开始时间 开始时间
D

dxhb

Unregistered / Unconfirmed
GUEST, unregistred user!
[?]
我作个查询,提示出错 undeclared identifier 'parambyname',源码如下
procedure Tfind.BitBtn1Click(Sender: TObject);
var
locatesuccess:boolean;
pp:tlocateoptions;

begin
if radiobutton1.checked then
label2.caption:='姓 名'
begin

pp:=[lopartialkey];
parambyname('xx').asstring:=edit1.Text;

locatesuccess:=szlz.table1.locate('xm','xx',pp);

if locatesuccess = false then
messagedlg('记录没找到',mtconfirmation,[mbyes],0);
close;


end;
 
你的代码缺许多,下面两句上下都应该有代码。还不一定能够编译通过。
至少是这样的:
with szlz.table1 do
begin
pp:=[lopartialkey];
parambyname('xx').asstring:=edit1.Text;
Open;
end;
 
parambyname是table的方法,所以应该Table1.parambyname('xx').
 
谢 bubble yzhshi 两位,都试了还是
不能编译,主要是不能用 parambyname
如改成
//parambyname('xx').asstring:=edit1.Text;

locatesuccess:=szlz.table1.locate('xm','黄林',pp);
可查询出结果。
 
后退
顶部