Программирование в среде VisualFoxPro. Создание базы данных «Зоопарк», страница 3

if reccount("detachment") > 0

            SELECT MAX(id) FROM detachment INTO ARRAY tmp

else

            tmp[1] = -1

endif

INSERT INTO detachment VALUES (tmp[1]+1, thisform.text.value)

thisform.text.value=""

thisform.list.refresh

Код метода Click кнопки «Очистить»:

thisform.text.value=""

Код метода Click кнопки «Удалить»:

if val(thisform.list.value) >= 0

            RECALL ALL

            DELETE FROM detachment WHERE id=val(thisform.list.value)

            pack

            thisform.list.refresh

endif

Добавлениевида животных:

Рис. 16. Форма добавление вида.

Код метода Click кнопки «Добавить»:

public tmp(2)

if reccount("kind") > 0

            SELECT MAX(id) FROM kind INTO ARRAY tmp

else

            tmp[1] = -1

endif

INSERT INTO kind (id, name, location, unique, detachment_id) VALUES (tmp[1]+1, thisform.kind.value, thisform.location.value, val(thisform.unique.value), val(thisform.detachment.value))

thisform.kind.value=""

thisform.location.value=""

thisform.unique.value=""

thisform.list.refresh

Код метода Click кнопки «Очистить»:

thisform.kind.value=""

thisform.location.value=""

thisform.unique.value=""

Код метода Click кнопки «Удалить»:

if val(thisform.list.value) >= 0

            RECALL ALL

            DELETE FROM kind WHERE id=val(thisform.list.value)

            pack

            thisform.list.refresh

endif

Добавлениепродукта:

Рис. 17. Форма добавление продукта.

Код метода Click кнопки «Добавить»:

public tmp(2)

if reccount("products") > 0

            SELECT MAX(id) FROM products INTO ARRAY tmp

else

            tmp[1] = -1

endif

INSERT INTO products VALUES (tmp[1]+1, thisform.text.value)

thisform.text.value=""

thisform.list.refresh

Код метода Click кнопки «Очистить»:

thisform.text.value=""

Код метода Click кнопки «Удалить»:

if val(thisform.list.value) >= 0

            RECALL ALL

            DELETE FROM products WHERE id=val(thisform.list.value)

            pack

            thisform.list.refresh

endif

Добавлениепоставщика:

Рис. 18. Форма добавление поставщика.

Код метода Click кнопки «Добавить»:

public tmp(2)

if reccount("suppliers") > 0

            SELECT MAX(id) FROM suppliers INTO ARRAY tmp

else

            tmp[1] = -1

endif

INSERT INTO suppliers VALUES (tmp[1]+1, thisform.text.value)

thisform.text.value=""

thisform.list.refresh

Код метода Click кнопки «Очистить»:

thisform.text.value=""

Код метода Click кнопки «Удалить»:

if val(thisform.list.value) >= 0

            RECALL ALL

            DELETE FROM suppliers WHERE id=val(thisform.list.value)

            pack

            thisform.list.refresh

endif

Добавлениепоставки:

Рис. 19. Форма добавление поставки.

Код метода Click кнопки «Добавить»:

public tmp(2)

if reccount("deliveries") > 0

            SELECT MAX(id) FROM deliveries INTO ARRAY tmp

else

            tmp[1] = -1

endif

INSERT INTO deliveries (id, cost, product_id, supplier_id) VALUES (tmp[1]+1, val(thisform.cost.value), val(thisform.product.value), val(thisform.supplier.value))

thisform.cost.value=""

SELECT Products.name, Suppliers.name, Deliveries.cost, Deliveries.id;

 FROM  data1!deliveries LEFT OUTER JOIN data1!products;

    LEFT OUTER JOIN data1!suppliers ;

   ON  Deliveries.supplier_id = Suppliers.id ;

   ON  Deliveries.product_id = Products.id ;

   INTO ARRAY delivs

thisform.list.refresh

Код метода Click кнопки «Очистить»:

thisform.cost.value=""

Код метода Click кнопки «Удалить»:

if val(thisform.list.value) >= 0

            RECALL ALL

            DELETE FROM deliveries WHERE id=val(thisform.list.value)

            pack

endif

pack

SELECT Products.name, Suppliers.name, Deliveries.cost, Deliveries.id;

 FROM  data1!deliveries LEFT OUTER JOIN data1!products;

    LEFT OUTER JOIN data1!suppliers ;

   ON  Deliveries.supplier_id = Suppliers.id ;