–表的字段名称 select name from syscolumns where id=object_id( '表 ') –表的字段数 select count(name) from syscolumns where id=object_id( '表 ') 建议改成：object_id(N '
XE编写APP时不能删除控件解决方案
XE开发APP时我们不停的往里拖放控件，这个跟我们编写exe程序无所差别。 但是我们要删除某个控件，却出现“选择包含的组件，xx，引用一个祖先，不可删除.” 无论如何都无法删除。 解决方案：将视图调整成“默认”视图，再删除即可。
Delphi批处理删除临时文件
在编写程序的同时，会在目录下生生很多带~的临时文件，打开的越多形成的越多，为了程序的干净有序我们务必要删除这些没有用处的临时文件。 手动删除？太慢！也不方便。 所以我们就得依靠自动化了，来写个批处理文件吧。 del *.obj del *.dcu del *.~* del *.hpp del *.dcp del *.dpl del *.cesettings del *.log del *.ilc del *.ild del *.ilf del *.ils del *.tds
快速合并与拆分同值单元格
每当遇到查询数据输出成Excel格式时，发现有部分数据列是重复值，一行一行的实在看着花，就会想着手动合并下，但是遇到大数据我们不是要累死？ 所以我们得求助VBA解决了一劳永逸。 合并代码： Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"
SQL快速生成100万条测试数据
平时测试软件测试读取性能时，一条或者多条是测试不出程序效能的，读取100万的数据或许能看出。 那我们就动手生成一百万条数据吧。 SQL命令如下： declare @i int set @i = 1 while @i < 1000000 begin insert into tb (id,value) values('220200',2000+@i) set @i = @i + 1 end
SQL拼接两条查询语句结果
最近在做报表时遇到需将2个不同的环节点数据同时输出到一次查询中，无疑要在一个SQL语句中完成。 这里我以我的数据表做个实例。提取出库、入库的数据。 代码如下： select (SELECT SUM(b.数量) FROM PintoD_T as a right join PintoD_M as b on a.RID=b.rid where a.RID='184') as 入库数量,( SELECT SUM(b.数量)  
仙人球开花之感悟人生
从去年DD那里拿来一盆仙人球，样子看上去很普通，一直放在小卧室的床台上，没过几天就开花了，甚是惊喜。隐约记得那时是2014-5-17。 时隔一年，仙人球再次绽放，2015-5-25早上，从绽放到凋零仅10小时，粉色的花瓣甚是美丽。 感悟：事物美丽的往往是短暂的，大多都是平淡，仙人球耐受364天的平淡换来一天的美丽绽放。人生何尝不是如此！