user.pas

来自「程序用Delphi6编写」· PAS 代码 · 共 25 行

unit user;

interface
type
  TCustomUser = class(TObject)
  protected
   // procedure NetMoney(StartTime,EndTime)
  public
    JH: Integer;
    SJSJ: TDateTime;
    XJSJ: TDateTime;
    GJSJ: TDateTime;
    XS: TDateTime;
    WF: Double;
    FJF: Double;
    SS: Double;
    YJ: Double;
    HYH: string;
    BZ: ShortString;
  end;

implementation

end.