Разработать базу данных любителей кошек

14. Форма FiltrAward – фильтр данных по награде. Имеет кнопки Печать на экран, Печать на принтер (будет использован принтер, указанный по умолчанию Панели управления / Принтеры и факсы),  Печать в файл (на выбор следующие форматы: .*rtf, .*dat, .*xls, .*txt, .*html, .*xml, .*snp), Найти запись, Вернуться в главное меню, Выход. На рисунке результат фильтра по значению поля Награда «Нет награды»:

Рисунок 29 – Форма FiltrAward

На экран, принтер и в файл выводится отчет вида:

Рисунок 30 – Отчет FiltrAward

15. Форма FiltrCat – фильтр данных по породе. Имеет кнопки Печать на экран, Печать на принтер (будет использован принтер, указанный по умолчанию Панели управления / Принтеры и факсы),  Печать в файл (на выбор следующие форматы: .*rtf, .*dat, .*xls, .*txt, .*html, .*xml, .*snp), Найти запись, Вернуться в главное меню, Выход. На рисунке результат фильтра по значению поля Порода «Скоттиш фолд»:

Рисунок 31 – Форма FiltrCat

На экран, принтер и в файл выводится отчет вида:

Рисунок 32 – Отчет FiltrCat

16. Форма FiltrMaster – фильтр данных по владельцу. Имеет кнопки Печать на экран, Печать на принтер (будет использован принтер, указанный по умолчанию Панели управления / Принтеры и факсы),  Печать в файл (на выбор следующие форматы: .*rtf, .*dat, .*xls, .*txt, .*html, .*xml, .*snp), Найти запись, Вернуться в главное меню, Выход. На рисунке результат фильтра по значению поля Владелец «Иванов И.И.»:

Рисунок 33 – Форма FiltrMaster

На экран, принтер и в файл выводится отчет вида:

Рисунок 34 – Отчет FiltrMas

17. Форма FiltrShow – фильтр данных по дате выставки. Имеет кнопки Печать на экран, Печать на принтер (будет использован принтер, указанный по умолчанию Панели управления / Принтеры и факсы),  Печать в файл (на выбор следующие форматы: .*rtf, .*dat, .*xls, .*txt, .*html, .*xml, .*snp), Найти запись, Вернуться в главное меню, Выход. На рисунке результат фильтра по значению поля Дата «06.09.2011»:

Рисунок 35 – Форма FiltrShow

На экран, принтер и в файл выводится отчет вида:

Рисунок 36 – Отчет FiltrShow

18. Форма CountCats – выводит данные о количестве числящихся кошек в базе. Форма исчезает по щелчку мышкой в любом месте формы.

SQL-запрос:

SELECT COUNT(*) FROM AD_cats;

Рисунок 37 – Форма CountCats

4. Тестирование программного модуля

В данном пункте рассмотрим некоторые  отдельные возможности базы данных.

1. Печать данных из формы на принтер. Появляется окно (рисунок 38) и страница с отчетом распечатывается на принтере.

Рисунок 38 – Печать на принтер

2. Печать данных из формы в файл. Другими словами, сохранение сформированного отчета на жестком диске. На примере сохранения в формате MS Excel:

Рисунок 39 – Выбор формата для сохранения отчета

Получился файл ShowsResults.xls

Рисунок 40 – Сохраненный отчет в формате xls (MS Excel)

3. Поиск данных по фрагменту слова. Например, при вводе букв «кош» они выделяются в порядке очереди в каждой записи формы, в которых они присутствуют. При нажатии кнопки Найти далее, происходит поиск следующей с записи с искомым содержимым и так до конца, пока не выдаст сообщение, что искомый текст не найден.

Рисунок 41 – Пример поиска по форме ViewAll фрагмента «кош»

Заключение

SQL является языком реляционных  баз данных, поэтому он стал популярным тогда, когда популярной стала реляционная модель представления данных. Табличная структура реляционной базы данных интуитивно понятна пользователям, поэтому язык SQL является простым и легким для изучения. Реляционная модель имеет солидный теоретический фундамент, на котором были основаны эволюция и реализация реляционных баз данных. На волне популярности, вызванной успехом реляционной модели, SQL стал единственным языком для реляционных баз данных.

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

