48337 (Проектирование базы данных "Аптека"), страница 4

2016-07-30СтудИзба

Описание файла

Документ из архива "Проектирование базы данных "Аптека"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48337"

Текст 4 страницы из документа "48337"



Приложение А

ER – схемы базы данных

На рисунке А.1 приведен вариант схемы базы данных до минимизации.

Рисунок - А.1





На рисунке А.2 приведен вариант схемы базы данных после минимизации.

Рисунок - А.2





Приложение Б

Код программы

Код запроса с созданием отчета в Excel представлен на рисунке Б.1 – Б.2.

LOCAL objExcel, lnrow

SELECT clients.name, clients.serial_pas, clients.number_pas, product.name_product, orders.data_zakaza;

FROM clients, orders, product;

INTO CURSOR cur_report;

WHERE (clients.clientid=orders.clientid) AND (orders.data_zakaza="22/01/05") AND (product.name_product="Acer")

objExcel=CreateObject("Excel.Application")

WITH objExcel

.Visible=.T.

.Workbooks.add

.Columns[1].ColumnWidth=20

.Columns[2].ColumnWidth=12

.Columns[3].ColumnWidth=10

.Columns[4].ColumnWidth=15

.Columns[5].ColumnWidth=7

Рисунок - Б.1

.Range("A1:E1").Select

WITH .Selection

.MergeCells=.t.

ENDWITH

WITH .ActiveCell

.Value = "Клиенты"

.Font.Size = 14

ENDWITH

lnrow = 2

SELECT cur_report

SCAN

lnrow = lnrow + 1

.Cells(lnrow,1).value = cur_report.name

.Cells(lnrow,2).value = cur_report.serial_pas

.Cells(lnrow,3).value = cur_report.number_pas

.Cells(lnrow,4).value = cur_report.name_product

.Cells(lnrow,5).value = cur_report.data_zakaza

ENDSCAN

ENDWITH

Рисунок - Б.2

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4144
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее