Разработка информационной системы "Библиотека" с использованием клиент-серверной технологии

Для хранения информации в базе данных, нам необходимо разработать структуру БД. Определить какие таблицы (сущности) она в себя будет включать, какие поля (атрибуты) будут включать в себя таблицы. Для логического проектирования БД, мы будем использовать CASE средство ERwin. Цель инфологического моделирования - обеспечение наиболее естественных для человека способов сбора и представления той информации, которую предполагается хранить в создаваемой базе данных. Поэтому инфологическую модель данных пытаются строить по аналогии с естественным языком (последний не может быть использован в чистом виде из-за сложности компьютерной обработки текстов и неоднозначности любого естественного языка). Основными конструктивными элементами инфологических моделей являются сущности, связи между ними и их свойства. Стандартом при инфологическом моделировании БД, является модель «сущность - связь», ER- модель. Основой ER модели служат базовые понятия, соответствующие некоторому классу однотипных объектов. Сущность имеет уникальное имя в пределах моделированной системы, также в системе должны быть ключи. Объект которому соответствует понятие сущность имеет свой набор атрибутов - это характеристики определяющие свойства данной сущности.

Разрабатывая данную базу данных, можно выделить следующие сущности: типы товаров, товары, клиенты, производители, продавци, сделки. Каждая сущностей имеет собственные атрибуты. На основе этих данных строим следующую инфологическую модель (рис 1).

Рисунок 1. Инфологическая модель БД

Рисунок 2. Физическая модель БД

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

2.3 Даталогическое проектирование

- Создание генератора

CREATE GENERATOR GEN_ID_ CHITATEL;

- Создание триггера

CREATE OR ALTER TRIGGER CHITATEL_BI0 FOR CHITATEL

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_chitatelya is null ) then

NEW.nomer_chitatelya=gen_id(gen_chitatel,1);

end

Подобным образом создаем остальные таблицы.Задаем для этих таблиц ключевые поля, вторичные ключи, разрабатываем генераторы и триггеры (см. Приложение 1).

2.5 Программирование бизнес-логики

Часть разработанного интерфейса и выполнение различных действий при работе с БД будем рассматривать на примере таблицы «Читатель» так как, интерфейс остальных таблиц а так же действия над ними практически одинаковые.

1. Выполняем команду File->New->Other и выбираем значок Data Module на вкладке New.

2. В созданный модуль DB переносим компоненты IBDatabase1 и IBTransaction1.

3. Настраиваем свойства DatabaseName, DefaultTransaction для компонента IBDatabase1 и свойство DefaultDatabase для компонента IBTransaction1.

4. В созданный модуль FBDataModule переносим наборы данных TIBQuery. Формируем запросы ко всем главным таблицам, просмотрам, процедурам настроив свойство Query->SQL.

5. В тот же контейнер переносим компонентs TIBDataSource

6. Связываем источники данных с запросами и таблицами в свойстве DataSet.

7. Добавляем в модуль данных компонент IBStoredProc1 (рис.3) для реализации хранимых процедур, настроив свойства Database и Transaction

Рисунок 3. Наполнение модуля DB.

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

Следующим этапом является размещение визуальных компонентов с последующею их настройкой и обработкой событий.

8. Переносим на главную форму требуемые компоненты

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

10. Перетаскиваем необходимое количество других визуальных компонентов: TButton, TLabel, TEdit,

Рисунок 4. Внешний вид приложения и поиск.

11. Далее аналогичным образом создаем остальные формы, подключаем заголовочные файлы и в обработчиках событий кнопок.

12. Добавление реализуем через созданную ранее хранимую процедуру на добавление: ADD_CHIT, для этого поместим на DataModule2 компонент IBStoredProc3 и настроим у него следующие свойства:

DataBase=IBDatabase1; StoredProcName= ADD_CHIT.

Рисунок.5. Форма для таблицы читатели.

Для реализации фильтрации , поместим на форму два компонента Edit (для задания диапазона фильтрации данных) и компонент Button чтобы подать запрос для фильтрации

13. Для генерации отчетов добавляем на главную форму соответствующие кнопки и пишем необходимый код в обработчике событий (см. Приложение 2).

Для формирования отчетов также будут выделены отдельные формы.

