case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Check

[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]

Vyhodnocovací funkce
Check_EntityTypes
(ER Model)

Vytvořeno:	11-26-1996 17:33:11
Poslední změna:	12-03-2002 13:33:14

Outputs a list of all entity types shown in the specified ER model with no attributes and/or no primary key definition.

Modul

Module: ER Model

Zdrojový kód:

PROCEDURE Check_EntityTypes FOR ERAREA
BEGIN

/*
  check entity types:
  - attributes
  - primary key
*/
  PRINT {"ARIAL",12,BOLD} "Test entit v ER modelu ";
  PRINT {"ARIAL",12,BOLD,ITALIC} CONV$(Erarea.Boxname),NL(2);

  first! = TRUE;
  FOREACH Enode WHERE Enode.Area = Erarea.Name ORDER BY Enode.Entity DO
    FOR Entity WHERE Entity.Name = Enode.Entity DO
      pkey! = FALSE;
      attr! = FALSE;
      FOREACH Attribute WHERE Attribute.Entity = Entity.Name DO
        // attributes exist
        attr! = TRUE;
        BREAK;
      END
      // primary key defined ?
      CALL Check_Primary_Key(Entity.Name, pkey!);
      IF NOT pkey! OR NOT attr! THEN
        IF first! THEN
          first! = FALSE;
          PRINT {"ARIAL",10} "Entity bez atributů nebo primárního klíče:",NL;
        END
        PRINT {"ARIAL",10,BOLD} NL,CONV$(Entity.Boxname),NL;
        IF NOT pkey! THEN
          PRINT {"ARIAL",10} TAB(4),"nemá primární klíč",NL;
        END
        IF NOT attr! THEN
          PRINT {"ARIAL",10} TAB(4),"nemá atributy",NL;
        END
      END
    END
  END

  IF first! THEN
    PRINT {"ARIAL",10} TAB(4),"Všechny entity mají atibuty a primární klíče.",NL;
  END

  PRINT NL(2);

END

Generováno: 16.10.2003 7:41	Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf	Generováno systémem case/4/0
Vygeneroval: Administrator	Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\460.htm	(C) microTOOL GmbH 2002