Delphi(程序人生)

Delphi Programer DoubleCat

导航

2008年6月14日

RAVE Report

摘要: Rave Report中数据库不可以使用中文字段,否则连不上数据库,也许基于这一点,很多人不喜欢它 阅读全文

posted @ 2008-06-14 23:58 DoubleCat 阅读(630) 评论(3) 推荐(0)

ACCESS库

摘要: ACCESS库中,不要去使用User这样的表,否则出现连不通,读不到数,出大麻烦, 阅读全文

posted @ 2008-06-14 23:56 DoubleCat 阅读(289) 评论(1) 推荐(0)

窗体StayOnTop

摘要: ShowModal 窗体不要去使用StayOnTop否则所有消息都会出问题,出大麻烦 阅读全文

posted @ 2008-06-14 23:55 DoubleCat 阅读(258) 评论(0) 推荐(0)

限定鼠标只能在Form内移动

摘要: procedure TForm1.Button1Click(Sender: TObject); var a: TRect; begin a.Left := Form1.Left; a.Top := Form1.Top; a.Right := Form1.Left + Form1.Width; a.Bottom := Form1.Top + Form1.Height; Cl... 阅读全文

posted @ 2008-06-14 23:52 DoubleCat 阅读(205) 评论(0) 推荐(0)

数据库表TreeView树的快速生成

摘要: 根据数据表的内容生成TreeView树状结构,通常的做法就是从顶级开始,然后逐项递归查询遍历生成。这种方法在实现上容易做到,也很容易想到,但是效率比较低,因为数据库的检索(SQL语句需要解释执行,而且是对数据库文件进行操作)还是比较耗时的,尤其是树的层次较多,节点较多的情况。这里我要介绍的方法是以空间换取时间,只进行一次数据库检索,提取出全部数据,然后一次生成TreeView树状结构。通过SQL语... 阅读全文

posted @ 2008-06-14 17:54 DoubleCat 阅读(1800) 评论(0) 推荐(0)

获取CPU的ID号

摘要: program Project2; $APPTYPE CONSOLE} uses SysUtils, StrUtils, Windows; //注重,要加入这个文件 type //CPUID 一共有4组,4组连接成串是世界唯一的,常用于软件注册 TCPUID = array[1..4] of Longint; function GetCPUID: TCPUID; assemble... 阅读全文

posted @ 2008-06-14 17:39 DoubleCat 阅读(901) 评论(0) 推荐(0)

如何暴力关闭一个服务程序?

摘要: uses Tlhelp32; function KillTask(ExeFileName: string): Integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Res... 阅读全文

posted @ 2008-06-14 17:37 DoubleCat 阅读(424) 评论(0) 推荐(0)

调用帮助文件

摘要: Application.HelpFile := '..\..\Help\eBars.hlp'; 阅读全文

posted @ 2008-06-14 17:28 DoubleCat 阅读(135) 评论(0) 推荐(0)

word文件传入和传出数据库

摘要: uses IdGlobal; procedure TdjhyForm.SpeedButton2Click(Sender: TObject); var sfilename:string; function BlobContentTostring(const Filename:string):string; begin with Tfi... 阅读全文

posted @ 2008-06-14 17:24 DoubleCat 阅读(269) 评论(0) 推荐(0)

打开word文件

摘要: procedure TfjfsglForm.SpeedButton4Click(Sender: TObject); var MSWord: Variant; str:string; begin if trim(DataModule1.adoquery27.fieldbyname('fjmc').asstring)'' then ... 阅读全文

posted @ 2008-06-14 17:18 DoubleCat 阅读(603) 评论(0) 推荐(0)

dbgrid中根据任一条件某一格变色

摘要: procedure TForm_main.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin if (trim(DataModule1.ADOQuery1... 阅读全文

posted @ 2008-06-14 17:16 DoubleCat 阅读(378) 评论(0) 推荐(0)

限制edit框只能输入数字

摘要: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; Messagebeep(0); end; end; 阅读全文

posted @ 2008-06-14 17:14 DoubleCat 阅读(1138) 评论(0) 推荐(0)

取得硬盘序列号

摘要: function tform1.GetHDSerialNumber: LongInt; {$IFDEF WIN32} var pdw : pDWord; mc, fl : dword; {$ENDIF} begin {$IfDef WIN32} New(pdw); G... 阅读全文

posted @ 2008-06-14 17:14 DoubleCat 阅读(311) 评论(0) 推荐(0)

检测系统是否已安装了ADO(用ACCESS库时常用)

摘要: uses registry; function Tform1.ADOInstalled:Boolean; var r:TRegistry; s:string; begin r := TRegistry.create; try with r do begin RootKey :... 阅读全文

posted @ 2008-06-14 17:13 DoubleCat 阅读(362) 评论(0) 推荐(0)

改变Dbgrid的选定色

摘要: procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if gdSelected in state then SetBkColor(dbgrid1.canvas.han... 阅读全文

posted @ 2008-06-14 17:11 DoubleCat 阅读(200) 评论(0) 推荐(0)

复制文件夹

摘要: uses shellAPI; procedure TForm1.Button1Click(Sender: TObject); var lpFileOp: TSHFileOpStruct; begin with lpFileOp do begin Wnd:=Self.Handle; wfun... 阅读全文

posted @ 2008-06-14 17:10 DoubleCat 阅读(621) 评论(0) 推荐(0)

Progressbar加上色彩。

摘要: Progressbar加上色彩。 const {$EXTERNALSYM PBS_MARQUEE} PBS_MARQUEE = 08; var Form1: TForm1; implementation {$R *.dfm} uses CommCtrl; procedure TForm1.B... 阅读全文

posted @ 2008-06-14 17:08 DoubleCat 阅读(295) 评论(0) 推荐(0)

Form的一个出现效果

摘要: 1,用AnimateWindow函数->有一个缺点,窗体位置必须墨认 2,用如下代码 ---------------- procedure TForm1.Button1Click(Sender: TObject); var r:thandle; i:integer; begin for i:=1 to trunc(width/1.414) do... 阅读全文

posted @ 2008-06-14 17:07 DoubleCat 阅读(156) 评论(0) 推荐(0)

正则表达式的用法(PerlRegEx)

摘要: Delphi与正则表达式 ------------------------------------------------------------------------------------------- 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info... 阅读全文

posted @ 2008-06-14 02:45 DoubleCat 阅读(1241) 评论(0) 推荐(0)

如何安装第三方控件的帮助

摘要: 如何安装第三方控件的帮助 1,考贝cnt 与HLP文件到Delphi->Help目录下 CNT=Contents=内容 ------------------------------------------ 2,Delphi开发工具->Help->Customize ------------------------------------- 3,Contents页->(+)Add Fil... 阅读全文

posted @ 2008-06-14 02:23 DoubleCat 阅读(215) 评论(0) 推荐(0)