Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

* close data all

* ON ERROR

* ON SHUTDOWN

* retu

*endif

*-- Instantiate application object. if !directory('temp') md temp endif

do setsetup

*do formclie

RELEASE goApp

PUBLIC goApp goApp=CREATEOBJECT("cApplication")

goapp.appsoft = 0

*goapp.level = ll

*-- Configure application object. otlb=createobject("tlbs")

*Otlb.Dock(0)

Додаток 22 (продовження)

Otlb.Show()

goApp.SetCaption('Рахунок '+alltrim(basesrahs)) goApp.cStartupMenu="MENUMENU.mpr" do form f0000000 beforemm = _mm_ beforeyy = _yy_

*-- Show application.

goApp.Show

*-- Release application.

RELEASE goApp, otlb

*-- Restore default menu.

POP MENU _msysmenu

*-- Restore environment. close table all close data all

ON ERROR

ON SHUTDOWN

RETURN

*******************************************

FUNCTION ErrorHandler(nError,cMethod,nLine)

LOCAL lcErrorMsg,lcCodeLineMsg

WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13)

lcErrorMsg=lcErrorMsg+"Method: "+cMethod

lcCodeLineMsg=MESSAGE(1)

IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line:
"+ALLTRIM(STR(nLine))

IF NOT EMPTY(lcCodeLineMsg)

lcErrorMsg=lcErrorMsg+CHR(13)+lcCodeLineMsg+chr(13)+chr(13)+'При пинити роботу?..'

ENDIF

ENDIF

IF MESSAGEBOX(lcErrorMsg,20,_screen.Caption)#6

RETURN .F. else

QUIT

ENDIF

ENDFUNC

****************************************************

FUNCTION ShutDown

IF TYPE("goApp")=="O" AND NOT ISNULL(goApp)

RETURN goApp.OnShutDown()

ENDIF

Cleanup()

QUIT

Рекомендуем скачать другие рефераты по теме: темы рефератов по информатике, сочинение по русскому.





Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата