delphi下要读取文件夹下的数据有不同的文件夹在网格中显示,文件类型是记录文件
2个回答
2011-05-06
展开全部
设置好你的dbgrid,显示数据后可做如下动作调节你的列宽:
1.双击dbgrid,出现一个编辑框:EDITING DBGRID1.COLUNMS
2.如果是空白的话,点击第三个图标: Add All Fields
3.选择需要设置的行,在它的属性栏,直接设置他了WINDTH值为你想要的.
dbgrid的option属性里有设置是否可编辑.
一些行的颜色修改,需要写代码:
下面的是数据库中kpsn字段为'NF1S660033AC0011'是改变颜色
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if oraquery1.FieldByName('kpsn').AsString='NF1S660033AC0011' then
begin
DbGrid1.Canvas.Brush.color:=clblack;
dbgrid1.Canvas.Font.Color:=clwhite;
end;
DbGrid1.Canvas.pen.mode:=pmmask;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
补充:
dbgrid的属性栏中有一个options属性,展开
有dgediting,dgrowselect..
dgediting就是控制是否可编辑的,rowselect是控制是否可选择全行的.
另外,虚机团上产品团购,超级便宜
1.双击dbgrid,出现一个编辑框:EDITING DBGRID1.COLUNMS
2.如果是空白的话,点击第三个图标: Add All Fields
3.选择需要设置的行,在它的属性栏,直接设置他了WINDTH值为你想要的.
dbgrid的option属性里有设置是否可编辑.
一些行的颜色修改,需要写代码:
下面的是数据库中kpsn字段为'NF1S660033AC0011'是改变颜色
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if oraquery1.FieldByName('kpsn').AsString='NF1S660033AC0011' then
begin
DbGrid1.Canvas.Brush.color:=clblack;
dbgrid1.Canvas.Font.Color:=clwhite;
end;
DbGrid1.Canvas.pen.mode:=pmmask;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
补充:
dbgrid的属性栏中有一个options属性,展开
有dgediting,dgrowselect..
dgediting就是控制是否可编辑的,rowselect是控制是否可选择全行的.
另外,虚机团上产品团购,超级便宜
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询