Рисунок 6. Отчет

14. Командой Run->Run компилируем, собираем и запускаем приложение.

Полный листинг программы представлен в Приложении 2.

база данные клиент-серверный информационный

4. Создание Web приложения. Web-доступ.

Web приложение в технологии «Клиент-Сервер» представляет собой некий интерфейс между пользователем и базой данных, расположенной на сервере и состоящей под управлением какой-либо СУБД. Такие приложения отличаются от приложений Windows тем, что пользователю не требуется наличие никаких установленных дополнительно на компьютере программ, кроме Web-браузера. Все действия, которые требует выполнить такое приложение, выполняются непосредственно на сервере. Кроме того, приложение Windows является уже откомпилированным файлом, а Web-приложение интерпретируются сервером в момент обращения пользователя к данному приложению.

Для создания такого приложения будет использован язык программирования PHP - интерпретируемый, скриптовый язык программирования, созданный для генерации HTML-страниц на Web-сервере и работы с базами данных. А так же язык гипертекстовой разметки HTML для создания интерфейса приложения.

Итак, приложение будет содержать главную интерфейсную страницу с заголовком, меню и частью, куда будет загружаться контент.

Остальные страницы будут полностью написаны на PHP: страницы с добавлением данных в таблицы, удалением данных в таблицы и редактированием данных. Также будет реализован поиск по базе данных.

В результате приложение будет иметь следующую карту страниц:

Рисунок 7. Схема созданного Web-приложения

Листинги Web-приложения представлены в приложении «Созданное Web-приложение».

Доступ к приложению: http://172.23.30.98:8080/ftp/1406124/apache/index.html

Рисунок 8. Главная страница

Рисунок.9. Таблица Читатели и редактирование

Рисунок.10. Результат редактирования

Рисунок.11. Удаление

Рисунок.12. Результат удаления

Рисунок.13. Поиск

Рисунок.14. Результаты поиска

Рисунок.14.Сортировка

Рисунок.15. Результаты сортировки

Заключение

В результате выполнения курсовой работы нами было создано два клиентских приложения «Библиотека», это Windows и web - приложения. Были достигнуты все поставленные цели и задачи: Углублены теоретические и практические знания в области баз данных и систем управления базами данных. Пользователям предоставляется широкая возможность одновременной работы в обоих приложениях с одной базой данных.

Работа над курсовым проектом позволила приобрести навыки создания информационных систем, основанных на клиент-серверной технологии с использованием РСУБД Firebird. База данных для информационной системы создана в среде РСУБД Firebird и разработана с помощью утилиты IBExpert.

Разработанная информационная система обладает всей необходимой для работы функциональностью и вполне может стать основой в деятельности библиотеки, т.к. web интерфейс является очень удобным приложением для работы с БД.

Список используемых источников

1. А.Я. Архангельский, «Программирование в C++ Builder 6». -- М.:«БИНОМ», 2003 г.

2. Бори Х., «FIREBIRD. Руководство разработчика баз данных». -С-Пб.: «БХВ», 2006 г., 2-е издание.

3. Шамис В., «Borland C++ Builder 6.0». - С - Пб.: «Питер», 2005 г.

4. Похомов Б. И. C\C++ и Borland C++ Builder для студента. СПб.: БХВ-Петербург, 2006. - 448с.

5. Хомоненко А. Д., Ададуров С. Е. Работа с базами данных в C++ Builder. -- СПб.: БХВ-Петербург, 2006.--496 с: ил.

6. http://www.ibase.ru

Приложение 1. SQL код создания БД

Создание таблиц

Читатель

/*** Tables ***/

/******************************************************************************/

CREATE TABLE CHITATEL (

FAMILIYA_CHITATELYA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

IMYA_CHITATELYA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

OTCHESTVO D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

ULICA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

NOMER_DOMA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

TELEFON D_TEL /* D_TEL = VARCHAR(15) */,

NOMER_CHITATELYA D_INDEXTYPE NOT NULL /* D_INDEXTYPE = INTEGER NOT NULL */

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE CHITATEL ADD PRIMARY KEY (NOMER_CHITATELYA);

/******************************************************************************/

/*** Indices ***/

/******************************************************************************/

CREATE INDEX FAMILIYA_CHITATELYA ON CHITATEL (FAMILIYA_CHITATELYA);

CREATE INDEX ULICA ON CHITATEL (ULICA);

/******************************************************************************/

/*** Triggers for tables ***/

/******************************************************************************/

/* Trigger: CHITATEL_BI0 */

CREATE OR ALTER TRIGGER CHITATEL_BI0 FOR CHITATEL

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_chitatelya is null ) then

