听朋友说这里高手很多 ( 积分: 100 )

我很菜！
我想把在数据库中查询到的name显示在label上
代码如下：
procedure TForm1.FormShow(Sender: TObject);
begin
panel2.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
showmessage('请输入工号，工号不能够为空！')
else
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from T_yf_workername where workerid=:workerid');
adoquery1.Parameters.ParamByName('workerid').Value:=edit1.text;
adoquery1.Open;
if adoquery1.RecordCount<1 then
showmessage('您输入的工号不正确，请核对后再输')
else
begin
panel2.Show;
label5.Caption:=edit1.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select name from T_yf_workername where workerid=:workerid');
adoquery1.Prepared;
adoquery1.Open;
label3.caption:=adoquery1.fieldbyname('name').asstring;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select SLCid from t_z_upworkdown where workerid=:workerid');
adoquery1.Open;
label7.Caption:=adoquery1.fieldbyname('SLCID').AsString;

end
end
end;
这问题就是label3和label7都不显示

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select name,SLCid from t_z_upworkdown where workerid=:workerid');
ADOQuery1.Open;
Label3.Caption := ADOQuery1.Fields[0].AsString;
Label7.Caption := ADOQuery1.Fields[1].AsString;

呵呵
这个位大哥好象没看清楚，我这两个表不一样的
我先去试试这个方法

#- - 恩,确实没看清楚....

if adoquery1.recordcount=0 then
begin
label3.caption:= '无结果';
end else
begin
label3.caption:=Trim(adoquery1.fieldbyname('name').asstring);
end;

晕
还是不行，没显示，空白
只有label5显示
[][][][][]

Avalon：
我试了你的办法，但是还是不行，什么都没显示
奇怪，label3,label5,label7属性都一样的，只是位置不一样啊，为什么只有label5显示呢

[][][][][]
人呢？

adoquery1.SQL.Add('select SLCid from t_z_upworkdown where workerid=:workerid');
adoquery1.Open;
label7.Caption:=adoquery1.fieldbyname('SLCID').AsString;
你的參數沒有，怎麼會有結果呢？

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
showmessage('请输入工号，工号不能够为空！')
else
begin

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from T_yf_workername where workerid=:workerid');
adoquery1.Parameters.ParamByName('workerid').Value:=edit1.text;
adoquery1.Open;
if adoquery1.RecordCount<1 then
showmessage('您输入的工号不正确，请核对后再输')
else
begin
panel2.Show;
label5.Caption:=edit1.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select name from T_yf_workername where workerid=:workerid');
adoquery1.Parameters.ParamByName('workerid').Value:=edit1.text;
adoquery1.Prepared;
adoquery1.Open;
label3.caption:=adoquery1.fieldbyname('name').asstring;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select SLCid from t_z_upworkdown where workerid=:workerid');
adoquery1.Parameters.ParamByName('workerid').Value:=edit1.text;
adoquery1.Open;
label7.Caption:=adoquery1.fieldbyname('SLCID').AsString;

end
end
end;
这问题就是label3和label7都不显示

可以试试楼上的
再第二次，第三次输入查询条件后，加上
adoquery1.Parameters.ParamByName('workerid').Value:=edit1.text;