一个方便有用的Delphi数据库操作类(转)
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectionString:string;
procedure InitQuery(InputQuery: TADOQuery; QueryString: String);
function CheckParaEqual(QueryString: String; ParameterList: TStringList):Boolean;
procedure InitParameter(InputQuery:TADOQuery;QueryString:string;ParameterList:TStringList);
public
constructor Create(ConnectionString: String);virtual;
destructor Destory;virtual;
procedure SetConnectionString(ConnectionString: string);
function GetConnection():TADOConnection;overload;virtual;
function GetConnection(ConnectionString: String): TADOConnection;overload;virtual;
function GetQuery: TADOQuery;overload;virtual;
procedure GetQuery(InputQuery: TADOQuery; QueryString: String);overload;virtual;
procedure GetQuery(InputQuery:TADOQuery; QueryString: String; ParameterList: TStringList);overload;virtual;
function GetTable: TADOTable;overload;virtual;
function GetTable(TableName: String): TADOTable;overload;virtual;
function GetTable(TableName: String; Connection: TADOConnection):TADOTable;overload;virtual;
function GetExecuteScalar(QueryString: String): Variant;overload;virtual;
function GetExecuteScalar(QueryString: String; ParameterList: TStringList): Variant;overload;virtual;
function GetExecuteNoQuery(ExecuteSQL:String):Boolean;overload;virtual;
function GetExecuteNoQuery(ExecuteSQL: String; ParameteList: TStringList):Boolean;overload;virtual;
相关文档：
Delphi U盘插入拨出检测：
1、新建工程；
2、在form1上放一个Label；
3、定义一个私有过程
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
完整代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics ......
上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最
基本的方式来创建一个组件！也就是使用Delphi自己的组件开发向导来建立一个新的组件。在这里，我以扩充TEdit为例进行讲解。
那么首先，要介绍的就是 ......
距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。
再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组� ......
在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类，通过类方法即可访问此类的对象数 ......
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer� ......
