userdaovalueobjectunit.pas

Delphi最新三层源码(1.0),对delphi有帮助

unit UserDAOValueObjectUnit;

interface

uses
  Windows, Classes, SysUtils,  ADODB, Dialogs, DB, Variants, DAOValueObjectUnit,
  TValueObjectListUnit, ValueObjectUnit, UserVO;

const
  sqlSelect = 'select guid as 主键, id as 用户ID号, name as 姓名, password as 密码, RowVer as 版本号 from users';
  sqlMax = 'select isnull(convert(char(10), max(convert(int, guid))), count(*)) from users';
  sqlCount = 'select count(*) from users';
  sqlInsert = 'Insert into Users (guid, id, name, password, RowVer) values (''%s'', ''%s'', ''%s'', ''%s'', ''%s'') ';
  sqlUpdate = 'update users set id=''%s'', name=''%s'', password=''%s'' where guid =''%s'' and RowVer=''%s'' ';
  sqlDelete = 'Delete users where guid =''%s'' and RowVer=''%s'' ';

type
  PUserDAO = ^ TUserDAO;
  TUserDAO = class(TDAOValueObject)
    public
      constructor Create;
      destructor Destroy; override;
  end;

implementation

constructor TUserDAO.Create;
begin
  inherited Create(TUserVoList, TUserVO);
  PSQLSelect := sqlSelect;
  PSQLMax := sqlMax;
  PSQLCount := sqlCount;
  PSQLInsert := sqlInsert;
  PSQLUpdate := sqlUpdate;
  PSQLDelete := sqlDelete;
  InitDAOValueList(PSQLSelect);
  getPrimaryKey(PSQLMax, PSQLCount);
end;

destructor TUserDAO.Destroy;
begin
end;

end.