accounttrans.pas

来自「财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全」· PAS 代码 · 共 63 行

unit AccountTrans;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,Account,AccountCode,AccessDB;

type
  IAccountTrans = interface(IInterface)
    function Excute(aAccount:TAccount): Boolean; stdcall;
  end;
  
  TAccountTrans = class(TObject, IAccountTrans)
  public
    constructor Create(aDB:IAccessDB);
    function Excute(aAccount:TAccount): Boolean; virtual; stdcall;
  end;
  
  TAccountTransItem = class(TAccountTrans, IAccountTrans)
  public
    function Excute(aAccount:TAccount): Boolean; override; stdcall;
  end;
  
  TAccountTransTotal = class(TAccountTrans, IAccountTrans)
  public
    function Excute(aAccount:TAccount): Boolean; override; stdcall;
  end;
  

implementation

{
******************************** TAccountTrans *********************************
}
constructor TAccountTrans.Create(aDB:IAccessDB);
begin
end;

function TAccountTrans.Excute(aAccount:TAccount): Boolean;
begin
  { TODO -cMM : Interface wizard: Implement interface method }
end;

{
****************************** TAccountTransItem *******************************
}
function TAccountTransItem.Excute(aAccount:TAccount): Boolean;
begin
  Result := inherited Excute(aAccount);
end;

{
****************************** TAccountTransTotal ******************************
}
function TAccountTransTotal.Excute(aAccount:TAccount): Boolean;
begin
  Result := inherited Excute(aAccount);
end;


end.