Разработка программы "Ведение основных фондов" для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
224; F1-F12
on key LABEL F2 do null
on key LABEL F3 do null
on key LABEL F4 do null
on key LABEL F5 do null
on key LABEL F6 do null
on key LABEL F7 do null
on key LABEL F8 do null
on key LABEL F9 do null
on key LABEL F10 do null
on key LABEL F11 do null
on key LABEL F12 do null
dimension kvar(4), kvarr(5)&&
dimension amec(12), amecc(13), kom(10)
dimension gru(100), object(100), podo(100)
SET DELE ON
define window okno1 from -1, 1 to 25,81 color scheme 5&&
define window okno2 from 5,35 to 22,78 title shadow color scheme 5
define window okno3 from 10, 1 to 22,80;
title shadow color scheme 5
on error
datab=dtoc (date())
*******************************************
gru=
object=
podo=
use kodgrupp
do while! eof()
=100">if kod=100
skip
loop
endif
gru(kod)=naim
skip
enddo
use kodobj
do while! eof()
=100">if kobject=100
skip
loop
endif
object(kobject)=naimobj
podo(kobject)=podot
skip
enddo
*******************************************
kvar(1)=I &&
kvar(2)=II
kvar(3)=III
kvar(4)=IV
kvarr(1)=I
kvarr(2)=II
kvarr(3)=III
kvarr(4)=IV
kvarr(5)=I
amec(1)=
amec(2)=
amec(3)=
amec(4)=
amec(5)=
amec(6)=
amec(7)=
amec(8)=
amec(9)=
amec(10)=
amec(11)=H
amec(12)=
amecc(1)=
amecc(2)=
amecc(3)=
amecc(4)=
amecc(5)=
amecc(6)=
amecc(7)=
amecc(8)=
amecc(9)=
amecc(10)=
amecc(11)=H
amecc(12)=
amecc(13)=
j=0
clear
set device to screen&&
set color to
text
-
H HH H
endtext
@ 0,0 to 24,78 double
set color to gr+/w
@ 6,12 to 20,64 double
set color to gr+/rb
@ 4,10 to 22,66 double
set color to gr+/rb
@ 8,14 to 18,62 double
set color to GR+/b
@18,18 say dmy (date()) color scheme 5
i=0
do while.t.&&
@ 18,51 say time() color scheme 5
i=i+1
q=inkey(1)
do case
case q=27
clear
do xquit
case q<>0
exit
endcase
enddo
sk=1
if! file (ofsys.dbf)
@23,27 say H OFSYS.DBFтАж.
q=inkey(1)
do xquit
endif
use ofsys
x=sys(2020)
i=0
parol=0
do while i<len(x)
i=i+1
parol=parol+val (substr(x, i, 1))**10
enddo
if file (parol.prg).or.file (parol.fxp)
do parol
endif
if type(sysmaska)<>U
delete file parol.fxp
delete file parol.prg
delete file osnfond.prg
endif
xparol=
if round (parol, 0)<>round (constx, 0)
@23,27 say H тАж.
xparol=H
q=inkey (0.5)
quit
endif
mecsys=month(mectek)
kvasys=kvatek
close databases
if diskspace()<2000000
@20,3 say H !!! ! ( > 2 Mb) color scheme 5
?? replicate (chr(7), 3)
q=inkey(0)
do xquit
endif
do while.t.
set device to screen&&
clear
@ 0,0 to 24,78 double
set color to +w/b,+gr/g
@ 1,8 to 23,72 double
set color to +r/b,+gr/g
@1,18 say H H H color scheme 10
0.and.kvasys0.and.kvasys<5, kvar(kvasys), ?) color scheme 10
set color to +w/b,+gr/g
@ 3,10 prompt 1. H
@ 4,10 prompt 2. H OFDV.DBF
@ 5,10 prompt 3.
@ 6,10 prompt 4. HH
@ 7,10 prompt 5.
@ 8,10 prompt 6.
@ 9,10 prompt 7. H
@10,10 prompt 8. H HH
@ 11,10 PROMPT 9.
@ 12,10 prompt A. H FORMA.REZ
@ 13,10 prompt B.
@ 14,10 prompt C.
@ 15,10 prompt D.
@ 16,10 prompt E. HH
@ 18,10 prompt F. H OFVS.DBF
@ 20,10 prompt G.
@ 21,10 prompt H.
@ 22,10 prompt Q.
menu to k