EBS 财务辅助工具开发手记--类设计

目前系统内先设定以下几个类：

用户类，部门类，事区类

预算类型类，预算类

传票类

 

使用ModelMaker 生成 代码如下：

unit EBSMainClass;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;

type
  TUser = class(TObject)
  private
    FDept: TDept;
    FEMail: string;
    FID: string;
    FName: string;
    FPassword: string;
    FPhone: string;
    FStatus: Integer;
  public
    property Dept: TDept read FDept write FDept;
    property EMail: string read FEMail write FEMail;
    property ID: string read FID write FID;
    property Name: string read FName write FName;
    property Password: string read FPassword write FPassword;
    property Phone: string read FPhone write FPhone;
    property Status: Integer read FStatus write FStatus;
  end;

  TDept = class(TObject)
  private
    FArea: TArea;
    FCWType: Integer;
    FDummyFlag: Integer;
    FName: string;
    FParent: string;
  public
    property Area: TArea read FArea write FArea;
    property CWType: Integer read FCWType write FCWType;
    property DummyFlag: Integer read FDummyFlag write FDummyFlag;
    property Name: string read FName write FName;
    property Parent: string read FParent write FParent;
  end;

  TVoucher = class(TObject)
  private
    FArea: TArea;
    FAuditDate: string;
    FAuditor: TUser;
    FCDFlag: Integer;
    FCreateDate: string;
    FCreator: TUser;
    FCurType: string;
    FDate: Integer;
    FID: string;
    FKMCode: Integer;
    FMXCode: string;
    FOraAmt: Double;
    FRadio: Double;
    FStatus: string;
    FSummary: string;
    FType: string;
    FTZType: string;
    FUSDAmt: Double;
  public
    constructor Create;
    property Area: TArea read FArea write FArea;
    property AuditDate: string read FAuditDate write FAuditDate;
    property Auditor: TUser read FAuditor write FAuditor;
    property CDFlag: Integer read FCDFlag write FCDFlag;
    property CreateDate: string read FCreateDate write FCreateDate;
    property Creator: TUser read FCreator write FCreator;
    property CurType: string read FCurType write FCurType;
    property Date: Integer read FDate write FDate;
    property ID: string read FID write FID;
    property KMCode: Integer read FKMCode write FKMCode;
    property MXCode: string read FMXCode write FMXCode;
    property OraAmt: Double read FOraAmt write FOraAmt;
    property Radio: Double read FRadio write FRadio;
    property Status: string read FStatus write FStatus;
    property Summary: string read FSummary write FSummary;
    property Type: string read FType write FType;
    property TZType: string read FTZType write FTZType;
    property USDAmt: Double read FUSDAmt write FUSDAmt;
  end;

  TArea = class(TObject)
  private
    FCode: string;
    FDummyDept: string;
    FName: string;
  public
    property Code: string read FCode write FCode;
    property DummyDept: string read FDummyDept write FDummyDept;
    property Name: string read FName write FName;
  end;

  TBudType = class(TObject)
  private
    FBeginMonth: Integer;
    FBudTypeID: Integer;
    FBudTypeName: string;
    FEndMonth: Integer;
  public
    property BeginMonth: Integer read FBeginMonth write FBeginMonth;
    property BudTypeID: Integer read FBudTypeID write FBudTypeID;
    property BudTypeName: string read FBudTypeName write FBudTypeName;
    property EndMonth: Integer read FEndMonth write FEndMonth;
  end;

  TBudget = class(TObject)
  private
    FBeginDate: Integer;
    FEndDate: Integer;
    FID: Integer;
    FName: string;
    FStatus: Integer;
    FType: TBudType;
    FYear: Integer;
  public
    property BeginDate: Integer read FBeginDate write FBeginDate;
    property EndDate: Integer read FEndDate write FEndDate;
    property ID: Integer read FID write FID;
    property Name: string read FName write FName;
    property Status: Integer read FStatus write FStatus;
    property Type: TBudType read FType write FType;
    property Year: Integer read FYear write FYear;
  end;


implementation

{
*********************************** TVoucher ***********************************
}
constructor TVoucher.Create;
begin
  inherited Create;
  FID := 'A0000';
end;

end.