Разработка автоматизированного рабочего места менеджера торговой фирмы

UNION ALL;

SELECT * FROM изготовлено a WHERE a.дата = date2 AND a.день =.T. and &filter1 INTO CURSOR заказ_query1

SELECT заказ_query1

ThisForm. Grid1. RecordSource = [SELECT продукция, sum (кол_во) as Количество, ед_изм, цех, принял;

FROM заказ_query1 GROUP BY продукция, принял INTO CURSOR заказ_query]

ENDCASE

*!*ThisForm. Grid1. RecordSource = [SELECT продукция, sum (кол_во) as Количество, ед_изм, цех, принял;

*!*FROM изготовлено a WHERE &filter1 GROUP BY продукция, принял INTO CURSOR заказ_query]

GO TOP IN заказ_query

ThisForm. Refresh

ThisForm. Grid1. SetFocus

Ниже приведена процедура используемая в наряд-заказе.

mTime = TIME()

* Если не забыли указать сотрудника принявшего заказ и выбрана смена (ДЕНЬ-НОЧЬ)

IF! EMPTY (ThisForm. Combo3. Value) AND ThisForm. Optiongroup1. Value # 0

* Продукция в приход на пекарню

INSERT INTO изготовлено (дата, день, время, цех, продукция, кол_во, ед_изм, принял);

VALUES

(date1, IIF (ThisForm. Optiongroup1. Value=1.T..F.), mTime, AliasName, ALLTRIM (продукция. продукция), ThisForm. Text1. Value;

IIF (SEEK(ALLTRIM (продукция. продукция), 'продукция', 'продукция'), продукция. ед_изм, ''), сотрудники.fio)

* Продукция в приход на склад

INSERT INTO sklad (дата, time, пост, title, edenizm, quantity, edenizm, прод);

VALUES (date1, mTime, AliasName,&TableName2..продукция,&TableName2..ед_изм,&TableName2..кол_во;

IIF (SEEK(ALLTRIM (&TableName2..продукция), 'продукция', 'продукция'), продукция. ед_изм, '').T.)

* Разноска на приход в пекарню

SELECT svod1

SCAN

INSERT INTO &TableName4 (дата, день, время, продукция, id, сырье, кол_во, ед_изм, принял);

VALUES (date1, IIF (ThisForm. Optiongroup1. Value=1.T..F.), mTime, продукция. продукция, svod1.N, svod1.сырье, svod1.количество;

IIF (SEEK(ALLTRIM (svod1.сырье), 'table2', 'сырье'), table2.ед_изм, '');

сотрудники.fio)

ENDSCAN

This. Enabled =.F.

ThisForm. Text1. Enabled =.F.

ELSE

MESSAGEBOX([Не указан сотрудник принявший заказ или смена], 0+64, [Внимание!])

* Блокировка кнопок

This. Enabled =.T.

ThisForm. Text1. Enabled =.T.

ENDIF

GO TOP

ThisForm. Optiongroup1. InteractiveChange

ThisForm. Refresh

ThisForm. Combo4. SetFocus

Процедура формирования карточки наряд-заказа.

SELECT a.цех, a.продукция, a.кол_во, a. Ед_изм, b.сырье, b.кол_во, b.ед_изм FROM изготовлено a, pek_ras_сырье b WHERE a.дата = date1 AND b.дата = date1 AND a.цех = ALLTRIM (ThisForm. Combo1. Value) INTO CURSOR наряд_заказ_печ READWRITE

SELECT наряд_заказ_печ

INDEX ON продукция TAG продукция

INDEX ON сырье TAG сырье

DELETE ALL

** Сырье с разбивкой на цеха

SELECT &TableName4

SET ORDER TO сырье

SET FILTER TO дата = date1

SCAN

IF SEEK (ALLTRIM(&TableName4..сырье), 'наряд_заказ_печ', 'сырье')

REPLACE наряд_заказ_печ. кол_во_b WITH наряд_заказ_печ. кол_во_b + &TableName4..кол_во

ELSE

INSERT INTO наряд_заказ_печ (цех, сырье, кол_во_b, ед_изм_b);

VALUES (AliasName, &TableName4..сырье, &TableName4..кол_во, &TableName4..ед_изм)

ENDIF

ENDSCAN

* Продукция

SELECT изготовлено

SET ORDER TO ПРОДУКЦИЯ

SET FILTER TO дата = date1 AND цех = ALLTRIM (ThisForm. Combo1. Value)