С помощью SQL создатель базы может сделать так, что различные пользователи базы данных будут видеть различные представления её структуры и содержимого. Например, базу данных можно спроектировать таким образом, что каждый пользователь будет видеть только данные, относящиеся к его подразделению или торговому региону. Кроме того, данные из различных частей базы данных могут быть скомбинированы и представлены пользователю в виде одной простой таблицы. Следовательно, представления можно использовать для усиления защиты базы данных и ее настройки под конкретные требования отдельных пользователей.

Первоначально SQL был задуман как  язык интерактивных запросов, но сейчас он вышел далеко за рамки чтения данных. SQL является полноценным и  логичным языком, предназначенным для  создания базы данных, управления ее защитой, изменения ее содержимого, чтения данных и совместного использования данных несколькими пользователями, работающими параллельно. Приемы, освоенные при изучении одного раздела языка, могут затем применяться в других командах, что повышает производительность работы пользователей.

В результате проделанной работы была создана база данных с информацией о кошках с применением средств языка SQL и языка программирования Visual Basic for Application. В данной базе был разработан графический интерфейс, формы для ввода, редактирования, удаления и просмотра данных, вывод отчетов на экран, принтер и сохранение в файл в различных форматах на выбор пользователя. Также была предусмотрена работа пользователя с поиском и фильтрами для более удобного отображения информации.

Список использованных источников

 

1. Аруп Нанда, Стивен Фейерштейн. Oracle PL /SQL для администраторов баз данных. Пер. с англ. – СПб: Символ" Плюс, 2008. 
2. Биллиг В.А.. "VBA в Office 2000. Офисное программирование" — М.: Издательско-торговый дом "Русская Редакция", 1999. - 480 с. 
3. Король В.И.. Visual Basic 6.0, Visual Basic for Applications 6.0. Язык программирования. Справочник с примерами. — М.: Издательство КУДИЦ, 2000. - 448 с.: 
4. М. Грабер. Введение в SQL  

ПРИЛОЖЕНИЕ

 

Код форм базы данных:

 

Main

 

Option Compare Database

 

Function OpenForms(strFormName As String) As Integer

' Функция связывается с событием "Нажатие кнопки" (Click) для открытия

' форм из главной кнопочной  формы. Использование функции более

' эффективно, чем повторение одинаковой  программы в нескольких

' процедурах обработки событий.

On Error GoTo Err_OpenForms

 

    ' Открытие указанной  формы.

    DoCmd.OpenForm strFormName

 

Exit_OpenForms:

    Exit Function

 

Err_OpenForms:

    MsgBox Err.Description

    Resume Exit_OpenForms

 

End Function

 

 

Private Sub main_cat_Click()

DoCmd.OpenForm "AddCat"

End Sub

 

Private Sub main_count_Click()

DoCmd.OpenForm "CountCats"

End Sub

 

Private Sub main_show_Click()

DoCmd.OpenForm "AddShow"

End Sub

 

Private Sub main_aw_Click()

DoCmd.OpenForm "AddAward"

End Sub

 

Private Sub main_adcat_Click()

DoCmd.OpenForm "AddADCat"

End Sub

 

Private Sub main_vcat_Click()

DoCmd.OpenForm "ViewAll"

End Sub

 

Private Sub main_vmas_Click()

DoCmd.OpenForm "ViewMasters"

End Sub

 

Private Sub main_vshow_Click()

DoCmd.OpenForm "ViewShows"

End Sub

 

Private Sub main_vaw_Click()

DoCmd.OpenForm "ViewAwards"

End Sub

 

Private Sub main_vadcat_Click()

DoCmd.OpenForm "ViewCats"

End Sub

 

Private Sub main_mas_Click()

DoCmd.OpenForm "AddMas"

End Sub

 

Private Sub main_edit_Click()

DoCmd.OpenForm "Edit"

End Sub

 

Private Sub main_filtr_Click()

DoCmd.OpenForm "Filtr"

End Sub

 

Private Sub main_del_Click()

DoCmd.OpenForm "Delete"

End Sub

 

Private Sub main_exit_Click()

DoCmd.Close

End Sub

 

AddADCat

 

Option Compare Database

 

Private Sub add_adcat_add_Click()

Dim nName As String

nName = add_adcat_name.Value

Module1.Add_AD_Cat nName

DoCmd.Close

End Sub

 

Private Sub add_adcat_cancel_Click()

DoCmd.Close

End Sub

 

Private Sub add_adcat_edit_Click()

Dim nName As String

nName = add_adcat_name.Value

nId = add_adcat_id.Value

DoCmd.Close

Module1.EditBt_AD_Cat nId, nName

End Sub

 

AddAward

 

Option Compare Database

 

Private Sub add_aw_add_Click()

Dim nName As String

nName = add_aw_name.Value

Module1.Add_Aw nName

DoCmd.Close

End Sub

 

Private Sub add_aw_cancel_Click()

DoCmd.Close

End Sub

 

Private Sub add_aw_edit_Click()

Dim nName As String

nName = add_aw_name.Value

nId = add_aw_id.Value

DoCmd.Close

Module1.EditBt_Aw nId, nName

End Sub

 

AddCat

 

Option Compare Database

 

Private Sub AD_mas_Click()

DoCmd.OpenForm "ViewMasters"

End Sub

 

Private Sub AD_show_Click()

DoCmd.OpenForm "ViewShows"

End Sub

 

Private Sub add_cat_add_Click()

nMas = add_cat_mas.Value

nName = add_cat_name.Value

nAge = add_cat_age.Value

nShow = add_cat_show.Value

nAw = add_cat_aw.Value

Module1.Add_Cat nMas, nName, nAge, nShow, nAw

DoCmd.Close

End Sub

 

Private Sub add_cat_cancel_Click()

DoCmd.Close

End Sub

 

Private Sub add_cat_edit_Click()

nMas = add_cat_mas.Value

nName = add_cat_name.Value

nAge = add_cat_age.Value

nShow = add_cat_show.Value

nAw = add_cat_aw.Value

nId = add_cat_id.Value

DoCmd.Close

Module1.EditBt_Cat nId, nMas, nName, nAge, nShow, nAw

End Sub

 

AddMas

 

Option Compare Database

 

Private Sub add_mas_add_Click()

Dim nName As String

nName = add_mas_name.Value

Module1.Add_Mas nName

DoCmd.Close

End Sub

 

Private Sub add_mas_cancel_Click()

DoCmd.Close

End Sub

 

Private Sub add_mas_edit_Click()

Dim nName As String

nName = add_mas_name.Value

nId = add_mas_id.Value

DoCmd.Close

Module1.EditBt_Mas nId, nName

End Sub

 

AddShow

 

Option Compare Database

 

Private Sub add_show_add_Click()

nName = add_show_name.Value

nData = add_show_date.Value

Module1.Add_Show nName, nData

DoCmd.Close

End Sub

 

Private Sub add_show_cancel_Click()

DoCmd.Close

End Sub

 

Private Sub add_show_edit_Click()

nName = add_show_name.Value

nData = add_show_date.Value

nId = add_show_id.Value

DoCmd.Close

Module1.EditBt_Show nId, nName, nData

End Sub

 

CountCats

 

Option Compare Database

 

Private Sub ОбластьДанных_Click()

DoCmd.Close

End Sub

 

Private Sub Рисунок4_Click()

DoCmd.Close

End Sub

 

Delete

 

Option Compare Database

 

Private Sub del_aw_Click()

DoCmd.OpenQuery "DeleteAward", acViewNormal, acReadOnly

End Sub

 

Private Sub del_cat_Click()

DoCmd.OpenQuery "DeleteCat", acViewNormal, acReadOnly

End Sub

 

Private Sub del_exit_Click()

DoCmd.Close

End Sub

 

Private Sub del_mas_Click()

DoCmd.OpenQuery "DeleteMaster", acViewNormal, acReadOnly

End Sub

 

Private Sub del_show_Click()

DoCmd.OpenQuery "DeleteShow", acViewNormal, acReadOnly

End Sub

 

Private Sub del_adcat_Click()

DoCmd.OpenQuery "DeleteADCat", acViewNormal, acReadOnly

End Sub

 

Edit

 

Option Compare Database

 

Private Sub edit_AD_aw_Click()

DoCmd.OpenForm "ViewAwards"

End Sub

 

Private Sub edit_AD_cat_Click()

DoCmd.OpenForm "ViewCats"

End Sub

 

Private Sub edit_AD_mas_Click()

DoCmd.OpenForm "ViewMasters"

End Sub

 

Private Sub edit_AD_show_Click()

DoCmd.OpenForm "ViewShows"

End Sub

 

Private Sub edit_AD_union_Click()

DoCmd.OpenForm "ViewAll"

