Мартьянова А.Е. Базы данных и знаний. Учебное пособие

Подождите немного. Документ загружается.

Мартьянова А.Е. Базы данных и знаний 171

DataRe

End S

Priva

nationSheet_Click()

frmzE

Для формы frmTaskTeachingDepartment, выполняющей задачи

учебной части – «Учебная часть»:

portTeacher.Show

End Sub

Private Sub cmdManagingFacultys_Click()

frmManagingFacultys.Show

End Sub

Private Sub cmdTeacher_Click()

frmListTeacherFacultys.Show

End Sub Sub

Для формы frmTaskDean, выполняющей задачи деканата – «Дека-

нат»:

Private Sub cmdExaminationSheets_Click()

frmExaminationSheets.Show

Private Sub cmdfrmAdvancedInGroupsAtTeacherss_Click()

frmA

dvancedInGroupsAtTeacherss.Show

End Sub

te Sub cmdfrmAvgRatingGroups_Click()

frmAvgRatingGroups.Show

End Sub

Private Sub cmdfrmSumRatingStudents_Click()

frmSumRatingStudens.Show

End Sub

Private Sub cmdfrmQuantityStudentsGroups_Click()

frmQuantityStudentsGroups.Show

End Sub

Privat Sub cmdListStudentGroup_Click()

DataReportStudentGroup.Show

End Sub

Private Sub cmdStudents_Click()

frmListStudentsGroups.Show

End Sub

Private Sub cmdzExami

xaminationSheet.Show

End Sub

Мартьянова А.Е. Базы данных и знаний 172

Priva

End Sub

При и

другие lDean,

lblTea

пароля свойство Enabled

соотв

ложения приве-

ден на

te Sub cmdfrmPlanStudingGroups_Click()

frmPlanStudingGroups.Show

End Sub

te Sub cmdzPlanStudingGroup_Click()

frmzPlanStudingGroup.Show

необходимости на запускающую форму можно поместить

объекты, например, ярлыки (lblFaculty, lb

chingDepartment, lblAll), имеющие свойство Enabled = False и

кнопку (cmdTask), при нажатии на которую запрашиваются пароли (рис.

II.66) для входа в ту или иную задачу (пароли «Кафедра», «Деканат»,

«Учебная часть», «Всё»). При вводе верного

етствующего

ярлыка становится равным True и разрешается доступ

к соответствующим пунктам меню. При вводе неверного пароля выдает-

ся окно сообщений – рис. II.67. Окончательный вид при

рис. II.68.

Рис. II.66. Запрос пароль для входа в задачу

Рис. II.67. Окно сообщений при неверном вводе пароля

172

Мартьянова А.Е. Базы данных и знаний 173

Рис. II.68. Окончательный вид приложения «Учебный процесс»

Встроенные диалоги

В роектах на Visual Basic ожно использовать стандартное окно

сообщений [1, 1 Yes, No и др.

Оператор для создания окна сообщений выглядит так (в квадратных

с бяза

MsgBox <Сообщ >]

Сообщени строка в заголовке

окна. Атрибуты иями

или системны-

ми константами ox "Ошибка в дан-

ных!"

Константа О

п м

2]. Окно может иметь кнопки OK, Cancel,

кобках нео тельные параметры):

