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

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.