癫狂编程

摘要： uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;be 阅读全文

摘要： 很多朋友一直在用着第三方的Windows7系统盘来装机，例如下载了Ghost格式的一些装机盘。在这些第三方系统中，很多家都是默认使用administrator 帐户自动登陆的。 从安全的角度来讲，这样做肯定是大忌，因为把Vista或者Windows 7中的UAC功能避开不用真的是件很愚蠢的事情。真正 阅读全文

摘要： 调用: 阅读全文

摘要： 一、花絮 delphi自带的memo显示sql语句看的太累人了，今天决定美化一下。最起码要有“语法着色”、“显示行号”这2个功能。 意外发现了 SynEdit 控件。 下载地址: http://sourceforge.net/projects/synedit/ 打开下载的文件后，发现最后更新时间是2 阅读全文

摘要： 有时候自动编号很麻烦，有没有好的办法可以快速取消呢。 1.禁止自动编号。在Word为其自动加上编号时，只要按下Ctrl+Z键撤销操作，此时自动编号会消失，而且每次键入数字时，该功能就会被禁止了。 2.暂时取消自动编号。可以在换行时按“Shift＋Enter”键，Word就不会自动编号，等你需要下个段 阅读全文

摘要： Help里的解释 function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean; KeyFields: is a string containing a sem 阅读全文

摘要： Delphi中的Free和Nil 在Delphi中释放对象资源时一般用Obj.Free(Obj为一个实例名),不过程Delphi中还有一个FreeAndNil(对象名)函数，那么用哪个好呢？Free和Nil的本质又都是什么呢？ 在Delphi中一个对象名只是一个指向该对象的指针，可以有多个指针指向同 阅读全文

摘要： Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedure ChildForm.OnClose(Sender: TObject 阅读全文

摘要： MDI子窗体关闭时用到的(以下摘自Delphi的帮助)caNone The form is not allowed to close, so nothing happens.caHide The form is not closed, but just hidden. Your applicatio 阅读全文

摘要： Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; 阅读全文

摘要： 在Delphi编程的那段“古老”的日子里(就是在版本4之前)，在程序中使用字符串有两个基本的方法。你可以使用字符串将它们嵌入到源程序中，例如： MessageDlg( 'Leave your stinkin' mitts off that button, fool!',mtError, [mbOK] 阅读全文

摘要： Delphi Memo的记事本功能 下载地址 : http://download.csdn.net/detail/teststudio/6412883 这个代码实现了Windows记事本的主要功能。 新建，打开，保存，另存，退出。 文件拖拽打开文件 这主要是判断Memo内容是否修改过 unit Un 阅读全文

摘要： ASCII码表 ASCII值 控制字符 ASCII值 控制字符 ASCII值 控制字符 ASCII值 控制字符 0 NUT 32 (space) 64 @ 96 、 1 SOH 33 ！ 65 A 97 a 2 STX 34 ” 66 B 98 b 3 ETX 35 # 67 C 99 c 4 EO 阅读全文

摘要： DECLARE @IsInsert bit, @IsUpdate bit, @IsDelete bit IF EXISTS(SELECT 1 FROM inserted) AND NOT EXISTS(SELECT 1 FROM deleted) SET @IsInsert = 1 ELSE SET @IsInsert = 0 IF EXI... 阅读全文

摘要： 在安装过.net framework 4的系统中，安装sql server 2008的安装前提之一MICROSOFT .NET FRAMEWORK 3.5 SP1时，可能已经安装并重启了，还是提示安装MICROSOFT .NET FRAMEWORK 3.5 SP1 参照这篇文章，http://www 阅读全文

摘要： unit unt_LotBill_dyc; interface uses windows, SysUtils, Classes, ComCtrls, Forms, Controls, StrUtils, Math, superobject, SyncObjs, unt_ShareVar, unt_LotVar, uDycIFace; type TLotBillDyc = cla... 阅读全文

摘要： QDataSet 提供了两个函数来比较两个数据集的差异，并将结果保存到第三个数据集。 两个函数，其中 Intersect 函数用于取两个数据集中的交集部分，而 Diff 函数用于取两个数据集中不一样的部分。这两个函数的 AFields 用于记录要比较的字段列表，多个字段之间以 “,” 或 “;” 分 阅读全文

摘要： 初始化两张表： CREATE TABLE tb1(ID int) INSERT tb1 SELECT NULLUNION ALL SELECT NULLUNION ALL SELECT NULLUNION ALL SELECT 1UNION ALL SELECT 2UNION ALL SELECT  阅读全文

摘要： 概述 本篇文章主要介绍SQL DELTA的简单使用。为了能够更加明了的说明其功能，本文将通过实际项目中的案例加以介绍。 主要容 SQL DELTA 简介 创建SQL DELTA项目 使用SQLDELTA 进行数据库结构同步 使用SQLDELTA进行数据库数据同步 生成数据报表 待续 SQLDELTA 阅读全文

摘要： 前言： 目前，数据库技术在各行各业的应用正在逐步加深，在这些应用中普遍采用分布式系统结构。而数据库同步技术是分布式数据库系统中应用非常广泛的一种技术。分 布式数据库系统由多个通过网络连接的数据库组成，它们通常有主从服务器之分。有很多数据库系统都提供了数据库同步功能，就如《如何实现数据库同步》一文中所 阅读全文