05 2019 档案

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

posted @ 2019-05-28 18:55 癫狂编程 阅读(1514) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-27 18:36 癫狂编程 阅读(1303) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-27 18:21 癫狂编程 阅读(230) 评论(0) 推荐(0) 编辑

delphi中 formclose的事件 action:=cafree form:=nil分别是什么意思?
摘要:MDI子窗体关闭时用到的(以下摘自Delphi的帮助)caNone The form is not allowed to close, so nothing happens.caHide The form is not closed, but just hidden. Your applicatio 阅读全文

posted @ 2019-05-27 18:11 癫狂编程 阅读(1105) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-25 10:43 癫狂编程 阅读(171) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-24 13:31 癫狂编程 阅读(689) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-24 13:29 癫狂编程 阅读(532) 评论(0) 推荐(0) 编辑

delphi ASCII码表及键盘码表
摘要: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 阅读全文

posted @ 2019-05-24 13:08 癫狂编程 阅读(1505) 评论(0) 推荐(0) 编辑

在Sql Server触发器中判断操作是Insert还是Update还是Delete
摘要: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... 阅读全文

posted @ 2019-05-24 11:50 癫狂编程 阅读(1306) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-22 17:52 癫狂编程 阅读(1349) 评论(0) 推荐(0) 编辑

我们公司的delphi代码(胆不是我写的!),看看,你觉得怎么样
摘要:unit unt_LotBill_dyc; interface uses windows, SysUtils, Classes, ComCtrls, Forms, Controls, StrUtils, Math, superobject, SyncObjs, unt_ShareVar, unt_LotVar, uDycIFace; type TLotBillDyc = cla... 阅读全文

posted @ 2019-05-22 12:29 癫狂编程 阅读(349) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-22 11:50 癫狂编程 阅读(1063) 评论(0) 推荐(0) 编辑

SQL中EXCEPT和Not in的区别?
摘要:初始化两张表: CREATE TABLE tb1(ID int) INSERT tb1 SELECT NULLUNION ALL SELECT NULLUNION ALL SELECT NULLUNION ALL SELECT 1UNION ALL SELECT 2UNION ALL SELECT  阅读全文

posted @ 2019-05-22 11:36 癫狂编程 阅读(618) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-21 12:56 癫狂编程 阅读(2182) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-21 12:44 癫狂编程 阅读(7074) 评论(1) 推荐(0) 编辑

使用Red Gate Sql Compare 数据库同步工具进行SQL Server的两个数据库的结构比较、同步
摘要:将测试版的项目同步(部署)到正式版的时候,两个数据库的结构比较与同步时,如果修改数据库的时候没有记录好修改了那些表,很难将两个数据库进行同步 RedGate Sql Compare使用简介说明: 1、比对并同步数据库中的所有对象 包括存储过程、关系、表、视图和用户定义的函数 2、报告所有差异 3、生 阅读全文

posted @ 2019-05-21 12:42 癫狂编程 阅读(859) 评论(0) 推荐(1) 编辑

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

posted @ 2019-05-16 18:35 癫狂编程 阅读(829) 评论(0) 推荐(1) 编辑

delphi中nil、null、UnAssigned区别
摘要:nil:空指针,空地址,对象也是指针,所以可以object := nil;null:null是一个未定义值的变量,既不是0也不代表空字符串,它是未定义的。http://www.delphibasics.co.uk/RTL.asp?Name=Null判断对象为不为空用if assigned(objec 阅读全文

posted @ 2019-05-16 18:34 癫狂编程 阅读(1014) 评论(0) 推荐(0) 编辑

模式窗体与非模式窗体
摘要:非模式窗体从创建到销毁都需要代码来维护,防止内存未安全释放。 模式窗体就比较省心一些,只需要在代码段的try…finally中创建并维护即可。 下面用例子来说明一下两类窗体如何调用: 主窗体程序: 模式窗体: 非模式窗体: 阅读全文

posted @ 2019-05-16 18:13 癫狂编程 阅读(287) 评论(0) 推荐(0) 编辑

Delphi中的窗体创建与销毁
摘要:Delphi中的窗体,有模式窗体与非模式窗体两种。两种窗体的调用方式不同,模式窗体使用ShowModal显示,非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的,你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制,你可以从一个非模式窗体切换到另外一个非模式窗 阅读全文

posted @ 2019-05-16 18:04 癫狂编程 阅读(244) 评论(0) 推荐(0) 编辑

delphi : 窗体的close,free,destroy
摘要:一、我用application.create(TForm2,Form2)语句,创建了Form2,可是调用了Form2.close后,重新调用Form2.show. 刚才所创建的Form2仍然存在。问为了节约资源,应该怎样使用close,free,destroy. 三者的关系是什么?1、Action: 阅读全文

posted @ 2019-05-16 17:58 癫狂编程 阅读(1538) 评论(0) 推荐(0) 编辑

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

posted @ 2019-05-14 21:10 癫狂编程 阅读(232) 评论(0) 推荐(0) 编辑

Delphi AES加密(转)
摘要:(**************************************************************) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.3 *) (* ... 阅读全文

posted @ 2019-05-11 19:28 癫狂编程 阅读(2159) 评论(0) 推荐(0) 编辑

Delphi加密解密算法
摘要:// 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function 阅读全文

posted @ 2019-05-11 18:57 癫狂编程 阅读(1917) 评论(0) 推荐(0) 编辑

IntToHex
摘要:IntToHex是一种函数,功能是将一个值转换成16进制形式的字符串。 IntToHex(int Value, int Digits) 来源: 在Delphi、Pascal或C++ Builder中使用。 功能: 把一个值转换成16进制形式的字符串。 如:delphi中定义一个ch:char; 那么 阅读全文

posted @ 2019-05-11 18:18 癫狂编程 阅读(1197) 评论(0) 推荐(0) 编辑

Delphi中的进制转换
摘要:二进制转换 16进制转字符 16进制转十进制 数据转换成二进制 阅读全文

posted @ 2019-05-11 18:17 癫狂编程 阅读(503) 评论(0) 推荐(0) 编辑

delphi inttohex 整型到十六进制
摘要:inttohex from delphi help: Returns the hex representation of an integer. Unit SysUtils Category numeric formatting routines Delphi syntax: function In 阅读全文

posted @ 2019-05-11 18:09 癫狂编程 阅读(727) 评论(0) 推荐(0) 编辑

delphi将程序最小化至右下角
摘要:程序新手,如果有不恰当的地方,请大家帮忙改正! 1、下载并安装Raize.v5.5控件,delphi版本为:delphi 7.0。 2、添加RzTrayIcon控件、PopupMenu控件至窗体上。 3、程序代码示例: unit Unit1; interface uses Windows, Mess 阅读全文

posted @ 2019-05-11 17:51 癫狂编程 阅读(739) 评论(0) 推荐(0) 编辑

sql server 本地复制订阅 实现数据库服务器 读写分离
摘要:再前段echosong 写了一遍关于mysql 数据同步实现业务读写分离的文章,今天咱们来看下SQL Server的复制订阅实现数据的读写分离 比起mysql的复制,SQL server 复制相对强大 一、 名词解释 1、复制的 机构组成(类比报纸流通): 1)、发布服务器(报社出版) 生产维护数据 阅读全文

posted @ 2019-05-11 17:42 癫狂编程 阅读(279) 评论(0) 推荐(0) 编辑

我在DBGridEh增加一栏复选框及对应操作的解决方案
摘要:最近客户有个需求,要求对单据列表里指定的单据进行批量审核,很自然的,我想到了在DBGridEh增加一栏复选框的列,审核时遍历所有单据,将打了勾的单据审核就可以了。查阅了网上很多文章,不外有2个方案,1是在数据表里增加字段,2是直接在DBGridEh增加一个没有字段的栏,也许是我笨吧,2种方案试过了都 阅读全文

posted @ 2019-05-11 17:05 癫狂编程 阅读(976) 评论(0) 推荐(0) 编辑

Delphi中paramstr的用法
摘要:原型 function paramstr(i:index):string 对于任何application paramstr(0)都默认代表的是应用程序的绝对路径。那么有paramstr(0),就肯定有paramstr(1),paramstr(2)...了。它们的值又是什么了?我试了下取出的是空值,又 阅读全文

posted @ 2019-05-10 13:52 癫狂编程 阅读(387) 评论(0) 推荐(0) 编辑

Application.CreateForm()和TForm.Create()创建的窗体有什么区别么?二者在使用上各有什么技巧?(50分)
摘要:https://wedelphi.com/t/135849/ 阅读全文

posted @ 2019-05-10 10:41 癫狂编程 阅读(1427) 评论(0) 推荐(0) 编辑

学用 TStringGrid [6] - Options
摘要:本例运行效果图: 一般修改 TStringGrid 的 Options 直接在设计时选一下 True 或 False 就行了; 代码中可以像下面操作: 做完这个例子发现不太初级了, 但代码很简单: 附上窗体设计源码: 阅读全文

posted @ 2019-05-08 17:26 癫狂编程 阅读(587) 评论(0) 推荐(0) 编辑

