一个方便有用的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;
相关文档：
有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些
建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。
一．建立工程目录
&n ......
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
相对用第三方控件，CDO发送邮件还是很简洁方便的
注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;
单元引用ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'< ......
Delphi 中 FindWindow 和 FindWindowEx 的语法和用法
FindWindow(
lpClassName, {窗口的类名}
lpWindowName: PChar {窗口的标题}
): HWND; {返回窗口的句柄; 失败返回 0}
//FindWin ......
最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
......