GO TOP IN наряд_заказ_печ

SCAN

IF SEEK (ALLTRIM(изготовлено. продукция), 'наряд_заказ_печ', 'продукция')

REPLACE наряд_заказ_печ. кол_во_a WITH наряд_заказ_печ. кол_во_a + изготовлено. кол_во

ELSE

SELECT наряд_заказ_печ

SCAN

IF EMPTY (наряд_заказ_печ. продукция) AND наряд_заказ_печ. цех = изготовлено. цех AND! EOF()

REPLACE наряд_заказ_печ. цех WITH изготовлено. цех

REPLACE наряд_заказ_печ. продукция WITH изготовлено. продукция

REPLACE наряд_заказ_печ. кол_во_a WITH изготовлено. кол_во

REPLACE наряд_заказ_печ. ед_изм_a WITH изготовлено. ед_изм

EXIT

ENDIF

ENDSCAN

IF EOF()

INSERT INTO наряд_заказ_печ (цех, продукция, кол_во_a, ед_изм_a);

VALUES (изготовлено. цех, изготовлено. продукция, изготовлено. кол_во, изготовлено. ед_изм)

ENDIF

ENDIF

ENDSCAN

SELECT наряд_заказ_печ

SET ORDER TO 0

REPORT FORM nar_zakaz_kartochka PREVIEW

Процедура добавления фактических остатков в цех магазина.

PUBLIC mday, medit

mday =.F.

medit=.f.

* Меню

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(), MCOL()

DEFINE BAR 1 OF shortcut PROMPT «День»

DEFINE BAR 2 OF shortcut PROMPT «Ночь»

ON SELECTION BAR 1 OF shortcut mday =.T.

ON SELECTION BAR 2 OF shortcut mday =.F.

ACTIVATE POPUP shortcut

* Через переменные

ThisForm. Pageframe1. Ост_фак. Container1. Visible =.T.

* Деактивация кнопок добавления и удаления фактического остатка

ThisForm. Command5. Enabled =.F.

ThisForm. Command6. Enabled =.F.

ThisForm. Refresh

ThisForm. Pageframe1. Ост_фак. Container1. Text1. Value = DATE()

ThisForm. Pageframe1. Ост_фак. Container1. Combo1. Value = ''

ThisForm. Pageframe1. Ост_фак. Container1. Text2. Value = 0

ThisForm. Pageframe1. Ост_фак. Container1. Text3. Value = ''

ThisForm. Pageframe1. Ост_фак. Container1. SetFocus

Процедура вычисления количественного расчета.

SET CURSOR OFF

WAIT [Идут вычисления]+CHR(13)+[Пожалуйста подождите] WINDOW NOWAIT

ThisForm. Label18. Caption = 'КОЛИЧЕСТВЕННЫЙ отчет ' + otv_fio + ' за период с '+ DTOC(date1) + ' по ' + DTOC(date2)

mReport = 'Количественный'

SELECT kalk

SCAN

REPLACE kalk.кол_во WITH 0

REPLACE kalk.сумма WITH 0

ENDSCAN

* Формируем список сырья и цен

SELECT table2

SCAN

INSERT INTO количественный (наим, цена) VALUES (table2.сырье, table2.цена)

ENDSCAN

* Сформировали

* Действия по шагам

* 1 шаг Расчет остатка на начало

* 2 шаг Расчет прихода и расхода

* 3 шаг Расчет реализ. продукции за указ. период согласно калькуляции

* 4 шаг Расчет «Остатка на конец»

* 1 шаг

* Расчет остатка на начало

SELECT количественный

SET FILTER TO IN количественный

kol = 0

kol_r = 0

SCAN

* Приход на начало периода

SELECT sklad

SET FILTER TO sklad.дата < date1 && IN sklad

LOCATE FOR sklad.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad.quantity

CONTINUE

ENDDO

* Расход на начало периода

SELECT sklad_р

SELECT * FROM sklad_р WHERE sklad_р.дата <= date1-1;

UNION ALL;

SELECT all * FROM sklad_р WHERE sklad_р.дата = date1 AND день =.T. INTO CURSOR расход_со_склада

SELECT расход_со_склада

LOCATE FOR расход_со_склада.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol_r = kol_r + расход_со_склада.quantity

CONTINUE

ENDDO

* Остаток на начало периода

SELECT количественный && Заносим в отчет

