Разработка программы "Ведение основных фондов" для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
do case&&
case k=1
set device to screen
clear
upr=HE
xx=0000
@3,9 say
0.and.kvasys0.and.kvasys<5, kvar(kvasys), ?) color scheme 10
@15,09 to 18,62 double color scheme 10
on key label f1 filer like *.xxx
@16,10 SAY , (0299) GET XX picture 9999 color scheme 5
@17,10 SAY H GET UPR PICTURE XX color scheme 5
@16,64 say F1-
@17,64 say
read
on key label f1 do null
4.or.readkey()=12.or.readkey()=268">if xx=0000.or.val (substr(xx, 1,2))>4.or.readkey()=12.or.readkey()=268
loop
endif
if upr<>
loop
endif
if file (of.dbf).and.file (ofvs.dbf).and.file (ofdv.dbf)
else
@19,1 say H H H H . H
@20,1 say OF.DBF / OFVS.DBF / OFDV.DBF
@21,1 say ! H H HH!!!
q=inkey(0)
loop
endif
if file (arx&xx.\aguo)
@19,1 say H ! H H .?
@20,1 say ! H H HH!!!
q=inkey(0)
loop
endif
if file(aguo)
else
@19,1 say aguo?
@20,1 say ! H H HH!!!
q=inkey(0)
loop
endif
! md arx&xx
copy file aguo to arx&xx.\aguo
! copy *.dbf arx&xx.\*.dbf
delete file of.dbf
rename ofvs.dbf to of.dbf
use ofdv
delete all
pack
use
! COPY *.REZ ARX&XX.\*.REZ
use ofsys
repl mectek with gomonth (mectek, 3)
mecsys=month(mectek)
REPL KVATEK WITH IIF (KVATEK=4,1, KVATEK+1)
kvasys=kvatek
use
clear
@ 3,13 to 20,63 double
@18,18 SAY H H!!! color scheme 5
@20,30 say H +kvar(kvasys) color scheme 10
@22,18 SAY H HH color scheme 5
q=inkey(0)
case k=2
************************************************************
* H ofdv *
************************************************************
set device to screen
do while.t.
clear
@8,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@6,10 SAY H HH H
set color to +w/b,+gr/g
@ 10,10 prompt 1. //. browse
@ 12,10 prompt 2. H.H browse
@ 14,10 prompt 3. H H append
@ 18,10 prompt 4. H
@ 20,10 prompt Q.
menu to kl
do case
case kl=1
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on str (kodpr, 1) to ofdv
keyboard {ctrl+f10}
browse fields kodpr:h=./.;
dcex:h=;
tabnom:h=.;
dbal:h= ;
invnom:h=.N;
dvvoda:h=. ;
stoim:h=.;
isntek:h=H;
naim:h=HHH;
title H. F1 H nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=2
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on dbal+invnom to ofdv
keyboard {ctrl+f10}
browse fields kodpr:h=./.;
dcex:h=;
tabnom:h=.;
dbal:h= ;
invnom:h=.N;
dvvoda:h=. ;
stoim:h=.;
isntek:h=H;
naim:h=HHH;
title H. F1 H nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=3
use ofdv
set format to vvodofdv
append
pack
set format to
case kl=4
do oskontdv
case kl=5.or.kl=0
exit
endcase
enddo
close databases
loop
case k=3
***********************************************************
* HH H of *
***********************************************************
set device to screen
pr=
@ 5,40 get pr function M H ., H .;
message H COLOR SCHEME 5
read
if readkey()=12.or.readkey()=268
loop
endif
pr=iif (pr=H ., , vs)
pr=alltrim(pr)
if! file (of&pr..dbf)
@5,54 say H ! color scheme 5
?? replicate (chr(7), 3)
q=inkey(1)
loop
endif
kl=0
do while.t.
clear
@6,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@4,10 SAY HH&