База данных сети аптек

Министерство образования и науки Украины

Кафедра Специализированных Компьютерных Систем

Пояснительная записка

к курсовой работе по дисциплине

«Организация баз данных»

Разработал: ст. гр.

KarDer

Проверил:

СОДЕРЖАНИЕ

Реферат……………………………………………………………………..3

Введение……………………………………………………………………5

1 Системный анализ предметной области………………………………6

2 Проектирование инфологической модели предметной области ……8

3 Рисунки, иллюстрирующие графический интерфейс взаимодействия пользователя с программным обеспечением………………………………….9

Список используемой литературы………………………………….……12

Приложение А Скрипт создания доменов……………………………13

Приложение Б Схема связи таблиц ……………………………………14

Приложение В Скрипты создания базы данных……………………15

Приложение Г Пример заполнения предварительными данными таблиц базы данных…………………………………………………………..18

Приложение Д Листинг формы администратор (Admin)…………..19

РЕФЕРАТ

Пояснительная записка - 24с., количество источников -2.

Целью выполнения курсовой работы является расширение и углубление знаний и навыков в управлении базами данных, освоение механизмов создания и использования баз данных.

В процессе выполнения курсовой работы необходимо:

разобраться с механизмом создания базы данных;

всесторонне оценить поставленную задачу и определить оптимальные пути ее решения;

составить алгоритмы работы программного обеспечения;

продумать структуру программы и интерфейс общения с пользователем.

Темы курсовых работ предлагаются кафедрой в соответствии с типовыми программами дисциплин по данной специальности. Распределение тем между студентами осуществляет преподаватель по вариантам. Студент может самостоятельно выбрать тему курсовой работы, предварительно согласовав ее с преподавателем.

Подбор литературы студентам следует проводить самостоятельно, используя рекомендуемую литературу, и периодические издания.

ТАБЛИЦА, БАЗА ДАННЫХ, ТРАНЗАКЦИЯ, ЗАПРОС, ДОБАВЛЕНИЕ И УДАЛЕНИЕ ДАННЫХ, ПЕРВИЧНЫЙ И ВТОРИЧНЫЙ КЛЮЧИ.

ВВЕДЕНИЕ

Целью моей курсовой работы является создание базы данных для быстрого поиска нужного препарата. Аптеки находятся в разных городах. Так же возможно наличие в одном городе нескольких аптек. В каждой аптеки существуют различные назначение препаратов, по которым и разбиты все препараты.

В своей работе я собираюсь решить такие задачи:

· заносить в базу данные по каждому параметру данные о препарате, аптек (Название препарата, кто его занес в базу, цена, комментарии, адрес аптек, город, назначение препарата):

· заносить данные по городам, аптекам;

· сделать возможность просмотра и редактирования базы данных препаратов;

· сделать программу устойчивой к любым ошибкам;

· создавать отчеты в универсальном виде, для просмотра данных на компьютере без моего программного продукта (это может быть текстовый документ Word);

· сделать понятный и привычный для пользователя интерфейс.

Более подробно задачи рассмотрены в системном анализе предметной области.

Для написания программы я буду использовать следующее программное обеспечение:

- MS WINDOWS XP SP2:

- MS VISUAL BASIC 6.0;

- BORLAND INTERBASE 6.5;

- GEMINI INTERBASE ODBC DRIVER 2.0.

1 СИСТЕМНЫЙ АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ

Нам необходимо создать программу для просмотра каталога препаратов в различных аптеках разных городов.

У нас в базе должны отображаться следующие таблицы:

- должна быть таблица, которая характеризует каталог препаратов:

a) Уникальный номер препарата;

b) Филиал;

c) Аптека;

d) Назначение;

e) Название;

f) Автор;

g) Цена;

h) Комментарии.

- должна быть таблица, характеризующая филиалы:

a) Уникальный номер филиала;

b) Название (напр. Алчевск, Перевальск).

- нужна таблица для характеристики аптеки:

a) Уникальный номер аптеки;

b) Адрес.

- нужна таблица для характеристики назначение:

a) Уникальный номер;

b) Назначение;

- должна быть таблица для пользователей, которые вносят изменение в таблицы:

a) Уникальный номер администратора;

b) ФИО;

c) Адрес;

С нашей базой данных будут работать два вида сотрудников - это администраторы и пользователи. Отличие между ними будет в том, что пользователь может только искать нужные препараты и просматривать каталог, сохранять отчет в текстовом виде, а администратор может еще добавлять/удалять новые объекты и редактировать существующие.

