serviceobjectunit.pas

来自「随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太」· PAS 代码 · 共 21 行

unit ServiceObjectUnit;

interface

uses
  Classes, Variants, SysUtils, DBClient, Contnrs;

type

  TServiceKind = (srvSQLAnalyze);

  TServiceObject = class(TPersistent)
    private
      FService :TServiceKind;
  end;

implementation


end.