Delphi中点击DBGrid某一行获得其详细数据方法


======================================================
注:本文源代码点此下载
======================================================

delphi中点击dbgrid某一行获得其详细数据方法

前提是用adotable进行数据库的链接。(其他的链接数据库的方法没有试过)

在方法:dbgrid1dblclick中添加代码:

1 combobox1.text:=dbgrid1.columns.grid.fields[0].value;

2 edit1.text:=dbgrid1.columns.grid.fields[1].value;

3 edit2.text:=dbgrid1.columns.grid.fields[2].value;

4 edit3.text:=dbgrid1.columns.grid.fields[3].value;

5 edit8.text:=dbgrid1.columns.grid.fields[4].value;

6 edit4.text:=dbgrid1.columns.grid.fields[5].value;

7 edit5.text:=dbgrid1.columns.grid.fields[6].value;

8 edit6.text:=dbgrid1.columns.grid.fields[7].value;

用到的就是combobox1.text:=dbgrid1.columns.grid.fields[0].value;

0表示的是点击的这一行的第0列数据,就是第一个属性的值,1表示第二列属性的数据值等等。

绿色通道:好文要顶关注我收藏该文与我联系

posted on 2011-12-16 14:39 leewiki 阅读(12) 评论(0)编辑 收藏

注册用户登录后才能发表评论,请 登录 或 注册,返回博客园首页

首页博问闪存新闻园子招聘知识库

最新it新闻:

·ios 5.1 beta3文件预示未来 siri有可能支持 ipad和 ipod touch

·android平台12月广告浏览份额51.6% 超越ios

·测试版ios源代码显示ipad 3或将支持siri

·斯蒂芬·霍金的新电脑

·京东商城2.95亿竞得北京商业地一块

» 更多新闻...

最新知识库文章:

·javascript 面向对象编程

·持续集成之“everything is code”

·持续集成之“软件自我识别”

·持续集成之戏说check-in dance

·什么是闭包。
       我的理解

» 更多知识库文章...

china-pub 2011秋季教材巡展

china-pub 计算机绝版图书按需印刷服务


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要在 Delphi 7 的 DBGrid 控件的每行数据显示一个按钮,你可以使用 TDBGridButtonColumn 组件并设置其 ButtonStyle 属性为 bsGlyph。 以下是一个简单的示例: 1. 在 Delphi 7 的窗体设计器,将一个 TDBGrid 组件放置在你的窗体上。 2. 在窗体上放置一个 TDataSource 组件,并将其 DataSet 属性设置为你要在 DBGrid 显示的数据集3. 打开 DBGridColumns 属性编辑器。点击右侧的“添加”按钮,选择 "TColumn" 类型。 4. 在 "TColumn Editor" 对话框,选择 "TDBGridButtonColumn" 类型。 5. 在 "TDBGridButtonColumn Editor" 对话框,设置 ButtonStyle 属性为 bsGlyph。 6. 在 "TDBGridButtonColumn Editor" 对话框,为 Glyph 属性选择一个合适的图标,用于表示按钮。 7. 在 DBGrid 的 OnDrawColumnCell 事件编写代码来绘制按钮。 ```delphi procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var ButtonRect: TRect; ButtonWidth: Integer; begin if (Column is TDBGridButtonColumn) and (gdFocused in State) then begin ButtonWidth := 18; // 按钮的宽度 ButtonRect.Left := Rect.Right - ButtonWidth - 2; ButtonRect.Right := Rect.Right - 2; ButtonRect.Top := Rect.Top + 2; ButtonRect.Bottom := Rect.Bottom - 2; DBGrid1.Canvas.Pen.Color := clBtnFace; DBGrid1.Canvas.Brush.Color := clBtnFace; DBGrid1.Canvas.Rectangle(ButtonRect); // 在按钮上绘制图标 ImageList1.Draw(DBGrid1.Canvas, ButtonRect.Left + 2, ButtonRect.Top + 2, 0); end; end; ``` 请确保你已经将一个 TImageList 组件放置在窗体上,并将其 Images 属性设置为包含所需图标的图像列表。 现在,每行数据将在最后一列显示一个带有图标的按钮。你可以根据需要自定义按钮的样式、位置和绘制方式。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值