INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Query parameters"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: dale
class PARAMETERS
inherit

FIELDS
rename
is_bound as ctg_is_bound
redefine
create_composed_name_attributes,
enumerate_data,
finalize_catalog,
get_name_from_parent,
get_owner_from_parent,
get_qualifier_from_parent,
load,
save
end
creation {QUERY}

fill_up_from_query
creation {DB_PROCEDURE}

from_procedure
feature -- Attributes:

query: QUERY

blob_contains: BOOLEAN
feature -- Query:

procedure: DB_PROCEDURE
-- returns attached stored procedure object
feature {QUERY}

fill_up_from_query (q: QUERY)
-- creation procedure
require
valid_query: q /= void and then q.is_attached
feature {DB_PROCEDURE}

from_procedure (p: DB_PROCEDURE)
-- creation procedure; makes updatable catalog of procedure's
-- parameters
require
valid_procedure: p /= void and then p.is_attached
invariant

valid_query: query /= void and then query.is_attached
end -- class PARAMETERS

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES