墨者工作室 - 博客园

咏南的连接池

摘要： unit UDataConnPool; interface uses SysUtils, Classes, DB, ADODB, Contnrs, Windows, ExtCtrls; const//ole db provider c_sql='sqloledb'; c_access='microsoft.jet.oledb.4.0'; c_oracle='MSDAORA.1'; type// 数... 阅读全文

posted @ 2010-01-04 22:30 墨者工作室阅读(1136) 评论(0) 推荐(0)

TClientDataSet的全面剖析

摘要： 1.与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。很多数据库应用程序都用了BDE，BDE往往给发布带来很大的不便，因而TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine)，但它需要一个动态链接库的支持，这个动态链接库叫DBCLIENT.DLL。在客户端，也不需要用... 阅读全文

posted @ 2010-01-04 22:28 墨者工作室阅读(3531) 评论(0) 推荐(0)

动态将ADOQuery数据移植到ClientDataSet通用函数

摘要：昨天做程序突然想到的,如果您会使用内存表就不需要此例了，可以参考一下，代码如下://******************************************************************************// 函数功能: 执行SQL查询语句,影响ClientDataSet控件// 函数名称: cf_dbSelectSQL// 函数参数: var oClientD... 阅读全文

posted @ 2010-01-04 22:23 墨者工作室阅读(2285) 评论(2) 推荐(0)

转：ADOQuery代替ClientDataSet做3-Tier系统

摘要： ADOQuery代替ClientDataSet做3-Tier系统2009年09月23日星期三 11:163-Tier的系统我们一般用Midas的TClientDataSet,它搭配BDE的TQuery效率还可以，毕竟是一家的;但搭配TADOQuery就慢了很多，大概9倍，因为不晓得人家的资料存储格式，只能一个Field一个Field读出来再用TDataSetProvider打包成Data:OLE... 阅读全文

posted @ 2010-01-04 22:21 墨者工作室阅读(2508) 评论(0) 推荐(0)

TDataLink类说明

摘要：属性 (Property) 介绍 Active: Boolean，当此 DataLink 连结至一个已开启的 DataSource 时会传回 True。当 Active 状态改变时会触发ActiveChanged方法。 ActiveRecord: Integer（可读写），用来配置或取得 DataLink 缓冲区中目前所指向的记录代码，代码的范围是 0 .. BufferCount - 1。使... 阅读全文

posted @ 2010-01-04 22:09 墨者工作室阅读(553) 评论(0) 推荐(0)

ADO实现单条记录的刷新

摘要：如何有效刷新当前记录ADO的Recordset对象有一个Resync方法, 可以刷新不同范围的数据. 如果想刷新当前记录可以用如下的语句:var Rst: _Recordset;begin ... Rst.Resync(adAffectCurrent, adResyncAllValues); ...end;可惜delphi的TADODataSet没有封装这个功能. 如果要在TADODataSet刷... 阅读全文

posted @ 2010-01-04 22:01 墨者工作室阅读(1590) 评论(0) 推荐(0)

Splitter Bar的使用方法

摘要： SplitterBar的使用方法可以在窗体左边使用TREEVIEW,右边使用MEMO,可以使用SplitterBar来调节左右比例具体做法如下:1.设置TreeView的Align属性为alLeft.2.从FORM窗体上剪切(Ctrl-X)出MEMO控件3.增加一个Panel1控件,并将其Align属性为alClient.4.将MEMO贴回Panel1上,并将其Align属性为alClient.5... 阅读全文

posted @ 2010-01-02 21:04 墨者工作室阅读(494) 评论(0) 推荐(0)

编程实现文件关联

摘要： ----文件关联的目的是要实现某种扩展名的文件由相应的应用程序来打开，对于编写的应用软件来说，由于一般都有设计者特定的扩展名的数据文件，软件编制者应在程序中实现自动关联而不能由用户手工去实现。下面给出实现文件关联的实用程序。----实现文件关联的核心是对注册表的操作，所有的文件关联都在HKEY-CLASSES-ROOT下面，要实现文件关联必须在HKEY-CLASSES-ROOT中增加两个键值，一是... 阅读全文

posted @ 2010-01-02 21:02 墨者工作室阅读(461) 评论(0) 推荐(0)

实现超级链接

摘要：在程序中实现打开浏览器，打开邮件程序的功能首先要在uses部分加入usesShellapi;接着在需要超级链接的地方使用SellExecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal);其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、gopher://、new:、t... 阅读全文

posted @ 2010-01-02 21:01 墨者工作室阅读(254) 评论(0) 推荐(0)

替换指定串函数

摘要：一个替换指定串的函数，从一个字符串中找出指定子串，并替换为另一子串。functionreplacing(S,source,target:string):string;varsite,StrLen:integer;begin{source在S中出现的位置}site:=pos(source,s);{source的长度}StrLen:=length(source);{删除source字符串}delete... 阅读全文

posted @ 2010-01-02 20:59 墨者工作室阅读(1092) 评论(0) 推荐(0)

Delphi技术积累

Delphi

公告

2010年1月4日