摘要: 在窗体uses中,添加新的引用单元:DBGridEhImpExp procedure TFrmdbGridEh.ToolButton2Click(Sender: TObject);var ExpClass:TDBGridEhExportClass; Ext:String; lssavedialog: tsavedialog;begintry lssavedialog := tsavedialog.Create(nil); lssavedialog.Filter := '*.xls|*.xls|*.csv|*.csv|*.htm|*.htm|*.rtf|*.rtf|*.txt|*.txt 阅读全文
posted @ 2012-08-25 21:33 用智慧点亮人生 阅读(526) 评论(0) 推荐(0) 编辑
摘要: DisableControls方法是在程序修改或后台有刷新记录的时候切断数据组件,如TTABLE、ADOQUERY等等与组件数据源的联系。如果没有切断,数据源中只要一有数据的改动,尤其是批量改动的话,每一笔的改动都会更新窗口中数据浏览组件的显示,这样会急剧减慢处理过程而且浪费时间。EnableControls的作用相反,用来恢复TTABLE等组件与DATASOURCE的联系,并促使数据浏览组件更新显示。 这两个函数主要阻止组件感应显示,以加快语句执行速度。 比如,用大量的循环的时候,最好用他们。 1. 数据集的EnableControls, DisableControls方法成对使用的时候, 阅读全文
posted @ 2012-08-25 12:34 用智慧点亮人生 阅读(618) 评论(0) 推荐(0) 编辑
摘要: 显示时候加上下面这句话就可以了 看来俄国人想的很周到,知道咱们会有这个需求For i:=0 to DBGridEh1.Columns.Count-1 do begin DBGridEh1.Columns[i].OptimizeWidth; end; 阅读全文
posted @ 2012-08-25 10:23 用智慧点亮人生 阅读(463) 评论(0) 推荐(0) 编辑