NEW.nomer_chitatelya=gen_id(gen_chitatel,1);

end

^

SET TERM ; ^

/* Fields descriptions */

COMMENT ON COLUMN CHITATEL.NOMER_DOMA IS

'VALUE>0';

/******************************************************************************/

/*** Privileges ***/

/******************************************************************************/

Библиотекарь

CREATE TABLE BIBLIOTEKOR (

NOMER_BIBLIOTEKORYA D_INDEXTYPE NOT NULL /* D_INDEXTYPE = INTEGER NOT NULL */,

NOMER_OTDELA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

FAMILIYA_BIBLIOTEKORYA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

NAME_BIBLIOTEKORYA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE BIBLIOTEKOR ADD CONSTRAINT PK_BIBLIOTEKOR PRIMARY KEY (NOMER_BIBLIOTEKORYA);

/******************************************************************************/

/*** Foreign Keys ***/

/******************************************************************************/

ALTER TABLE BIBLIOTEKOR ADD CONSTRAINT FK_BIBLIOTEKOR_1 FOREIGN KEY (NOMER_OTDELA) REFERENCES OTDEL_KNIG (NOMER_OTDELA);

/******************************************************************************/

/*** Indices ***/

/******************************************************************************/

CREATE INDEX FAM ON BIBLIOTEKOR (FAMILIYA_BIBLIOTEKORYA);

/******************************************************************************/

/*** Triggers ***/

/******************************************************************************/

SET TERM ^ ;

/******************************************************************************/

/*** Triggers for tables ***/

/******************************************************************************/

/* Trigger: BIBLIOTEKOR_BI0 */

CREATE OR ALTER TRIGGER BIBLIOTEKOR_BI0 FOR BIBLIOTEKOR

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_bibliotekorya is null) then

NEW.nomer_bibliotekorya=gen_id(gen_bibliotekar,1);

end

^

SET TERM ; ^

/* Fields descriptions */

COMMENT ON COLUMN BIBLIOTEKOR.NOMER_BIBLIOTEKORYA IS

'VALUE>0';

COMMENT ON COLUMN BIBLIOTEKOR.NOMER_OTDELA IS

'VALUE>0';

Книги

CREATE TABLE KNIGI (

NOMER_KNIGI D_INDEXTYPE NOT NULL /* D_INDEXTYPE = INTEGER NOT NULL */,

NOMER_OTDELA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

NAZVANIE_KNIGI D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

KOL_VO_STRANIC D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

AVTOR D_NAME /* D_NAME = VARCHAR(45) NOT NULL */

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE KNIGI ADD CONSTRAINT PK_KNIGI PRIMARY KEY (NOMER_KNIGI);

/******************************************************************************/

/*** Foreign Keys ***/

/******************************************************************************/

ALTER TABLE KNIGI ADD CONSTRAINT FK_KNIGI_1 FOREIGN KEY (NOMER_OTDELA) REFERENCES OTDEL_KNIG (NOMER_OTDELA);

/******************************************************************************/

/*** Indices ***/

/******************************************************************************/

CREATE INDEX "_KNIGA" ON KNIGI (NAZVANIE_KNIGI);

/******************************************************************************/

/*** Triggers ***/

/******************************************************************************/

SET TERM ^ ;

/******************************************************************************/

/*** Triggers for tables ***/

/******************************************************************************/

/* Trigger: KNIGI_BI0 */

CREATE OR ALTER TRIGGER KNIGI_BI0 FOR KNIGI

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_knigi is null) then

NEW.nomer_knigi=gen_id(gen_knigi,1);

end

^

/* Trigger: KNIGI_HIST_BI0 */

CREATE OR ALTER TRIGGER KNIGI_HIST_BI0 FOR KNIGI