Для администратора должны быть доступны следующие задачи:

· Добавление, редактирование и удаление нового города;

· Добавление, редактирование и удаление новой аптеки;

· Добавление, редактирование и удаление препаратов из каталога;

Совместно для администратора и оператора должны быть решены следующие задачи:

· Просмотр всего каталога препаратов;

2 ПРОЕКТИРОВАНИЕ ИНФОЛОГИЧЕСКОЙ МОДЕЛИ ПРЕДМЕТНОЙ ОБЛАСТИ

Для перехода от предметной области к конкретной модели базы данных нам необходимо выделить столбцы для каждой таблицы и написать скрипты для их создания на сервере базы данных.

Для начала необходимо создать домены типов базы данных. В моей базе данных будет несколько доменов, которые приведены в таблице 2.1.

Таблица 2.1 - Домены базы данных

Имя домена	Описание применения
NAME_CHAR	Для полей с названиями.
INT_COUNT	Для различных числовых полей и счетчиков.
NAME_STRING	Для текстовых полей (автор)

Скрипты создания доменов приведены в приложении А.

В приложении Б приведена схема связи в таблицах (первичный и вторичный ключи).

В приложении В приведены скрипты создания базы данных в InterBase Client 6.5.

В приложении Г приведены примеры заполнения предварительными данными таблицы базы данных.

3 РИСУНКИ, ИЛЛЮСТРИРУЮЩИЕ ГРАФИЧЕСКИЙ ИНТЕРФЕЙС ВЗИМОДЕЙСТВИЯ ПОЛЬЗОВАТЕЛЯ С ПРОГРАММНЫМ ОБЕСПЕЧЕНИЕМ

Рисунок 3.1 - Главная форма пользовательского приложения

Рисунок 3.2 - Главная форма администратора



Рисунок 3.3 - Выбор пользователя

Рисунок 3.4 - Форма добавления или редактирования препаратов из каталога

Рисунок 3.5 - Форма добавления или редактирования данных (город, аптека)

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Кнут Д. Искусство пргораммирования на ЭВМ. Т.3. - М.: Мир, 1978

2. Райманс Х.Г. Вводный курс Visual Basic 6.0: пер. с нем. - К.:BHV,1993

3. Браун С. Visual Basic 6. Учебный курс.: пер. с англ. - СПб.: Питер, 2001

Приложение А

Скрипт создания доменов

CREATE DOMAIN "NAME_CHAR" AS VARCHAR(100)

NOT NULL;

CREATE DOMAIN "INT_COUNT" AS INTEGER

NOT NULL;

CREATE DOMAIN "NAME_STRING" AS VARCHAR(200);

CREATE DOMAIN "DATADOMEN" AS TIMESTAMP

DEFAULT 'NOW'

NOT NULL;

Приложение Б

Схема связи таблиц

Рисунок Б.1 - Иллюстрация связи между таблицами в базе данных

Приложение В

Скрипты создания базы данных

CREATE TABLE "FILIAL"

(

"FILIAL_ID" "INT_COUNT",

"CITY" "NAME_CHAR",

PRIMARY KEY ("FILIAL_ID")

);

CREATE TABLE "APTEKA"

(

"APTEKA_ID" "INT_COUNT",

"ADRES" "NAME_CHAR",

PRIMARY KEY ("APTEKA_ID")

);

CREATE TABLE "NAZNACH"

(

"NAZNACH_ID" "INT_COUNT",

"TITLE" "NAME_CHAR",

PRIMARY KEY ("NAZNACH_ID")

);

CREATE TABLE "AVTOR"

(

"AVTOR_ID" "INT_COUNT",

"FIO" "NAME_CHAR",

"ADRESS" "NAME_CHAR",

PRIMARY KEY ("AVTOR_ID")

);

CREATE TABLE "PRODUCT"

(

"PRODUCT_ID" "INT_COUNT",

"ID_FILIAL" "INT_COUNT",

"ID_APTEKA" "INT_COUNT",

"ID_NAZNACH" "INT_COUNT",

"NAME" "NAME_CHAR",

"ID_AVTOR" "INT_COUNT",

"PRICE" "NAME_CHAR",

"COMMENTS" "NAME_STRING",

PRIMARY KEY ("PRODUCT_ID")

);

ALTER TABLE "PRODUCT" ADD FOREIGN KEY ("ID_FILIAL") REFERENCES FILIAL ("FILIAL_ID");

