曹次华 一、概述 Delphi + MS SQL Server是目前最为流行的管理信息系统开发环境和工具。Delphi的强大数据库操作控件极大地减轻了开发人员的工作量，在这些控件中，最常用的有TQuery、TTable、TADOQuery、TADOTable、TADODataSete等，这些控件执行查询操作时有一个共同的特点，即将所有数据库记录从服务……继续阅读 » 搞代码 7年前 (2018-08-09) 183浏览 0评论0个赞
//合并Word 表格中单元格 procedure mergeWordCell; var WordApp: TWordApplication; WordDoc: TWordDocument; DocInx,oFileName,CfCversions,oRea……继续阅读 » 搞代码 7年前 (2018-08-09) 134浏览 0评论0个赞
近来ＱＱ尾巴病毒大肆发作，我也是经常收到网友们发到来的带尾巴的消息，于是，好奇心一来，我也来研究研究此病毒的发作原理。首先，我不知道ＱＱ尾巴病毒真正的原理，我只是猜测并且自己写了一个类似的程序来实现它。 ＱＱ尾巴的发作情况：当用户打开一个ＱＱ消息发送窗口时，病毒会自动往消息文本框里输入文本，然后不等用户反应过来就发出去了。 程序实现：首先要找到ＱＱ……继续阅读 » 搞代码 7年前 (2018-08-09) 141浏览 0评论0个赞
（接上文） 组件的代码由于假设你已经熟悉Delphi开发（它和一般开发没什么不同），我们就直接贴出来并加上适当的注释： unit Clock;http://www.gaodaima.com/?p=66074通过实例看VCL组件开发全过程（二）_Delphi interface uses SysUtils, Class……继续阅读 » 搞代码 7年前 (2018-08-09) 161浏览 0评论0个赞
在用Delphi 编程处理文本文件的时候，如果要装载的文件比较大，你可能会想在文件装载过程中提供一个装载进度的提示－－那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看……继续阅读 » 搞代码 7年前 (2018-08-09) 133浏览 0评论0个赞
type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click……继续阅读 » 搞代码 7年前 (2018-08-09) 209浏览 0评论0个赞
作为Delphi程序员，要想进一步提高编程水平就必须掌握控件的编写方法，本篇文章将通过一个简单的例子来为初学者介绍编写控件的一些基本方法和模式。 这个例子控件叫TLeiLabel，是在TLabel的基础上增加两个实用的功能：一是使文字具有立体形状，二是使文字具有超链接属性。下面就让我们一步步来实现这些功能。 一、使文字具有立体形状 ……继续阅读 » 搞代码 7年前 (2018-08-09) 238浏览 0评论0个赞
关联是Windows的一个显著特性。比如安装了office后，后缀是.doc的文 件会和word关联在一起。如果我们想自己创建关联关系，就必须从注册表入手。下 面的代码会把后缀是.me的文件和Notepad关联在一起，请参阅： procedure TForm1.Button1Click（Sender: TObject）; var &nbs……继续阅读 » 搞代码 7年前 (2018-08-09) 214浏览 0评论0个赞
使用Winamp是有个EasyMove的功能，也就是不在标题栏上拖动鼠标就能移动窗体，虽然EasyMove功能很好实现，可还不如做个控件一劳永逸，另外这个控件还有一个更有用的功能，呆会儿就能见到。我们先看看如何实现它吧！ —- 建立一个空的Unit，把以下代码Copy进去，再把它添加到Delphi的控件库里，这样MovePanel控……继续阅读 » 搞代码 7年前 (2018-08-09) 212浏览 0评论0个赞
所谓动态选单是指选单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态选单的数据来源，即要确定动态选单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主选单，其动态选单的数据源是一个Strin……继续阅读 » 搞代码 7年前 (2018-08-09) 152浏览 0评论0个赞
