`
cqling
  • 浏览: 5065 次
  • 性别: Icon_minigender_2
  • 来自: 广州
最近访客 更多访客>>
社区版块
存档分类
最新评论
文章列表

获得文件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*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建立 ...
  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合并报表

QRCompositeReport1:TQRCompositeReport;    qrp:TQuickRep;    x:Pointer QRCompositeReport1.Prepare; x:=QRCompositeReport1.Reports.List[0]; qrp:=x; qrp.QRPrinter.Save(strFile+'.QRP'); 
Global site tag (gtag.js) - Google Analytics