INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Catalog of table, recordset or parameter fields"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: dale
class FIELDS
inherit

DATA_CATALOG [FIELD]
rename
parent as table
redefine
table
end
creation

make
creation {RECORDSET}

from_tables
creation {DB_TABLE}

from_table
feature -- Attribute:

table: DB_TABLE
feature -- Commands:

make (db: DATABASE)
-- creation procedure
require
valid_database: db /= void implies db.is_connected
feature -- Validations:

valid_type (t: INTEGER): BOOLEAN
-- ...

valid_sql_type (sqlt: INTEGER): BOOLEAN
-- ...
feature {DB_TABLE}

from_table (t: DB_TABLE)
-- creation procedure; makes updatable catalog of table's fields
require
valid_table: t /= void and then t.primary_database /= void and then t.primary_database.is_connected
feature {RECORDSET}

from_tables (ts: TABLES)
-- create fields catalog containing all the fields from
-- every table
require
valid_tables: ts /= void and then ts.count > 0 and ts.is_attached
ensure
well_done: count >= ts.count
feature

get_qualifier_from_parent: STRING
-- ...

get_owner_from_parent: STRING
-- ...

get_name_from_parent: STRING
-- ...

print_it
end -- class FIELDS

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES