2006年12月14日
摘要: 代码unit uMain;interfaceuseswindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, DB, ADODB, StdC... 阅读全文
posted @ 2006-12-14 15:16 martian6125 阅读(131) 评论(0) 推荐(0) 编辑
摘要: 自从有了动态数组,链表除了在教科书里出现外,已经很少在实际编程中被使用了,事实也是如此,数组的确比传统链表快得多,而且也方便的多。 从 Delphi4起,开始了内建各种类型的动态数组支持。但是,对我们来说动态数组支持似乎做的不够彻底,因为Delphi竟然连删除、插入、... 阅读全文
posted @ 2006-12-14 14:45 martian6125 阅读(180) 评论(0) 推荐(0) 编辑
摘要: 如果只是判断BMP、JPG、GIF图片,倒是有一个简单的方法,用数据流判断,因为BMP、GIF、JPG格式的文件流有标识符的,分别如下:名称 宽度 标识符BMP 2位 BMJPG 10位 chr($FF)+chr($D8)+chr($FF)+chr($E0)+ch... 阅读全文
posted @ 2006-12-14 14:44 martian6125 阅读(120) 评论(0) 推荐(0) 编辑
摘要: usesWindows,SysUtils,Messages,Registry,ShlObj,Types,Classes;constLLKHF_ALTDOWN =KF_ALTDOWN shr 8;WH_KEYBOARD_LL=13; //钩子种类,表示是低级键盘钩子 t... 阅读全文
posted @ 2006-12-14 14:42 martian6125 阅读(108) 评论(0) 推荐(0) 编辑
摘要: ADO架构图: 消费者(Recordset) 提供者 消费者 提供者程应 ↗ ↘ OLEDB ←→ 服务器件 ←→ OLEDB ←→ 数据库keyset Cursor与Dynamic Cursor的执行过程:1、 数据库只把记录的键值放入结果数据集中2、 ADO Cu... 阅读全文
posted @ 2006-12-14 14:42 martian6125 阅读(103) 评论(0) 推荐(0) 编辑
摘要: Delphi --技巧探索:{ No. 1 }创建模式窗体的句子:class procedure TMyForm.RunForm(AObj1, AObj2: TObject);varvForm: TMyForm;beginvForm := TMyForm.Create... 阅读全文
posted @ 2006-12-14 14:41 martian6125 阅读(111) 评论(0) 推荐(0) 编辑
摘要: 名称 类型 说明----------------------------------------------------------------------------------Abort 函数 引起放弃的意外处理Abs 函数 绝对值函数AddExitProc 函数... 阅读全文
posted @ 2006-12-14 14:39 martian6125 阅读(148) 评论(0) 推荐(0) 编辑
摘要: Function NtoC(n0 :real) :String;Function IIF(b :boolean; s1,s2:string):string;begin //本函数在VFP和VB中均为系统内部函数if b then IIF:=s1 else IIF:=s... 阅读全文
posted @ 2006-12-14 14:39 martian6125 阅读(172) 评论(0) 推荐(0) 编辑
摘要: 使用SQLSERVER的扩展存储过程实现远程备份与恢复 选择自 aloesky 的 Blog关键字 使用SQLSERVER的扩展存储过程实现远程备份与恢复出处最近我在为公司的框架程序(以数据应用为导向的应用体系)做数据管理模块,这个模块的需求比较简单:备份、恢复和清理... 阅读全文
posted @ 2006-12-14 14:38 martian6125 阅读(91) 评论(0) 推荐(0) 编辑
摘要: create PROCEDURE sp_decrypt(@objectName varchar(50))ASbeginset nocount on--CSDN:j9988 copyright:2004.01.05--V3.1--使用前先备份--破解字节不受限制,适用于... 阅读全文
posted @ 2006-12-14 14:30 martian6125 阅读(138) 评论(0) 推荐(0) 编辑