efox.gif (1606 bytes)Для разработчиков VFP

Структура приложения

Иснструментальные средства "EvnFox"

EvnFox home

Vallmind home

Основной программой в проекте обычно является PRG со следующим содержанием:

*********************************************************************
*                                                                   *
*                                                                   *
*                    Accounting system "EVENTS"                     *
*                                                                   *
*                            Version 2.0                            *
*                                                                   *
*                    (c) A.Evsikow 1992 - 2005                      *
*                                                                   *
*                                                                   *
*********************************************************************

#Include \_proclib\einclude.h

lParameters m.Cmd

Local    m._Cmd,    I,    m.LSet_File

Set ClassLib to main,eobjects,eclient

m.LSet_File    = ''

I    = 0
if not Empty (m.Cmd)
    I    = At ('=',m.Cmd)
    if I > 0
        m._Cmd    = Upper (Alltrim (SubStr (m.Cmd,1,I-1)))
        Do Case
            Case m._Cmd = 'LSET'
                m.LSet_File    = Alltrim (SubStr (m.Cmd,I+1))
                m.Cmd    = ''
        EndCase
    else
        DO Case
            Case UPPER(ALLTRIM(m.Cmd)) = 'SETUP'
                SET PROCEDURE TO ERemPLib Additive
                m.Cmd            = 'Set Default to ' + E_Path(FULLPATH(SYS(16)))
                &Cmd
                m.Cmd            = ''
                m.__Setup_App__    = .T.
        EndCase
    endif
endif
    
* Создается приложение - наследник класса e_client_application библиотеки eclient
m.App    = CreateObject ('events_application',,,,,m.LSet_File)
if Type ('m.App') = 'O'
    if not Empty (m.Cmd)
        &Cmd
    endif
    Read Events
endif
Release m.App

Procedure GetApplicationType
    m.App_Type            = 'AS "EVENTS" 2.0 (c) A.Evsikow'
    m.Basurman_Based    = .T.
    m.SimpleApp_Based    = .F.
Return

*********************************************************************
*                                                                    *
*                                                                    *
*                                Events routines                        *
*                                                                    *
*                                                                    *
*********************************************************************

*    Далее - глобальные процедуры и функции приложения

Основной функционал собран в классах e_application библиотеки emain и e_client_application библиотеки eclient .


См. в интернет:    Долина разума    Система учета "Events"     Рассчеты с населением за газ    Предприниматель     Инструментальные средства "EvnFox"    www.vallmind.ru    EasySQL4Fox    ECalcPad    VMZipper    Святая трезвость    Трезвая Россия