ение> [,<Атрибуты>] [,<Заголовок

е – это текст в кавычках, Заголовок –

можно задавать числовыми значен

(табл. II.33 [12]). Например: MsgB

Таблица II.33. Возможные значения

Значение

трибутов для MsgBox

писание

vbOKOnly 0 Высвечивается только кнопка OK

vbOKCancel 1 Высвечивается OK и Cancel

vbYesNoCancel 3 Высвечивается , No и Cancel Yes

vbYesNo 4 Высвечивается кнопки Yes, No

vbCritical 16 Значок

vbQuestion 32 Значок

vbExclamation 48 Значок

vbInformation 64 Значок

Можно ис в и тогда она возвра-

щает числовое твующее нажатой кнопке (табл. II.34

[12]).

пользо ать этот диалог как функцию

значение соответс

Мартьянова А.Е. Базы данных и знаний 174

Таблица II.34. Возвращаемые значения для MsgBox

Константа Значение Описание

vbOK 1 Нажата OK

vbCancel 2 Нажата Cancel

vbYes 6 Нажата Yes

vbNo 7 Нажата No

Окно ввода, как и окно сообщения, может отображаться операто-

ром или функцией. С его помощью можно выв

данные

I о

тве ку, которая бу-

дет по умолчани лении окна диалога.

Когда

пользоват мое поля ввода при-

сваивается пере пку Cancel, воз-

вращается строк

Для прави опций в окно кода

необходимо вве

Private Sub cmdTas

rc = InputBox("Вве

I едра" T

rc = abc

lblFaculty.Enab

lblDean.Enabled = False

lblTeachingDe

lblAll.Enabled

mnuTaskDean.

TaskFacul

mnuTaskTeach

mnuGroup.Ena

mnuStudent.En

mnuFaculty.En

mnuTeacher.E

ine

mnuStudying.E

mnuAdvanced.Enabled = False

Inquiry.En

ElseIf rc = "Декана

rc = abc

lblFaculty.Enab

.Enable

lblTeachingDe

ести сообщение и ввести

Сокращен

nputBox (<Со

В качес

ный синтаксис функции выглядит та

бщение>, <Заголовок>,<Умолчание

параметра умолчание можно задать

ю находиться в поле ввода при появ

ель нажимает кнопку OK, содержи

менной. Если пользователь нажал кно

а нулевой длины.

льного включения соответствующих

сти дополнительно следующий текст:

k_Click()

дите пароль!", "Регистрация", "Пароль")

стро

f rc = "Каф hen

led = True

partment.Enabled = False

= False

Enabled = False

mnu ty.Enabled = True

ingDepartment.Enabled = False

bled = False

abled = False

nabled = False

mnuDiscipl .Enabled = False

nabled = False

mnu abled = False

т" Then

led = False

lblDean d = True

partment.Enabled = False

174

Мартьянова А.Е. Базы данных и знаний 175

lblAll.Enabled

mnuTaskDean

mnuTaskFacul

mnuTaskTeach

mnuGroup.Ena

mnuStudent.Enabled = False

mnuFaculty.Enabled = False

mnuTeacher.Enabled = False

mnuDiscipline.Enabled = False

mnuStudying.Enabled = False

mnuAdvanced.Enabled = False

uInquiry.En

ElseIf rc = "Учебна

rc = abc

lblFaculty.Ena

lblDean.Enable

lblTeachingDe

Enabled

m askDean

mnuTaskFacul

mnuTaskTeach

mnuGroup.Ena

mnuStudent.En al

mnuFaculty.En

mnuTeacher.E

mnuDiscipline

mnuStudying.E

.En

ElseIf rc = "Всё" Th

rc = abc

lblFaculty.Ena

lblDean.Enable

ngDe

lblAll.Enabled

mnuTaskDean

m kFacul

Teach

mnuGroup.Ena

mnuStudent.En

mnuFaculty.En

mnuTeacher.E

iscipline.Enabled = True

mnuStudying.E

mnuAdvanced

mnuInquiry.En

= False

.Enabled = True

ty.Enabled = False

ingDepartment.Enabled = False

bled = False

mn abled = False

я часть" Then

bled = False

d = False

partment.Enabled = True

lblAll.

nuT

= False

.Enabled = False

ty.Enabled = False

ingDepartment.Enabled = True

bled = False

abled = F se

abled = False

nabled = False

.Enabled = False

nabled = False

mnuAdvanc

mnuInquiry

.Enabled = Fal e

abled = False

bled = False

d = False

lblTeachi partment.Enabled = False

= True

.Enabled = False

ty.Enabled = False

nuTas

mnuTask

ingDepartment.Enabled = False

bled = True

abled = True

nabled = True

mnuD

nabled = True

.Enabled = True

abled = True

Мартьянова А.Е. Базы данных и знаний 176

Else

r = MsgBox("П vbOKOnly)

lblFaculty.Enab

lblDean.Enable

lblTeachingDe t.Enabled = False

lblAll.Enabled = False

mnuTaskDean.Enabled = False

mnuTaskFaculty.Enabled = False

mnuTaskTeachingDepartment.Enabled = False

mnuGroup.Enabled = False

mnuStudent.Enabled = False

culty.En

mnuTeacher.E

mnuDiscipline

mnuStudying.E

mnuAdvanced.

mnuInquiry.En

End If

End Sub

Private Sub Form_L

lblDean.Enabled = F

lblTeachingDepartm

lblAll.Enabled = Fa

m n.Enab

mnuTaskFaculty.En

mnuTaskTeachingD

mnuGroup.Enabled

m ent.Enable

m ulty.Enabled

m e

mnuDiscipline.Enab

mnuStudying.Enabl

mnuAdvanced.Enab

mnuInquiry.Enabled

End Sub

КОНТРОЛЬНЫЕ ВОПРОСЫ к заданию

2. Пере и-

ме проектирования.

ароль введен неправильно", vbExclamation +

led = False

d = False

partmen

mnuFa abled = False

nabled = False

.Enabled = False

nabled = False

Enabled = False

abled = False

oad()

alse

ent.Enabled = False

lse

nuTaskDea led = False

abled = False

epartment.Enabled = False

= False

nuStud

nuFac

d = False

= False

nuTeacher.Enabl d = False

led = False

ed = False

led = False

= False

1. Что представляет собой управляющий эл

числите свойства элемента FlexGrid

мент FlexGrid?

доступные в реж

176

Мартьянова А.Е. Базы данных и знаний 177

3. Перечислите свойства объекта TextBox, устанавливаемые в

проце

Как назначается стартовый объект программы?

Какое событие поддерживается элементами меню?

есс»: назначьте запускающую форму программы, сконструируйте

для н

Откомпилируйте программу и запустите готовое приложе-

ние.

ссе проектирования формы для выполнения запросов базы «Учеб-

ный процесс».

4. Для управления базой данных используем элемент управле-

ния DataControl. Вспомните его свойства.

6. Опишите процесс создания меню команд.

8. Опишите назначение

и параметры встроенных диалогов.

ЗАДАНИЕ на проектирование БД «Учебный процесс»

1. Спроектируйте форму для выполнения запросов frmInquiry.

2. Произведите окончательную сборку проекта БД «Учебный

проц

ее меню команд, впишите необходимый код в окна кода форм.

3. Дополните приложение недостающими элементами, запре-

щающими вход в

задачи без знания соответствующего пароля.

Определите размеры файлов готового приложения и БД «Учебный

процесс.mdb». Сделайте выводы.

5. Оформите отчет по работе.

Мартьянова А.Е. Базы данных и знаний 178

ЧАСТЬ III

Работа XI. MS SQL Server. Создание БД

Ниже по источнику [3] приведена таблица (табл. III.1) самых рас-

пространенных SQL-серверов в порядке (примерно) убывания их воз-

можностей:

Таблица III.1. Список наиболее распространенных SQL-серверов

Сервер Достоинства Недостатки

IBM DB2 Universal

Database

Самый навороченный язык

запросов, лучший оптимиза-

тор, возможность писать

функции на других языках.

Высокая стоимость.

Oracle

Великое множество дополни-

Database тельных возможностей. Вер-

сионный сервер.

Очень высокая стоимость

сервера и поддержки.

Micro

Быстро развивающийся про-

дукт, уже вплотную прибли-

Существует только для

soft SQL Server

жающийся к своим более

развитым конкурентам.

Средняя стоимость.

одной платформы

(Win32).

IBM Informix Dynamic

Server

Довольно развитый быстрый

сервер.

Sybase Adaptive Server

Enterprise

Достаточно развитый сервер.

Средняя стоимость.

Sybase Adaptive Server

Anywhere

Существует под множество

платформ, включая самые

экзотичные. Низкая стои-

мость.

Borland InterBase

Приличный набор возможно-

стей. Версионный сервер.

Бесплатный.

Относительно медленно

работает.

PostgreSQL

Поддерживает историческую

модель. Возможность созда-

вать свои типы данных. Бес-

платный.

MySQL

Быстро работает на простых

запросах. Бесплатный.

Очень бедный язык за-

просов. Мало дополни-

тельных возможностей.

Сервер для управления реляционными БД обычно называют

SQL-сервером. SQL (Structured Query Language – язык структурирован-

ных запросов) является стандартным языком для работы с реляционны-

178

Мартьянова А.Е. Базы данных и знаний 179

ми БД. Кроме стандартных реляционных операций, этот язык предостав-

ляет возможности для изменений структуры таблиц. Различные вариан-

ты SQL используются во всех, как серверных, так и в настольных реля-

ционн

управления базами

данны

Созда

r Enterprise Manager. В результате этого на эк-

ран нтекст показа II.1.

ых СУБД.

Какой SQL-сервер лучше всего использовать – это может сильно

зависеть от постановки задачи, количества пользователей и прихотей за-

казчика.

На сегодняшний день

нет идеальной системы

х (СУБД), имеющей как развитый интерфейс, так и оптимизиро-

ванную структуру. Сравнивать достоинства и недостатки продуктов раз-

ных фирм сложно – каждый имеет свои недостатки и преимущества.

В дальнейшем будем рассматривать работу с SQL Server 2000

фирмы Microsoft, который является достаточно мощным и перспектив-

ным [6, 8, 15].

ние базы данных и журнала

транзакций

Рассмотрим процесс создания базы данных. Предполагается, что

SQL Server уже запущен, и для наших целей воспользуемся SQL Server

Enterprise Manager (Пуск/Программы/Microsoft SQL Server/ Enterprise

Manager).

Щелкните правой кнопкой мыши на компоненте Databases SQL

Server в окне SQL Serve

е появится ко ное меню, нное на рис. I

Рис. III.1. тное меню объе Databases

ть команду New Database (Новая база

Контекс кта

В этом меню нужно выбра

данных). Выполнение этой команды приводит к появлению диалогового

окна, представленного на рис. III.2, открытого на вкладке General (ос-

новное). Это окно можно также вызвать, нажав на панели инструментов

кнопку New Database в меню Действие.

Мартьянова А.Е. Базы данных и знаний 180

Рис. III.2. Диалоговое окно свойств создаваемой базы данных

На этой вкладке необходимо ввести имя создаваемой базы данных

в поле Name (Имя) (в

цесс

данном примере введено значение Учебный про-

);

а-

можно также выбрать языковую поддержку в раскрывающемся

списке Collation name, хотя в подавляющем большинстве случаев доста-

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

того как имя введено, оно автоматически становится именами

файла б

зы данных. Помимо имени файла на вкладке Data Files можно задать

путь к нему, его размер и принадлежность группе (рис. III.3). При необ-

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

нижней части вкладки Data Files можно установить свойства каждого

файла базы данных – File Properties (Свойства файла). Установив фла-

жок Automatically grow file (Автоматическое увеличение

размера фай-

ла), вы избавляетесь от необходимости отслеживать размер вашей базы

данных. Два переключателя: File growth (Степень увеличения размера

180