Додаток Б

Програма запуску через форму 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