of loading the file contents into this form. Otherwise, create a

new TEditForm instance and load the file into that instance }

if (EditForm <> nil) and (EditForm is TMdiEditForm) then

if MessageDlg('Load file into current form?', mtConfirmation,

[mbYes, mbNo], 0) = mrYes then

begin

TMdiEditForm(EditForm).OpenFile(FileName);

Exit;

end;

{ Create a new TEditForm and call its OpenFile() method }

with TMdiEditForm.Create(self) do

if FileName <> '' then

OpenFile(FileName)

end;

procedure TMainForm.OpenMDBFile(MDBForm: TForm; FileName: string);

begin

{ If MDBForm is of a TMDBForm type, then give the user the option

of loading the file contents into this form. Otherwise, create a

new TMDBForm instance and load the file into that instance }

if (MDBForm <> nil) and (MDBForm is TMdiMDBForm) then

if MessageDlg('Load file into current form?', mtConfirmation,

[mbYes, mbNo], 0) = mrYes then begin

(MDBForm as TMdiMDBForm).OpenFile(FileName);

Exit;

end;

{ Create a new TMDBForm and call its OpenFile() method }

with TMdiMDBForm.Create(self) do

if FileName <> '' then

OpenFile(FileName);

end;

procedure TMainForm.OpenBMPFile(FileName: String);

begin

{ Create a new TBMPForm instances and load a BMP file into it. }

with TMdiBmpForm.Create(self) do

OpenFile(FileName);

end;

procedure TMainForm.SetToolBar(AToolBar: TToolBar);

begin

if (MDIChildCount = 1) and (AToolBar = nil) then

tlbMain.Parent := self

else begin

tlbMain.Parent := nil;

if not (AToolBar = nil) then

AToolBar.Parent := self;

end;

end;

end.

Контрольний приклад роботи випливаючого меню наведено на рис.13.

Рис.13.

Для доступу до БД в локальній мережі та через інтернет розроблена сторінка доступу до даних, яка може бути розміщена на сервері.

Поперше ниж скористатися пунктами випливаючого меню, необхідно закрити форму (кнопка „Закрити форму”), яка зявляється автоматично при відкритті БД „Кафедра”, так як меню демонструє команди на прикладі цієї форми.

5. Запити на мові SQL. Структура бази даних

5.1 Структура БД „Кафедра” наведена на наступному рис.14.

Рис 14.

5.2 Запити до бази даних і відповіді на них

Запит на вибірку з БД інформації, для заповнення таблиці за №групи1 та №групи5 мовою SQL:

SELECT [Base 1].[№ кафедри], [Base 1].[№ групи 1], [Base 1].[№ групи 5]

FROM [Base 1]

WHERE ((([Base 1].[№ групи 1]) Like "C*#") AND (([Base 1].[№ групи 5]) Like "C*#"));

Запит 1 у режимі таблиці (рис.15):

Рис.15.

Запит 2 з використанням внутрішнього підзапиту мовою SQL:

TRANSFORM First([Base 1].[№ групи 1]) AS [First-№ групи 1]

SELECT [Base 1].[№ кафедри], First([Base 1].[№ групи 1]) AS [Итоговое значение № групи 1]

FROM [Base 1]

GROUP BY [Base 1].[№ кафедри]

PIVOT [Base 1].[№ групи 2];

Запит з використанням внутрішнього підзапиту у режимі таблиці (рис.16):

Рис.16.

Запит 3 про № груп 1 і 5 і відповідних їм шифрів і назв спеціальностей, якщо задані № кафедр 3 і 5 мовою SQL:

SELECT [Спеціальна кафедра].[№ групи], [Спеціальна кафедра].№кафедри, [Спеціальність підготовки].ШифрСпеціальності, [Спеціальність підготовки].НазваСпеціальності

FROM [Спеціальність підготовки] INNER JOIN [Спеціальна кафедра] ON [Спеціальність підготовки].ШифрСпеціальності = [Спеціальна кафедра].ШифрСпеціальності

WHERE ((([Спеціальна кафедра].[№ групи]) Like "C0*") AND (([Спеціальна кафедра].№кафедри)=3 Or ([Спеціальна кафедра].№кафедри)=5)) OR ((([Спеціальна кафедра].[№ групи]) Like "C4*"));

Запит 3 у режимі таблиці (рис.17):

Рис.17.

Четвертий запит про усі записи, що впорядковані по полю - № кафедри мовою SQL:

SELECT [Base 1].[№ кафедри], [Base 1].[№ групи 1], [Base 1].[№ групи 2], [Base 1].[№ групи 3], [Base 1].[№ групи 4], [Base 1].[№ групи 5], [Спеціальна кафедра].НазваКафедри

FROM [Base 1] INNER JOIN [Спеціальна кафедра] ON [Base 1].[№ кафедри] = [Спеціальна кафедра].№кафедри

