Tspeedbutton绑定数据库字段问题

neterr 2010-03-28 06:30:08
在做一个系统中,左边是一个dbgrideh(显示最近的业务单据列表),右边是很多DBEdit(显示左边dbgrideh选中行的单据详细信息),在窗口上边则有一排Tspeedbutton,来对选中单据进行操作,如审批,删除等!

问题:如何实现当选中单据已“审批”时,则“审批”按钮变为灰,没“审批”为正常可操作状态(数据表中有一字段记录该单据审批状态,已经审批为1,未审批为0)

...全文
32 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
neterr 2010-03-28
  • 打赏
  • 举报
回复
谢谢,ljluck7687 !
初学delphi,麻烦各位了!
ljluck7687 2010-03-28
  • 打赏
  • 举报
回复
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
speedbutton1.enabled:=(datasource1.DataSet.FieldByName('审批').Value=0); //speedbutton1为审批按钮
end;

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