4894
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yuanscar 2002-09-07
多谢jyqkr(酷鱼)兄，办法简单可行，也多谢其他各位！
god263 2002-09-06
爽击Dbgrid，在弹出的编辑筐中点击鼠标右键， 选择Addallfields
在更改每个字段的Titile
在更改每个字段的Titile
BES 2002-09-06
For i:=0 to DBGrid1.Columns.Count-1 do
begin
if i=DBGrid1.Columns.Count-1 then
begin
DBGrid1.Columns[i].Title.Caption:='总计不良率';
DBGrid1.Columns[i].Width:=70;
end
else
if i=0 then
begin
DBGrid1.Columns[i].Title.Caption:='料品编码';
DBGrid1.Columns[i].Width:=90;
end
else
begin
DBGrid1.Columns[i].Width:=65;
if (i=1) or (((i+3) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别'
else if (i=2) or (((i+2) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='作业群组'
else if (i=3) or (((i+1) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别名称'
else if (i mod 4)=0 then DBGrid1.Columns[i].Title.Caption:='不良率';
end;
end;
begin
if i=DBGrid1.Columns.Count-1 then
begin
DBGrid1.Columns[i].Title.Caption:='总计不良率';
DBGrid1.Columns[i].Width:=70;
end
else
if i=0 then
begin
DBGrid1.Columns[i].Title.Caption:='料品编码';
DBGrid1.Columns[i].Width:=90;
end
else
begin
DBGrid1.Columns[i].Width:=65;
if (i=1) or (((i+3) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别'
else if (i=2) or (((i+2) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='作业群组'
else if (i=3) or (((i+1) mod 4)=0) then DBGrid1.Columns[i].Title.Caption:='段别名称'
else if (i mod 4)=0 then DBGrid1.Columns[i].Title.Caption:='不良率';
end;
end;
jyqkr 2002-09-06
在query中的fields中的displaylabel中改成中文
或者在dbgrid中的columns中的title中的caption改为中文名
或者在dbgrid中的columns中的title中的caption改为中文名
tuorx 2002-09-06
这个问题的解决方法有以下几种：
1、在SQL语句中直接写定中文名，如：
Select FieldName As 中文名 From TableName
2、可以双击DBGRID进行字段设置；
3、可以直接双击TDataSet进行字段设置。
不知还有没有其他方法，小弟暂时提供这么多，不知行否？
1、在SQL语句中直接写定中文名，如：
Select FieldName As 中文名 From TableName
2、可以双击DBGRID进行字段设置；
3、可以直接双击TDataSet进行字段设置。
不知还有没有其他方法，小弟暂时提供这么多，不知行否？
careerist 2002-09-06
在DBGRID上点击右键,打开COLUMN EDITER,增加字段,把增加的字段的FIELD NAME属性设置为你DATASET中相应的字段名,然后在TITLE属性下的CAPTION中输入你想要显示的中文字段名.
DBGrid的刷新问题 DBGrid的刷新问题 Delphi / Windows SDK...我是一个新手，有一个问题，就是在一数据库中添加纪录后（ADOQuery），显示在DBGrid中，但是添加显示以后不是追加到最后，而是清空了以前的纪录，并只加一条纪录，不能显示...
DBGrid导出为Excel 这是我自己在网上找的一个DBGrid导出为Excel的一段代码，然后根据自己的需求改的，并且给他的代码加上了注释。此DEMO适合初学者学习理解用，高手的话就不用了，一般高手都用三方控件了，不会用这个了，哈哈！如果...
自动调整delphi中dbgrid大小 自动调整delphi中dbgrid大小，对dbgrid中根据文本值自动调整单元格的大小, 自动调整delphi中dbgrid大小，对dbgrid中根据文本值自动调整单元格的大小
Delphi DbGrid上色问题 DbGrid的OnDrawColumnCell事件 如你现在有一个ADOTable1,一个DbGrid1,假如你数据库里面的列名分别是(序号,名字,年龄),你要将年龄为23的格填充背景色为黑色,字体颜色改为白色,代码如下: procedure TForm1.DBGrid1...
DBGRID的应用范例 在用vc开发关于数据库的项目时，通常我们只好用微软的DBGRID作为数据库表格控件，其实微软的DBGRID并不好用，想找一份好的帮助文档都找不到，并且界面并不友好，比起C++Builder中的DBGRID来说是逊色不少，但是DBGRID...
dbgrid衮轮修正 delphi的dbgrid衮轮修正参考 标题: DBGRID滚轮修正 private { Private declarations } OldGridWnd : TWndMethod; //鼠标滚轮作用于dbgrid procedure NewGridWnd(var Message: TMessage);
Delphi Dbgrid滚轮问题解决 DBGrid1: TDBGrid; ADOTable1: TADOTable; Edit1: TEdit; private { Private declarations } public { Public declarations } end ; var Form1: TForm1; implementation { $R *.dfm } function TDBGrid...