Delphi IDE使用的一些主要技巧
摘要:Delphi IDE使用的一些主要技巧 1、查找和替换 (1)<ctrl>+F[1]:选择页“Find”,进行查找,则根据查找方向继续查找。选择页“Findin Files”,则进行该工程内的全文查找。(2)<ctrl>+R:替换。(3)设置书签和定位:设置书签:<ctrl>+<shift>+数字[ 阅读全文

posted @ 2019-05-07 23:44 癫狂编程 阅读(489) 评论(0) 推荐(1) 编辑

动画演示 Delphi 2007 IDE 功能[2] - 定义变量
摘要:https://my.oschina.net/hermer/blog/319152 动画剧本: 第一个变量: 输入: var; 然后执行 Ctrl+J ... 回车 第二个变量: 执行 Ctrl+J; 然后输入 v 后打空格键 ... 再 Tab ... 回车 第三个变量: 先书写语句; 然后选定变 阅读全文

posted @ 2019-05-07 23:30 癫狂编程 阅读(156) 评论(0) 推荐(0) 编辑

Delphi的类与继承
摘要:既然已经做出了com程序用delphi来开发的决定,那当然就要对delphi进行一些深入的了解。有人说delphi是一个用控件堆砌起来的工具,和vb没什么两样;也有人说dephi实际上是面向过程的,他的面向对象并不彻底。实际生活中持这两种观点的人不在少数,就拿我认识的一个非常好的程序员来说吧,他很早 阅读全文

posted @ 2019-05-07 23:19 癫狂编程 阅读(806) 评论(1) 推荐(0) 编辑

属性的自动完成
摘要://在 type 区写入: TMyClass = class property s: string; end; //然后把光标放在其中,执行 Ctrl+Shift+C,可以自动生成以下代码: TMyClass = class private Fs: string; procedure Sets(co 阅读全文

posted @ 2019-05-07 21:24 癫狂编程 阅读(164) 评论(0) 推荐(0) 编辑

DELPHI中函数、过程变量的声明与应用
摘要:Procedure型变量: 在DELPHI中,函数、过程的地址可以赋给一个特殊类型的变量,变量可用如下方式声明: var p : procedure(num:integer); //过程 或: var f : function(num:integer):integer; //函数 也可定义一个过程( 阅读全文

posted @ 2019-05-07 18:45 癫狂编程 阅读(1297) 评论(0) 推荐(0) 编辑

Delphi回车键切换焦点
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label... 阅读全文

posted @ 2019-05-07 17:45 癫狂编程 阅读(544) 评论(0) 推荐(0) 编辑

delphi 窗体的创建和释放
摘要:Delphi中的窗体分为模式窗体和无模式窗体。二者的区别在于,用户可以在无模式窗体和其他窗体之间切换。这样,用户就可以同时工作于一个应用程序的几个部分。Delphi中窗体的初始化有两种情况,动态创建,和自动创建。通过show显示一个无模式窗体,ShowModal显示一个模式窗体。窗体有创建对应的也要 阅读全文

posted @ 2019-05-06 18:05 癫狂编程 阅读(374) 评论(0) 推荐(0) 编辑

delphi assigned函数的用法
摘要:assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空),如果为空则返回假(false)。 用法示例(防止窗体被实例化多次): unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes 阅读全文

posted @ 2019-05-06 13:11 癫狂编程 阅读(6020) 评论(0) 推荐(1) 编辑

TField中的GetText和SetText
摘要:在数据表中的某些字段出于性能或数据规范化的考虑,会用组编号代替,就像学生有学号,员工有员工ID一样,但我们看的时候如果直接输入这样的编号看的人可能就会头痛了,这时就可用TField中的GetText转成我们方便看的信息(其中可能涉及查表的操作,如根据学号从学生信息表(如果有)中获取姓名)。SetTe 阅读全文

posted @ 2019-05-05 09:13 癫狂编程 阅读(594) 评论(0) 推荐(0) 编辑

adoquery.refresh和adoquery.query的区别
摘要:大的区别没有1: requery是通过重新发出原始命令并再次检索数据,可使用 Requery 方法刷新来自数据源的 Recordset 对象的全部内容。调用该方法等于相继调用 Close 和 Open 方法。requery比refresh要安全些(自我感觉),使用refresh时,必须保证数据集是活 阅读全文

posted @ 2019-05-03 12:02 癫狂编程 阅读(264) 评论(0) 推荐(0) 编辑

Delphi中TQuery.Filter用法
摘要:今天维护一个老项目是用delphi5 + BDE写的。为了更方便查询数据,就增加一个查询功能.由于数据量查询出来后就比较少,于是就想到Filter like 但 BDE并不支持 Filter = 'name like' BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始,无法达到 阅读全文

posted @ 2019-05-03 10:37 癫狂编程 阅读(1385) 评论(0) 推荐(0) 编辑

关于在DBGridEh的一个字段使用checkbox的方法 .
摘要:在DBGridEh的columns中新增加一个字段 1.如果你选择的数据库字段,则选择checkbox为true,并在keylist中输入0和1,就可以了 2.如果你选择的是一个临时字段,在数据集中新增一个临时字段时field type选择internalCalc,然后再如上面操作就可以 了 阅读全文

posted @ 2019-05-02 21:51 癫狂编程 阅读(808) 评论(0) 推荐(0) 编辑

Ehlib好用的版本
摘要:EhLib 6.2 阅读全文

posted @ 2019-05-02 21:49 癫狂编程 阅读(474) 评论(0) 推荐(0) 编辑

Delphi DbgridEh实现鼠标拖动选中列,并使复选框选中
摘要:1.先设置表格列的属性 procedure TForm_TaskToDW.InitGrid;var MyCol: TColumnEh;begin with DBGridEh_Task do begin Columns.Clear; MyCol := Columns.Add; MyCol.FieldN 阅读全文

posted @ 2019-05-02 18:44 癫狂编程 阅读(754) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示