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

procedure TfmFindLease.btFindClick(Sender: TObject);

begin

with dmPrn.quLsOwRRn do begin

Close;

ParamByName('NameTn').AsString := Editl.Text;

Open ;

end;

end;

10. Сохраните проект в папке Print (File/Save Project As), откомпилируйте его и проверьте работоспособность.

 

 

 

 

 

 

Результат поиска

 

Совет: Для отображения всех цифр года в дате создайте постоянный набор quLsOw-RRnL_LDATE, используя Fields Editor, и определите свойство DisplayFormat набора как dd.mm.yyyy.

 

11. Теперь, когда данные договора извлечены, реализуем его печать. Поставим в соответствие событию Onclick кнопки Печать (btPrint) процедуру:

 

procedure TfmFindLease.btPrintClick(Sender: TObject);

begin

PrintLease(True);

end;

 

При таком значении параметра  процедура

procedure TfmFindLease.PrintLease(Preview: Boolean);

begin

if Preview then

PrnLease.QuickRepl.Preview

else

PrnLease.QuickRepl.Print;

end;

печатает отчет. PrnLease — форма отчета.

12. Объявите процедуру PrintLease в разделе private модуля Find.pas.
13. Создадим форму отчета. Добавьте новую форму и назовите ее PrnLease (File/New/Form).

Результат поиска

14. Поместите на нее компонент TQuickRep.
15. Поместите в отчет компонент TQRBand, и определите его свойство BandType как rbDetail.
16. Расположите на полосе компонент TQRExprMemo.
17. Используя свойство Lines, вызовите окно String List Editor и введите туда текст договора аренды.

Окно String List Editir

 

18. Закройте редактор и увеличьте размеры полосы и  компонента TQRExprMemo так, чтобы было видно весь текст договора.
19. Теперь щелкните правой кнопкой мыши в поле отчета и выберите из контекстного меню пункт Report settings.
20. Выберите из раскрывающегося списка Paper size значение Custom Size и установите требуемую ширину и высоту листа, которая на ширину полей превышает текст договора.
21. Сохраните в папке Print разработанный модуль печати договора , PrnLease под именем PrnLeaseLJ.pas.

Результат печати отчета

22. Добавьте имя модуля в секцию implementation модуля Find (File/Use Unit).
23. Добавьте имя модуля данных в секцию implementation модуля PrnLeaseUjB
24. Объявите значение свойства Dataset компонента TQuickRep равным dmPrn.quLsOwRRn.
25. Сохраните проект в папке Print, откомпилируйте его и проверьте работоспособность.

 

Лабораторная №16

Установление привилегии доступа.

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

 

Привилегии представляют собой  права доступа к БД. Управление привилегиями заключается в их установке и удалении. Установку привилегий выполняет инструкция:

 

GRANT <Список описателей  вида доступа>

ON [TABLE] {<Имя таблицы> | <Имя просмотра>}ТО {<Пользователь> | <Список пользователей;}

EXECUTE ON PROCEDURE <Имя процедуры> ТО {<Пользователь> | <Список пользователей;};

 

<Пользователь> =PROCEDURE <Имя процедуры>/ TRIGGER <Имя триггера>/ VIEW <Имя просмотра>/ [USER] <Имя  пользователя>/ PUBLIC

<Список пользователей> = [USER] <Имя пользователя1>...[,[USER] <Имя  пользователяN] [WITH GRANT OPTION]

Описатель WITH GRANT OPTION означает, что пользователь может устанавливать  предоставленные ему привилегии другим пользователям. В качестве описателей, определяющих вид доступа, указываются  следующие:

1. ALL (все права доступа);
2. INSERT (вставка);
3. SELECT (только чтение);
4. UPDATE (модификация);
5. DELETE (удаление).

• Установка привилегий:

Ход работы:

