Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[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
TypestructureMap
(Web Publishing)

Vytvořeno: 04-16-1997 14:45:21
Poslední změna: 01-14-2003 12:35:56
Generates HTML <MAP> sections for the element trees of the type structure.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE TypestructureMap(Name$, Page%, BYREF PageWasGenerated!)
BEGIN

    foundsomething! = FALSE;
    
    // link to parent page
    IF Page% > 1 THEN
        foundsomething! = TRUE;
    END
    // link to attribute fields and data fields
    IF NOT foundsomething! THEN
        FOREACH TField WHERE Typestructure = Name$ AND Page=Page% DO
          foundsomething! = TRUE;
          BREAK;
        END
    END
    // link to relation references
    IF NOT foundsomething! THEN
        FOREACH Relationpart WHERE Typestructure = Name$ AND Page=Page% DO
          foundsomething! = TRUE;
          BREAK;
        END
    END
    // link to parts
    IF NOT foundsomething! THEN
        FOREACH TPart WHERE Typestructure = Name$ AND Page = Page% DO
          foundsomething! = TRUE;
          BREAK;
        END
    END

  PageWasGenerated! = foundsomething!;
  
  IF foundsomething! THEN
    FOREACH Typestructure AS AliasTS WHERE Name = Name$ DO
      CALL GenMapHeader("map_page" + Str$(Page%));

      //we need to find the coord of the most left box in advance
      leftmost% = 286; //highest possible value, root element (286, 15)
      FOREACH Relationpart WHERE Typestructure = AliasTS.Name AND Page = Page% AND X < leftmost% ORDER BY X DO
        leftmost% = X;
        BREAK;
      END
      FOREACH TCond WHERE Typestructure = AliasTS.Name AND Page = Page% AND X < leftmost% ORDER BY X DO
        leftmost% = X;
        BREAK;
      END
      FOREACH TField WHERE Typestructure = AliasTS.Name AND Page = Page% AND X < leftmost% ORDER BY X DO
        leftmost% = X;
        BREAK;
      END
      FOREACH TPart WHERE Typestructure = AliasTS.Name AND Page = Page% AND X < leftmost% ORDER BY X DO
        leftmost% = X;
        BREAK;
      END

      // link to relation references
      FOREACH Relationpart AS AliasRelpart WHERE Typestructure = AliasTS.Name AND Page=Page% DO
        CALL H_CaseBoxCoorToImageCoor(leftmost%, X, Y, ulc_x%, ulc_y%);
        FOR Relation WHERE Name = AliasRelpart.Relation DO
          CALL GenMapRect(Object, Conv$(AliasRelpart.Boxname), ulc_x%, ulc_y%, ulc_x% + 80, ulc_y% + 52);
        END
      END

      // link to attribute fields and data fields
      FOREACH TField AS AliasField WHERE Typestructure = AliasTS.Name AND Page=Page% DO
        // link to attribute fields
        IF AliasField.Relation <> "" THEN
            CALL H_CaseBoxCoorToImageCoor(leftmost%, X, Y, ulc_x%, ulc_y%);
            FOR Relattribute WHERE Relation = AliasField.Relation
                               AND Name = AliasField.Relattribute DO
              CALL GenMapRect(Object, Conv$(AliasField.Boxname), ulc_x%, ulc_y%, ulc_x% +80, ulc_y% + 52);
            END
        END
        // link to data element
        IF AliasField.Data <> "" THEN
            CALL H_CaseBoxCoorToImageCoor(leftmost%, X, Y, ulc_x%, ulc_y%);
            FOR Data WHERE Name = AliasField.Data DO
              CALL GenMapRect(Object, Conv$(AliasField.Boxname), ulc_x%, ulc_y% , ulc_x% + 80, ulc_y% + 52);
            END
        END
      END
 
      // link to parts
      FOREACH TPart AS AliasTPart WHERE Typestructure = AliasTS.Name AND Page = Page% DO
        CALL H_CaseBoxCoorToImageCoor(leftmost%, X, Y, ulc_x%, ulc_y%);
        FOR Typestructure WHERE Name = AliasTPart.TPartname DO
          CALL GenMapRect(Object, Conv$(AliasTPart.Boxname), ulc_x%, ulc_y%, ulc_x% + 80, ulc_y% + 52);
        END
      END

      // link to parent page
      IF Page% > 1 THEN
        FOR Tpage WHERE Typestructure = AliasTS.Name AND Page = Page% DO
            CALL H_CaseBoxCoorToImageCoor(leftmost%, 286, 15, ulc_x%, ulc_y%);
            CALL GenMapRectByName("", "#TPage" + Str$(Tpage.Fieldpage), "Type Structure Page "
                                    + Str$(Tpage.Fieldpage), ulc_x%, ulc_y%, ulc_x% + 80, ulc_y% + 52);
        END
      END

      // link to child page
     FOREACH Tpage WHERE Typestructure = AliasTS.Name AND Fieldpage = Page% DO
        FOR TField WHERE Typestructure = AliasTS.Name AND Page = Page% AND TField.Fieldno = Tpage.Fieldno DO
            CALL H_CaseBoxCoorToImageCoor(leftmost%, X, Y, ulc_x%, ulc_y%);
            CALL GenMapRectByName("", "#TPage" + Str$(Tpage.Page), "Type Structure Page "
                                    + Str$(Tpage.Page), ulc_x%, ulc_y%, ulc_x% + 80, ulc_y% + 52);
        END
      END

      CALL GenMapFooter();
    END
  END
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\13687.htm (C) microTOOL GmbH 2002