ACTIVE BEFORE INSERT POSITION 0

AS

declare variable nomer_knigi_tr smallint;

declare variable nomer_otdela_tr smallint;

declare variable nazvanie_knigi_tr varchar(45);

declare variable kol_vo_stranic_tr smallint;

declare variable avtor_tr varchar(45);

declare variable IZMEN_TR varchar(45);

declare variable DATA_TR date;

begin

DATA_TR=current_date;

if (inserting) then

begin

DATA_TR=current_date;

nomer_knigi_tr=new.nomer_knigi;

IZMEN_TR='добавление';

nomer_otdela_tr=new.nomer_otdela;

nazvanie_knigi_tr=new.nazvanie_knigi;

kol_vo_stranic_tr=new.kol_vo_stranic;

avtor_tr=new.avtor;

end

end

^

SET TERM ; ^

/* Fields descriptions */

COMMENT ON COLUMN KNIGI.NOMER_KNIGI IS

'VALUE>0';

COMMENT ON COLUMN KNIGI.NOMER_OTDELA IS

'VALUE>0';

COMMENT ON COLUMN KNIGI.KOL_VO_STRANIC IS

'VALUE>0';

Исторя

CREATE TABLE NEW_TABLE (

ID SMALLINT NOT NULL,

NOMER_KNIGI SMALLINT, данные клиент-сервер система информационный

NOMER_OTDELA SMALLINT,

NAZVANIE_KNIGI VARCHAR(45),

KOL_VO_STRANIC SMALLINT,

AVTOR VARCHAR(45),

IZMEN VARCHAR(45),

DATA_TR DATE

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE NEW_TABLE ADD CONSTRAINT PK_NEW_TABLE_1 PRIMARY KEY (ID);

Отдел книг

CREATE TABLE OTDEL_KNIG (

NAZVANIE_OTDELA D_NAME /* D_NAME = VARCHAR(45) NOT NULL */,

NOMER_OTDELA D_INDEXTYPE NOT NULL /* D_INDEXTYPE = INTEGER NOT NULL */,

KOL_VO_KNIG D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

TELEFON D_TEL /* D_TEL = VARCHAR(15) */,

NOMER_BIBLIOTEKORYA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE OTDEL_KNIG ADD CONSTRAINT PK_OTDEL_KNIG PRIMARY KEY (NOMER_OTDELA);

/******************************************************************************/

/*** Indices ***/

/******************************************************************************/

CREATE INDEX NAZV ON OTDEL_KNIG (NAZVANIE_OTDELA);

/******************************************************************************/

/*** Triggers ***/

/*****************************************************************************

SET TERM ^ ;

/******************************************************************************/

/*** Triggers for tables ***/

/******************************************************************************/

/* Trigger: OTDEL_BI0 */

CREATE OR ALTER TRIGGER OTDEL_BI0 FOR OTDEL_KNIG

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_otdela is null) then

NEW.nomer_otdela=gen_id(gen_otdel_knig,1);

end

^

SET TERM ; ^

/* Fields descriptions */

COMMENT ON COLUMN OTDEL_KNIG.NOMER_OTDELA IS

'VALUE>0';

COMMENT ON COLUMN OTDEL_KNIG.KOL_VO_KNIG IS

'VALUE>0';

COMMENT ON COLUMN OTDEL_KNIG.NOMER_BIBLIOTEKORYA IS

'VALUE>0';

Выдача книг

CREATE TABLE VIDA4A_KNIG (

NOMER_ZAPISI D_INDEXTYPE NOT NULL /* D_INDEXTYPE = INTEGER NOT NULL */,

NOMER_KNIGI D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

NOMER_BIBLIOTEKORYA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

NOMER_CHITATELYA D_INDEXTYPE /* D_INDEXTYPE = INTEGER NOT NULL */,

DATA_VYDA4I_KNIGI D_DATETYPE /* D_DATETYPE = DATE NOT NULL */,

DATA_VOZVRATA_KNIGI D_DATETYPE /* D_DATETYPE = DATE NOT NULL */

);

/******************************************************************************/

/*** Primary Keys ***/

/******************************************************************************/

ALTER TABLE VIDA4A_KNIG ADD CONSTRAINT PK_VIDA4A_KNIG PRIMARY KEY (NOMER_ZAPISI);

/******************************************************************************/

/*** Foreign Keys ***/

/******************************************************************************/

ALTER TABLE VIDA4A_KNIG ADD CONSTRAINT FK_VIDA4A_KNIG_1 FOREIGN KEY (NOMER_KNIGI) REFERENCES KNIGI (NOMER_KNIGI);

ALTER TABLE VIDA4A_KNIG ADD CONSTRAINT FK_VIDA4A_KNIG_2 FOREIGN KEY (NOMER_BIBLIOTEKORYA) REFERENCES BIBLIOTEKOR (NOMER_BIBLIOTEKORYA);

/******************************************************************************/

/*** Triggers ***/

/******************************************************************************/

SET TERM ^ ;

/******************************************************************************/

/*** Triggers for tables ***/

/******************************************************************************/

/* Trigger: VYDACHA_KNIG_BI0 */

CREATE OR ALTER TRIGGER VYDACHA_KNIG_BI0 FOR VIDA4A_KNIG

ACTIVE BEFORE INSERT OR UPDATE POSITION 0

AS

begin

IF(NEW.nomer_zapisi is null) then

NEW.nomer_zapisi=gen_id(gen_vida4a_knig,1);

end^

SET TERM ; ^

/* Fields descriptions */

COMMENT ON COLUMN VIDA4A_KNIG.NOMER_ZAPISI IS

'VALUE>0';

COMMENT ON COLUMN VIDA4A_KNIG.NOMER_KNIGI IS

'VALUE>0';

COMMENT ON COLUMN VIDA4A_KNIG.NOMER_BIBLIOTEKORYA IS

'VALUE>0';

COMMENT ON COLUMN VIDA4A_KNIG.NOMER_CHITATELYA IS

'VALUE>0';

Представления

/* View: KNIGI_VIEW */

CREATE VIEW KNIGI_VIEW(

NOMER_KNIGI,

NOMER_OTDELA,

NAZVANIE_KNIGI,

KOL_VO_STRANIC,

AVTOR)

AS

select knigi.nomer_knigi,otdel_knig.nomer_otdela,knigi.nazvanie_knigi,knigi.kol_vo_stranic,knigi.avtor

from knigi,otdel_knig

where knigi.nomer_otdela=otdel_knig.nomer_otdela

;

/* View: VOZVRAT_VIEW */

CREATE VIEW VOZVRAT_VIEW(

FAMILIYA_CHITATELYA,

IMYA_CHITATELYA,

OTCHESTVO,

NOMER_CHITATELYA,

NOMER_KNIGI,

NAZVANIE_KNIGI,

DATA_VOZVRATA_KNIGI)

AS

select chitatel.familiya_chitatelya,chitatel.imya_chitatelya,chitatel.otchestvo,

vida4a_knig.nomer_chitatelya,vida4a_knig.nomer_knigi,knigi.nazvanie_knigi,

vida4a_knig.data_vozvrata_knigi

from chitatel,vida4a_knig,knigi

where chitatel.nomer_chitatelya=vida4a_knig.nomer_chitatelya and knigi.nomer_knigi=vida4a_knig.nomer_knigi

;

Хранимые процедуры Редактирование и удаление данных

begin

INSERT INTO chitatel (chitatel.familiya_chitatelya,chitatel.imya_chitatelya,chitatel.otchestvo,

chitatel.ulica,chitatel.nomer_doma,chitatel.telefon)

VALUES (:familiya,:name,:otchestvo,:ulica,:n_doma,:tel);

suspend;

end

begin

INSERT INTO bibliotekor (bibliotekor.nomer_otdela,

bibliotekor.familiya_bibliotekorya,

bibliotekor.name_bibliotekorya)

VALUES (:n_otdel,:familiya,:name);

suspend;

end

begin

insert into vida4a_knig(nomer_knigi,nomer_chitatelya,

nomer_bibliotekorya,data_vyda4i_knigi,data_vozvrata_knigi)

values(:n_knigi,:n_biblio,:n_4itatelya,:data_vyd,:data_vozv );

suspend;

end

begin

insert into otdel_knig(otdel_knig.nazvanie_otdela,otdel_knig.kol_vo_knig,

otdel_knig.TELEFON,otdel_knig.nomer_bibliotekorya)

values(:nazvanie,:kol_knig,:telefon,:n_biblio);

suspend;

end

BEGIN

INSERT INTO knigi (knigi.nomer_otdela,knigi.nazvanie_knigi, knigi.kol_vo_stranic,knigi.avtor)

VALUES (:n_otdela,:new_nazvanie,:kol_vo_stranic,:avtor );

suspend;

end

BEGIN

DELETE FROM vida4a_knig

WHERE (nomer_zapisi = :n_zapisi);

END

BEGIN

DELETE FROM otdel_knig

WHERE (nomer_otdela = :n_otdela);

END

BEGIN

DELETE FROM knigi

WHERE (nomer_knigi = :n_knigi);

END

BEGIN

DELETE FROM bibliotekor

WHERE (nomer_bibliotekorya = :n_biblio);

END

BEGIN

DELETE FROM chitatel

WHERE (nomer_CHITATELYA = :n_CHITAT);

END

BEGIN

UPDATE chitatel

SET nomer_chitatelya=:n_chit,

nomer_doma =:n_doma,

familiya_chitatelya =:familiya,

imya_chitatelya =:name,

otchestvo=:otchestvo,

ULICA=:ulica,

telefon=:tel

WHERE(nomer_chitatelya =:n_chit);

when sqlcode -530 do

exception key_ne_ice;

end

BEGIN

UPDATE bibliotekor

SET nomer_bibliotekorya =:n_biblio,

nomer_otdela =:n_otdela, familiya_bibliotekorya =:familiya,

name_bibliotekorya=:name

WHERE(nomer_bibliotekorya =:n_biblio);

End

BEGIN

UPDATE vida4a_knig

SET nomer_zapisi=:n_zapisi,

nomer_knigi =:n_knigi,

nomer_chitatelya =:n_chit,

nomer_bibliotekorya =:n_biblio,

data_vyda4i_knigi=:data_vyd,

data_vozvrata_knigi=:data_vozvr

WHERE(nomer_zapisi =:n_zapisi);

when sqlcode -530 do

exception key_ne_ice;

end

BEGIN

UPDATE otdel_knig

SET nazvanie_otdela=:name_ot,

nomer_otdela =:n_otel,

kol_vo_knig =:kol_knig,

nomer_bibliotekorya =:n_biblio,

telefon=:tel

WHERE(nomer_otdela =:n_otel);

when sqlcode -530 do

exception key_ne_ice;

end

BEGIN

if (:KOL_VO_STRANIC<=0) then exception stranicy;

else

BEGIN

UPDATE knigi

SET nomer_knigi =:n_knigi,

nomer_otdela =:n_otdela, nazvanie_knigi =:new_nazvanie,

kol_vo_stranic =:kol_vo_stranic,

avtor = :avtor

WHERE(nomer_knigi =:N_KNIGI);

when sqlcode -530 do

exception key_ne_ice;

end

END

Домены

CREATE DOMAIN D_ADRES AS

VARCHAR(40) CHARACTER SET WIN1251

NOT NULL

COLLATE WIN1251;

CREATE DOMAIN D_DATETYPE AS

DATE

NOT NULL;

CREATE DOMAIN D_INDEXTYPE AS

INTEGER

NOT NULL;

COMMENT ON DOMAIN D_INDEXTYPE IS

'VALUE>0';

CREATE DOMAIN D_NAME AS

VARCHAR(45) CHARACTER SET WIN1251

NOT NULL

COLLATE WIN1251;

CREATE DOMAIN D_TEL AS

VARCHAR(15) CHARACTER SET WIN1251

COLLATE WIN1251;

Приложение 2. Листинг клиентского приложения

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

if (RadioButton1->Checked==true)

{Set<TLocateOption,0,1> flags;

flags << loPartialKey;

if (!DataModule2->IBTable2->IsEmpty())

DataModule2->IBTable2->Locate("nomer_knigi", Edit1->Text, flags);}

if (RadioButton2->Checked==true)

{Set<TLocateOption,0,1> flags;

flags << loPartialKey;

if (!DataModule2->IBTable2->IsEmpty())

DataModule2->IBTable2->Locate("nazvanie_knigi", Edit1->Text, flags);}

if (RadioButton3->Checked==true)

{Set<TLocateOption,0,1> flags;

flags << loPartialKey;

if (!DataModule2->IBTable2->IsEmpty())

DataModule2->IBTable2->Locate("avtor", Edit1->Text, flags);}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

DataModule2->IBStoredProc1->ParamByName("familiya")->AsString=Edit2->Text;

DataModule2->IBStoredProc1->ParamByName("name")->AsString=Edit3->Text;

DataModule2->IBStoredProc1->ParamByName("otchestvo")->AsString=Edit4->Text;

DataModule2->IBStoredProc1->ParamByName("ulica")->AsString=Edit5->Text;

DataModule2->IBStoredProc1->ParamByName("n_doma")->AsString=Edit6->Text;

DataModule2->IBStoredProc1->ParamByName("tel")->AsString=Edit7->Text;

DataModule2->IBStoredProc1->ParamByName("n_chit")->AsString=Edit10->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

DataModule2->IBStoredProc2->ParamByName("familiya")->AsString=Edit2->Text;

DataModule2->IBStoredProc2->ParamByName("name")->AsString=Edit3->Text;

DataModule2->IBStoredProc2->ParamByName("otchestvo")->AsString=Edit4->Text;

DataModule2->IBStoredProc2->ParamByName("ulica")->AsString=Edit5->Text;

DataModule2->IBStoredProc2->ParamByName("n_doma")->AsString=Edit6->Text;

DataModule2->IBStoredProc2->ParamByName("tel")->AsString=Edit7->Text;

DataModule2->IBStoredProc2->Prepare();

DataModule2->IBStoredProc2->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

DataModule2->IBStoredProc3->ParamByName("n_CHITAT")->AsString=Edit8->Text;

DataModule2->IBStoredProc3->Prepare();

DataModule2->IBStoredProc3->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Filtered=false;

DataModule2->IBTable3->Filter="NOMER_CHITATELYA='"+Edit9->Text+"'" ;

DataModule2->IBTable3->Active=true;

DataModule2->IBTable3->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

DataModule2->IBTable3->Filtered=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)

