我原来用TTable控件(syntable)已经和数据表进行了连接的,实现定位查寻的
就是我通过控制listbox中当前点击的内容,使得图片跳转(路径在数据库中的path中指出)。
用ADOquery查询可以实现,但我想知道能不用adotable实现
程序如下:
procedure Tfrmsyn.ListBox1Click(Sender: TObject);
var i:integer;
    p:integer;
    
begin
  i:=Listbox1.ItemIndex;
  edit1.Text:=inttostr(i);
  syntable.IndexFieldNames:='No';
  syntable.SetKey;
  syntable.FieldByName('No').asinteger:=i+1;
  if syntable.gotokey then
  image1.Picture.LoadFromFile(syntable.fieldbyNam('Path').asstring);
end;