delphi mysql类_DELPHI 数据库操作类（工具类）

unitUnDm;interface

usesSysUtils, Classes, Controls, Forms, Dialogs,

ComCtrls, ExtCtrls, Menus, StdCtrls,

ADODB,

DB,inifiles;typeTRecordResult=(RRError, RRZero, RROK);

TDataStatus=(DsSel, DsEdit, DsAdd);typeTDataConnection= classDataAdoConn: TADOConnection;

qryTemp1: TADOQuery;

qryTemp2: TADOQuery;

qryTemp3: TADOQuery;

qryTemp4: TADOQuery;private

public

constructor Create; overload;//连接数据库

functionDbConn: Boolean;//启动事物

functionAdoBeginTrans: Boolean;//回滚事物

functionAdoRollbackTrans: Boolean;//提交事物

functionAdoCommitTrans: Boolean;// Function GetOpenQuery(const sSql, sTitle: String; _AdoQry: TADOQuery; Is_View: Boolean = True): TRecordResult; overload;function UpdateSql(const sSql, sTitle: String; IsView: Boolean=True): TRecordResult;functionGetAllUser: Integer;end;implementation

usesQuerypa;c