money.bld

来自「Delphi深度探索,Delphi深度探索（第二版）」· BLD 代码 · 共 202 行

VERSION 19
(Model
	"MoneyModel"
	"MoneyModelRoot"
	""
	""
	"_BoldInternal.flattened=True,_Boldify.boldified=True,_BoldInternal.ModelErrors=,Bold.DelphiName=<Name>,Bold.UnitName=MoneyClasses,Bold.RootClass=MoneyModelRoot"
	(Classes
		(Class
			"MoneyModelRoot"
			"<NONE>"
			TRUE
			FALSE
			""
			""
			"persistence=persistent,_Boldify.autoCreated=True,Bold.TableName=<Prefix>_OBJECT"
			(Attributes
			)
			(Methods
				(Method
					"MayUpdate"
					""
					FALSE
					"Boolean"
					""
					2
					""
					"Bold.OperationKind=Override"
				)
				(Method
					"ReceiveQueryFromOwned"
					"Originator: TObject; OriginalEvent: TBoldEvent; const Args: array of const; Subscriber: TBoldSubscriber"
					FALSE
					"Boolean"
					""
					2
					""
					"Bold.OperationKind=Override"
				)
			)
		)
		(Class
			"AcctItem"
			"MoneyModelRoot"
			TRUE
			FALSE
			""
			""
			"persistence=persistent,Bold.DefaultStringRepresentation=payPerson.name+'-'+name"
			(Attributes
				(Attribute
					"Name"
					"String"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent"
				)
				(Attribute
					"Amount"
					"Currency"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent"
				)
				(Attribute
					"HappenDate"
					"Date"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent"
				)
			)
			(Methods
			)
		)
		(Class
			"Person"
			"MoneyModelRoot"
			TRUE
			FALSE
			""
			"\"person name can not be empty=name <>''\""
			"persistence=persistent,Bold.DefaultStringRepresentation=name"
			(Attributes
				(Attribute
					"Name"
					"String"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent"
				)
				(Attribute
					"TotalAmount"
					"Currency"
					TRUE
					""
					""
					2
					""
					"derived=True,persistence=transient,Bold.DerivationOCL=pay.amount->sum"
				)
				(Attribute
					"BirthYear"
					"Integer"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent"
				)
				(Attribute
					"Age"
					"Integer"
					TRUE
					""
					""
					2
					""
					"derived=True,persistence=transient,Bold.ReverseDerive=True"
				)
				(Attribute
					"Photo"
					"TypedBlob"
					FALSE
					""
					""
					2
					""
					"derived=False,persistence=persistent,Bold.AllowNULL=True"
				)
			)
			(Methods
				(Method
					"GetMonthAmount"
					"const AYear: Integer; const AMonth: Integer"
					FALSE
					"Currency"
					""
					2
					""
					""
				)
			)
		)
	)
	(Associations
		(Association
			"PayAssoc"
			"<NONE>"
			""
			""
			"persistence=persistent,derived=False,Bold.DelphiName=<Name>"
			FALSE
			(Roles
				(Role
					"Pay"
					TRUE
					FALSE
					"Person"
					""
					"0..*"
					""
					0
					2
					0
					"Bold.Embed=False,Bold.DeleteAction=Cascade"
					(Qualifiers
					)
				)
				(Role
					"PayPerson"
					TRUE
					FALSE
					"AcctItem"
					""
					"1..1"
					""
					0
					2
					0
					""
					(Qualifiers
					)
				)
			)
		)
	)
)