|
Структуры баз данных
Caanu
iaa aacu aaiiuo i?ieiaaene?iaaiu e naycaiu ii iie? NOMBIL, i?e?ai iaiie caiene
aacu aaiiuo READERS iiaoo niioaaonoaiaaou ianeieuei caienae ec aacu aaiiuo BOOKS
(naycu "iaia-ni-iiiaeie). 1. Ieii, iieacuaa?uaa aaiiua i eo?niaie
?aaioa e aaia ia?iey. a) Ieii iienea ?eoaoaey ii iiia?o ?eoaoaeuneiai
aeeaoa. a) Ieii iienea eieae e
ieii auai?a eieae ii aaaaaiiui aaiiui. 5. Ioieo iai? "i?iniio?
aie?ieeia". *** Onoaiiaea n?aau SET
HELP OFF DEFINE WINDOW BEGIN FROM 3,15 TO 16,64; @ 1,10 SAY 'ii aenoeieeia "Eioi?iaoeea"' @ 6,2 SAY 'Auiieiee:
nooaaio a?oiiu OE-198 Neai?ia A.A.' DO
CASE ENDCASE SET RELATION TO NOMBIL INTO B COLOR W+/G DOUBL
SHADOW DEFINE WINDOW SELECT FROM 3,2 TO 14,78; TITLE ' I?INIIO? AIE?HEEIA '; DEFINE WINDOW BROWSE1 FROM 0,0 TO 4,79; DEFINE WINDOW NOMER FROM 15,25 TO 18,55; TITLE '
AIAAAEAHEA ?EOAOAE? '; DOUBLE COLOR SCHEME 5
SHADOW DEFINE WINDOW EXIT FROM 16,20 TO 19,60; CLEAR @ 8,28 PROMPT
' AIAAAEOU ?EOAOAE? ' MENU TO M SET BELL ON *** I?ioaao?a
?aniiciaaaiey auai?a a iai? CASE M=4 DO WHILE D=0 @ 1,4 GET A FUNCTION 'ZZZZ' PICTURE '9999'
DEFAULT 0 DO CASE WAIT 'Iiene ii iiia?o '+ALLTRIM(STR(A))+; DEACTIVATE WINDOW NOMER
n=RECNO() SELECT B NAME :H='HACAAHEA':33 ,; NOEDIT
NOAPPEND WINDOW BROWSE ***Ioieo iai? AIAAAEOU
?EOAOAE? @ 1,1 SAY 'O.E.I. ' GET FIOn
DEFAULT SPACE(30) '*H AIAAAEOU;IOIAHA'
SIZE 1,1,4 REPLACE FIO WITH FIOn, ADDR WITH ADDRn,; ENDCASE N=RECCOUNT()+1 @ 3,1 SAY 'HACAAHEA ' GET
NAMEn DEFAULT SPACE(40) @ 8,30 GET
I FUNCTION; .AND.''#ALLTRIM(NAMEn); D=1 DEACTIVATE WINDOW APPEND1 LOCATE FOR
''#ALLTRIM(DTOC(B.DATA,1)).AND.B.DATA<GOMONTH(DATE(),-6) PATH=SYS(5)+CURDIR(SYS(5)) @ 5,1 SAY 'Eiy oaeea:' @ 7,12 EDIT
PATH SIZE 1,24 COLOR ,W+/BG,,,,,,,,W/RB; CASE I=2.OR.LASTKEY()=27
&&Anee <ioiaia> eee ESC ACTIVATE WINDOW SELECT1
.AND.B.DATA<GOMONTH(DATE(),-6) IF
ROW()=17.OR.ROW()=18 ? ALLTRIM(STR(I)),'.
',FIO,' Hiia? aeeaoa: ',NOMBIL DEACTIVATE WINDOW
SELECT1 SET PRINTER TO LPT1 WAIT 'I?eioa? ia aioia!' WINDOW FULL=PATH+FILE &&Ii?aaaeaiea iooe oaeea ***I?ioaao?a cai?ina i auoiaa ec i?ia?aiiu @ 1,12 GET YN FUNCTION; RETURN TEXT 3. ?oiau auaaou eieao ?eoaoae?, ia?ieoa F3 SET CURSOR ON ON KEY LABEL F1 DO F1 @ 3,2
SAY 'AA?AN ' GET ADDRe IF I=1 RETURN @ 0,2 SAY
'?eoaoaeu: '+FIO ***I?ioaao?a ia?aoey eeaaeoe F3 ACTIVATE WINDOW F3 BOTTOM @ 3,3 SAY 'HACAAHEA: ' GET NAME1
DEFAULT SPACE(40) @ 7,3 SAY 'EHA. HIIA?: ' GET INVNOM1 FUNCTION 'ZZZZ' PICTURE
'9999' DEFAULT 0 ***Oi?ie?iaaiea ia?aiaiiie aey iienea
P=P+IIF(EMPTY(NAME1),
'','.AND.NAME=['+(UPPER(SUBSTR(ALLTRIM(NAME1),1,1)); P=P+IIF(EMPTY(INVNOM1),
'','.AND.INVNOM='+STR(INVNOM1)) CASE
(I=1.OR.I=2).AND.P=='.T..AND.NOMBIL=0'
X=1 ALLTRIM(STR(YEAR))+' '+; @ 9,1
SAY 'ESC - IOIAHA; ENTER - AUAI? EHEAE' DEACTIVATE
WINDOW SELECT
INVNOM1=VAL(SUBSTR(H(J),68)) IF !FOUND() ELSE DO
KEY ACTIVATE WINDOW EXIT TOP IF YN=1 WAIT 'A nienea iao eiea!'
WINDOW ON KEY LABEL F2 DO DELETE ***I?ioaao?a auaiaa
eioi?iaoee ia ia?aou e a oaee IF FOUND() A=NOMBIL ? ' ',B.WRITER,B.NAME,' ',B.INVNOM,'
',B.DATA SHOW GET FILE ENABLE SHOW GET J,3 ENABLE IF
LASTKEY()=13 Eino?oeoey ii yenieoaoaoee
i?ia?aiiu Iinea caionea i?ia?aiiu ioe?uaaaony ieii n aaiiuie i i?ia?aiia e
cai?aoeaaaony aaia ia?iey (332087S). Ia ye?ai auaiaeony aeaaiia iai? i?ia?aiiu n
ioieoaie "iiene ?eoaoaey", "aiaaaeou ?eoaoaey", "aiaaaeou eieao", "i?iniio?
aie?ieeia", "auoia". I?e auai?a ioieoa "iiene ?eoaoaey" ia ye?ai auaiaeony
ieii iienea ii iiia?o ?eoaoaeuneiai aeeaoa. Anee iiene ?eoaoaey oniaoiue, oi ia
ye?ai auaiayony iieiua aaiiua ?eoaoaey ,nienie eiea, eioi?ua auee aio auaaiu e
eeaaeoiia iai? n ioieoaie: "iiiiuu", "i?eiyou eieao", "auaaou eieao",
"?aaaeoe?iaaou aaiiua ?eoaoaey". I?e "auaa?a eieae" ia ye?ai auaiaeouny ieii
iienea eieae ii aaaaaiiui aaiiui. Anee aaiiua i eieaa iieiinou? ia ecaanoiu (aia
ecaaiey, aaoi?, iieiia iacaaiea, eiaaioa?iue iiia?), oi ia?aoeai ia eiiieo
"auai?…" ii?ii aua?aou eieao ec nienea eiea ii ia iieiinou? aaaaaiiui aaiiui.
Yoi i?aiu oaiaii, anee ?eoaoaeu ia ciaao anao aaiiuo i ?aeaaiie eieaa. Inoaeuiua
ioieou eeaaeoiiai iai? i?aiu i?inou a eniieuciaaiee. Ia?aoeai eeaaeoe ESCAPE
i?ae?auaaony ?aaioa n ?eoaoaeai e i?iecaiaeony auoia a aeaaiia iai?. I?e
auai?a ioieoa "aiaaaeou ?eoaoaey" ia ye?aia iiyaeyaony ieii, a eioi?ii aaiayony
aaiiua iiaiai ?eoaoaey. Iinea aaiaa, ?eoaoaeu noaiiaeouny eae au "caienaiiui" a
aeaeeioaeo. I?e auai?a ioieoa "i?iniio? aie?ieeia" ia ye?aia iiyaeyaony ieii
cai?ina aey auaiaa eioi?iaoee: "ia ye?ai", "ia i?eioa?", "a oaee". I?e auai?a
"ia ye?ai" eee "ia i?eioa?" i?ienoiaeo auaia eioi?iaoee i aie?ieeao e i eieaao,
eioi?ua "caaie?ae" eiie?aoiue ?eoaoaeu. I?e auai?a "a oaee" a ieia aeoeae?o?ony
iiey cai?ina eiaie oaeea e iooe caiene oaeea, iinea ?aai eioi?iaoey caienuaaaony
a oaee.
| |
