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

[hymn]

我用adotable做access数据库连接.表如下：
编号 标题 正文

然后建立动态 label of array;
把 label[i].caption:='标题'；

如何在label[i].click事件中显示：

当点击label[i]的caption时在一panel显示该标题的正文。
也就是说利用label[i].caption查询数据库，查到该标题时指针指向该记录。
然后就可以利用记录fields显示正文。

我用了locate,seek,lookup......就是错误！
各位大虾帮帮忙。最好是有事例。

[e-mail]
联系。

[hymn]

诸位大虾有什么想法吗？

[hymn]

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

[yp]

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

[hymn]

难道高手都睡觉觉了吗？

[hymn]

高手来啊！！！！！！

[hymn]

是不是闲分太底了？

[weenyboy]

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;

自己优化将索引指定到外面去

[cobi]

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

[hymn]

卡

[weenyboy]

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

[hymn]

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