有个比较麻烦那的关于dbgrideh的问题，请帮忙看一下。

lina0725 2007-04-03 11:19:42

我现在有个程序比较麻烦。需要在同一单元格中显示三个字段的内容，而且这三个字段的字体颜色还要不一样。想问下这怎么解决好。
还有个关于他的内容。根据另外一个字段的值，还是这个单元格显示不同的内容。比如。
此单元格中需要显示，信息内容，时间，发布人（这三项字体和颜色都不一样），然后根据信息状态的字段值，如果状态为0，此单元格正常显示此三项内容，如果状态为1，此单元格显示“此消息已阅读”，如果状态为2，此单元格显示“此消息已删除”
主要实现功能如上所述，现在没有一点头绪，不知道该怎么入手，希望大家指点一下。新手

...全文

110 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

DBGridEh和dbgrid导出 DBGridEh和dbgrid导出

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;

DBGridEh的图片

DBGridEh让选择的记录不随垂直滚动条滚动而移动使用Delphi的人都知道，Delphi中的Grid与PB或者其他的Grid有区别，就是在滚动时记录指针会跟着改变。能不能做到像PB中的DataWindow一样滚动时选定记录不改变呢？

在他人的DBGridEh导出到Excel的基础上进行改进，增加功能如下： 1、支持多个DBGridEH同时导出到Excel的不同Sheet页 2、进度条与数据进度保持一致 3、增加了进度百分比显示 //调用方法: procedure TForm1.Button1Click(Sender: TObject); var DbOut: TDBGridEhToExcel; i: integer; begin try DbOut := TDBGridEhToExcel.Create(Self); for i := 0 to 9 do //初始化数组 begin DbOut.DBGridEhRecAry[i].TempDBGridEh := nil; DbOut.DBGridEhRecAry[i].TitleName := ''; DbOut.DBGridEhRecAry[i].SheetTabName := ''; end; //有多少个DBGridEh的数据要导出，此处表示两个 DbOut.DBGridEhRecLength := 2; //统计结果一 DbOut.DBGridEhRecAry[0].TempDBGridEh := dbgSpotCheckCount; DbOut.DBGridEhRecAry[0].TitleName := '统计结果一'; DbOut.DBGridEhRecAry[0].SheetTabName := '统计结果一'; //统计结果二 DbOut.DBGridEhRecAry[1].TempDBGridEh := dbgValuationCount; DbOut.DBGridEhRecAry[1].TitleName := '统计结果二'; DbOut.DBGridEhRecAry[1].SheetTabName := '统计结果二'; DbOut.TitleName := '统计结果'; DbOut.ShowProgress := True; DbOut.ShowOpenExcel := True; DbOut.ExportToExcel; finally FreeAndNil(DbOut); end; end; 还可以改进的地方，比如： 1、标题栏占用几行，字体，字体颜色，字体大小，背景颜色可以封装提供设置方法； 2、字段标题字体，字体颜色，字体大小； 3、表格样式设置；就是动态数据不会封装到类里面，如果有高人封装得更好一些，请发一份我；

数据库相关

2,498

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章