DBGrid怎么实现根据数据库中不同的值在界面上显示不同颜色的功能？

2003-08-24 12:19:29 103 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再只会插卡了！用示波器实测SIM卡上电时序与通信波形（附故障排查）本文深入解析了SIM卡通信的电气信号与时序规则，通过示波器实测波形揭示SIM卡上电时序与通信协议的关键细节。从VCC、CLK、RST、DATA四路信号的协同工作，到ATR（Answer to Reset）的解析，再到常见故障的波形诊断与排查方法，为硬件工程师提供了实用的调试指南。文章还分享了高级调试技巧与现代化工具链搭建建议，帮助提升物联网设备SIM卡通信的可靠性与效率。阅读详情

比如在数据库中值为0代表正常，1代表故障，在界面上的DBGrid中我想在显示正常时为绿色，故障时为红色。怎么做到？
谢谢

...全文

Edge浏览器IE模式全攻略：从企业应用到老旧网站兼容（含常见问题解答）本文详细解析了微软Edge浏览器的IE模式，这是解决企业遗留系统与老旧网站兼容性问题的关键技术。文章从核心原理出发，提供了从个人用户临时启用到企业级组策略部署的完整配置指南，并深入探讨了文档模式调优、ActiveX控件处理等高级技巧，最后汇总了常见问题排查与安全实践，帮助用户高效平衡兼容性与现代化浏览体验。阅读详情

chenxi_aji

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

hare007 2003-08-28

打赏
举报

lzybfs 2003-08-27

打赏
举报

dbgrid 的颜色
如何使 DBGRID 网格的颜色随此格中的数据值的变化而变化。如 <60 的网格为红色？

Delphi 中数据控制构件 DBGrid 是用来反映数据表的最重要、也是最常用的构件。在应用程序中 ,如果以彩色的方式来显示 DBGrid,将会增加其可视性 ,尤其在显示一些重要的或者是需要警示的数据时 ,可以改变这些数据所在的行或列的前景和背景的颜色。

　　 DBGrid 属性 DefaultDrawing 是用来控制 Cell( 网格 ) 的绘制。若 DefaultDrawing 的缺省设置为 True,意思是 Delphi 使用 DBGrid 的缺省绘制方法来制作网格和其中所包含的数据 ,数据是按与特定列相连接的 Tfield 构件的 DisplayFormat 或 EditFormat 特性来绘制的 ; 若将 DBGrid 的 DefaultDrawing 特性设置成 False,Delphi 就不绘制网格或其内容 ,必须自行在 TDBGrid 的 OnDrawDataCell 事件中提供自己的绘制例程 ( 自画功能 ) 。

　　在这里将用到 DBGrid 的一个重要属性 : 画布 Canvas,很多构件都有这一属性。 Canvas 代表了当前被显示 DBGrid 的表面 ,你如果把另行定义的显示内容和风格指定给 DBGrid 对象的 Canvas,DBGrid 对象会把 Canvas 属性值在屏幕上显示出来。具体应用时 ,涉及到 Canvas 的 Brush 属性和 FillRect 方法及 TextOut 方法。 Brush 属性规定了 DBGrid.Canvas 显示的图像、颜色、风格以及访问 Windows GDI 对象句柄 ,FillRect 方法使用当前 Brush 属性填充矩形区域 ,方法 TextOut 输出 Canvas 的文本内容。

　　以下用一个例子来详细地说明如何显示彩色的 DBGrid 。在例子中首先要有一个 DBGrid 构件 ,其次有一个用来产生彩色筛选条件的 SpinEdit 构件 ,另外还有 ColorGrid 构件供自由选择数据单元的前景和背景的颜色。

　　 1.建立名为 ColorDBGrid 的 Project,在其窗体 Form1 中依次放入所需构件 ,并设置属性为相应值 ,具体如下所列 :

　　 Table1 DatabaseName: DBDEMOS