GROUP BY [Base 1].[№ кафедри], [Base 1].[№ групи 1], [Base 1].[№ групи 2], [Base 1].[№ групи 3], [Base 1].[№ групи 4], [Base 1].[№ групи 5], [Спеціальна кафедра].НазваКафедри

ORDER BY [Base 1].[№ кафедри];

Четвертий запит у режимі таблиці (рис.18):

Рис.18.

6. Операції реляційної алгебри

Операції реляційної алгебри об'єднання (R = R1 U R2) і перетину (R = R1 ? R2) накладають додаткові умови на схеми початкових відношень.

Декартовий добуток (R = R1 x R2) не накладає ніяких додаткових умов на схеми початкових відношень, тому ця операція допустима для будь яких двох відношень без додаткових умов.

Base1

Base2

Base3

Презентація курсового проекту з ефектами анімації по роботі з ІС „Кафедра” додана до курсового проекту у файлі „Кафедра37.ppt”.

Висновки

В даної курсової роботі було розроблено:

1. Інфологічну модель предметної області „Кафедра” в загальному проектному представленні на базі ER-моделі („сутність-зв'язок”).

2. Логічну (концептуальну) схему бази даних на базі інфологічної моделі предметної області і композиційної схеми БД з застосуванням ручної процедури побудови логічної схеми БД.

3. Інтерфейс користувача інформаційної системи.

4. Програму на мові Pascal згідно розробленого інтерфейсу.

5. Запити на мові SQL до бази даних відповідно варіанту.

6. Операції реляційної алгебри об'єднання (R = R1 U R2), перетину (R = R1 ? R2) і декартового добутку (R = R1 x R2) будь яких двох відношень логічної схеми бази даних.

7. Презентацію курсового проекту в Power Point.

При практичном опрацюванні курсового проекту ми побачили, що MS Access - це не тільки могутня, гнучка і проста у використовуванні СУБД, але і система для розробки працюючих з базами даних додатків. За допомогою Access ви можете створити додаток, що працює в середовищі Windows і повністю відповідне вашим потребам по управлінню даними. Використовуючи запити, ви можете вибирати і обробляти в таблицях інформацію, що зберігається. Можна створювати форми для введення, перегляду і оновлення даних, а також використовувати Access для створення як простих, так і складних звітів. Форми і звіти «успадковують» властивості базової таблиці або запиту, так що в більшості випадків ви вказуєте формати, умови на значення і деякі інші характеристики даних тільки один раз. До числа наймогутніших засобів Access відносяться засоби розробки об'єктів - Майстри, яких ви можете використовувати для створення таблиць, запитів різних типів форм і звітів, а також кнопок і інших атрибутів вбудованого Visual Basic, просто вибравши за допомогою миші потрібні опції. Щоб повністю автоматизувати роботу вашого додатку, за допомогою макросів Access ви легко зв'яжете дані з формами і звітами. Ви можете створити більшість додатків, не написавши ні єдиного рядка програми, але якщо вам необхідно створити щось вже дуже витончене, то на цей випадок Microsoft Access надає могутню мову програмування - Microsoft Access Basic.

І, нарешті, всі ці засоби дозволяють створювати додатки, що працюють не тільки з базою даних Access, але і з іншими найпоширенішими базами даних. Ваш додаток може працювати безпосередньо з файлами dBASE, з базами даних Раrаdох, FохРrо і будь-якою базою даних, підтримуючих ОDВС. Ви зможете також легко імпортувати дані з текстових файлів, документів текстових процесорів і електронних таблиць (і експортувати дані в них).

Microsoft Access має безліч областей застосування: на малому підприємстві; в роботі за контрактом, коли ви розробляєте прикладні програми за замовленням або виступаєте в ролі консультанта; у великих корпораціях, коли ви виступаєте в ролі координатора виробничих інформаційних систем і навіть у сфері домашнього застосування.

Список використаної літератури

1. Харитонова И.А., Михеева В.Д. Microsoft Access 2000: Разработка приложений. - СПб.: БХВ, 2000. - 832 с.

2. Робинсон С. Microsoft Access 2000: - СПб.: Издательский дом Питер, 2002. - 512 с.

3. Вейскас Дж. Эффективная работа с Microsoft Access 2000: СПб.: Питер-Пресс, 2002. - 1040 с.

4. Дженнингс Р. Использование Microsoft Access 2000: Специальное издание. - Издательский дом «Вильямс», 2002. - 1152 с.

5. Справка Microsoft Access 2002.//Корпорация Microsoft (Microsoft Corporation), - 2001.

6. Справка Microsoft Power Point 2002.//Корпорация Microsoft (Microsoft Corporation), - 2001.

7. Ситник В.Ф. та ін. Основи інформаційних систем - К.:КНЕУ, 2001

8. Береза А.М. Основи створення інформаційних систем - К.:КНЕУ, 2001

9. Информационные системы в экономике. Под редакцией профессора В.В.Дика - М.:Финансы и статистика, 1996

10. Смирнова Г.Н, Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем - М.:Финансы и статистика, 2003

Страницы: 1, 2, 3, 4, 5