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
GenPortName
(OLE Functions for MS Word)

Vytvořeno: 12-08-1995 17:32:44
Poslední změna: 11-28-2002 09:47:27
Determines the name of the element represented by the specified port.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenPortName(Pno%,Ifd$,BYREF Portname$)
BEGIN
/*
  get name of port
*/

  FOR Port WHERE Portno=Pno% AND
                 Function=Ifd$ DO
    IF Datastructure<>"" THEN
      FOR Datastructure WHERE Name=Port.Datastructure DO
        Portname$=CONV$(Boxname);
      END
    ELSIF Entity<>"" THEN
      FOR Entity WHERE Name=Port.Entity DO
        Portname$=CONV$(Boxname);
      END
    ELSE
      FOR Connectionpointset AS CP WHERE Function=Port.Function AND
                                         Setno=Port.Setno DO
        IF Type=1 THEN
          FOR Function WHERE Name=CP.Function DO
            Portname$=CONV$(Boxname);
          END
        ELSIF Type=2 THEN
          FOR Datastructure WHERE Name=CP.Store DO
            Portname$=CONV$(Boxname);
          END
        ELSIF Type=3 THEN
          FOR Eface WHERE Name=CP.Efaceref DO
            Portname$=CONV$(Boxname);
          END
        ELSIF Type=4 THEN
          FOR Entity WHERE Name=CP.Entityref DO
            Portname$=CONV$(Boxname);
          END
        ELSIF Type=5 THEN
          FOR Function WHERE Name=CP.IFunc DO
            Portname$=CONV$(Boxname);
          END
        ELSIF Type=6 THEN
          CALL GenPortname(Portno,Ifd,Portname$);
        ELSIF Type=8 THEN
          Portname$=CONV$(CP.Aliasname);
        END
      END
    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\29898.htm (C) microTOOL GmbH 2002