我原来用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;
就是我通过控制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;
解决方案 »
- TListView 个别行颜色 显示问题
- 调用DCC32编译出现的问题???很奇怪
- 小弟初学数据库,请各位多指点!!!
- 急急 关于SQL的问题
- 如何在己有的数据集中取出某个列的所有值(去除重复的部分)
- 为什么我用dcom时连接应用服务器总是报错:‘拒绝访问!’
- 迅雷云加速平台不能续传
- 一直可以用的QQ,现在总是不能登陆——提示密码错误(密码肯定是正确的),是被人黑了吗?怎么可以找回密码?…………有什么办法可能可再用这个QQ!
- 请问用什么语句来结束某个PROCEDURE()呀,就想VB里用EXIT SUB 一样??
- 高分求解析Webbrowes相关控件的方法和资料
- 用sql语句中的creat table 为什么不能给某个字段赋如于默认值?解决立即给分!
- 请问怎样做同windows优化大师左边的导航栏了?
然后查找到相应记录后,也可以在image中显示相应图片啊!~~~
你去查一下帮助,里面有列子的
Tadotable 里的mathod里的locate