Курсовая работа: Учет товаров в фирме по продаже аудиотехники

DELETE FILE video. idx

DELETE FILE nosit. idx

DELETE FILE post. idx

USE video

INDEX ON tip_nosit TO video COMPACT

USE nosit

INDEX ON tip_nosit TO nosit COMPACT

USE post

INDEX ON kod_post TO post COMPACT

USE video IN A INDEX video

USE nosit IN B INDEX nosit

USE post IN C INDEX post

SELECT A

SET RELATION TO tip_nosit INTO B

SET RELATION TO kod_post INTO C

ON KEY LABEL Ctrl+PgUp GO TOP

ON KEY LABEL Ctrl+PgDn GO BOTTOM

ON KEY LABEL Ctrl+Q DO EndProc WITH 1

DEFINE WINDOW MainWindow FROM 0,0 TO 24,79 IN SCREEN;

TITLE ' Справочник "ВИДЕО КИОСК" ';

DOUBLE SHADOW FILL '-' COLOR GR+/N

DEFINE WINDOW ViewWindow FROM 0,0 TO 21,77;

IN WINDOW MainWindow;

DOUBLE CLOSE FLOAT GROW ZOOM

DEFINE WINDOW HintWindow FROM 22,0 TO 22,77 IN WINDOW MainWindow;

NONE COLOR GR+/GR

DEFINE WINDOW HelpWindow FROM 5,17 TO 16,63;

TITLE ' ПОМОЩЬ ' COLOR W+/G

DEFINE WINDOW PrintWindow FROM 5,8 TO 19,67;