4. Запустить утилиту IBConsole
5. Запустить утилиту Interactive SQL.
6. Создать роли - OBEKT и ARENDA: CREATE ROLE OBEKT; CREATE ROLE ARENDA.
7. Назначить права доступа каждой из этих ролей; роль OBEKT – просмотр всех таблиц, изменение имени и адреса места жительства владельца недвижимости, роль ARENDA – полное право доступа ко всем таблицам.

 

роль OBEKT

 

GRANT SELECT ON Rent TO OBEKT;

GRANT SELECT ON Lease TO OBEKT;

GRANT SELECT ON Realty TO OBEKT;

GRANT SELECT, UPDATE (Ow, AdO) ON Owner TO OBEKT;

 

роль ARENDA

 

GRANT ALL ON Owner TO ARENDA;

GRANT ALL ON Lease TO ARENDA;

GRANT ALL ON Realty TO ARENDA;

GRANT ALL ON Rent TO ARENDA;

 

Удаление привилегий заключается в отмене заданного ранее права доступа. Отмену привилегии выполняет инструкция REVOKE, формат которой аналогичен формату инструкции GRANT установки привилегии. Отличие заключается в том, что инструкция дополнительно имеет необязательный описатель GRANT OPTION FOR, который удаляет не саму привилегию, а право выдачи ее другим пользователям. Отметим, что удалить привилегию может только тот, кто ее установил. После выполнения команды REVOKE ALL ON Rent TO OBEKT; пользователь с именем OBEKT лишается права доступа к таблице Rent.

 

Лабораторная №17

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

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

• Регистрация параметров сервера на клиенте

При работе с InterBase-сервером по протоколу TCP/IP необходимо описать его свойства на компьютере клиента.

1. Указать в файле HOSTS.SAM IP-адрес компьютера, на котором он установлен. Например, так (IP-адрес и сетевое имя сервера соответственно):
14. С232
2. В файле SERVICES указать протокол доступа к серверу InterBase: gds_db 3050/tcp

 

Примечание

Файлы HOSTS.SAM и SERVICES находятся в папке, куда инсталлирована операционная система Windows.

Чтобы узнать IP-адрес компьютера, на котором установлен сервер InterBase, если этот компьютер работает под управлением Windows 98.

1. Выполните на этом компьютере команду Настройка/Панель управления.
2. Выберите значок Сеть.
3. В появившемся окне выберите компонент TCP/IP.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выбор протокола соединения

Определение IP-адреса

4. Щелкните мышью на кнопке Свойства.
5. В появившемся окне посмотрите IP-адрес

• Соединение с удаленным сервером

Прежде чем  соединить приложение-клиент с SQL-сервером, следует проверить наличие сетевого соединения. Это можно сделать с помощью утилит PING или TELNET.

1. Запустите IBConsole.
2. Зарегистрируйте сервер:

 

• выберите в главном меню Server/Register;
• в появившемся окне Register Server and Connect активизируйте переключатель Remote Server, в поле Server Name наберите сетевое имя сервера, а в поле Network Protocol выберите TCP/IP.

 

 

 

 

 

 

 

 

 

 

 

Регистрация сервера

3. Используя утилиту PING проверьте доступность по сети компьютера, на котором установлен сервер. Если компьютер доступен, то в окне Communication Diagnostics вы увидите значение параметра Lost равным нулю.

Если после  щелчка на кнопке Test в окне Communication Diagnostics число потерянных пакетов (параметр Lost) будет отлично от нуля, то в сети есть проблемы с протоколом TCP/IP.

4. Проверьте доступность сервера InterBase. Если сервер доступен, то в окне Communication Diagnostics вы увидите сообщение "TCP/IP Communication Test Passed!".

Если после  щелчка на кнопке Test в окне Communication Diagnostics вмес" сообщения "TCP/IP Communication Test Passed!" вы увидите "TCP/IP Communication Test Failed!", то доступ к серверу InterBase отсутствует.

Проверка  связи с компьютером

Проверка  связи с сервером InterBase

• Описание параметров базы данных в клиентском приложении

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

В первом случае для соединения с удаленной базой  данных по протоколу TCP/IP используйте двоеточие для отделения имени сервера от полного имени базы данных. Например, так:

