serviceobjectunit.pas

来自「delphi实现三层erp」· PAS 代码 · 共 21 行

unit ServiceObjectUnit;

interface

uses
  Classes, Variants, SysUtils, DBClient, Contnrs;

type

  TServiceKind = (srvSQLAnalyze);

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

implementation


end.