107
необходимые комментарии и справочную информацию, необходимую для
облегчения работы пользователя и системного администратора при устранении
неполадок.
В состав сопровождающей документации должны входить:
руководство пользователя;
руководство разработчика;
описание программного кода программы.
5 Технико-экономические показатели
Внедрение информационной системы позволит сократить время
оформления полисов, поиска необходимой информации по объектам
страхования.
6 Стадии и этапы разработки
При разработке данного проекта были определены следующие этапы:
формулировка задач и требований к системе – 1 неделя;
исследование предметной области (анализ данных, процессов и
т.д.) – 1 неделя;
моделирование информационной системы – 1 неделя;
разработка модели базы данных – 2 недели;
проектирование интерфейса пользователя – 1 неделя;
разработка клиентских приложений – 4 недели;
отладка и тестирование программы – 1 неделя;
составление сопровождающей документации – 1 неделя.
7 Порядок контроля и приемки
Для проверки правильности работы системы необходимо провести
тестирование всех функций системы. Проверка правильности работы программы
должна осуществляться с помощью тестовой базы данных, определенного
набора тестов и проверки правильности формирования всех выдаваемых
документов.
Ввод в эксплуатацию программного продукта должен проводиться после
подтверждения работоспособности системы и выполнения системой указанных
функций.
Во время приемки информационной системы подписывается акт приема-
108
передачи и передается техническая документация на информационную систему.
109
Приложение В
Листинг программы
&НаКлиенте
Процедура СерияПолисаПриИзменении(Элемент)
Объект.ДатаПолиса = СерияПолиса(Объект.СерияПолиса);
КонецПроцедуры
&НаСервере
Функция СерияПолиса(СерииПолисов)
Возврат СерииПолисов.ДатаНачалаДействия
КонецФункции
&НаКлиенте
Процедура СтраховательПриИзменении(Элемент)
Реквизит1 =
СтраховательПриИзмененииНаСервере(Объект.Страхователь);
Реквизит2 =
СтраховательПриИзмененииНаСервере1(Объект.Страхователь);
Реквизит3 =
СтраховательПриИзмененииНаСервере2(Объект.Страхователь);
Реквизит4 =
СтраховательПриИзмененииНаСервере3(Объект.Страхователь);
Реквизит5 =
СтраховательПриИзмененииНаСервере4(Объект.Страхователь);
Реквизит6 =
СтраховательПриИзмененииНаСервере5(Объект.Страхователь);
Реквизит7 =
СтраховательПриИзмененииНаСервере6(Объект.Страхователь);
Реквизит8 =
СтраховательПриИзмененииНаСервере7(Объект.Страхователь);
Реквизит9 =
СтраховательПриИзмененииНаСервере8(Объект.Страхователь);
110
Реквизит10 = Реквизит1 + " " + Реквизит4 + " " + Реквизит7;
Реквизит11 = Реквизит2 + " " + Реквизит5 + " " + Реквизит8;
Реквизит12 = Реквизит3 + " " + Реквизит6 + " " + Реквизит9;
КонецПроцедуры
&НаСервере
Функция СтраховательПриИзмененииНаСервере(Страхователи)
Возврат Страхователи.ФамилияПоручителя
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере1(Страхователи)
Возврат Страхователи.ФамилияПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере2(Страхователи)
Возврат Страхователи.ФамилияПоручителя2
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере3(Страхователи)
Возврат Страхователи.ИмяПоручителя
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере4(Страхователи)
Возврат Страхователи.ИмяПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере5(Страхователи)
Возврат Страхователи.ИмяПоручителя2
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере6(Страхователи)
Возврат Страхователи.ОтчествоПоручителя
КонецФункции
111
&НаСервере
Функция СтраховательПриИзмененииНаСервере7(Страхователи)
Возврат Страхователи.ОтчествоПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере8(Страхователи)
Возврат Страхователи.ОтчествоПоручителя2
КонецФункции
Архив полюсов
НаКлиенте
Процедура СерияПолисаПриИзменении(Элемент)
Объект.ДатаПолиса = СерияПолиса(Объект.СерияПолиса);
КонецПроцедуры
&НаСервере
Функция СерияПолиса(СерииПолисов)
Возврат СерииПолисов.ДатаНачалаДействия
КонецФункции
&НаКлиенте
Процедура СтраховательПриИзменении(Элемент)
Реквизит1 =
СтраховательПриИзмененииНаСервере(Объект.Страхователь);
Реквизит2 =
СтраховательПриИзмененииНаСервере1(Объект.Страхователь);
Реквизит3 =
СтраховательПриИзмененииНаСервере2(Объект.Страхователь);
Реквизит4 =
СтраховательПриИзмененииНаСервере3(Объект.Страхователь);
Реквизит5 =
СтраховательПриИзмененииНаСервере4(Объект.Страхователь);
Реквизит6 =
СтраховательПриИзмененииНаСервере5(Объект.Страхователь);
Реквизит7 =
112
СтраховательПриИзмененииНаСервере6(Объект.Страхователь);
Реквизит8 =
СтраховательПриИзмененииНаСервере7(Объект.Страхователь);
Реквизит9 =
СтраховательПриИзмененииНаСервере8(Объект.Страхователь);
Реквизит10 = Реквизит1 + " " + Реквизит4 + " " + Реквизит7;
Реквизит11 = Реквизит2 + " " + Реквизит5 + " " + Реквизит8;
Реквизит12 = Реквизит3 + " " + Реквизит6 + " " + Реквизит9;
КонецПроцедуры
&НаСервере
Функция СтраховательПриИзмененииНаСервере(Страхователи)
Возврат Страхователи.ФамилияПоручителя
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере1(Страхователи)
Возврат Страхователи.ФамилияПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере2(Страхователи)
Возврат Страхователи.ФамилияПоручителя2
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере3(Страхователи)
Возврат Страхователи.ИмяПоручителя
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере4(Страхователи)
Возврат Страхователи.ИмяПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере5(Страхователи)
Возврат Страхователи.ИмяПоручителя2
113
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере6(Страхователи)
Возврат Страхователи.ОтчествоПоручителя
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере7(Страхователи)
Возврат Страхователи.ОтчествоПоручителя1
КонецФункции
&НаСервере
Функция СтраховательПриИзмененииНаСервере8(Страхователи)
Возврат Страхователи.ОтчествоПоручителя2
КонецФункции
Листинг базы данных
Схема БД должна иметь имя POLIS
create user INSURANCE identified by INSURANCE;
grant connect to INSURANCE;
grant resource to INSURANCE;
CREATE TABLE Clients (
IdClient NUMBER NOT NULL,
FamilyName VARCHAR2(64) NOT NULL,
FirstName VARCHAR2(64) NOT NULL,
SecondName VARCHAR2(64) NOT NULL,
PassNo NUMBER NULL,
PassSerial VARCHAR2(10) NULL,
WhoGive VARCHAR2(64) NULL,
WhenGive DATE NULL,
Address VARCHAR2(125) NULL,
Phone VARCHAR2(20) NULL,
IdClientChild NUMBER NULL
);
114
CREATE TABLE Owners (
IdOwner NUMBER NOT NULL,
Owner VARCHAR2(125) NOT NULL
);
CREATE TABLE Polises (
IdPolis NUMBER NOT NULL,
PolisNo NUMBER NOT NULL,
IdSerial NUMBER NOT NULL,
PolisDate DATE NOT NULL,
PolisSubject VARCHAR2(125) NOT NULL,
SumInsured NUMBER(12,2) NOT NULL,
IdTarif NUMBER NOT NULL,
IdClient NUMBER NOT NULL,
Cash NUMBER DEFAULT 0 NOT NULL,
DateBegin DATE NOT NULL,
DateEnd DATE NOT NULL,
DateOut DATE NOT NULL,
SumAcc NUMBER(12,2) NOT NULL,
IdOwner NUMBER NOT NULL,
Archiv NUMBER DEFAULT 0 NOT NULL
);
CREATE TABLE Serials (
IdSerial NUMBER NOT NULL,
Serial VARCHAR2(20) NOT NULL,
DateBegin DATE NOT NULL
);
CREATE TABLE Tarifs (
IdTarif NUMBER NOT NULL,
Tarif NUMBER(3,2) NOT NULL,
DateBegin DATE NOT NULL
);
ALTER TABLE Clients
115
ADD CONSTRAINT PKClients PRIMARY KEY (IdClient);
ALTER TABLE Owners
ADD CONSTRAINT PKOwners PRIMARY KEY (IdOwner);
ALTER TABLE Polises
ADD CONSTRAINT PKPolises PRIMARY KEY (IdPolis);
ALTER TABLE Serials
ADD CONSTRAINT PKSerials PRIMARY KEY (IdSerial);
ALTER TABLE Tarifs
ADD CONSTRAINT PKTarifs PRIMARY KEY (IdTarif);
ALTER TABLE Clients
ADD CONSTRAINT FKClientsClients FOREIGN KEY (IdClientChild)
REFERENCES Clients (IdClient)
ON DELETE SET NULL;
ALTER TABLE Polises
ADD CONSTRAINT FKPolisOwner FOREIGN KEY (IdOwner)
REFERENCES Owners (IdOwner)
ON DELETE SET NULL;
ALTER TABLE Polises
ADD CONSTRAINT FKPolisClient FOREIGN KEY (IdClient)
REFERENCES Clients (IdClient)
ON DELETE SET NULL;
ALTER TABLE Polises
ADD CONSTRAINT FKPolisTarif FOREIGN KEY (IdTarif)
REFERENCES Tarifs (IdTarif)
ON DELETE SET NULL;
ALTER TABLE Polises
ADD CONSTRAINT FKPolisSerial FOREIGN KEY (IdSerial)
REFERENCES Serials (IdSerial)
ON DELETE SET NULL;
create sequence SeqClients
minvalue 1 maxvalue 999999999999
start with 1 increment by 1;
116
create sequence SeqOwners
minvalue 1 maxvalue 999999999999
start with 1 increment by 1;
create sequence SeqPolises
minvalue 1 maxvalue 999999999999
start with 1 increment by 1;
create sequence SeqSerials
minvalue 1 maxvalue 999999999999
start with 1 increment by 1;
create sequence SeqTarifs
minvalue 1 maxvalue 999999999999
start with 1 increment by 1;
create or replace trigger BI_Clients
before insert on clients
for each row
begin
select SeqClients.Nextval into :new.IdClient from dual;
end BI_Clients;
create or replace trigger BI_Owners
before insert on owners
for each row
begin
select SeqOwners.Nextval into :new.IdOwner from dual;
end BI_Owners;
create or replace trigger BI_Polises
before insert on polises
for each row
begin
select SeqPolises.Nextval into :new.IdPolis from dual;
select count(1)+1 into :new.polisno from polises s where s.idserial =
:new.IdSerial;
end BI_Polises;