吴昊的博客

1 序言 2 DBGridEh（增强型表格组件）功能详解 3 应用实例 3.1 定制标题行 3.1.1 制作复杂标题行 3.1.2 标题行显示图片 3.1.3 自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序 3.2 定制表格底部（footer）区域的汇总统计行 3.3 定制表格数据单元外观 3.3.1 根据不同字段值显示相应的小图片 3.3.2 显示检查框（checkbox）外观 3.3.3 显示单、多列下拉列表 3.3.4 显示日历下拉列表 3.3.5 3D或平面外观效果 3.3.6 锁定多列不滚动 3.4 导入/导出数据 3.5 将存在的DBGrid组件 Read More

KeyLife富翁笔记 作者　: archonwang标题　: Ehlib 的使用 关键字: 前 言 分类　: 个人专区 密级　: 公开 (评分:★★★ , 回复: 10, 阅读: 4649) »» 最近闲来无事，就装了一个 Ehlib 来玩。呵呵，没想到，这么个小东西一下子就把我迷住了，细细品来，的确是一个非常好的控件作品。作者厉害厉害啊～～ 2003-12-5 15:17:00 发表评语»»» 2003-12-5 15:22:29 使用 TDBSum Read More

EhLib使用全攻略 收藏 EhLib使用全攻略使用 TDBSumList 组件 还记得以前有朋友问过这样一个问题：在 DBGrid 下如何像 Excel 一样能够做统计计算，实话说，使用 DBGrid 来做的话着实不易，不过现在有了这个咚咚，相信会简单些。以下是摘录的一些使用上的说明： 【TDBSumList说明】 你可以使用TDBSumList在可视动态变化数据集中进行记录统计。在你想查看的数据集中设置相关的数据字段，然后写 SumListChanged 事件来指定在TDBSumList发生改变后所要做的操作。TDBSumList 的 SumCollection 属性上一个 TDBSum Read More

在几千条记录里,存在着些相同的记录,如何能用SQL语句,删除掉重复的呢?谢谢!1、查找表中多余的重复记录，重复记录是根据单个字段（peopleId）来判断select * from peoplewhere peopleId in (select peopleId from people group by peopleId having count(peopleId) > 1)2、删除表中多余的重复记录，重复记录是根据单个字段（peopleId）来判断，只留有rowid最小的记录delete from people where peopleId in (select peopleI Read More

在一张表中某个字段下面有重复记录，有很多方法，但是有一个方法，是比较高效的，如下语句： select data_guid from adam_entity_datas a where a.rowid > (select min(b.rowid) from adam_entity_datas b where b.data_guid = a.data_guid) 如果表中有大量数据，但是重复数据比较少，那么可以用下面的语句提高效率 select data_guid from adam_entity_datas where data_guid in (select data_guid Read More

1. 问题的提出 在实际工作中，我们常常会碰到号段选取的问题。（1）一组连续的数，去掉中间一些数，要求出剩下的数的区间（即号段）。 例如：一串数字为1,2,3,4,7,9,10，则号段为1-4,7-7,9-10 （2）知道号段的起止，要求出该号段内所有的数。 例如：号段为1-3,15-15，则号段内所有的数为1,2,3,15（3）一组数，中间可能有断点，要求出缺失的数。 例如：一串数字为1,2,3,4,7,9,10，则缺失的数为5,6,8（4）已知大号段范围及已用号段范围，求可用号段范围。 例如：大号段范围0-999,已用号段范围0-200,399-599，则可用号段范围为201-398,60 Read More

--1：获取当前数据库中的所有用户表 select name from sysobjects where xtype=u and status=0 --2：获取某一个表的所有字段 select name from syscolumns where id=object_id(表名) --3：查看与某一个表相关的视图、存储过程、函数 select a.* from sysobjects a, syscomments b where a.id = b.id and b.text like %表名% --4：查看当前数据库中所有存储过程 selec Read More

//StringGrid的鼠标移动事件procedureTfrmCKSJHD.sg_JCSJMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginwithsg_JCSJdobegin//当鼠标在标题行且不在序号列时，鼠标指针变成手形if(GetRowByCY(sg_JCSJ,Y)=0)and(GetColByCX(sg_JCSJ,X)0)thenbeginCursor:=crHandPoint;end//其他情况鼠标指针为默认elseCursor:=crDefault;end;end;//----------------- Read More

unitSGridFunction;{*******************************************模块名称：StringGrid操作函数模块编写者：Tony开始日期：2006年12月05日版本号：v1.0.7********************************************}interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,SConnect,Dialogs,Global,Grids,DBGrids,DB,DBClient,WinSkinD Read More

首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );注意程序结束时释放变量 ExcelApp:=unassigned显示当前窗口ExcelApp.Visible := True;更改 Excel 标题栏ExcelApp.Caption:= '应用程序调用 Microsoft Excel';添加新工作簿ExcelApp.WorkBooks.Add;打开已存在的工作簿ExcelApp.WorkBooks.Open('C:ExcelDemo.xls' );设置第 Read More