forum.clarionlife.net

Код: Выделить всё

    PROGRAM
    INCLUDE('Keycodes.CLW')
    INCLUDE('Errors.CLW')

    MAP
Main            PROCEDURE
BrowseFormView  PROCEDURE
    END


Coridors   FILE,DRIVER('TopSpeed'),PRE(COR)
!corTLkey  KEY(COR:numTL),DUP,NOCASE
Rec2       RECORD
numCor      LONG
numTL       LONG
nameCor     STRING(40)
region      STRING(20)
lenCor      LONG
widCor      LONG
           END  
          END        

TLView     FILE,DRIVER('TopSpeed'),PRE(TLV),CREATE  
!TLVTLkey  KEY(TLV:numCor),NOCASE,OPT
Rec3       RECORD
numCor      LONG
numTL       LONG
nameCor     STRING(40)
region      STRING(20)
napr        SHORT
cepn        BYTE
lenCor      LONG
widCor      LONG
           END  
          END        


    CODE
    Main  

!-----------------------------------------------------
Main   PROCEDURE
AppFrame APPLICATION('Формирование VIEW'),AT(,,280,200),SYSTEM,RESIZE,MAX
      MENUBAR
       MENU('&File'),USE(?File)
         ITEM('Создать View'),USE(?FileFormView)
         ITEM,SEPARATOR
         ITEM('E&xit'),USE(?FileExit),STD(STD:Close)
       END
      END
     END

    CODE
    OPEN(AppFrame)
    ACCEPT
     CASE ACCEPTED()
     OF ?FileFormView
      START(BrowseFormView,55000)
     END
   END

BrowseFormView PROCEDURE
varnapr SHORT
varcepn BYTE
   CODE

   OPEN(Coridors)
   RecCors# = RECORDS(Coridors)
   MESSAGE('Число записей in Coridors = ' & RecCors#)

   CLOSE(Coridors)
   return