delphi
cqingling
这个作者很懒,什么都没留下…
展开
-
QReport合并报表
QRCompositeReport1:TQRCompositeReport; qrp:TQuickRep; x:Pointer QRCompositeReport1.Prepare; x:=QRCompositeReport1.Reports.List[0]; qrp:=x; qrp.QRPrinter.Save(strFile+'.QRP');原创 2011-04-13 22:57:41 · 231 阅读 · 0 评论 -
按回车键,焦点跳转至下一个控件
if (Key <> 13) or (ActiveControl = nil) or (ActiveControl.ClassName = 'TMemo') then Exit; if ActiveControl.ClassName <> 'TDBGrid' then Perform(WM_Nextdlgctl,0,0); if ActiveC...原创 2011-04-13 22:59:46 · 325 阅读 · 0 评论 -
用一条SQL得到数据库中的随机记录集
用一条SQL得到数据库中的随机记录集”问题在网上已经有很多答案了: SQL Server 2000: SELECT TOP n * FROM tanblename ORDER BY NEWID() Access SELECT TOP n * FROM tanblename ORDER BY rnd([一个自动编号字段]) 好了!就说说这个Access的! 打开Access2003建立一个带...原创 2011-04-13 23:04:35 · 104 阅读 · 0 评论 -
获得文件ICON API
获得文件ICON Windows API Get files icon//-------------------------------//{ Function: Get files icon Parameter: Filename: File path which icon will been gotten SmallIcon: If true will get 16*1...原创 2011-04-13 23:08:39 · 256 阅读 · 0 评论