ehlib控件使用的几个问题(100分)

  • 主题发起人 主题发起人 lyplay2
  • 开始时间 开始时间
L

lyplay2

Unregistered / Unconfirmed
GUEST, unregistred user!
1、如果将查询到的数据(表格中)导出为EXCEL或其它格式
2、如何将表格的颜色隔行显示
如:135为红
246为兰
3、如何在表格中出现下拉框及CHECK控件
 
2.procedure DrawGrid(Grid:TDBGrid;const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(Grid.DataSource.DataSet.RecNo) then//奇偶行判断
begin
Grid.Canvas.Font.Color:=clblack;
Grid.Canvas.Brush.color:=clwhite;
end
else
begin
Grid.Canvas.Font.Color:=clblack;
Grid.Canvas.Brush.color:=clcream;
end;
if Grid.SelectedRows.CurrentRowSelected then//dgRowSelect和dgMultiSelect都为真时有效
begin
Grid.Canvas.Font.Size:=12;
Grid.Canvas.Font.Style:=[fsBold];
Grid.Canvas.Font.Color:=clwhite;
Grid.Canvas.Brush.color:=clNavy;
end;
Grid.DefaultDrawColumnCell(rect,datacol,column,state);
end;
  在OnDrawColumnCell事件中放入DrawGrid((sender as TDBGrid),Rect,DataCol,Column,State)就大功告成了。

3、checkbox属性为true即可
 
导出到Excel的问题:
首先 use DBGridEdImpExp;

然后(saveDlg是一个对话框):
if saveDlg.Execute then
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,saveDlg.FileName,True);

下拉的问题,可以设置PickupList用于固定列表,还可以用DBLookupList,在数据源中设置lookup字段即可。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
824
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部