你对数据库的操作很自信吗？

Question

还有就是在Win2000里用label显示字符，用了autosize时，老是缩了一小点。不能完全显示字符

Answer 1

岂止在Win2000在NT中也一样，不过只需重新编译或者在程序中设置字体即可

Answer 2

procedure TForm1.LabelClick(Sender: TObject)
begin
  with Table1 do
  begin
    Close;
    IndexFieldNames := '标题';
    Open;
    if FindKey([TLabel(Sender).Caption]) then
      Panel1.Caption := FieldByName('正文').AsString
    else
      Panel1.Caption := 'Not Found!';
  end;
end;自己优化将索引指定到外面去

Answer 3

你的表有主键吗？如果没有主键，好象不能用locate。你的方法其实应该是没有错的。

Answer 4

楼上二位大虾，是adotable,不是bde哦，可以再提示点吗？？？急哦。bu 

Answer 5

with ADOTable1 do
begin
  if ADOTable1.Locate('标题',TLabel(Sender).Caption, [loCaseInsensitive]) then
    Panel1.Caption := FieldByName('正文').AsString
  else
    Panel1.Caption := 'Not Found!';
end;