begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end; 2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end; 3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end; 4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end; 5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
else
ExpClass := nil; Ext := ''; end;
if ExpClass <> nil then begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False); //其中false为局部数据 end; end; end;
15. 将存在的DBGrid组件转换为DBGridEh组件。具体步骤如下: 1、在Delphi IDE下打开TDBGrid组件.
2、通过组合键Alt-F12将form 以文本方式显示;
3、将所有TDBGrid 对象名改变为 TDBGridEh对象名,如:DBGrid1: TDBGrid改为 DBGrid1: TDBGridEh;
4、再次通过组合键Alt-F12将文本方式恢复为form 显示;
5、将form各相关事件中定义的所有TDBGrid改为TDBGrideh,如DBGrid1: TDBGrid改为DBGrid1: TDBGridEh; 6、重新编译应用程序。
16. STFilter的使用。(??????)
(1)在DBGridEh中设置local值为True(具体作用还没有体会出来- -),设置Visible为True。
(2)在Columns中的STFilter下的属性中,设置ListSource为用于取下拉列表的DataSource,ListField为取下拉列表内容的字段。
二. DBSumList组件:
DBSumList组件可以在可视动态变化数据集中进行记录统计。但是上面的DBGridEh的统计功能并不需要这个组件。使用时先在设置DataSet关联到Query组件,然后SumCollection中设置相关的需要统计的数据字段,然后写 SumListChanged 事件来指定在被统计数据发生改变后所要做的操作。
三. PrintDBGridEht组件:
1. 属性。
AfterGridText:表尾文字。 BeforeGridText:表头文字。 PageFooter:设置页脚。 PageHeader:设置页眉
PageFooter.CenterText:设置页脚中央的文字 PageFooter.LeftText设置页脚左边的文字。
PageFooter.LineType设置分割页脚的线的类型,例如CenterText中设置‘第&[Page]
页 共&[Pages]页’,则每页下面都显示页面的页号和总共的页面数量。PageHeader属性集设置页眉。
Options:设置打印设置的默认值。
Options.pghFitGirdToPageWidth: 按比例缩小表格以适应页面宽度。 Options.pghColored: 是否打印表格色彩。
Options.pghFitingByColWidth: 使字段的纵向宽度适应页面大小,对应打印预览
设值中的“Fits the width on one page”项目。
Options.pghOptimalColWidths: 优化字段宽度使其适应其中的内容的宽度。 Title:设置插入于表格中第一行的标题。
2. 设置变量:
PrintDBGridEh.SetSubStitutes(['%[变量1]',值1],['%[变量2]',值2],...)
3. 调用方式:
PrintDBGridEh1.Preview;
四.DBEditEh1
1. 主要属性。
Text: 默认文字。
WantTabs:当输入Tab键时,不转移控件焦点。 WantReturns:允许在编辑框中输入回车。
五.其它
17. DBDateTimeEditEh。从设置DataSource中设定的DataField中,存取的DBGrid中选定
字段的日期值。
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库Delphi的EhLib控件的使用说明(2)在线全文阅读。
相关推荐: