- 浏览: 5072 次
- 性别:
- 来自: 广州
最新评论
文章列表
获得文件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*16 size icon, false will get 32*32 size icon Return value: Icon's handle Example: frmTest.Icon ...
用一条SQL得到数据库中的随机记录集”问题在网上已经有很多答案了: SQL Server 2000: SELECT TOP n * FROM tanblename ORDER BY NEWID() Access SELECT TOP n * FROM tanblename ORDER BY rnd([一个自动编号字段])
好了!就说说这个Access的!
打开Access2003建立 ...
按回车键,焦点跳转至下一个控件
- 博客分类:
- delphi
if (Key <> 13) or (ActiveControl = nil) or (ActiveControl.ClassName = 'TMemo') then Exit; if ActiveControl.ClassName <> 'TDBGrid' then Perform(WM_Nextdlgctl,0,0); if ActiveControl.ClassName = 'TDBGrid' then begin with TDBGrid(ActiveControl) do begin if (Data ...
QReport合并报表
- 博客分类:
- delphi
QRCompositeReport1:TQRCompositeReport;
qrp:TQuickRep;
x:Pointer
QRCompositeReport1.Prepare;
x:=QRCompositeReport1.Reports.List[0];
qrp:=x;
qrp.QRPrinter.Save(strFile+'.QRP');