с232: C:\dbApp\clsrv\Exmpl\Exmpl.gdb

Здесь с232 — сетевое имя компьютера, на котором установлен сервер;

 

 

 

 

 

 

 

 

 

 

Параметры соединения BDE-ориентированного клиента

В случае не BDE-ориентированных клиентов имя компьютера на котором установлен сервер, и полный путь к базе данных прописываются отдельно. Например, используя IBConsole, мы сначала зарегистрировали сервер.

Теперь можно  зарегистрировать саму базу данных (Database/Register), чтобы убедиться, что ее данные доступны на настоящем клиентском месте.

 

 

 

 

Параметры соединения не ВDEориентированного клиента

Контрольное задание: Выполнить резервное копирование таблиц базы данных Exmpl.gdb.

 

Лабораторная №18

Копирование клиентской части

Цель работы: научится управлять работой утилиты InstallShield .

• Создание дистрибутива приложения с помощью InstallShield Express

Рассмотрим ситуацию, когда необходимо перенести приложение на компьютер, где не установлен BDE или приложение разрабатывалось в новой версии. В этом случае применяют утилиту InstallShield Express. Рассмотрим перенос информационной системы "Аренда Minus", приложение, которой расположена на диске D: в папке D:\Test_Db, а база Exmpl.gdb в папке D:\Test_Db\Db

Ход работы:

1. Создайте на диске D: папку Test_Db и вложенную в нее папку Db.
2. Скопируйте в папку Test_Db exe-файл разработанного приложения.
3. Таблицы базы скопируйте в папку Db.
4. Запустите утилиту  InstallShield.
5. Выполните команду меню View- View List

I шаг Organize Your Setup

6. Выберите команду Create a new project
7. Создайте папку prjInst для хранения проекта.
8. Введите полное имя проекта D:\test_db\prJInst\dbApp.ism

 

 

10. Выбрать опцию General Information/
11. Свойство INSTALLDIR - [ProgramFilesFolder]\test_db
12. Свойство DATABASEDIR - [INSTALLDIR]\db
13. В управляющем списке выбрать возможные типы установки.

 

II шаг  Specify Application Data

14. Выбрать в управляющем списке Files.
15. Щелкните правой кнопкой мыши на пункте Destination Computer в окне Destination computer’s folders и выберите из появившегося контекстного меню Show Predefined Folder/[INSTALLDIR].
16. В верхнем окне перейдите в папку D:\Test_DB и перетащите исполняемый файл в папку [INSTALLDIR].
17. Аналогично перетащить файлы базы данных в папку [DATABASEDIR].
18. Описать драйверы, которые должны быть в дистрибутиве

• Выбрать Object/Merge Modules;

• В окне InstallShield Object/Merge Modules выбрать BDE_ENT;
• Выбрать Create a new BDE Configuration file;
• Перейти в окно навигатора и создать в папке D:\test_db\prJInst  файл BDEcfg.ini ;
• Далее кнопка Launch и окно выбора алиаса и драйвера базы данных.

III шаг  Configure the Target System

19. Выбрать в управляющем списке Registry.
20. Скопируйте папку HKEY_LOCAL_MACHINE/Software/Borland/Database Engine
21. Поместите копию в папку HKEY_LOCAL_MACHINE/Software/Borland/Database Engine

IV шаг  Prepare for Release

22. Выбрать в списке Build Your Release.
23. В списке Builds выбрать CD-ROM .
24. В контекстном меню выбрать Build.
25. Выполните пункт Distribute Your Release.

 

Список рекомендуемых  баз данных

1. Городской телефонный справочник.

2. Электронный алфавитно-систематический каталог библиотеки.

3. Информационная поисковая система «Клиенты библиотеки».

4. Автоматизация работы отдела кадров при приеме на работу сотрудников предприятия. Заполнение анкеты. Статистический учет работников на предприятии.

5. Система «Биржа труда». Постановка на учет. Информация о трудоустройстве.

6. Касса автовокзала. Продажа билетов.