serviceobjectunit.pas

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

unit ServiceObjectUnit;

interface

uses
  Classes, Variants, SysUtils, DBClient, Contnrs;

type

  TServiceKind = (srvSQLAnalyze);

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

implementation


end.