system.mdl

来自「学生作业提交」· MDL 代码 · 共 2,333 行 · 第 1/5 页

MDL
2,333 行
字号
12345

(object Petal
    version    	50
    _written   	"Rose 8.2.0311.2600"
    charSet    	134)

(object Design "Logical View"
    is_unit    	TRUE
    is_loaded  	TRUE
    quid       	"461127CD02DE"
    enforceClosureAutoLoad 	FALSE
    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      	0
	gridY      	0
	defaultFont 	(object Font
	    size       	12
	    face       	"Arial"
	    bold       	FALSE
	    italics    	FALSE
	    underline  	FALSE
	    strike     	FALSE
	    color      	0
	    default_color 	TRUE)
	showMessageNum 	3
	showClassOfObject 	TRUE
	notation   	"Unified")
    root_usecase_package 	(object Class_Category "Use Case View"
	quid       	"461127CD02E0"
	exportControl 	"Public"
	global     	TRUE
	logical_models 	(list unit_reference_list
	    (object Class "Manager"
		quid       	"461127E601A5"
		stereotype 	"Actor")
	    (object Class "Teacher"
		quid       	"461127EE00FA"
		stereotype 	"Actor")
	    (object Class "Student"
		quid       	"461127F6008C"
		stereotype 	"Actor")
	    (object Class "Account Data Base"
		quid       	"4612215D036B"
		stereotype 	"Actor")
	    (object Class "Document Data Base"
		quid       	"4612695C00DA"
		stereotype 	"Actor")
	    (object UseCase "Account Management"
		quid       	"4611284B0399")
	    (object UseCase "Document Management"
		quid       	"461129B500BB")
	    (object UseCase "Login"
		quid       	"46112FB001A5"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461130A90119"
			stereotype 	"include"
			supplier   	"Use Case View::Verify User"
			quidu      	"4611306F0138")))
	    (object UseCase "Verify User"
		quid       	"4611306F0138")
	    (object UseCase "Edit Account"
		quid       	"461130FD00EA"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461131EF008C"
			stereotype 	"include"
			supplier   	"Use Case View::Modify User Information"
			quidu      	"4611317803C8")
		    (object Dependency_Relationship
			quid       	"461131F40271"
			stereotype 	"include"
			supplier   	"Use Case View::Delete User"
			quidu      	"461131770186")
		    (object Dependency_Relationship
			quid       	"461131F90290"
			stereotype 	"include"
			supplier   	"Use Case View::Add User"
			quidu      	"461131740148")
		    (object Dependency_Relationship
			quid       	"461135900242"
			stereotype 	"include"
			supplier   	"Use Case View::Verify User"
			quidu      	"4611306F0138")
		    (object Dependency_Relationship
			quid       	"461135A603D8"
			stereotype 	"extend"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5")))
	    (object UseCase "Add User"
		quid       	"461131740148"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"46120CD60261"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Account Info"
			quidu      	"46120CB401B5")))
	    (object UseCase "Delete User"
		quid       	"461131770186"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"46120CD900BB"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Account Info"
			quidu      	"46120CB401B5")))
	    (object UseCase "Modify User Information"
		quid       	"4611317803C8"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"46120CE2006D"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Account Info"
			quidu      	"46120CB401B5")))
	    (object UseCase "Manage Document"
		quid       	"4612056D0271"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"461264370138"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5"))
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461208A501B5"
			stereotype 	"extend"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5")
		    (object Dependency_Relationship
			quid       	"461209C80203"
			stereotype 	"include"
			supplier   	"Use Case View::Delete Document"
			quidu      	"4612091A0213")
		    (object Dependency_Relationship
			quid       	"461209CB007D"
			stereotype 	"include"
			supplier   	"Use Case View::Rename Document"
			quidu      	"4612092D0203")
		    (object Dependency_Relationship
			quid       	"4612651901F4"
			stereotype 	"include"
			supplier   	"Use Case View::Upload Document"
			quidu      	"461264E30271")
		    (object Dependency_Relationship
			quid       	"4612651D01F4"
			stereotype 	"include"
			supplier   	"Use Case View::Download Document"
			quidu      	"46126506030D")))
	    (object UseCase "Delete Document"
		quid       	"4612091A0213"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461268E2001F"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Document Data"
			quidu      	"4612686E00DA")))
	    (object UseCase "Rename Document"
		quid       	"4612092D0203"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461268E402BF"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Document Data"
			quidu      	"4612686E00DA")))
	    (object UseCase "Updata Account Info"
		quid       	"46120CB401B5")
	    (object UseCase "Upload Document"
		quid       	"461264E30271"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461268E700AB"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Document Data"
			quidu      	"4612686E00DA")))
	    (object UseCase "Download Document"
		quid       	"46126506030D"
		visible_modules 	(list dependency_list
		    (object Dependency_Relationship
			quid       	"461268EA035B"
			stereotype 	"extend"
			supplier   	"Use Case View::Updata Document Data"
			quidu      	"4612686E00DA")))
	    (object UseCase "Updata Document Data"
		quid       	"4612686E00DA")
	    (object Association "$UNNAMED$0"
		quid       	"46112A5001C5"
		roles      	(list role_list
		    (object Role "$UNNAMED$1"
			quid       	"46112A5100CB"
			supplier   	"Use Case View::Account Management"
			quidu      	"4611284B0399"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$2"
			quid       	"46112A5100EA"
			supplier   	"Use Case View::Manager"
			quidu      	"461127E601A5")))
	    (object Association "$UNNAMED$3"
		quid       	"46112A540213"
		roles      	(list role_list
		    (object Role "$UNNAMED$4"
			quid       	"46112A590167"
			supplier   	"Use Case View::Account Management"
			quidu      	"4611284B0399"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$5"
			quid       	"46112A590169"
			supplier   	"Use Case View::Student"
			quidu      	"461127F6008C")))
	    (object Association "$UNNAMED$6"
		quid       	"46112A77031C"
		roles      	(list role_list
		    (object Role "$UNNAMED$7"
			quid       	"46112A7802BF"
			supplier   	"Use Case View::Account Management"
			quidu      	"4611284B0399"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$8"
			quid       	"46112A7802C1"
			supplier   	"Use Case View::Teacher"
			quidu      	"461127EE00FA")))
	    (object Association "$UNNAMED$9"
		quid       	"46112A7D034B"
		roles      	(list role_list
		    (object Role "$UNNAMED$10"
			quid       	"46112A7E01E4"
			supplier   	"Use Case View::Document Management"
			quidu      	"461129B500BB"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$11"
			quid       	"46112A7E01E6"
			supplier   	"Use Case View::Manager"
			quidu      	"461127E601A5")))
	    (object Association "$UNNAMED$12"
		quid       	"46112A800232"
		roles      	(list role_list
		    (object Role "$UNNAMED$13"
			quid       	"46112A81003E"
			supplier   	"Use Case View::Document Management"
			quidu      	"461129B500BB"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$14"
			quid       	"46112A81004E"
			supplier   	"Use Case View::Student"
			quidu      	"461127F6008C")))
	    (object Association "$UNNAMED$15"
		quid       	"46112A8202AF"
		roles      	(list role_list
		    (object Role "$UNNAMED$16"
			quid       	"46112A830138"
			supplier   	"Use Case View::Document Management"
			quidu      	"461129B500BB"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$17"
			quid       	"46112A83013A"
			supplier   	"Use Case View::Teacher"
			quidu      	"461127EE00FA")))
	    (object Association "$UNNAMED$18"
		quid       	"461130B80177"
		roles      	(list role_list
		    (object Role "$UNNAMED$19"
			quid       	"461130B8033C"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$20"
			quid       	"461130B8034B"
			supplier   	"Use Case View::Manager"
			quidu      	"461127E601A5")))
	    (object Association "$UNNAMED$21"
		quid       	"461130BA01E4"
		roles      	(list role_list
		    (object Role "$UNNAMED$22"
			quid       	"461130BA032C"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$23"
			quid       	"461130BA033C"
			supplier   	"Use Case View::Student"
			quidu      	"461127F6008C")))
	    (object Association "$UNNAMED$24"
		quid       	"461130BC0157"
		roles      	(list role_list
		    (object Role "$UNNAMED$25"
			quid       	"461130BC035B"
			supplier   	"Use Case View::Login"
			quidu      	"46112FB001A5"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$26"
			quid       	"461130BC036C"
			supplier   	"Use Case View::Teacher"
			quidu      	"461127EE00FA")))
	    (object Association "$UNNAMED$27"
		quid       	"4611311C0119"
		roles      	(list role_list
		    (object Role "$UNNAMED$28"
			quid       	"4611311C037A"
			supplier   	"Use Case View::Edit Account"
			quidu      	"461130FD00EA"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$29"
			quid       	"4611311C037C"
			supplier   	"Use Case View::Manager"
			quidu      	"461127E601A5")))
	    (object Association "$UNNAMED$30"
		quid       	"46113223032C"
		roles      	(list role_list
		    (object Role "$UNNAMED$31"
			quid       	"461132240196"
			supplier   	"Use Case View::Edit Account"
			quidu      	"461130FD00EA"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$32"
			quid       	"461132240198"
			supplier   	"Use Case View::Student"
			quidu      	"461127F6008C")))
	    (object Association "$UNNAMED$33"
		quid       	"4612074800FA"
		roles      	(list role_list
		    (object Role "$UNNAMED$34"
			quid       	"4612074802FD"
			supplier   	"Use Case View::Manage Document"
			quidu      	"4612056D0271"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$35"
			quid       	"4612074802FF"
			supplier   	"Use Case View::Manager"
			quidu      	"461127E601A5")))
	    (object Association "$UNNAMED$36"
		quid       	"461209BD005D"
		roles      	(list role_list
		    (object Role "$UNNAMED$37"
			quid       	"461209BD03B9"
			supplier   	"Use Case View::Manage Document"
			quidu      	"4612056D0271"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$38"
			quid       	"461209BD03C8"
			supplier   	"Use Case View::Student"
			quidu      	"461127F6008C")))
	    (object Association "$UNNAMED$39"
		quid       	"46120CDB000F"
		roles      	(list role_list
		    (object Role "$UNNAMED$40"
			quid       	"46120CDB0232"
			supplier   	"Use Case View::Updata Account Info"
			quidu      	"46120CB401B5"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$41"
			quid       	"46120CDB0234"
			supplier   	"Use Case View::Modify User Information"
			quidu      	"4611317803C8")))
	    (object Association "$UNNAMED$42"
		quid       	"461221EC0213"
		roles      	(list role_list
		    (object Role "$UNNAMED$43"
			quid       	"461221ED000F"
			supplier   	"Use Case View::Account Data Base"
			quidu      	"4612215D036B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$44"
			quid       	"461221ED0011"
			supplier   	"Use Case View::Updata Account Info"
			quidu      	"46120CB401B5")))
	    (object Association "$UNNAMED$45"
		quid       	"461221EF01B5"
		roles      	(list role_list
		    (object Role "$UNNAMED$46"
			quid       	"461221F00232"
			supplier   	"Use Case View::Account Data Base"
			quidu      	"4612215D036B"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$47"
			quid       	"461221F00242"
			supplier   	"Use Case View::Verify User"
			quidu      	"4611306F0138")))
	    (object Association "$UNNAMED$48"
		quid       	"461264D8008C"
		roles      	(list role_list
		    (object Role "$UNNAMED$49"
			quid       	"461264D8031C"
			supplier   	"Use Case View::Manage Document"
			quidu      	"4612056D0271"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$50"
			quid       	"461264D8031E"
			supplier   	"Use Case View::Teacher"
			quidu      	"461127EE00FA")))
	    (object Association "$UNNAMED$51"
		quid       	"461267AF0222"
		roles      	(list role_list
		    (object Role "$UNNAMED$52"
			quid       	"461267B00167"
			supplier   	"Use Case View::Edit Account"
			quidu      	"461130FD00EA"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$53"
			quid       	"461267B00177"
			supplier   	"Use Case View::Teacher"
			quidu      	"461127EE00FA")))
	    (object Association "$UNNAMED$54"
		quid       	"461269B50399"
		roles      	(list role_list
		    (object Role "$UNNAMED$55"
			quid       	"461269B60138"
			supplier   	"Use Case View::Document Data Base"
			quidu      	"4612695C00DA"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$56"
			quid       	"461269B60148"
			supplier   	"Use Case View::Updata Document Data"
			quidu      	"4612686E00DA"))))
	logical_presentations 	(list unit_reference_list
	    (object UseCaseDiagram "Top Use Case"
		quid       	"461127CD030E"
		title      	"Top Use Case"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	131
		items      	(list diagram_item_list
		    (object ClassView "Class" "Use Case View::Manager" @1
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(288, 464)
			font       	(object Font
			    size       	12
			    face       	"Arial"
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@1
			    location   	(288, 624)
			    anchor_loc 	1
			    nlines     	2
			    max_width  	335
			    justify    	0
			    label      	"Manager")
			icon       	"Actor"
			icon_style 	"Icon"
			line_color 	3342489
			quidu      	"461127E601A5"
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Use Case View::Student" @2
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(283, 1249)
			font       	(object Font
			    size       	12
			    face       	"Arial"
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
12345

system.mdl - 源码说明

本页面展示了「学生作业提交」中的 system.mdl 源码文件，采用 MDL 编程语言编写，共 2,333 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

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