社区
Delphi
帖子详情
指点!指点!先感谢了!
amyfun
2000-07-14 07:12:00
一个表包括借阅出去的图书信息
“书名”、“编号”、“日期”、“人名”、“科室”....等等,
另一个表包括职工的信息
“职工号”、“人名”、“联系电话”、“职称”....等等;
我想在(借阅出去的图书表)DBGrid中的“人名”字段上点击一下,然后在另一个DBGrid中显示职工表的内容,不知该如何做?
...全文
185
9
打赏
收藏
指点!指点!先感谢了!
一个表包括借阅出去的图书信息 “书名”、“编号”、“日期”、“人名”、“科室”....等等, 另一个表包括职工的信息 “职工号”、“人名”、“联系电话”、“职称”....等等; 我想在(借阅出去的图书表)DBGrid中的“人名”字段上点击一下,然后在另一个DBGrid中显示职工表的内容,不知该如何做?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
华南虎哥
2000-07-17
打赏
举报
回复
我认为不应该使用主细表结构来定位这个问题!
我们假定如下:
booktbl:借阅出去的图书信息(其中包含employeeID字段)
employeetbl:职工的信息
我们设定:
1、booktbl,employeetbl均为相对独立的表
2、设置DBGRID1的ondatachange(...)过程如下:
employeetbl.filtered:=false;
employeetbl.filter:='';
employeetbl.Filter:='employeeid='''+booktbl.FieldByName('employeeid').AsString+'''';
employeetbl.Filtered:=True;
3、完了
如果还有问题:hblinux@163.net
Hibin
2000-07-17
打赏
举报
回复
主细表结构,很简单的。在借阅图书信息表中,最好用职工号代替人名。
蝈蝈俊
2000-07-17
打赏
举报
回复
主细表结构。看看书,很简单的,
huliao
2000-07-17
打赏
举报
回复
1.可以看出你要做的应用是一个图书借阅的管理应用,那在你的设计中就有一定的问题,在这个应用中有两张表,一张是图书信息表,一张是职工信息表,考虑到职工有可能重名,因此应该给职工信息表设计一个主键(KEY),这个主键应是职工信息表的职工号,是唯一而不重复的,这时借阅时产生的关联可以通过这个主键实现。而不是通过人名实现。
2.再说说实现方法:
同Michaelyfj,编写存放图书信息的DBGrid的datasource的OnDataChange函数。
关键是取得职工信息表中的相关数据的方法有多种,可以用sql,有一种简单方法,设置职工信息表Table的Filter,和Filtered属性就可以了。
设Table1是图书信息表,Table2是职工信息表
Table2.Filter:='职工号='''+Table1.FieldByName('职工号').AsString+'''';
if not Table2.Filtered then Table2.Filtered:=True;
就可以了。
Michaelyfj
2000-07-16
打赏
举报
回复
编写存放图书信息的DBGrid的datasource的OnDataChange函数。
牛魔王的表弟
2000-07-16
打赏
举报
回复
简单的一对多,看书吧
pjy
2000-07-15
打赏
举报
回复
这个问题很简单,看一看范例或书就应该很清楚了!
简单思路可以是:通过FieldByName('FieldName')取出人命,然后使用sql.add()语句将此变量作为一个参数传入一SQL语句中,可用类似select * from TableName where FieldName = :变量名。然后使用Prepare,在用Paramsbyname(变量名) := 人命。
如果不理解,请在联系我!
Wingsun
2000-07-14
打赏
举报
回复
看一看Delphi下的例程,在Demos\Db\Mastapp下。
Bald_eagle
2000-07-14
打赏
举报
回复
把显示职工表的DBGrid2的Visible属性设为False,把‘人名’字段的Buttonstyle的属性
设为cbsEllipsis,在包含‘人名’字段的DBGrid1的OnEditButtonclick事件中写入代码,DBGrid2.Visible := True;
以上操作即可实现你的要求,然后可以在双击DBGrid2的事件中为人名’字段赋值并把
DBGrid2的Visible设为False.
MySQL学习笔记:索引优化
MindManager脑图,纯自己写的一些感想,如有不当,请各位老师多多
指点
!真心
感谢
!
电脑台账管理系统源码
好多朋友要这个源码,因为最初只是刚写好,没有修正什么,现在也在修正中,现在传上来给大家一起讨论,希望高手能改正一下维修申报以后能够自动发出消息提示网络管理员,这个我是用Ttimer控件来提示的,其实可以用API函数向制定机器中发出消息,这样比较减少服务器负荷;还有最近修改了以下根据用户电脑分辨率改变适合系统的需求设置,我想如果能够根据分辨率自动调节界面大小就更好了,可以的话希望高手
指点
!因为之前只是做ERP二次开发,没有独立做过完整系统,所以初次做代码写得不是很好,很多资源网上都有。最近想学习JAVA,想做个网站,但不知道如何开始,如果有JAVA方面学习资料
感谢
分享一下!
指点
一下!
ThreeLayerLib源代码
ThreeLayerLib.dll的源代码,请各位大神多多
指点
其中存在的问题,不胜感激,再次
感谢
各位大神对在下的关注和
指点
!
MinGW对Thunk的实现
应该是网上第一份MinGW编译器可使用的Thunk代码,借鉴了南风的代码,在此谢过。同时
感谢
mydo
指点
!
php购物车。。恭请大师来修改!
本人的小作品。。做的不好!!请人
指点
。。
感谢
万分!
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章