Формирование баз данных по учёту планов и остатков сырья в цехе (FoxPro)
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
2
3
**** SREDC
SET date german
SET TALK OFF
SET scoreboard off&& NumLock, CapsLock Insert
SET SAFETY OFF&&
SET STATUS OFF
SET DELETED ON
SET ESCAPE OFF
load colwind1
pv=.F.
DO WHILE.T.
? SYS(2002)&& /
DO rbox
SET COLOR TO +w/b
@ 8,19,15,57 box
SET COLOR TO n/w,+w/br
@ 9,20 say .
@ 10,20 prompt 1.
@ 11,20 prompt 2. . . .
@ 12,20 prompt 3.
@ 13,20 prompt 4.
@ 14,20 prompt 5.
menu to r
DO case
CASE r=1
SET COLOR TO +w/b
DO vdat
DO vposc
CASE r=2
SET COLOR TO +w/b
DO voskl
CASE r=3
SET COLOR TO +w/b
DO rasc
CASE r=4
SET COLOR TO +w/b
DO pechat
CASE r=5
SET COLOR to+w/b
CLOSE ALL
? SYS (2002,1)
QUIT
ENDCASE
enddo
PROCEDURE vdat
CLOSE ALL
CLEAR
DO WHILE.T.
SELECT 2
USE rsc INDEX gr
SELECT 1
USE porp INDEX gr
mes1=mes
@ 1,10 say get mes1 pict xxxxxxxx
? SYS (2002,1)
READ
DO vix
IF pv
CLEAR
return to master
ENDIF
CLEAR
IF mes#mes1
@ 9,10 say .
@ 10,10 say
@ 10,35 say mes pictxxxxxxxx
@ 11,19,13,60 box
SET COLOR TO n/w,+w/br
@ 12,20 prompt
@ 12,40 prompt
menu to r
IF r=2
SET COLOR TO +w/b
CLEAR
? SYS (2002,1)
LOOP
ENDIF
IF r=1
DO WHILE.not.sof()
REPLACE mes WITH mes1, plan WITH 0, potr with o
*repl mes with mes1, potr with 0
REPLACE ostc WITH ostc1, cenc WITH cenc1
SKIP
ENDDO
SELECT 2
DO while.not. EOF()
REPLACE ostc1 WITH 0, cenc1 wiyh 0, kv WITH 0, sym1 WITH 0, src WITH 0, rasx WITH 0, srcrac WITH 0, cens WITH 0
SKIP
ENDDO
SELECT 1
ENDIF
ENDIF
EXIT
ENDDO
CLEAR
SET COLOR TO +w/b
return
procedure VPOSC
CLEAR
GO top
@ 24,0 say ENTER PgDn- PgUp Ctrl/ End / Esc Home
DEFINE WINDOW okn1;
from 0,0;
TO 23,79;
COLOR SCHEME 10
ACTIVATE WINDOW okn1
KEYBOARD {Backtab}+{tab}
BROWSE TITLE ;
field nceh:h=. :w=.f.;
nsr:h=. :w=.F.;
ism:h=. :W=.f.;
kod:h=;
plan:h=;
rasn:h=. .;
ostc:h=. ;
cenc:h=;
lock 3:
color scheme 10
DEACTIVATE WINDOW okn1
PROCEDURE voskl
CLOSE ALL
CLEAR
@ 24,0 say Enter- PgDn- PgUp Ctrl/End / Esc Home .
USE it INDEX iitog
DEFINE WINDOW okn1;
from 0,0;
TO 23,79;
COLOR SCHEME 10
ACTIVATE WINDOW okn1
KEYBOARD {Backtab}+{tab}
BROWSE TITLE ;
FIELDS nsr:h=. : W=.f.;
ism:h=.: W=.f.;
ostckl:h=. .;
censkl:h=;
kv:h= .;
src:h=. .;
rasx:h=. .;
LOCK 2;&&
COLOR SCHEME 10
DEACTIVATE WINDOW okn1