Додаток Б
Програма запуску через форму vvod (з паролями), з використанням класів, з встановленням шляхов та відкриттям системних таблиць system.
Main.prg
set classlib to my_lib
public obj,name_user,name_pass,vv,user_level
name_user=" "
name_pass=" "
vv=.f.
user_level=4
do form vvod
if vv
obj=createobject("my_klac")
obj.my_menu="menu1.mpr"
obj.my_data="data1"
obj.my_run
endif
clear all
close data all
release all extended
set safety off
set talk off
*set date german
*set deleted on
*set century on
set exclusive on
set classlib to my_form
_screen.WindowState=2
public catalog,catalog1,baz,cc,m_kod,ikod_pr,cser
cc=1
cser=" "
ikod_pr=0
m_kod=1001
*data_sr=ctod('10.02.2002')
*if data_sr+25>date()
close database all