user.pas

自己看把！

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.