窗口上有一个DBGrid一个Listview
数据结构为
data1
ANO ANAME
1 张三
2 李四
data2
BNO BANO BCNO
1 1 3
2 2 1
data3
CNO CNAME
1 大工
2 小工
3 服务生
实现功能
DBGrid取得data1的数据,当鼠标单击DBGrid某条数据时Listview显示相关信息
例如:鼠标点击DBGrid张三,Listview显示服务生这个该怎么实现,我查了好久没查到,请求帮助
数据结构为
data1
ANO ANAME
1 张三
2 李四
data2
BNO BANO BCNO
1 1 3
2 2 1
data3
CNO CNAME
1 大工
2 小工
3 服务生
实现功能
DBGrid取得data1的数据,当鼠标单击DBGrid某条数据时Listview显示相关信息
例如:鼠标点击DBGrid张三,Listview显示服务生这个该怎么实现,我查了好久没查到,请求帮助
解决方案 »
- delphi连接查询MYSQL的问题
- delphi Idftp获取文件目录 怎么映射到TreeView或者TshellTreeView?
- 简单线程问题,谁能帮忙解决下?
- 怎么判断自己的程序窗体是系统的当前窗口?
- 用delphi能不能实现将一图片设置为屏幕的背景图片
- 怎么样在 powerpdf 控件里增加宋体和黑体的中文字体?
- 有日期型变量RQ值为02-10-26,怎样获取10和26字符,帮帮小弟吧
- quickreport预览时死机怎么办?
- Delphi XE3启动不成功 提示没有注册类 Borland.Build.Tasks,Common.dll
- 如何将不规则形状区域(已知其HRGN)从一 Canvas Copy 到另一 Canvas?
- delphi 怎样产生inf文件?
- 关于更改从表中的数据问题
declare @BEmployeeLIST table(belno int,belname varchar(10))
insert @BEmployeeLIST select 1,'张三'
union all select 2,'李四'
----------------------
declare @BEmployeeWorkTypt table(bewelno int,bewwtno int)
insert @BEmployeeWorkTypt select 1,3
union all select 1,1
union all select 2,1
---------------------
declare @bworktype table(bwtno int,bwtname varchar(10))
insert @bworktype select 1,'大工'
union all select 2,'小工'
union all select 3,'服务生'select A.belname,C.bwtname
from @BEmployeeLIST A inner join (select bewelno ,max(bewwtno) as bewwtno from @BEmployeeWorkTypt group by bewelno) B on A.belno=B.bewelno
inner join @bworktype C on b.bewwtno=C.bwtno --max(bewwtno)
--------------------------------------
在语句后加一个条件,用adoquery传一下name即可
adoquery1.fieldbyname('name').asstring;--dbgrid中获得的名字
比如:
data1
ANO ANAME CNO
1 张三 3
2 李四 1
data3
CNO CNAME
1 大工
2 小工
3 服务生
这样你在窗口上放两个数据集:qry1,qry2;
qry1.sql.text:='select * from data1';
在qry1的onafterscorll事件中用qry2查询CNO等于qry1选中的行记录中对应的CNO值:
qry2.sql.text:='select * from data3 where CNO='''+qry1.fieldbyname('CNO').asstring;
然后取qry2中的数据放到Listview中