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
GetOperationName
(Administration)

Vytvořeno: 01-14-1997 08:24:44
Poslední změna: 12-10-2002 13:56:56
Auxiliary Function: Converts a number into the permission as string.
Modul

Module: Administration

Zdrojový kód:

PROCEDURE GetOperationName(objecttype$, operation%, BYREF permission$)
BEGIN
    IF objecttype$="System" THEN
        IF operation%=2 THEN
            permission$="restore";
        ELSIF operation%=3 THEN
            permission$="import";
        ELSIF operation%=4 THEN
            permission$="edit file types";
        ELSIF operation%=5 THEN
            permission$="edit dialog-/menu elements";
        ELSIF operation%=6 THEN
            permission$="edit text templates";
        ELSIF operation%= 7 THEN
            permission$="edit states";
        ELSIF operation%=8 THEN
            permission$="edit system settings";
        ELSIF operation%=9 THEN
            permission$="edit user-defined properties";
        ELSIF operation%= 10 THEN
            permission$="execute review operations";
        ELSIF operation%=11 THEN
            permission$="synchronize ER/relational model";
        END
     ELSIF objecttype$="Configuration" THEN
        IF operation%=2 THEN
            permission$="create";
        ELSIF operation%=3 THEN
            permission$="edit state";
        ELSIF operation%=4 THEN
           permission$="assign person responsible";
        ELSIF operation%=5 THEN
            permission$="define properties";
        ELSIF operation%=6 THEN
            permission$="delete";
        ELSIF operation%=7 THEN
            permission$="freeze";
        END
     ELSIF objecttype$="Enterprisedatamodel" THEN
        IF operation%=2 THEN
            permission$="create";
        ELSIF operation%=3 THEN
           permission$="edit state";
        ELSIF operation%=4 THEN
           permission$="assign person responsible";
        ELSIF operation%=5 THEN
            permission$="define properties";
        ELSIF operation%=6 THEN
            permission$="edit";
        END
    ELSE
        IF operation%=2 THEN
           permission$="create";
        ELSIF operation%=3 THEN
           permission$="edit state";
        ELSIF operation%=4 THEN
           permission$="assign person responsible";
        ELSIF operation%=5 THEN
           permission$="define properties";
        ELSIF operation%=6 THEN
           permission$="delete";
        ELSIF operation%=7 THEN
           permission$="edit";
        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\1425.htm (C) microTOOL GmbH 2002