я сильно не извращался

public ok
ok=.f.

вставил модальную форму до создания объекта aplication

которая через free "user.dbf" которая лежит где EXE
передает login и menu.mpr, caption и т.п.

если на форме нажат cancel - ok=.f.
if ok=.f.
quit
endif


PUBLIC goApp
goApp=CREATEOBJECT("cApplication")

cMenu=allt(user.menu)

goApp.cStartupMenu="cMenu"

можно как в 1с раньше еще одну форму, которая окроет бызу
где ложит таблица интерфесов и если ok=.f. close database all