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

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

Vytvořeno:	10-30-2000 13:07:51
Poslední změna:	12-09-2002 12:48:52

This function generates a list of all user-defined properties for a system.

Modul

Module: Reference Lists

Zdrojový kód:

PROCEDURE List_all_Userdefined_Properties()
BEGIN
/*
   This function generates a list of all user-defined properties for a system.
*/

  first!=TRUE;
  PRINT {BOLD,"ARIAL",12} "Seznam uživatelských parametrů",NL(2);

  lastObjType$ = "";
  FOREACH Objectpropertytype ORDER BY Objecttype, Name DO
    IF Objecttype <> lastObjType$ THEN
        lastObjType$ = Objecttype;
        CALL GetObjecttypeName(Objecttype, otname$);
        PRINT {"ARIAL",BOLD,10} NL, otname$, NL(2);
    END
    PRINT Name;
    IF Type=5 /*Integer*/ THEN
        typeName$ = "Integer";
        IF Hasdefault THEN
            typeName$ = typeName$ + ", Default: " + Str$(Idefaultvalue);
        END
    ELSIF Type = 2 /*String*/ THEN
        typeName$ = "String";
        IF Hasdefault THEN
            typeName$ = typeName$ + ", Default: " + Sdefaultvalue;
        END
    ELSIF Type=8 /*Enumeration*/ THEN
        typeName$ = "Enumeration";
        IF Hasdefault THEN
            typeName$ = typeName$ + ", Default: " + Sdefaultvalue;
        END
    ELSIF Type=6 /*Boolean*/ THEN
        typeName$ = "Boolean";
        IF Hasdefault THEN
            IF Idefaultvalue <> 0 THEN
                typeName$ = typeName$ + ", Default: Yes";
            ELSE
                typeName$ = typeName$ + ", Default: No";
            END
        END
    END
    PRINT {ITALIC} TAB(45), "(" + typeName$ + ")", NL;
    first!=FALSE;
  END

  IF first! THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Projekt neobsahuje žádné uživatelské parametry.",NL;
  END

  PRINT NL;

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\23761782.htm	(C) microTOOL GmbH 2002