Replace количественный. ост_кол WITH kol - kol_r && остаток,

Replace количественный. ост_сум WITH (kol - kol_r)* количественный. цена && сумму

kol = 0

kol_r = 0

ENDSCAN

* Рассчитали

* 2 шаг

* Расчет прихода и расхода

SELECT количественный

kol = 0

kol_r = 0

SCAN

* Приход на склад сырья за указанный период

SELECT sklad

SET FILTER TO sklad.дата >= date1 AND sklad.дата <= date2

LOCATE FOR sklad.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad.quantity

CONTINUE

ENDDO

SELECT количественный && Заносим в отчет

Replace количественный. пр_кол WITH kol && В отчет кол-во

Replace количественный. пр_сум WITH kol * количественный. цена && В отчет сумму прихода

* Расход со склада сырья за указанный период

SELECT sklad_р

* SET FILTER TO sklad_р.дата >= date1 AND sklad_р.дата <= date2 AND sklad_р.реал =.f.

SELECT * FROM sklad_р WHERE sklad_р.дата = date1 AND день =.F. AND реал =.F.;

UNION ALL;

SELECT * FROM sklad_р WHERE sklad_р.дата >= date1+1 AND sklad_р.дата <= date2-1 AND реал =.F.;

UNION ALL;

SELECT * FROM sklad_р WHERE sklad_р.дата = date2 AND день =.T. AND реал =.F. INTO CURSOR расход_со_склада

SELECT расход_со_склада

LOCATE FOR расход_со_склада.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol_r = kol_r + расход_со_склада.quantity

CONTINUE

ENDDO

SELECT количественный

Replace количественный. рас_кол WITH kol_r && В отчет кол-во

Replace количественный. рас_сум WITH kol_r * количественный. цена && В отчет сумму расхода

kol = 0

kol_r = 0

ENDSCAN

* Рассчитали

* 3 шаг

* Здесь расчет реализ. продукции за указ. период согласно калькуляции

Select sklad_р

Set Order To 1 && TITLE

Set Filter To sklad_р.дата >= date1 AND sklad_р.дата <= date2 AND реал =.t.

* Расчитанная согласно кальк. реализованная продукция в отчет

SELECT количественный

kol = 0

SCAN

* Приход на склад сырья за указанный период

SELECT sklad_р

LOCATE FOR sklad_р.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad_р.quantity

CONTINUE

ENDDO

SELECT количественный && Заносим в отчет

Replace количественный. реал_кол WITH kol && В отчет кол-во

Replace количественный. реал_сум WITH kol * количественный. цена && В отчет сумму прихода

kol = 0

ENDSCAN

* Расчитали согласно калькуляции реализованную продукцию и отправили в отчет

* 4 шаг

* Расчет «Остатка на конец»

SELECT количественный

SCAN

* количество

REPLACE количественный. остат_кол WITH количественный. ост_кол + количественный. пр_кол - количественный. рас_кол - количественный. реал_кол

* сумма

REPLACE количественный. остат_сум WITH количественный. ост_сум + количественный. пр_сум - количественный. рас_сум - количественный. реал_сум

ENDSCAN

*Рассчитали

* Фильтруем нулевые значения

*SET FILTER TO количественный. ост_кол <> 0 OR количественный. пр_кол <> 0 OR количественный. рас_кол <> 0

*SET FILTER TO количественный. остат_кол <> 0

CALCULATE sum (количественный. ост_кол) TO ThisForm. TxtОстКол. Value

CALCULATE sum (количественный. ост_сум) TO ThisForm. TxtОстСумма. Value

CALCULATE sum (количественный. пр_кол) TO ThisForm. TxtПрКол. Value

CALCULATE sum (количественный. пр_сум) TO ThisForm. TxtПрСумма. Value

CALCULATE sum (количественный. рас_кол) TO ThisForm. TxtРасКол. Value

CALCULATE sum (количественный. рас_сум) TO ThisForm. TxtРасСумма. Value

CALCULATE sum (количественный. реал_кол) TO ThisForm. TxtРеалКол. Value

CALCULATE sum (количественный. реал_сум) TO ThisForm. TxtРеалСумма. Value

CALCULATE sum (количественный. остат_кол) TO ThisForm. TxtОстатКол. Value

CALCULATE sum (количественный. остат_сум) TO ThisForm. TxtОстатСумма. Value

SET ORDER TO наим

GO TOP IN количественный

