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