DBGridEh显示列

[coderee]

如下代码表a有200个字段：通过DBGridEh1显示出来,然后把第10列以后的隐藏(必须要有)，如果一下代码循环隐藏的话，会影响速度，可不可以用一句话把第10列以后的列隐藏？
qy1.Close;
qy1.SQL.Clear;
qy1.SQL.Add('select * from a');
qy1.Open;

for i:=0 to dbgrideh1.columns.count-1 do
begin
if i>10 then
begin
dbgrideh1.Columns[i].visible:=false;
end;
end;

[babydog01]

什么意思，a 表结构未定？
你在设计期的qy1就加上'select * from a'，qy1就可以打开了么，可以打开就可以填写字段了。

[coderee]

[Quote=引用 11 楼 babydog01 的回复:]
什么意思，a 表结构未定？
你在设计期的qy1就加上'select * from a'，qy1就可以打开了么，可以打开就可以填写字段了。
[/Quote]
好像不太好说，你有qq吗？

[coderee]

我的意思是说DBGridEH并没有真正的加入字段。
for i:=0 to dbgrideh1.columns.count-1 do
begin
if i>10 then
begin
dbgrideh1.Columns[i].visible:=false;
end;
end;
执行以上代码要先知道dbgrideh1.columns.count的值，
DBGRIDEH必须要虚拟加入字段后才能执行以上循环。

[kaikai_kk]

其实我是不明白LZ的特殊情况是什么

[coderee]

[Quote=引用 14 楼 kaikai_kk 的回复:]
其实我是不明白LZ的特殊情况是什么
[/Quote]
我现在要实现的是DBGrid显示列的自定义设置，也就是根据角色的不同自定义显示列的个数和字段的顺序，但是没有显示的列也要存在，因为在后面的表单中要用到没有显示的列。
所以dbgrideh的列并不是真正加入的，只是用于显示的。

[kaikai_kk]

这样啊,其实不难，想达到完全的自定义，下面思路可以参考一下:
1.做一个保存此角色dbgrideh状态的东西了，可以是一个表或者一个txt文件(ini文件)
2.先建立一份默认的保存起来
3.再做个右键菜单，可以打勾的，关联dbgrideh，菜单上列出所有的列名，勾中就显示,反之隐藏
4.打开时读取加载
5.退出时若有修改过就更新

[coderee]

[Quote=引用 16 楼 kaikai_kk 的回复:]
这样啊,其实不难，想达到完全的自定义，下面思路可以参考一下:
1.做一个保存此角色dbgrideh状态的东西了，可以是一个表或者一个txt文件(ini文件)
2.先建立一份默认的保存起来
3.再做个右键菜单，可以打勾的，关联dbgrideh，菜单上列出所有的列名，勾中就显示,反之隐藏
4.打开时读取加载
5.退出时若有修改过就更新
[/Quote]
还要可以调顺序。

[kaikai_kk]

是的,包括颜色,宽度,顺序...都可以

[babydog01]

dbgrideh 带有选择显示列、保存grid信息的功能

//存储Grid格式ini
function SaveGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean;
var
  IniFileNameStr:string;
begin
    IniFileNameStr := ExtractFileDir(ParamStr(0)) + '\' + 'DBGirdConfig.ini';
    ADBGridEh.SaveGridLayoutIni(IniFileNameStr,ADBGridEhNameStr,False);
end;

//加载读取Grid格式ini
function RestoreGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean;
var
  IniFileNameStr:string;
  RestoreParams: TDBGridEhRestoreParams;
begin
    IniFileNameStr := ExtractFileDir(ParamStr(0)) + '\' + 'DBGirdConfig.ini';
    ADBGridEh.RestoreGridLayoutIni(IniFileNameStr,ADBGridEhNameStr,RestoreParams);
end;

[babydog01]

你的这条更影响速度，用多少取多少列。

qy1.SQL.Add('select * from a');

[浩南_哥]

[Quote=引用 1 楼 babydog01 的回复:]

你的这条更影响速度，用多少取多少列。

qy1.SQL.Add('select * from a');
[/Quote]
同意

[coderee]

[Quote=引用 2 楼 m617105 的回复:]
引用 1 楼 babydog01 的回复:

你的这条更影响速度，用多少取多少列。

qy1.SQL.Add('select * from a');

同意
[/Quote]
这个道理我自然懂，但这里的确是有特殊的作用的，需要这样显示。

[babydog01]

如果非要这样做的话，
1、就在设计时将dbgrideh加入所有字段，
2、然后将代码顺序改一下

  qy1.Close;//关掉数据表或用qy1.DisableControls;

  for i:=0 to dbgrideh1.columns.count-1 do
  begin
  if i>10 then
  begin
  dbgrideh1.Columns[i].visible:=false;
  end;
  end; 

  qy1.SQL.Clear;
  qy1.SQL.Add('select * from a');
  qy1.Open;
//如果前面用和qy1.DisableControls;这里要用qy1.EnableControls;

[coderee]

[Quote=引用 4 楼 babydog01 的回复:]
如果非要这样做的话，
1、就在设计时将dbgrideh加入所有字段，
2、然后将代码顺序改一下

Delphi(Pascal) code


qy1.Close;//关掉数据表或用qy1.DisableControls;

for i:=0 to dbgrideh1.columns.count-1 do
begin
if i>10 then
begin
……
[/Quote]
dbgrideh1显示的列并没有加载进去，你说的这个方法是先加载进去，这样不行啊.

[babydog01]

在设计时将dbgrideh加入所有字段，打开qy1,双击dbgrideh ，上方有一个按纽，add all fields

[babydog01]

这个也改一下

for i:=11 to dbgrideh1.columns.count-1 do

[xiesb]

你也可以在数据库中先建立VIEW啊

[jyb_9]

双击qy1加入要显示的字段就OK了

[cqs6616]

读取数据,不用修改数据集,
dbgrideh根据需要动态创建数据列,10列以后的不要创建就可以了.

[newfang]

先静态加上200个列，全部设置为不显示。必要时候循环10次改为可显示。