ThisForm. Refresh

WAIT CLEAR

Ниже приведена процедура вычисления сличительного расчета.

WAIT [Идут вычисления]+CHR(13)+[Пожалуйста подождите] WINDOW NOWAIT

ThisForm. Label18. Caption = 'СЛИЧИТЕЛЬНАЯ ведомость ' + otv_fio + ' за период с '+ DTOC(date1) + ' по ' + DTOC(date2)

mReport = 'Сличительная'

SELECT kalk

SCAN

REPLACE kalk.кол_во WITH 0.0000

REPLACE kalk.сумма WITH 0.0000

ENDSCAN

* Формируем список сырья и цен

SELECT table2

SCAN

INSERT INTO количественный (наим, цена) VALUES (table2.сырье, table2.цена)

ENDSCAN

* Сформировали

* Действия по шагам

* 1 шаг Расчет остатка по отчету

* 2 шаг Расчет фактического сырья на складе по ревизии

* 3 шаг

* 1 шаг расчет остатка по отчету

* Расчет остатка на начало

SELECT количественный

SET FILTER TO IN количественный

kol = 0

kol_r = 0

SCAN

* Приход на начало периода

SELECT sklad

SET FILTER TO sklad.дата < date1 && IN sklad

LOCATE FOR sklad.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad.quantity

CONTINUE

ENDDO

* Расход на начало периода

SELECT sklad_р

SELECT * FROM sklad_р WHERE sklad_р.дата <= date1-1;

UNION ALL;

SELECT * FROM sklad_р WHERE sklad_р.дата = date1 AND день =.T. INTO CURSOR расход_со_склада

SELECT расход_со_склада

LOCATE FOR расход_со_склада.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol_r = kol_r + расход_со_склада.quantity

CONTINUE

ENDDO

* Остаток на начало периода

SELECT количественный && Заносим в отчет

Replace количественный. ост_кол WITH kol - kol_r && остаток,

Replace количественный. ост_сум WITH (kol - kol_r)* количественный. цена && сумму

kol = 0

kol_r = 0

ENDSCAN

* Рассчитали

* Расчет прихода и расхода

SELECT количественный

kol = 0

kol_r = 0

SCAN

* Приход на склад сырья за указанный период

SELECT sklad

SET FILTER TO sklad.дата >= date1 AND sklad.дата <= date2

LOCATE FOR sklad.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad.quantity

CONTINUE

ENDDO

SELECT количественный && Заносим в отчет

Replace количественный. пр_кол WITH kol && В отчет кол-во

Replace количественный. пр_сум WITH kol * количественный. цена && В отчет сумму прихода

* Расход со склада сырья за указанный период

SELECT sklad_р

* SET FILTER TO sklad_р.дата >= date1 AND sklad_р.дата <= date2 AND sklad_р.реал =.f.

SELECT * FROM sklad_р WHERE sklad_р.дата = date1 AND день =.F. AND реал =.F.;

UNION ALL;

SELECT * FROM sklad_р WHERE sklad_р.дата >= date1+1 AND sklad_р.дата <= date2-1 AND реал =.F.;

UNION ALL;

SELECT * FROM sklad_р WHERE sklad_р.дата = date2 AND день =.T. AND реал =.F. INTO CURSOR расход_со_склада

SELECT расход_со_склада

LOCATE FOR расход_со_склада.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol_r = kol_r + расход_со_склада.quantity

CONTINUE

ENDDO

SELECT количественный

Replace количественный. рас_кол WITH kol_r && В отчет кол-во

Replace количественный. рас_сум WITH kol_r * количественный. цена && В отчет сумму расхода

kol = 0

kol_r = 0

ENDSCAN

* Рассчитали

* Здесь расчет реализованной продукции за указ. период согласно калькуляции

SELECT sklad_р

SET ORDER TO 1 && TITLE

SET FILTER TO sklad_р.дата >= date1 AND sklad_р.дата <= date2 AND реал =.T.

* Рассчитанная согласно кальк. реализованная продукция в отчет

SELECT количественный

kol = 0

SCAN

* Приход на склад сырья за указанный период

SELECT sklad_р

LOCATE FOR sklad_р.title = ALLTRIM (количественный. наим)

DO WHILE FOUND()

kol = kol + sklad_р.quantity

CONTINUE

ENDDO

SELECT количественный && Заносим в отчет

Replace количественный. реал_кол WITH kol && В отчет кол-во