ALTER TABLE "PRODUCT" ADD FOREIGN KEY ("ID_APTEKA") REFERENCES APTEKA ("APTEKA_ID");

ALTER TABLE "PRODUCT" ADD FOREIGN KEY ("ID_NAZNACH") REFERENCES NAZNACH ("NAZNACH_ID");

ALTER TABLE "PRODUCT" ADD FOREIGN KEY ("ID_AVTOR") REFERENCES AVTOR ("AVTOR_ID");

Приложение Г

Пример заполнения предварительными данными таблиц базы данных

/*-----------------------------------------------------------------------------*/

/* ЗАПОЛНЕНИЕ ПРЕДВАРИТЕЛЬНЫМИ ДАННЫМИ ТАБЛИЦЫ АПТЕК*/

INSERT INTO APTEKA (APTEKA_ID, ADRES) VALUES (1,'Lipovenko 19-2');

INSERT INTO APTEKA (APTEKA_ID, ADRES) VALUES (2,'Pervokonnaya 1b');

INSERT INTO APTEKA (APTEKA_ID, ADRES) VALUES (3,'Zemnyxova 151');

INSERT INTO APTEKA (APTEKA_ID, ADRES) VALUES (4,'Griwkova 16');

INSERT INTO APTEKA (APTEKA_ID, ADRES) VALUES (5,'Zadorojnogo 5a');

/*-----------------------------------------------------------------------------*/

/* ЗАПОЛНЕНИЕ ПРЕДВАРИТЕЛЬНЫМИ ДАННЫМИ ТАБЛИЦЫ ФИЛИАЛОВ*/

INSERT INTO FILIAL (FILIAL_ID, CITY) VALUES (1,'Alchevsk');

INSERT INTO FILIAL (FILIAL_ID, CITY) VALUES (2,'Perevalsk');

INSERT INTO FILIAL (FILIAL_ID, CITY) VALUES (3,'Lygansk');

INSERT INTO FILIAL (FILIAL_ID, CITY) VALUES (4,'Staxanov');

/*------------------------------------------------------------------------------*/

/* ЗАПОЛНЕНИЕ ПРЕДВАРИТЕЛЬНЫМИ ДАННЫМИ ТАБЛИЦЫ НАЗНАЧЕНИЕ ПРЕПАРАТОВ*/

INSERT INTO NAZNACH (NAZNACH_ID, TITLE) VALUES (1,'Abezbalivayuwee');

INSERT INTO NAZNACH (NAZNACH_ID, TITLE) VALUES (2,'Vitaminu');

INSERT INTO NAZNACH (NAZNACH_ID, TITLE) VALUES (3,'Kontraceptivu');

INSERT INTO NAZNACH (NAZNACH_ID, TITLE) VALUES (4,'Mazi');

INSERT INTO NAZNACH (NAZNACH_ID, TITLE) VALUES (5,'Protivovospolitelnue');

/*-----------------------------------------------------------------------------*/

/* ЗАПОЛНЕНИЕ ПРЕДВАРИТЕЛЬНЫМИ ДАННЫМИ ТАБЛИЦЫ АВТОР*/

insert into AVTOR values(1,'Leonova Yulya Sergeevna','pr. Lenina 20-16');

insert into AVTOR values(2,'Leonov Pavel Sergeevich','pr. Lenina 20-16');

/*------------------------------------------------------------------------*/

/* ЗАПОЛНЕНИЕ ПРЕДВАРИТЕЛЬНЫМИ ДАННЫМИ ТАБЛИЦЫ ПРОДУКТЫ*/

insert into PRODUCT values(1,1,1,1,'Takoeto',2,16,'Neploxoe sredstvo');

insert into PRODUCT values(2,2,2,2,'Kakoeto',1,11,'Neochen` xorowee');

insert into PRODUCT values(3,3,4,2,'Strannoe',1,15,'Otlichnoe, naverno');

insert into PRODUCT values(4,1,2,3,'Xorowee',2,5,'Fig ego znaet');

Приложение Д

Листинг формы администратор (Adm)

Option Explicit

Dim j As Integer

Dim i As Integer

Dim a, b As String

Private sSQL As String

Private Sub Command1_Click()

Load addFILIAL

addFILIAL.Command2.Visible = False

addFILIAL.Show

End Sub

Private Sub Command10_Click()

Adm.Hide

Vxod.Show

Unload Me

End Sub

Private Sub Command2_Click()

addFILIAL.EDIT (Val(LV1.SelectedItem.Text))

End Sub

Private Sub Command3_Click()

Dim a As Integer

Dim b As Integer

