umpsysenv.pas

来自「一整套的源代码」· PAS 代码 · 共 27 行

unit UMPSysEnv;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UPersistModel,
  MyTools;

type
  TMPSysEnv = class(TPersistModel)
  private
    FEmployeeKey: IIntegerKey;
  public
    property EmployeeKey: IIntegerKey read FEmployeeKey write FEmployeeKey;
  end;

var
  MPSysEnv: TMPSysEnv;

implementation

{$R *.dfm}

end.