Replace количественный. реал_сум WITH kol * количественный. цена && В отчет сумму прихода

kol = 0

ENDSCAN

* Расчитали согласно кальк. реализованную продукцию и отправили в отчет

* Расчет ОСТАТКА НА КОНЕЦ

SELECT количественный

SCAN

* количество

REPLACE количественный. остат_кол WITH количественный. ост_кол + количественный. пр_кол - количественный. рас_кол - количественный. реал_кол

* сумма

Replace количественный. остат_сум WITH количественный. ост_сум + количественный. пр_сум - количественный. рас_сум - количественный. реал_сум

ENDSCAN

* Рассчитали остаток по отчету

* Переносим остаток по отчету из количественного в сличительную ведомость

SCAN

INSERT INTO сличительная (наим, цена, остат_кол, остат_сум) VALUES (количественный. наим, количественный. цена, количественный. остат_кол, количественный. остат_сум)

ENDSCAN

* 2 шаг Расчет фактического сырья на складе по ревизии

SELECT ревизия

SET FILTER TO ревизия. дата >= date1 AND ревизия. дата <= date2 AND ревизия. прод =.F.

SELECT сличительная

kol = 0.0000

kol_r = 0.0000

SCAN

* Приход на склад сырья за указанный период

SELECT ревизия

LOCATE FOR ALLTRIM (ревизия. наим) == ALLTRIM (сличительная. наим)

DO WHILE FOUND()

kol = kol + ревизия. кол_во

CONTINUE

ENDDO

SELECT сличительная

&& Заносим в отчет

Replace сличительная. фсыр_кол WITH kol && В отчет кол-во

&& В отчет сумму прихода

Replace сличительная. фсыр_сум WITH kol * сличительная. цена

kol = 0.0000

kol_r = 0.0000

ENDSCAN

* Рассчитали

* 3 шаг * Расчет излишков и недостачи

SELECT сличительная

SCAN

IF сличительная. остат_кол - сличительная. фсыр_кол < 0

REPLACE сличительная. излиш_кол WITH сличительная. фсыр_кол - сличительная. остат_кол

REPLACE сличительная. излиш_сум WITH (сличительная. фсыр_кол - сличительная. остат_кол) * сличительная. цена

ENDIF

IF сличительная. остат_кол - сличительная. фсыр_кол > 0

REPLACE сличительная. недост_кол WITH сличительная. остат_кол - сличительная. фсыр_кол

REPLACE сличительная. недост_сум WITH (сличительная. остат_кол - сличительная. фсыр_кол) * сличительная. цена

ENDIF

ENDSCAN

* расчет по столбцам

CALCULATE sum (сличительная. остат_кол) TO ThisForm. TxtОстКол. Value

CALCULATE sum (сличительная. остат_сум) TO ThisForm. TxtОстСумма. Value

CALCULATE sum (сличительная. фсыр_кол) TO ThisForm. TxtРасКол. Value

CALCULATE sum (сличительная. фсыр_сум) TO ThisForm. TxtРасСумма. Value

CALCULATE sum (сличительная. недост_кол) TO ThisForm. TxtРеалКол. Value

CALCULATE sum (сличительная. недост_сум) TO ThisForm. TxtРеалСумма. Value

CALCULATE sum (сличительная. излиш_кол) TO ThisForm. TxtОстатКол. Value

CALCULATE sum (сличительная. излиш_сум) TO ThisForm. TxtОстатСумма. Value

GO TOP IN количественный

SELECT сличительная

SET ORDER TO наим

GO TOP

ThisForm. Refresh

Список использованной литературы

1 Трудовой Кодекс Республики Казахстан (с изменениями и дополнениями по состоянию на 17.02.2012 год);

2 Генкин Б.М. Экономика и социология труда. Учебник для вузов, 1998. 384 с.

3 Организация и нормирование труда. Учебник для вузов/ Под ред. Ю.Г. Одегова - М.: Издательство «Экзамен», 2003. - 464 с.;

4 Рофе А.И. Организация и нормирование труда: Учебник для вузов. - М.: Издательство «МИК», 2003. - 368 с.

5 Зудина Л.Н. Организация управленческого труда: Учеб. пособие. - М.: ИНФРА-М; Новосибирск: НГАЭ и У, 1997. - 256 с.;

6 Егоршин А.П., Зайцев А.К. Организация труда персонала: Учебник. - М.: ИНФРА-М, 2008. - 320 с.;