a = LV1.SelectedItem.Index

If LV1.ListItems.Count = "1" Then

MsgBox "Это последняя запись, удаление невозможно"

Else

For b = 1 To LV3.ListItems.Count

If LV3.ListItems.Item(b).SubItems(1) = LV1.ListItems.Item(a).SubItems(1) Then

MsgBox "Существует связь, удаление невозможно"

Exit For

Else

If b = LV3.ListItems.Count Then

sSQL = "delete from FILIAL where FILIAL_ID=" + LV1.SelectedItem.Text + ";"

rsX.Open sSQL, cnX, adOpenKeyset, adLockOptimistic, adCmdText

OPtimumFILIAL

Else

End If

End If

Next b

End If

End Sub

Private Sub Command4_Click()

Load addAPTEKA

addAPTEKA.Command2.Visible = False

addAPTEKA.Show

End Sub

Private Sub Command5_Click()

addAPTEKA.EDIT (Val(LV2.SelectedItem.Text))

End Sub

Private Sub Command6_Click()

Dim a As Integer

Dim b As Integer

a = LV2.SelectedItem.Index

If LV2.ListItems.Count = "1" Then

MsgBox "Это последняя запись, удаление невозможно"

Else

For b = 1 To LV3.ListItems.Count

If LV3.ListItems.Item(b).SubItems(2) = LV2.ListItems.Item(a).SubItems(1) Then

MsgBox "Существует связь, удаление невозможно"

Exit For

Else

If b = LV3.ListItems.Count Then

sSQL = "delete from APTEKA where APTEKA_ID=" + LV2.SelectedItem.Text + ";"

rsX.Open sSQL, cnX, adOpenKeyset, adLockOptimistic, adCmdText

OPtimumAPTEKA

Else

End If

End If

Next b

End If

End Sub

Private Sub Command7_Click()

Load addPRODUCT

addPRODUCT.Command2.Visible = False

addPRODUCT.Show

End Sub

Private Sub Command8_Click()

If LV3.ListItems.Count = "0" Then

MsgBox "Нет данных для этого действия"

Else

addPRODUCT.EDIT (Val(LV3.SelectedItem.Text))

End If

End Sub

Private Sub Command9_Click()

Dim X As Integer

X = MsgBox("Вы уверены что хотите удалить данные", vbQuestion + vbYesNo + vbDefaultButton2)

If X = 6 Then

If LV3.ListItems.Count = "1" Or LV3.ListItems.Count = "0" Then

MsgBox "Это последняя запись, удаление невозможно"

Else

sSQL = "delete from PRODUCT where PRODUCT_ID=" + LV3.SelectedItem.Text + ";"

rsX.Open sSQL, cnX, adOpenKeyset, adLockOptimistic, adCmdText

OPtimumPRODUCT

End If

Else

End If

End Sub

Private Sub Form_Load()

Modul.Main

If Vxod.Text1.Text = "1" Then

Picture1.Visible = True

End If

If Vxod.Text1.Text = "2" Then

Picture2.Visible = True

End If

LV3.View = lvwReport

LV3.ColumnHeaders.Add , , "№", LV3.Width / 18

LV3.ColumnHeaders.Add , , "Филиал", LV3.Width / 11

LV3.ColumnHeaders.Add , , "Адрес", LV3.Width / 6

LV3.ColumnHeaders.Add , , "Назначение", LV3.Width / 6

LV3.ColumnHeaders.Add , , "Название", LV3.Width / 10

LV3.ColumnHeaders.Add , , "Администратор", LV3.Width / 5

LV3.ColumnHeaders.Add , , "Цена", LV3.Width / 15

LV3.ColumnHeaders.Add , , "Коментарии", LV3.Width / 7

sSQL = "SELECT PRODUCT_ID,CITY,ADRES,TITLE,NAME,FIO,PRICE,COMMENTS "

sSQL = sSQL + "FROM PRODUCT,FILIAL,APTEKA,AVTOR,NAZNACH "

sSQL = sSQL + "WHERE ID_FILIAL=FILIAL_ID AND ID_APTEKA=APTEKA_ID AND ID_NAZNACH=NAZNACH_ID AND ID_AVTOR=AVTOR_ID "

sSQL = sSQL + "ORDER BY PRODUCT_ID"

FillListPRODUCT sSQL

LV1.View = lvwReport

LV1.ColumnHeaders.Add , , "№", LV1.Width / 6

LV1.ColumnHeaders.Add , , "Город", LV1.Width / 2

