facade2.mdl

来自「Delphi深度探索,Delphi深度探索（第二版）」· MDL 代码 · 共 2,337 行 · 第 1/5 页

MDL
2,337 行
字号
12345

(object Petal
    version    	45
    _written   	"Rose 7.5.0103.1920"
    charSet    	134)

(object Design "Logical View"
    is_unit    	TRUE
    is_loaded  	TRUE
    quid       	"3EDD630D0378"
    defaults   	(object defaults
	rightMargin 	0.250000
	leftMargin 	0.250000
	topMargin  	0.250000
	bottomMargin 	0.500000
	pageOverlap 	0.250000
	clipIconLabels 	TRUE
	autoResize 	TRUE
	snapToGrid 	TRUE
	gridX      	16
	gridY      	16
	defaultFont 	(object Font
	    size       	10
	    face       	"Arial"
	    bold       	FALSE
	    italics    	FALSE
	    underline  	FALSE
	    strike     	FALSE
	    color      	0
	    default_color 	TRUE)
	showMessageNum 	1
	showClassOfObject 	TRUE
	notation   	"Unified")
    root_usecase_package 	(object Class_Category "Use Case View"
	quid       	"3EDD630D0382"
	exportControl 	"Public"
	global     	TRUE
	logical_models 	(list unit_reference_list)
	logical_presentations 	(list unit_reference_list
	    (object UseCaseDiagram "Main"
		quid       	"3EDD631700A2"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    root_category 	(object Class_Category "Logical View"
	quid       	"3EDD630D0379"
	exportControl 	"Public"
	global     	TRUE
	subsystem  	"Component View"
	quidu      	"3EDD630D038C"
	logical_models 	(list unit_reference_list
	    (object Class "客户"
		quid       	"3EDD631F032D")
	    (object Class "客户1"
		quid       	"3EDD632B00FA"
		stereotype 	"Actor")
	    (object Class "客户2"
		quid       	"3EDD633301C4"
		stereotype 	"Actor")
	    (object Class "NewClass"
		quid       	"3EDD634703A3")
	    (object Class "Adapter"
		quid       	"3EDD6380035F")
	    (object Class "Adapter2"
		quid       	"3EDD63A000E4")
	    (object Class "Dispatcher"
		quid       	"3EDD63A80212")
	    (object Class "Session"
		quid       	"3EDD63B1025B")
	    (object Class "UserList"
		quid       	"3EDD63B8000C")
	    (object Class "NewClass2"
		quid       	"3EDD658F00AA"
		stereotype 	"DTDElementEMPTY")
	    (object Class "Facade"
		quid       	"3EDD65A0028F")
	    (object Association "$UNNAMED$0"
		quid       	"3EDD63BF00A2"
		roles      	(list role_list
		    (object Role "$UNNAMED$1"
			quid       	"3EDD63BF02BF"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$2"
			quid       	"3EDD63BF02D3"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$3"
		quid       	"3EDD63C10362"
		roles      	(list role_list
		    (object Role "$UNNAMED$4"
			quid       	"3EDD63C20269"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$5"
			quid       	"3EDD63C2026B"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$6"
		quid       	"3EDD63C401CC"
		roles      	(list role_list
		    (object Role "$UNNAMED$7"
			quid       	"3EDD63C50051"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$8"
			quid       	"3EDD63C50053"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$9"
		quid       	"3EDD63C700C2"
		roles      	(list role_list
		    (object Role "$UNNAMED$10"
			quid       	"3EDD63C70361"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$11"
			quid       	"3EDD63C70363"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$12"
		quid       	"3EDD63C902A6"
		roles      	(list role_list
		    (object Role "$UNNAMED$13"
			quid       	"3EDD63CA0171"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$14"
			quid       	"3EDD63CA0173"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$15"
		quid       	"3EDD63CC00A1"
		roles      	(list role_list
		    (object Role "$UNNAMED$16"
			quid       	"3EDD63CC02C8"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$17"
			quid       	"3EDD63CC02CA"
			supplier   	"Logical View::客户2"
			quidu      	"3EDD633301C4")))
	    (object Association "$UNNAMED$18"
		quid       	"3EDD63CE031B"
		roles      	(list role_list
		    (object Role "$UNNAMED$19"
			quid       	"3EDD63CF013C"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$20"
			quid       	"3EDD63CF0146"
			supplier   	"Logical View::客户2"
			quidu      	"3EDD633301C4")))
	    (object Association "$UNNAMED$21"
		quid       	"3EDD63D10102"
		roles      	(list role_list
		    (object Role "$UNNAMED$22"
			quid       	"3EDD63D102ED"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$23"
			quid       	"3EDD63D102F7"
			supplier   	"Logical View::客户2"
			quidu      	"3EDD633301C4")))
	    (object Association "$UNNAMED$24"
		quid       	"3EDD63D400C1"
		roles      	(list role_list
		    (object Role "$UNNAMED$25"
			quid       	"3EDD63D40265"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$26"
			quid       	"3EDD63D40267"
			supplier   	"Logical View::客户2"
			quidu      	"3EDD633301C4")))
	    (object Association "$UNNAMED$27"
		quid       	"3EDD642B00B2"
		roles      	(list role_list
		    (object Role "$UNNAMED$28"
			quid       	"3EDD642B0333"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$29"
			quid       	"3EDD642B0335"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$30"
		quid       	"3EDD642D014B"
		roles      	(list role_list
		    (object Role "$UNNAMED$31"
			quid       	"3EDD642D02BD"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$32"
			quid       	"3EDD642D02C7"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$33"
		quid       	"3EDD642F016C"
		roles      	(list role_list
		    (object Role "$UNNAMED$34"
			quid       	"3EDD642F03B1"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$35"
			quid       	"3EDD642F03B3"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$36"
		quid       	"3EDD64310291"
		roles      	(list role_list
		    (object Role "$UNNAMED$37"
			quid       	"3EDD64310327"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$38"
			quid       	"3EDD64310332"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$39"
		quid       	"3EDD643400F1"
		roles      	(list role_list
		    (object Role "$UNNAMED$40"
			quid       	"3EDD6434019B"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$41"
			quid       	"3EDD643401A5"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$42"
		quid       	"3EDD64360343"
		roles      	(list role_list
		    (object Role "$UNNAMED$43"
			quid       	"3EDD64370073"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$44"
			quid       	"3EDD6437007D"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$45"
		quid       	"3EDD643C0156"
		roles      	(list role_list
		    (object Role "$UNNAMED$46"
			quid       	"3EDD643D00A4"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$47"
			quid       	"3EDD643D00AE"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$48"
		quid       	"3EDD6440006C"
		roles      	(list role_list
		    (object Role "$UNNAMED$49"
			quid       	"3EDD644002E3"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$50"
			quid       	"3EDD644002EE"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$51"
		quid       	"3EDD65C20021"
		roles      	(list role_list
		    (object Role "$UNNAMED$52"
			quid       	"3EDD65C300D6"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$53"
			quid       	"3EDD65C300E1"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$54"
		quid       	"3EDD65C5024C"
		roles      	(list role_list
		    (object Role "$UNNAMED$55"
			quid       	"3EDD65C600C7"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$56"
			quid       	"3EDD65C600D1"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$57"
		quid       	"3EDD65C703A3"
		roles      	(list role_list
		    (object Role "$UNNAMED$58"
			quid       	"3EDD65C80282"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$59"
			quid       	"3EDD65C8028C"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F"
			is_navigable 	TRUE)))
	    (object Association "$UNNAMED$60"
		quid       	"3EDD65CE0173"
		roles      	(list role_list
		    (object Role "$UNNAMED$61"
			quid       	"3EDD65CE0353"
			supplier   	"Logical View::Adapter"
			quidu      	"3EDD6380035F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$62"
			quid       	"3EDD65CE035D"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F")))
	    (object Association "$UNNAMED$63"
		quid       	"3EDD65D0031A"
		roles      	(list role_list
		    (object Role "$UNNAMED$64"
			quid       	"3EDD65D101B3"
			supplier   	"Logical View::Session"
			quidu      	"3EDD63B1025B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$65"
			quid       	"3EDD65D101BD"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F")))
	    (object Association "$UNNAMED$66"
		quid       	"3EDD65D3015C"
		roles      	(list role_list
		    (object Role "$UNNAMED$67"
			quid       	"3EDD65D30382"
			supplier   	"Logical View::Dispatcher"
			quidu      	"3EDD63A80212"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$68"
			quid       	"3EDD65D3038C"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F")))
	    (object Association "$UNNAMED$69"
		quid       	"3EDD65D50263"
		roles      	(list role_list
		    (object Role "$UNNAMED$70"
			quid       	"3EDD65D600D4"
			supplier   	"Logical View::Adapter2"
			quidu      	"3EDD63A000E4"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$71"
			quid       	"3EDD65D600DE"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F")))
	    (object Association "$UNNAMED$72"
		quid       	"3EDD65D80004"
		roles      	(list role_list
		    (object Role "$UNNAMED$73"
			quid       	"3EDD65D8023F"
			supplier   	"Logical View::UserList"
			quidu      	"3EDD63B8000C"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$74"
			quid       	"3EDD65D80249"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F")))
	    (object Association "$UNNAMED$75"
		quid       	"3EDD65DC00E6"
		roles      	(list role_list
		    (object Role "$UNNAMED$76"
			quid       	"3EDD65DC02F9"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$77"
			quid       	"3EDD65DC0303"
			supplier   	"Logical View::客户1"
			quidu      	"3EDD632B00FA")))
	    (object Association "$UNNAMED$78"
		quid       	"3EDD65DE02CA"
		roles      	(list role_list
		    (object Role "$UNNAMED$79"
			quid       	"3EDD65DF009B"
			supplier   	"Logical View::Facade"
			quidu      	"3EDD65A0028F"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$80"
			quid       	"3EDD65DF00A5"
			supplier   	"Logical View::客户2"
			quidu      	"3EDD633301C4")))
	    (object Class_Category "NewPackage"
		quid       	"3EDD634200E9"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list))
	    (object Class_Category "WebSnap"
		quid       	"3EDD6371008C"
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list)))
	logical_presentations 	(list unit_reference_list
	    (object ClassDiagram "Main"
		quid       	"3EDD631700DD"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	620
		items      	(list diagram_item_list
		    (object CategoryView "Logical View::WebSnap" @1
			location   	(1008, 1232)
			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 	@1
			    location   	(214, 773)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	1588
			    justify    	0
			    label      	"WebSnap")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EDD6371008C"
			width      	1600
			height     	930)
		    (object ClassView "Class" "Logical View::Adapter" @2
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(496, 1216)
			font       	(object Font
			    size       	10
12345

facade2.mdl - 源码说明

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

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

⌨️ 快捷键说明

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