7 Зудина Л.Н. Организация управленческого труда: Учеб. пособие. - М.: ИНФРА-М; Новосибирск: НГАЭ и У, 1997. - 256 с.;

8 Хомоненко А.Д., Цыганков В.М, Мальцев М.Г. Базы данных. /Учебник для вузов. - СПб.: Корона-принт, 2002.

9 Григорьев Ю.А., Ревунков Г.И. Банки данных. / Учебник для вузов. - М.: Издательство МГТУ им. И.Э. Баумана, 2002.

10 Дейт К. Введение в системы баз данных. /Пер. с англ. - М.: Вильямс, 2001.

11 Когаловский М-Р. Энциклопедия технологий баз данных. - М.: Финансы и статистика, 2002.

12 Мейер Д. Теория реляционных баз данных. Alep. с англ, - М.: Мир, 1987.

13 Хансен Г., Хансен Д. Базы данных. Разработка и управление. /Пер. с англ. - М.: Бином, 2000.

14 Гарсиа-Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. /Пер. с англ.-М.: Вильямс, 2003.

15 Сичкаренко В.А. SQL-99. Руководство разработчика баз данных. - СПб-ДиаСофт, 2002.

16 Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. - СПб.: Питер, 1997.

17 Мамаев Е.В. Microsoft SQL Server. - СПб.: БХВ-Санкт-Петербург, 2001.

18 Пэддок Р., Петерсен Дж., Тэлмейдж Р., Ренфт Э. Visual FoxPro 6. Разработка корпоративных приложений. / Пер- с англ. - М.: ДМК, 1999.

19 Омельченко Л. Самоучитель Visual FoxPro 7.0. - СПб.: БХВ - Сапкт-Петсрбург, 2002.

20 Бэлсон Дон, Гокмен Марк, Ингрем Джонатан. Внутренний мир ORACLE 8. Проектирование и настройка. /Пер. с англ. - К.: ДиаСофт, 2000.

21 Фролов А., Фролов Г. Базы данных в Интернете: практическое руководство по созданию Web-приложений с базами данных. - М.: Русская редакция, 2000.

22 Мещеряков А.Е., Хомоненко А.Д. Публикация баз данных в Интернете. - СПб.: БХВ-Санкт-Петербург, 2001.

23 Харрингтон Дж. Проектирование объектно-ориентированных баз данных. -/Пер. с англ. - М.: ДМК, 2001.

24 Цикритзис Д., Лоховски Ф. Модели данных. - М: Финансы и статистика, 1985.

25 Бойко В.В., Савинков B.В. Проектирование баз данных информационных систем. - М: Финансы и статистика, 1989.

26 Замулин А. Системы программирования баз данных и знаний. - Новосибирск: Наука. Сибирское отделение, 1990.

27 Дейт К. Введение в системы баз данных. - M: Мир, 1980.

28 Тиори Т., Фрай Дж. Проектирование структур баз данных в двух книгах. - М: Мир, 1985.

29 «Руководство разработчика баз данных». Шумаков, Фаронов.

30 «SQL Server 7.0» Ю. Тихомиров.

31 Бемер. С. FoxPro 2.6 для Windows. - Киев.: ВHV, 1995.

32 Long Jeb. FoxPro 2.6 for Windows. - Sams Pudlishing, 1994.

33 А.А. Попов. FoxPro 2.5/2.6. Создание приложений для FoxPro в DOS и Windows. ООО «ДЕСС». M.1997.

34 Попов А.А. Программирование в среде СУБД 2.0. Построение систем обработки данных. М., Радио и связь, 1994.

35 Четвериков В.Н., Ревунков Г.И., Самохвалов Э.Н. Базы и банки данных. М., Высшая школа, 1987.

36 Лес Принтер. Разработка приложений в Microsoft FoxPro 2.5. M., TOO ЭДЕЛЬ, 1995.

37 FoxPro. Language Refrence. - Microsoft Corp., 1994.

38 Каратыгин С.А., Тихонов А.Ф., Тихонова Л.Н. Программирование в FoxPro для Windows на примерах. - М.: Бином, 1995.

39 Бакуменко Л.П., Кудрявцева Ж.А. dBase. Практический курс для начинающих. Йошкар - Ола, 1991.

40 Тони Лима. Введение в dBaseIV.M., Радио и связь, 1993.

Размещено на Allbest.ru

...