sSQL = "SELECT FILIAL_ID,CITY FROM FILIAL ORDER BY FILIAL_ID"

FillListFILIAL sSQL

LV2.View = lvwReport

LV2.ColumnHeaders.Add , , "№", LV2.Width / 6

LV2.ColumnHeaders.Add , , "Адрес", LV2.Width / 2

sSQL = "SELECT APTEKA_ID,ADRES FROM APTEKA ORDER BY APTEKA_ID"

FillListAPTEKA sSQL

Dim itmX As ListItem

sSQL = "SELECT FIO,ADRESS FROM AVTOR"

rsX.Open sSQL, cnX, adOpenDynamic, adLockPessimistic, adCmdText

LV11.ListItems.Clear

Do While Not rsX.EOF

Set itmX = LV11.ListItems.Add(, , rsX.Fields(0))

rsX.MoveNext

Loop

rsX.Close

If Vxod.Text1.Text = "1" Then

Label4.Caption = LV11.ListItems.Item(1)

Else

Label4.Caption = LV11.ListItems.Item(2)

End If

'Dim msg As String

'Dim title As String

'Dim style As MsgBoxStyle

'Dim response As MsgBoxResult

'msg = "Do you want to continue?" ' Define message.

'style = MsgBoxStyle.DefaultButton2 Or _

' MsgBoxStyle.Critical Or MsgBoxStyle.YesNo

'title = "MsgBox Demonstration" ' Define title.

' Display message.

'response = MsgBox(msg, style, title)

'If response = MsgBoxResult.Yes Then ' User chose Yes.

' Perform some action.

'Else

' Perform some other action.

'End If

End Sub

Private Sub FillListPRODUCT(sSQL As String)

Dim itmX As ListItem

rsX.Open sSQL, cnX, adOpenDynamic, adLockPessimistic, adCmdText

LV3.ListItems.Clear

Do While Not rsX.EOF

Set itmX = LV3.ListItems.Add(, , rsX.Fields(0))

itmX.SubItems(1) = rsX.Fields(1)

itmX.SubItems(2) = rsX.Fields(2)

itmX.SubItems(3) = rsX.Fields(3)

itmX.SubItems(4) = rsX.Fields(4)

itmX.SubItems(5) = rsX.Fields(5)

itmX.SubItems(6) = rsX.Fields(6)

itmX.SubItems(7) = rsX.Fields(7)

'itmX.SubItems(8) = rsX.Fields(8)

'itmX.SubItems(9) = rsX.Fields(9)

rsX.MoveNext

Loop

rsX.Close

End Sub

Private Sub FillListFILIAL(sSQL As String)

Dim itmX As ListItem

rsX.Open sSQL, cnX, adOpenStatic, adLockPessimistic, adCmdText

LV1.ListItems.Clear

Do While Not rsX.EOF

Set itmX = LV1.ListItems.Add(, , rsX.Fields(0))

itmX.SubItems(1) = rsX.Fields(1)

rsX.MoveNext

Loop

rsX.Close

End Sub

Private Sub FillListAPTEKA(sSQL As String)

Dim itmX As ListItem

rsX.Open sSQL, cnX, adOpenStatic, adLockPessimistic, adCmdText

LV2.ListItems.Clear

Do While Not rsX.EOF

Set itmX = LV2.ListItems.Add(, , rsX.Fields(0))

itmX.SubItems(1) = rsX.Fields(1)

rsX.MoveNext

Loop

rsX.Close

End Sub

Sub OPtimumAPTEKA()

sSQL = "SELECT APTEKA_ID,ADRES FROM APTEKA ORDER BY APTEKA_ID"

FillListAPTEKA sSQL

End Sub

Sub OPtimumFILIAL()

sSQL = "SELECT FILIAL_ID,CITY FROM FILIAL ORDER BY FILIAL_ID"

FillListFILIAL sSQL

End Sub

Sub OPtimumPRODUCT()

sSQL = "SELECT PRODUCT_ID,CITY,ADRES,TITLE,NAME,FIO,PRICE,COMMENTS "

sSQL = sSQL + "FROM PRODUCT,FILIAL,APTEKA,AVTOR,NAZNACH "

sSQL = sSQL + "WHERE ID_FILIAL=FILIAL_ID AND ID_APTEKA=APTEKA_ID AND ID_NAZNACH=NAZNACH_ID AND ID_AVTOR=AVTOR_ID "

sSQL = sSQL + "ORDER BY PRODUCT_ID"

FillListPRODUCT sSQL

End Sub