procedure TForm1.Button1Click(Sender: TObject);
var
seekvalue,seekname:string;
begin
with table1 do
begin
IndexFieldNames:='sid';
seekvalue:=edit1.text;
if findkey([seekvalue]) then
begin
indexfieldnames:='sname';
seekname:=edit2.Text;
if findkey([seekname]) then
begin
showmessage('right');
label1.caption:=fieldbyname('sid').asstring;
label4.Caption:=fieldbyname('sname').asstring;
form2.Show;
end
else
begin
label1.Caption:='无此学号';
label4.Caption:='无此姓名';
showmessage('wrong');
end;
end;
end;
end;findkey不是同时可以查询多个字段吗?但是我改为以下的内容就出错了
IndexFieldNames:='sid';
indexfieldnames:='sname';
seekvalue:=edit1.text;
seeksname:=edit2.text;
if findkey([seekvalue,seeksname]) then (这样为什么不可以啊)
var
seekvalue,seekname:string;
begin
with table1 do
begin
IndexFieldNames:='sid';
seekvalue:=edit1.text;
if findkey([seekvalue]) then
begin
indexfieldnames:='sname';
seekname:=edit2.Text;
if findkey([seekname]) then
begin
showmessage('right');
label1.caption:=fieldbyname('sid').asstring;
label4.Caption:=fieldbyname('sname').asstring;
form2.Show;
end
else
begin
label1.Caption:='无此学号';
label4.Caption:='无此姓名';
showmessage('wrong');
end;
end;
end;
end;findkey不是同时可以查询多个字段吗?但是我改为以下的内容就出错了
IndexFieldNames:='sid';
indexfieldnames:='sname';
seekvalue:=edit1.text;
seeksname:=edit2.text;
if findkey([seekvalue,seeksname]) then (这样为什么不可以啊)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货