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
List_all_Evaluation_Functions
(Reference Lists)

Vytvořeno: 01-13-1997 10:09:17
Poslední změna: 12-05-2002 13:16:58
Output a list of all evaluation functions.
Modul

Module: Reference Lists

Zdrojový kód:

PROCEDURE List_all_Evaluation_Functions()
BEGIN
// Lists all Evaluation Functions

  PRINT {BOLD,"Arial",12} "Vyhodnocovací funkce", NL;
  PRINT {"Arial", 10} date$(),", ",time$(),NL(3);
  

  FOREACH Format WHERE Format.Language=99 ORDER BY Type,Name DO
    nr%=nr%+1;
    IF Type = "000" THEN
      Typ$ = "Global";
    ELSIF Type = "dba" THEN
      Typ$ = "Data Base";
    ELSIF Type = "dat" THEN
      Typ$ = "Data Element";
    ELSIF Type = "dsd" THEN
      Typ$ = "Data Structure/Event/Material";
    ELSIF Type = "efa" THEN
      Typ$ = "External Interface";
    ELSIF Type = "ent" THEN
      Typ$ = "Entity Type";
    ELSIF Type = "erm" THEN
      Typ$ = "ER Model";
    ELSIF Type = "fsd" THEN
      Typ$ = "Function Structure";
    ELSIF Type = "fun" THEN
      Typ$ = "Function";
    ELSIF Type = "ifd" THEN
      Typ$ = "Information Flow";
    ELSIF Type = "mod" THEN
      Typ$ = "Module Structure";
    ELSIF Type = "rel" THEN
      Typ$ = "Relational Model";
    ELSIF Type = "rla" THEN
      Typ$ = "Relation";
    ELSIF Type = "rep" THEN
      Typ$ = "Report Structure";
    ELSIF Type = "tsd" THEN
      Typ$ = "Type Structure";
    ELSIF Type = "fdt" THEN
      Typ$ = "Implementation Tree";
    ELSIF Type = "sce" THEN
      Typ$ = "Scenario";
    ELSIF Type = "std" THEN
      Typ$ = "State Transition Diagram";
    END
  
    PRINT {BOLD,"ARIAL",10} "Jméno:",TAB(15),Format.Name,NL;
    PRINT {"ARIAL",10} "Typ:",TAB(15),Typ$,NL;
    PRINT {"ARIAL",10} "Modul:", TAB(15), Formatmodule, NL;
    IF Filename <> "" THEN
        PRINT {"ARIAL",10} "Soubor:",TAB(15),Filename,NL;
    END
    IF Description <> "" THEN
        PRINT {"ARIAL",10} NL,"Popis:",NL(2);
        PRINT {"Arial",ITALIC,10} Format.Description,NL(2);
    END
    CALL GetDateTime(DateTime, Date$, Time$);
    PRINT {"ARIAL",10} "Poslední změna:", TAB(15), Date$ + ", " + Time$,NL;
    PRINT {"ARIAL",10} "Kód:",NL;
    PRINT {"Courier New",10,BLUE} Format.Code,NL;
    PRINT {"ARIAL",10} NL(2);
  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\19567.htm (C) microTOOL GmbH 2002