TableName: EMPLOYEE.DB

Active: True;

　　 DataSource1 DataSet: Table1

　　 DBGrid1 DataSource1: DataSource1

DefaultDrawing: False

　　 SpinEdit1 Increment:200

Value: 20000

　　 ColorGrid1 GridOrdering: go16 ＊ 1

　　 2.为 DBGrid1 构件 OnDrawDataCell 事件编写响应程序 :

　　 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);

　　 begin

　　 if Table1.Fieldbyname( ' Salary ' ).value<=SpinEdit1.value then

　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor

　　 else

　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;

　　 DBGrid1.Canvas.FillRect(Rect);

　　 DBGrid1.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);

　　 end;

　　这个过程的作用是当 SpinEdit1 给定的条件得以满足时 ,如 ' salary ' 变量低于或等于 SpinEdit1.Value 时 ,DBGrid1 记录以 ColorGrid1 的前景颜色来显示 ,否则以 ColorGrid1 的背景颜色来显示。然后调用 DBGrid 的 Canvas 的填充过程 FillRect 和文本输出过程重新绘制 DBGrid 的画面。

　　 3.为 SpinEdit1 构件的 OnChange 事件编写响应代码 :

　　 procedure TForm1.SpinEdit1Change(Sender: TObject);

　　 begin

　　 DBGrid1.refresh;

　　 end;

　　当 SpinEdit1 构件的值有所改变时 ,重新刷新 DBGrid1 。

　　 4.为 ColorGrid1 的 OnChange 事件编写响应代码 :

　　 procedure TForm1.ColorGrid1Change(Sender: TObject);

　　 begin

　　 DBGrid1.refresh;

　 end;

　　当 ColorGrid1 的值有所改变时 ,即鼠标的右键或左键单击 ColorGrid1 重新刷新 DBGrid1 。

　　 5.为 Form1 窗体 ( 主窗体 ) 的 OnCreate 事件编写响应代码 :

　　 procedure TForm1.FormCreate(Sender: TObject);

　　 begin

　　 ColorGrid1.ForeGroundIndex:=9;

　　 ColorGrid1.BackGroundIndex:=15;

　　 end;

　　在主窗创建时 ,将 ColorGrid1 的初值设定前景为灰色 ,背景为白色 ,也即 DBGrid 的字体颜色为灰色 ,背景颜色为白色。

　　 6.现在 ,可以对 ColorDBGrid 程序进行编译和运行了。当用鼠标的左键或右键单击 ColorGrid1 时 ,DBGrid 的字体和背景颜色将随之变化。

　　在本文中 ,只是简单展示了以彩色方式显示 DBGrid 的原理 ,当然 ,还可以增加程序的复杂性 ,使其实用化。同样道理 ,也可以将这个方法扩展到其他拥有 Canvas 属性的构件中 ,让应用程序的用户界面更加友好。

dickeybird888 2003-08-24

打赏
举报

首先将DBGrid的DefaultDrawing轩为False
之后在它的OnDrawDataCell事件编写响应代码。
在DBGrid1的DrawColumnCell 事件中写入
if query1.fieldbyname('flag').asstring='1' then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
end;
else
begin
DBGrid1.Canvas.Font.Color := clGreen;
DBGrid1.Canvas.FillRect(Rect);
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

//如果是行选色则用这句: DBGrid1.Canvas.Brush.Color := clMoneyGreen;

chenxi_aji 2003-08-24

打赏
举报

是按照字段改变文本颜色，比如就在代表状态的字段中应用这种规则

fenglaile 2003-08-24

打赏
举报

就是dbgrid自己定义的DrawColumnCell事件，在dbgrid创建的时候的过程
它自己默认的

chenxi_aji 2003-08-24

打赏
举报

DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
这句是什么意思？谢谢

DBGrid怎么实现根据数据库中不同的值在界面上显示不同颜色的功能？

相关推荐