End Sub

 

Private Sub edit_adcat_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_adcat (Id)

End Sub

 

Private Sub edit_age_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_age (Id)

End Sub

 

Private Sub edit_aw_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_aw (Id)

End Sub

 

Private Sub edit_cat_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_cat (Id)

End Sub

 

Private Sub edit_mas_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_mas (Id)

End Sub

 

Private Sub edit_show_Click()

Dim Id As Integer

Id = edit_id.Value

DoCmd.Close

Module1.edit_show (Id)

End Sub

 

Filtr

 

Option Compare Database

 

Private Sub filtr_aw_Click()

DoCmd.OpenForm "FiltrAward"

End Sub

 

Private Sub filtr_cat_Click()

DoCmd.OpenForm "FiltrCat"

End Sub

 

Private Sub filtr_exit_Click()

DoCmd.Close

End Sub

 

Private Sub filtr_mas_Click()

DoCmd.OpenForm "FiltrMaster"

End Sub

 

Private Sub filtr_show_Click()

DoCmd.OpenForm "FiltrShow"

End Sub

 

FiltrAward

 

Option Compare Database

 

Private Sub faw_exit_Click()

DoCmd.Close

End Sub

 

Private Sub faw_find_Click()

On Error GoTo Err_all_find_Click

 

 

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_all_find_Click:

    Exit Sub

 

Err_all_find_Click:

    MsgBox Err.Description

    Resume Exit_all_find_Click

   

End Sub

 

Private Sub faw_main_Click()

DoCmd.OpenForm "Main"

End Sub

 

Private Sub faw_print_Click()

On Error GoTo Err_all_print_Click

 

    Dim stDocName As String

 

    stDocName = "FiltrAward"

    DoCmd.OpenReport stDocName, acNormal

 

Exit_all_print_Click:

    Exit Sub

 

Err_all_print_Click:

    MsgBox Err.Description

    Resume Exit_all_print_Click

   

End Sub

 

Private Sub faw_print_file_Click()

On Error GoTo Err_all_print_file_Click

 

    Dim stDocName As String

 

    stDocName = "FiltrAward"

    DoCmd.OutputTo acReport, stDocName

 

Exit_all_print_file_Click:

    Exit Sub

 

Err_all_print_file_Click:

    MsgBox Err.Description

    Resume Exit_all_print_file_Click

   

End Sub

 

Private Sub faw_print_scr_Click()

DoCmd.OpenReport "FiltrAward", acViewPreview

End Sub

 

FiltrCat

 

Option Compare Database

 

Private Sub fcat_exit_Click()

DoCmd.Close

End Sub

 

Private Sub fcat_find_Click()

On Error GoTo Err_all_find_Click

 

 

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_all_find_Click:

    Exit Sub

 

Err_all_find_Click:

    MsgBox Err.Description

    Resume Exit_all_find_Click

   

End Sub

 

Private Sub fcat_main_Click()

DoCmd.OpenForm "Main"

End Sub

 

Private Sub fcat_print_Click()

On Error GoTo Err_all_print_Click

 

    Dim stDocName As String

 

    stDocName = "FiltrCat"

    DoCmd.OpenReport stDocName, acNormal

 

Exit_all_print_Click:

    Exit Sub

 

Err_all_print_Click:

    MsgBox Err.Description

    Resume Exit_all_print_Click

   

End Sub

 

Private Sub fcat_print_file_Click()

On Error GoTo Err_all_print_file_Click

 

    Dim stDocName As String

 

    stDocName = "FiltrCat"

    DoCmd.OutputTo acReport, stDocName

 

Exit_all_print_file_Click:

    Exit Sub

 

Err_all_print_file_Click:

    MsgBox Err.Description

    Resume Exit_all_print_file_Click

   

End Sub

 

Private Sub fcat_print_scr_Click()

DoCmd.OpenReport "FiltrCat", acViewPreview

End Sub

 

FiltrMaster

 

Option Compare Database

 

Private Sub fmas_exit_Click()

DoCmd.Close

End Sub

 

Private Sub fmas_find_Click()

On Error GoTo Err_all_find_Click

 

 

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_all_find_Click:

    Exit Sub

 

Err_all_find_Click:

    MsgBox Err.Description

    Resume Exit_all_find_Click

   

End Sub

 

Private Sub fmas_main_Click()

DoCmd.OpenForm "Main"