sqlsecurity.mdl

SQL Security with Visual Basic 6.0

(object Petal
    version    	42
    _written   	"Microsoft Visual Modeler 2.0.8139"
    charSet    	0)

(object Design "Logical View"
    is_unit    	TRUE
    is_loaded  	TRUE
    quid       	"3AA82168039B"
    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       	9
	    face       	"Tahoma"
	    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       	"3AA82168039D"
	exportControl 	"Public"
	global     	TRUE
	logical_models 	(list unit_reference_list)
	logical_presentations 	(list unit_reference_list
	    (object UseCaseDiagram "Main"
		quid       	"3AA8216E0264"
		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       	"3AA82168039C"
	exportControl 	"Public"
	global     	TRUE
	subsystem  	"Component View"
	quidu      	"3AA82168039E"
	logical_models 	(list unit_reference_list
	    (object Class_Category "User Services"
		attributes 	(list Attribute_Set
		    (object Attribute
			tool       	"VisualBasic"
			name       	"TierPackage"
			value      	"User Services"))
		quid       	"3AA8216E02B3"
		documentation 	"User services provide the visual interface for presenting information and gathering data in an application. The user services connect the user with the application and request the business and/or data services needed by the user to execute business tasks."
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"Business Services"))
			quid       	"3AA8216E02B9"
			supplier   	"Logical View::Business Services"
			quidu      	"3AA8216E02B5")
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"Data Services"))
			quid       	"3AA8216E02BA"
			supplier   	"Logical View::Data Services"
			quidu      	"3AA8216E02B7"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Package Overview"
			quid       	"3AA8216E02B4"
			title      	"Package Overview"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list))))
	    (object Class_Category "Business Services"
		attributes 	(list Attribute_Set
		    (object Attribute
			tool       	"VisualBasic"
			name       	"TierPackage"
			value      	"Business Services"))
		quid       	"3AA8216E02B5"
		documentation 	"Business services respond to requests from the user (or other business services) in order to execute a business task. They accomplish this by requesting the data services needed and applying formal procedures and business rules to the relevant data. This protocol insulates the user from direct interaction with the database. Because business rules tend to change more frequently than the specific business tasks they support, they are ideal candidates for encapsulating in components that are physically separate from the application logic itself."
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"User Services"))
			quid       	"3AA8216E02BB"
			supplier   	"Logical View::User Services"
			quidu      	"3AA8216E02B3")
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"Data Services"))
			quid       	"3AA8216E02BC"
			supplier   	"Logical View::Data Services"
			quidu      	"3AA8216E02B7"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list)
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Package Overview"
			quid       	"3AA8216E02B6"
			title      	"Package Overview"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list))))
	    (object Class_Category "Data Services"
		attributes 	(list Attribute_Set
		    (object Attribute
			tool       	"VisualBasic"
			name       	"TierPackage"
			value      	"Data Services"))
		quid       	"3AA8216E02B7"
		documentation 	"Data services maintain, access, and update data. They also manage and satisfy requests to manipulate data that are initiated by business services. Separating data services allows the data structure and access mechanisms to be maintained, modified, or, if necessary, even re-architected without affecting business or user services."
		visible_categories 	(list visibility_relationship_list
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"User Services"))
			quid       	"3AA8216E02BD"
			supplier   	"Logical View::User Services"
			quidu      	"3AA8216E02B3")
		    (object Visibility_Relationship
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"VisualBasic"
				name       	"TierPackage"
				value      	"Data Services"))
			quid       	"3AA8216E02BE"
			supplier   	"Logical View::Business Services"
			quidu      	"3AA8216E02B5"))
		exportControl 	"Public"
		logical_models 	(list unit_reference_list
		    (object Class "CSQLSecurity"
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"Visual Basic"
				name       	"Creatable"
				value      	("CreatableSet" 214))
			    (object Attribute
				tool       	"Visual Basic"
				name       	"CollectionClass"
				value      	"Collection"))
			quid       	"3AA821B1004C"
			stereotype 	"Class Module"
			operations 	(list Operations
			    (object Operation "LoadSecurity"
				quid       	"3AA823F101E5"
				parameters 	(list Parameters
				    (object Parameter "SQLServer"
					type       	"String")
				    (object Parameter "Logon"
					type       	"String")
				    (object Parameter "PW"
					type       	"String")
				    (object Parameter "Database"
					type       	"String"))
				result     	"Boolean"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0)
			    (object Operation "CheckUser"
				quid       	"3AA82444022B"
				parameters 	(list Parameters
				    (object Parameter "UserName"
					type       	"String")
				    (object Parameter "RollName"
					type       	"String"))
				result     	"Boolean"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))
			module     	"Component View::SQLSecurity (module spec)"
			quidu      	"3AA8253D01CF"
			language   	"Visual Basic")
		    (object Class "CRolls"
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"Visual Basic"
				name       	"Creatable"
				value      	("CreatableSet" 214)))
			quid       	"3AA821CF017C"
			stereotype 	"Class Module"
			operations 	(list Operations
			    (object Operation "Count"
				quid       	"3AA823E20143"
				result     	"Integer"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))
			module     	"Component View::SQLSecurity (module spec)"
			quidu      	"3AA8253D01CF"
			language   	"Visual Basic")
		    (object Class "CRoll"
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"Visual Basic"
				name       	"Creatable"
				value      	("CreatableSet" 219)))
			quid       	"3AA821FF0211"
			stereotype 	"Class Module"
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "Name"
				attributes 	(list Attribute_Set
				    (object Attribute
					tool       	"Visual Basic"
					name       	"GenerateGetOperation"
					value      	TRUE)
				    (object Attribute
					tool       	"Visual Basic"
					name       	"GenerateSetOperation"
					value      	TRUE))
				quid       	"3AA8239E034E"
				type       	"Variant"))
			module     	"Component View::SQLSecurity (module spec)"
			quidu      	"3AA8253D01CF"
			language   	"Visual Basic")
		    (object Class "CUser"
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"Visual Basic"
				name       	"Creatable"
				value      	("CreatableSet" 219)))
			quid       	"3AA8220C0089"
			stereotype 	"Class Module"
			class_attributes 	(list class_attribute_list
			    (object ClassAttribute "Name"
				attributes 	(list Attribute_Set
				    (object Attribute
					tool       	"Visual Basic"
					name       	"GenerateGetOperation"
					value      	TRUE)
				    (object Attribute
					tool       	"Visual Basic"
					name       	"GenerateSetOperation"
					value      	TRUE))
				quid       	"3AA822A700BE"
				type       	"Variant"))
			module     	"Component View::SQLSecurity (module spec)"
			quidu      	"3AA8253D01CF"
			language   	"Visual Basic")
		    (object Class "CUsers"
			attributes 	(list Attribute_Set
			    (object Attribute
				tool       	"Visual Basic"
				name       	"Creatable"
				value      	("CreatableSet" 219)))
			quid       	"3AA822070014"
			stereotype 	"Class Module"
			operations 	(list Operations
			    (object Operation "Count"
				quid       	"3AA823D4034C"
				result     	"Integer"
				concurrency 	"Sequential"
				opExportControl 	"Public"
				uid        	0))
			module     	"Component View::SQLSecurity (module spec)"
			quidu      	"3AA8253D01CF"
			language   	"Visual Basic")
		    (object Association "$UNNAMED$0"
			quid       	"3AA822400002"
			roles      	(list role_list
			    (object Role "Rolls"
				quid       	"3AA822400319"
				label      	"Rolls"
				supplier   	"Logical View::Data Services::CRolls"
				quidu      	"3AA821CF017C"
				client_cardinality 	(value cardinality "1")
				is_navigable 	TRUE)
			    (object Role "SQLSecurity"
				quid       	"3AA82240031A"
				label      	"SQLSecurity"
				supplier   	"Logical View::Data Services::CSQLSecurity"
				quidu      	"3AA821B1004C"
				client_cardinality 	(value cardinality "1"))))
		    (object Association "$UNNAMED$1"
			quid       	"3AA82247026F"
			roles      	(list role_list
			    (object Role "$UNNAMED$2"
				quid       	"3AA822480176"
				supplier   	"Logical View::Data Services::CRoll"
				quidu      	"3AA821FF0211"
				is_aggregate 	TRUE)
			    (object Role "theRolls"
				quid       	"3AA822480180"
				label      	"theRolls"
				supplier   	"Logical View::Data Services::CRolls"
				quidu      	"3AA821CF017C"
				is_navigable 	TRUE)))
		    (object Association "$UNNAMED$3"
			quid       	"3AA822710338"
			roles      	(list role_list
			    (object Role "Roll"
				quid       	"3AA8227202B7"
				label      	"Roll"
				supplier   	"Logical View::Data Services::CRoll"
				quidu      	"3AA821FF0211"
				client_cardinality 	(value cardinality "0..*")
				is_aggregate 	TRUE)
			    (object Role "Rolls"
				quid       	"3AA8227202C1"
				label      	"Rolls"
				supplier   	"Logical View::Data Services::CRolls"
				quidu      	"3AA821CF017C"
				client_cardinality 	(value cardinality "1")
				is_navigable 	TRUE)))
		    (object Association "$UNNAMED$4"
			quid       	"3AA82276037B"
			roles      	(list role_list
			    (object Role "$UNNAMED$5"
				quid       	"3AA8227702AA"
				supplier   	"Logical View::Data Services::CRolls"
				quidu      	"3AA821CF017C"
				is_aggregate 	TRUE)
			    (object Role "Roll"
				quid       	"3AA8227702AB"
				label      	"Roll"
				supplier   	"Logical View::Data Services::CRoll"
				quidu      	"3AA821FF0211"
				is_navigable 	TRUE)))
		    (object Association "$UNNAMED$6"
			quid       	"3AA8227B02B0"
			roles      	(list role_list
			    (object Role "Users"
				quid       	"3AA8227C0199"
				label      	"Users"
				supplier   	"Logical View::Data Services::CUsers"
				quidu      	"3AA822070014"
				client_cardinality 	(value cardinality "0..*")
				is_navigable 	TRUE)
			    (object Role "Roll"
				quid       	"3AA8227C01B7"
				label      	"Roll"
				supplier   	"Logical View::Data Services::CRoll"
				quidu      	"3AA821FF0211"
				client_cardinality 	(value cardinality "1"))))
		    (object Association "$UNNAMED$7"
			quid       	"3AA822810128"
			roles      	(list role_list
			    (object Role "Users"
				quid       	"3AA8228103BD"
				label      	"Users"
				supplier   	"Logical View::Data Services::CUsers"
				quidu      	"3AA822070014"
				client_cardinality 	(value cardinality "1")
				is_aggregate 	TRUE)
			    (object Role "User"
				quid       	"3AA8228103C7"
				label      	"User"
				supplier   	"Logical View::Data Services::CUser"
				quidu      	"3AA8220C0089"
				client_cardinality 	(value cardinality "0..*")
				is_navigable 	TRUE))))
		logical_presentations 	(list unit_reference_list
		    (object ClassDiagram "Package Overview"
			quid       	"3AA8216E02B8"
			title      	"Package Overview"
			zoom       	100
			max_height 	28350
			max_width  	21600
			origin_x   	0
			origin_y   	0
			items      	(list diagram_item_list
			    (object ClassView "Class" "Logical View::Data Services::CUser" @1
				ShowCompartmentStereotypes 	TRUE
				SuppressAttribute 	TRUE
				SuppressOperation 	TRUE
				location   	(1824, 1536)
				label      	(object ItemLabel
				    Parent_View 	@1
				    location   	(1660, 1520)
				    nlines     	1
				    max_width  	328
				    justify    	0
				    label      	"CUser")
				stereotype 	(object ItemLabel
				    Parent_View 	@1
				    location   	(1660, 1476)
				    anchor     	10
				    nlines     	1
				    max_width  	325
				    justify    	0
				    label      	"<<Class Module>>")
				icon_style 	"Icon"
				quidu      	"3AA8220C0089"
				width      	346
				height     	143
				annotation 	8
				autoResize 	TRUE)
			    (object ClassView "Class" "Logical View::Data Services::CUsers" @2
				ShowCompartmentStereotypes 	TRUE
				SuppressAttribute 	TRUE
				SuppressOperation 	TRUE
				location   	(1776, 896)
				label      	(object ItemLabel
				    Parent_View 	@2
				    location   	(1612, 880)
				    nlines     	1
				    max_width  	328
				    justify    	0
				    label      	"CUsers")
				stereotype 	(object ItemLabel
				    Parent_View 	@2
				    location   	(1612, 836)
				    anchor     	10
				    nlines     	1
				    max_width  	325
				    justify    	0
				    label      	"<<Class Module>>")
				icon_style 	"Icon"
				quidu      	"3AA822070014"
				width      	346
				height     	143
				annotation 	8
				autoResize 	TRUE)
			    (object AssociationViewNew "$UNNAMED$7" @3
				location   	(1799, 1215)
				stereotype 	TRUE
				quidu      	"3AA822810128"
				roleview_list 	(list RoleViews
				    (object RoleView "Users" @4
					Parent_View 	@3
					location   	(-9, -369)
					label      	(object SegLabel @5
					    Parent_View 	@4
					    location   	(1744, 1021)