Создание и заполнение базы данных "Агент", страница 5

                        select surname, goods_name, model, suppler, producer, weight, outputdate;

                        sale_date, cost;

                        from agent;

                        inner join goods on agent.goods_id=goods.goods_id;

                        inner join producers on producers.produce_id=goods.produce_id;

                        inner join supplers on supplers.suppler_id=goods.suppler_id;

                                               where cost>=thisform.cost1.value AND;

                                                              cost<=thisform.cost2.value AND;

                                                              surname=thisform.c2_agent.value

ENDCASE

7.  Все товары заданного производителя.

select goods_name, model, suppler, producer, weight, outputdate;

                        from goods;

                           inner join producers on producers.produce_id=goods.produce_id;

                           inner join supplers on supplers.suppler_id=goods.suppler_id;

                                                           where producer = thisform.producer.value;

8.  Все товары с заданной датой выпуска

select goods_name, model, suppler, producer, weight, outputdate;

                        from goods;

                           inner join producers on producers.produce_id=goods.produce_id;

                           inner join supplers on supplers.suppler_id=goods.suppler_id;

                                                           where year(outputdate)=thisform.yy.value AND;

                                                                         month(outputdate)=thisform.mm.value AND;

                                                                         day(outputdate)=thisform.dd.value

9.  Все товары с заданным интервалом веса для заданного производителя и в целом.

10.  Доля товара за определенный период

select SUM(num) as SUM from agent;

                  inner join goods on goods.goods_id=agent.goods_id;

                              where model = thisform.enter_goods_model.value;

                              into cursor cur_sum1

thisform.sale_all.value=cur_sum1.SUM

----------------------------------------------------------------------------------------------------

select SUM(num) as SUM from agent;

                  inner join goods on goods.goods_id=agent.goods_id;

                              where model = thisform.enter_goods_model.value AND;

                                         sale_date>=thisform.sale_date1.value AND;

                                         sale_date<=thisform.sale_date2.value;

                                         into cursor cur_sum2

thisform.sale_period.value=cur_sum2.SUM

----------------------------------------------------------------------------------------------------

thisform.sale_part.value=thisform.sale_period.value/thisform.sale_all.value

Пример работы программы

Выводы

В ходе выполнения расчетно-графической работы были закреплены (и  приобретены  новые) навыки работы в среде Microsoft Visual FoxPro 6. Получен опыт в проектировании баз данных, работы с ними посредством запросов на языке SQL, а также опыт в разработке средств управления базами данных.

Также были закреплены навыки работы с меню (Command, Submenu, Procedure) и средствами форм (Command Button, Text Box, Combo Box, Grid, Option group, Check Box, Spinner и многие другие.), полученные на лабораторных работах. Улучшилось понимание взаимодействия форм (as top-level, in top-level).

Литература

1.  Электронный учебник "Программирование в среде Visual FoxPro™". С.Федоров, НГТУ, АВТФ, 2003г.

2.  Справка Microsoft Visual FoxPro6.