Anonymous

clear
set safe off
set talk off
set date to DMY
set clock on

use munc
index on nume tag inume
index on salariu tag isalariu
index on vechime tag ivechime

define window main from 0,0 to 24,79 title 'Muncitori'
define menu m
define window bx from 10,25 to 20,55 title 'Operatiuni' shadow

define popup muncitori from 1,0 to 5,16
define bar 1 of muncitori prompt 'Adaugare'
define bar 2 of muncitori prompt 'Modificare'
define bar 3 of muncitori prompt 'Stergere'
on sele bar 1 of muncitori do adauga
on sele bar 2 of muncitori do modifica
on sele bar 3 of muncitori do sterge

define popup afisari from 1,18 to 6,34
define bar 1 of afisari prompt 'Dupa functie D'
define bar 2 of afisari prompt 'Dupa salariu C'
define bar 3 of afisari prompt 'Individual'
define bar 4 of afisari prompt 'Salariul mediu'
on sele bar 1 of afisari do af_fd
on sele bar 2 of afisari do af_sc
on sele bar 3 of afisari do af_in
on sele bar 4 of afisari do af_med

define popup iesire from 1,36 to 4,52
define bar 1 of iesire prompt 'Din program'
define bar 2 of iesire prompt 'Din FoxPro'
on sele bar 1 of iesire do iesire_p
on sele bar 2 of iesire do iesire_f

define pad p1 of m prompt 'Muncitori      '
define pad p2 of m prompt 'Afisari        '
define pad p3 of m prompt 'Iesire         '
on sele pad p1 of m activate popup muncitori
on sele pad p2 of m activate popup afisari
on sele pad p3 of m activate popup iesire


s=.t.
do while s
activate window main
activate menu m
enddo

procedure iesire_p
s=.f.
deactivate menu m
deactivate window main
release windows
return

procedure iesire_f
quit
return

procedure adauga
hide popup muncitori
activate window bx
clear
accept 'Nume: ' to num
input 'Salariu: ' to sal
input 'Vechime: ' to vec
accept 'Calificat? (d/n) ' to cal
?'Datele ce vor fi introduse:'
?
?'Nume: '
??num
?'Salariu: '
??sal
?'Vechime: '
??vec
if cal = 'd'
?'Calificat.'
else
?'Necalificat.'
endif
?
accept 'Datele sunt corecte? (d/n) ' to ok
wait ''
deactivate window bx
deactivate popup muncitori
return

procedure modifica
hide popup muncitori
activate window bx
clear
accept 'Cautare dupa nume: ' to caut
locate for Nume = caut
if found()
?'Se modifica inregistrarea '
??recno()
??': '
gasit = 1
else
?'Nimic gasit.'
gasit = 0
endif

if gasit = 1
accept 'Nume: ' to nnum
input 'Salariu: ' to nsal
input 'Vechime: ' to nvec
accept 'Calificat? (d/n) ' to ncal
?'Datele ce vor fi suprascrise:'
?
?'Nume: '
??nnum
?'Salariu: '
??nsal
?'Vechime: '
??nvec
if ncal = 'd'
?'Calificat.'
else
?'Necalificat.'
endif
?
accept 'Datele sunt corecte? (d/n) ' to ok
if ok = 'd'
replace nume with nnum, salariu with nsal, vechime with nvec
if ncal = 'd'
replace calificat with .T.
else 
replace calificat with .F.
endif
endif

else
wait 'nimic.'
endif
deactivate window bx
deactivate popup muncitori
return