chain.mdl

来自「delphi深度探索第二版随书光盘所附内容」· MDL 代码 · 共 2,416 行 · 第 1/5 页

MDL
2,416 行
字号
12345
			IncludeOperation 	TRUE
			location   	(672, 1120)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@15
			    location   	(551, 1055)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	242
			    justify    	0
			    label      	"部门经理")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE6970A03D1"
			compartment 	(object Compartment
			    Parent_View 	@15
			    location   	(551, 1106)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	240)
			width      	260
			height     	150
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::公司经理" @16
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1120, 1120)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@16
			    location   	(999, 1055)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	242
			    justify    	0
			    label      	"公司经理")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE697300281"
			compartment 	(object Compartment
			    Parent_View 	@16
			    location   	(999, 1106)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	240)
			width      	260
			height     	150
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::销售经理" @17
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1488, 1120)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@17
			    location   	(1367, 1055)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	242
			    justify    	0
			    label      	"销售经理")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE6974E031B"
			compartment 	(object Compartment
			    Parent_View 	@17
			    location   	(1367, 1106)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	240)
			width      	260
			height     	150
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::请求者" @18
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(384, 784)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@18
			    location   	(303, 743)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	162
			    justify    	0
			    label      	"请求者")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE699D80366"
			height     	102
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::请求处理者" @19
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1120, 784)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	TRUE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@19
			    location   	(999, 718)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	242
			    justify    	0
			    label      	"请求处理者")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE699870174"
			compartment 	(object Compartment
			    Parent_View 	@19
			    location   	(999, 769)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	TRUE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	240)
			width      	260
			height     	152
			annotation 	8
			autoResize 	TRUE)
		    (object InheritView "" @20
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EE699CC0105"
			client     	@15
			supplier   	@19
			line_style 	0)
		    (object InheritView "" @21
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EE699CE0307"
			client     	@16
			supplier   	@19
			line_style 	0)
		    (object InheritView "" @22
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EE699D003DC"
			client     	@17
			supplier   	@19
			line_style 	0)
		    (object AssociationViewNew "$UNNAMED$8" @23
			location   	(731, 784)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EE699E202D4"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$9" @24
				Parent_View 	@23
				location   	(347, 0)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EE699E3009A"
				client     	@23
				supplier   	@19
				line_style 	0)
			    (object RoleView "$UNNAMED$10" @25
				Parent_View 	@23
				location   	(347, 0)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EE699E300A4"
				client     	@23
				supplier   	@18
				line_style 	0)))
		    (object AssociationViewNew "后续处理者" @26
			location   	(1490, 552)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object SegLabel @27
			    Parent_View 	@26
			    location   	(1378, 528)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    anchor     	1
			    anchor_loc 	1
			    nlines     	1
			    max_width  	450
			    justify    	0
			    label      	"后续处理者"
			    pctDist    	-1.366667
			    height     	25
			    orientation 	0)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EE699F00202"
			roleview_list 	(list RoleViews
			    (object RoleView "$UNNAMED$11" @28
				Parent_View 	@26
				location   	(370, -248)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EE699F300E3"
				client     	@26
				supplier   	@19
				vertices   	(list Points
				    (1490, 552)
				    (1120, 552)
				    (1120, 707))
				line_style 	0)
			    (object RoleView "$UNNAMED$12" @29
				Parent_View 	@26
				location   	(370, -248)
				stereotype 	TRUE
				line_color 	3342489
				quidu      	"3EE699F300ED"
				client     	@26
				supplier   	@19
				vertices   	(list Points
				    (1490, 552)
				    (1550, 552)
				    (1545, 784)
				    (1250, 784))
				line_style 	0)))))))
    root_subsystem 	(object SubSystem "Component View"
	quid       	"3EE696FA00C4"
	physical_models 	(list unit_reference_list)
	physical_presentations 	(list unit_reference_list
	    (object Module_Diagram "Main"
		quid       	"3EE696FA0139"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    process_structure 	(object Processes
	quid       	"3EE696FA00C5"
	ProcsNDevs 	(list
	    (object Process_Diagram "Deployment View"
		quid       	"3EE696FA00C7"
		title      	"Deployment View"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    properties 	(object Properties
	attributes 	(list Attribute_Set
	    (object Attribute
		tool       	"Cplusplus"
		name       	"propertyId"
		value      	"809135966")
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Role"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Synchronize"
			value      	TRUE)
		    (object Attribute
			tool       	"Cplusplus"
			name       	"CodeName"
			value      	"")
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Const"
			value      	FALSE)
		    (object Attribute
			tool       	"Cplusplus"
			name       	"InitialValue"
			value      	"")))
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Inherit"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Synchronize"
			value      	TRUE)))
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Module-Spec"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Synchronize"
			value      	TRUE)
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Copyright"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Cplusplus"
			name       	"RootPackage"
			value      	"C++ Reverse Engineered")
		    (object Attribute
			tool       	"Cplusplus"
			name       	"InitialHeaderIncludes"
			value      	(value Text ""))
		    (object Attribute
			tool       	"Cplusplus"
			name       	"InitialBodyIncludes"
			value      	(value Text ""))))
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Param"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"CodeName"
			value      	"")))
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Attribute"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Synchronize"
			value      	TRUE)
		    (object Attribute
			tool       	"Cplusplus"
			name       	"CodeName"
			value      	"")))
	    (object Attribute
		tool       	"Cplusplus"
		name       	"default__Operation"
		value      	(list Attribute_Set
		    (object Attribute
			tool       	"Cplusplus"
			name       	"Synchronize"
			value      	TRUE)
12345

chain.mdl - 源码说明

本页面展示了「delphi深度探索第二版随书光盘所附内容」中的 chain.mdl 源码文件，采用 MDL 编程语言编写，共 2,416 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?