{

if (RadioButton4->Checked==true)

{DataModule2->IBTable3->IndexName="RDB$PRIMARY1";}

else if (RadioButton5->Checked==true)

{DataModule2->IBTable3->IndexName="familiya_chitatelya";}

else if (RadioButton6->Checked==true)

{DataModule2->IBTable3->IndexName="ulica";}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)

{

DataModule2->IBStoredProc4->ParamByName("n_biblio")->AsString=Edit11->Text;

DataModule2->IBStoredProc4->ParamByName("n_otdela")->AsString=Edit12->Text;

DataModule2->IBStoredProc4->ParamByName("familiya")->AsString=Edit13->Text;

DataModule2->IBStoredProc4->ParamByName("name")->AsString=Edit14->Text;

DataModule2->IBStoredProc4->Prepare();

DataModule2->IBStoredProc4->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)

{

DataModule2->IBStoredProc5->ParamByName("n_biblio")->AsString=Edit11->Text;

DataModule2->IBStoredProc5->ParamByName("n_otdel")->AsString=Edit12->Text;

DataModule2->IBStoredProc5->ParamByName("familiya")->AsString=Edit13->Text;

DataModule2->IBStoredProc5->ParamByName("name")->AsString=Edit14->Text;

DataModule2->IBStoredProc5->Prepare();

DataModule2->IBStoredProc5->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)

{

DataModule2->IBStoredProc6->ParamByName("n_biblio")->AsString=Edit15->Text;

DataModule2->IBStoredProc6->Prepare();

DataModule2->IBStoredProc6->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)

{

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Filtered=false;

DataModule2->IBTable4->Filter="Nomer_BIBLIOtekorya='"+Edit16->Text+"'" ;

DataModule2->IBTable4->Active=true;

DataModule2->IBTable4->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button12Click(TObject *Sender)

{

if (RadioButton7->Checked==true)

{DataModule2->IBTable4->IndexName="pk_bibliotekor";}

else if (RadioButton8->C...