Сделай Сам Свою Работу на 5
 

Описание клиентской части

Оглавление

Постановка задачи. Описание проекта. 3

1. Документы предметной области. 3

2. ER-модель данных. 4

Описание серверной части. 5

1. Диаграмма базы данных, полученная средствами IBExpert 5

2. Полный документированный скрипт на создание базы данных. 5

Описание клиентской части. 19

1. Руководство пользователя. 19

2. Руководство разработчика. 21

Заключение. 25

Список используемого програмного обеспечения. 26

Список литературы.. 27

Приложение 1. 28

Постановка задачи. Описание проекта

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

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

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

Документы предметной области

Список атрибутов:

Врач ФИО, код врача, специальность врача, квалификация врача

Пациент ФИО, код пациента, год рождения пациента, категория скидки пациента

Диагноз

Вид назначения, наименование назначения

Дата обращения пациента, время приема

Наименование скидки, величина скидки

Цена (стоимость назначения), стоимость лечения

Зависимости и ограничения:

1. Каждый пациент:

a. Проходит обязательную регистрацию

b. Может обращаться в поликлинику несколько раз

c. Может нуждаться в различной медицинской помощи

2. Все обращения больных фиксируются: устанавливается диагноз, определяется стоимость лечения, запоминается дата обращения.



3. Общая стоимость лечения зависит от стоимости тех консультаций и процедур, которые назначены пациенту.

4. Для определенных категорий граждан предусмотрены скидки.

 

2. ER-модель данных:

PACIENTI   ID_PACIENTA P_FAMILIYA P_NAME P_OTCHESTVO GOD_ROZHDENIYA KATEGORIYA_SKIDKI  
SKIDKI   KATEGORIYA_SKIDKI S_NAIMENOVANIE SIZE_SKIDKI  
OBRASHENIYA   N ID_PACIENTA ID_VRACHA TIME_PRIEMA DIAGNOZ VID_NAZNACHENIYA DATE_OBRASHENIYA STOIMOST_LECHENIYA  
VRACHI   ID_VRACHA V_FAMILIYA V_NAME V_OTCHESTVO SPECIALNOST KVALIFIKACIYA  
STOIMOST   VID_NAZNACHENIYA N_NAIMENOVANIE CENA  


Описание серверной части

1. Диаграмма базы данных, полученная средствами IBExpert:

Полный документированный скрипт на создание базы данных

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

1. Создание таблицы VRACHI (врачи). Таблица содержит 6 атрибутов: ID_VRACHA, V_FAMILIYA, V_NAME, V_OTCHESTVO, SPECIALNOST, KVALIFIKACIYA.

CREATE TABLE VRACHI (

ID_VRACHA INTEGER NOT NULL, - код врача

V_FAMILIYA VARCHAR(30), - фамилия врача

V_NAME VARCHAR(30), - имя врача

V_OTCHESTVO VARCHAR(30), - отчество врача

SPECIALNOST VARCHAR(30), - специальность

KVALIFIKACIYA VARCHAR(30) - квалификация

);

 

2. Создание таблицы PACIENTI (пациенты). Таблица содержит 6 атрибутов: ID_PACIENTA, P_FAMILIYA, P_NAME, P_OTCHESTVO, GOD_ROZHDENIYA, KATEGORIYA_SKIDKI.

CREATE TABLE PACIENTI (

ID_PACIENTA INTEGER NOT NULL, - код пациента

P_FAMILIYA VARCHAR(30), - фамилия пациента

P_NAME VARCHAR(30), - имя пациента

P_OTCHESTVO VARCHAR(30), - отчество пациента

GOD_ROZHDENIYA INTEGER NOT NULL, - год рождения

KATEGORIYA_SKIDKI INTEGER NOT NULL - категория скидки

);

 

3. Таблица OBRASHENIYA (обращения пациентов). Таблица содержит 8 атрибутов: N, ID_PACIENTA, ID_VRACHA, TIME_PRIEMA, DIAGNOZ, VID_NAZNACHENIYA, DATE_OBRASHENIYA, STOIMOST_LECHENIYA.

CREATE TABLE OBRASHENIYA (

N INTEGER, - порядковый номер

ID_PACIENTA INTEGER, - код пациента

ID_VRACHA INTEGER, - код врача

TIME_PRIEMA TIME, - время приема

DIAGNOZ VARCHAR(30), - диагноз

VID_NAZNACHENIYA VARCHAR(30), - вид назначения

DATE_OBRASHENIYA DATE, - дата обращения

STOIMOST_LECHENIYA NUMERIC(4,2) - стоимость лечения

);

 

4. Создание таблицы SKIDKI (скидки). Таблица содержит 3 атрибута: KATEGORIYA_SKIDKI, S_NAIMENOVANIE, SIZE_SKIDKI.

CREATE TABLE SKIDKI (

KATEGORIYA_SKIDKI INTEGER NOT NULL, - категория скидки

S_NAIMENOVANIE VARCHAR(30), - наименование скидки

SIZE_SKIDKI NUMERIC(4,2) - размер скидки

);

 

5. Создание таблицы STOIMOST (стоимость лечения). Таблица содержит 3 атрибута: VID_NAZNACHENIYA, N_NAIMENOVANIE, CENA.

CREATE TABLE STOIMOST (

VID_NAZNACHENIYA VARCHAR(30) NOT NULL, - вид назначения

N_NAIMENOVANIE VARCHAR(30), - наименование назначения

CENA NUMERIC(4,2) - цена назначения

);

Создание индексов

1. Создание первичного ключа для таблицы VRACHI. Первичный ключ создаем командой ALTER TABLE, эта команда дает возможность изменить структуру существующей таблицы. CONSTRAINT служит для работы с ограничениями ссылочной целостности, накладываемых на таблицу.

ALTER TABLE VRACHI ADD CONSTRAINT PK_VRACHI PRIMARY KEY (ID_VRACHA);

2. Создание первичного ключа для таблицы PACIENTI.

ALTER TABLE PACIENTI ADD CONSTRAINT PK_PACIENTI PRIMARY KEY (ID_PACIENTA);

3. Создание первичного ключа для таблицы SKIDKI.

ALTER TABLE SKIDKI ADD CONSTRAINT PK_SKIDKI PRIMARY KEY (KATEGORIYA_SKIDKI);

4. Создание первичного ключа для таблицы STOIMOST.

ALTER TABLE STOIMOST ADD CONSTRAINT PK_STOIMOST PRIMARY KEY (VID_NAZNACHENIYA);

5. Создание первичного ключа для таблицы OBRASHENIYA.

ALTER TABLE OBRASHENIYA ADD CONSTRAINT PK_OBRASHENIYA PRIMARY KEY (N);

6. Создание внешнего ключа для таблицы PACIENTI. Внешний ключ строится по столбцу (KATEGORIYA_SKIDKI) в дочерней таблице (в таблице PACIENTI) , значения которого ссылается на значения записи в родительской таблице (в таблице SKIDKI). Указание ON DELETE CASCADE приведет к автоматическому удалению подчиненных записей.

ALTER TABLE PACIENTI ADD CONSTRAINT FK_PACIENTI_1 FOREIGN KEY (KATEGORIYA_SKIDKI) REFERENCES SKIDKI (KATEGORIYA_SKIDKI) ON DELETE CASCADE;

7. Создание внешних ключей для таблицы OBRASHENIYA.

ALTER TABLE OBRASHENIYA ADD CONSTRAINT FK_OBRASHENIYA_1 FOREIGN KEY (ID_PACIENTA) REFERENCES PACIENTI (ID_PACIENTA) ON DELETE CASCADE;

ALTER TABLE OBRASHENIYA ADD CONSTRAINT FK_OBRASHENIYA_2 FOREIGN KEY (ID_VRACHA) REFERENCES VRACHI (ID_VRACHA) ON DELETE CASCADE;

ALTER TABLE OBRASHENIYA ADD CONSTRAINT FK_OBRASHENIYA_3 FOREIGN KEY (VID_NAZNACHENIYA) REFERENCES STOIMOST (VID_NAZNACHENIYA) ON DELETE CASCADE;

Триггеры

Триггер – это процедура, автоматически вызываемая СУБД при изменении базы данных. Используется для реализации бизнес-правил (каскадных изменений), для формирования очередного значения первичного ключа, накопления статистики, резервного копирования данных.

1. Создадим триггеры для генерации ID.

1.1. CREATE OR ALTER TRIGGER VRACHI_BI FOR VRACHI

ACTIVE BEFORE INSERT POSITION 0

as

begin

if (new.id_vracha is null) then

new.id_vracha = gen_id(gen_vrachi_id,1);

end

1.2. CREATE OR ALTER TRIGGER PACIENTI_BI FOR PACIENTI

ACTIVE BEFORE INSERT POSITION 0

as

begin

if (new.id_pacienta is null) then

new.id_pacienta = gen_id(gen_pacienti_id,1);

end

1.3. CREATE OR ALTER TRIGGER OBRASHENIYA_BI FOR OBRASHENIYA ACTIVE BEFORE INSERT POSITION 0

as

begin

if (new.n is null) then

new.n = gen_id(gen_obrasheniya_id,1);

end

2. Триггер для каскадного удаления записи о пациенте из таблицы OBRASHENIYA после удаления его записи из таблицы PACIENTI.

CREATE OR ALTER TRIGGER DELETE_P FOR PACIENTI

ACTIVE BEFORE DELETE POSITION 0

AS

begin

delete from OBRASHENIYA

where old.id_pacienta=OBRASHENIYA.id_pacienta;

end

3. Триггер на добавление ID_PACIENTA в таблицу OBRASHENIYA с автоматической генерацией кода N, после добавления новой записи в таблицу PACIENTI.

CREATE OR ALTER TRIGGER INSERT_OB FOR PACIENTI

ACTIVE AFTER INSERT POSITION 0

AS

begin

insert into OBRASHENIYA (N,ID_PACIENTA)

values (gen_id(gen_obrasheniya_id,1),new.ID_PACIENTA);

end

 

Генераторы

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

1. Формирование первичного ключа таблицы VRACHI.

CREATE GENERATOR GEN_VRACHI_ID;

SET GENERATOR GEN_VRACHI_ID TO 1;

2. Формирование первичного ключа таблицы PACIENTI.

CREATE GENERATOR GEN_PACIENTI_ID;

SET GENERATOR GEN_PACIENTI_ID TO 1;

3. Формирование первичного ключа таблицы OBRASHENIYA.

CREATE GENERATOR GEN_OBRASHENIYA_ID;

SET GENERATOR GEN_OBRASHENIYA_ID TO 1;

Хранимые процедуры

1. Создание хранимой процедуры на удаление.

1.1. Для таблицы VRACHI.

Команда GRANT позволяют системным администраторам создавать пользователей MySQL, а также предоставлять права пользователям или лишать их прав. EXECUTE - разрешает пользователю запускать хранимые процедуры. DELETE - разрешает использование DELETE. SELECT- разрешает использование SELECT.

create or alter procedure DELETE_VR (

ID_VRACHA_A integer)

as

begin

delete from VRACHI where ID_VRACHA=:ID_VRACHA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,DELETE ON VRACHI TO PROCEDURE DELETE_VR;

GRANT EXECUTE ON PROCEDURE DELETE_VR TO SYSDBA;

 

1.2. Для таблицы PACIENTI.

create or alter procedure DELETE_PA (

ID_PACIENTA_A integer)

as

begin

delete from PACIENTI where ID_PACIENTA=:ID_PACIENTA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,DELETE ON PACIENTI TO PROCEDURE DELETE_PA;

GRANT EXECUTE ON PROCEDURE DELETE_PA TO SYSDBA;

 

1.3. Для таблицы SKIDKI.

create or alter procedure DELETE_SK (

KATEGORIYA_SKIDKI_A integer)

as

begin

delete from SKIDKI where KATEGORIYA_SKIDKI=:KATEGORIYA_SKIDKI_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,DELETE ON SKIDKI TO PROCEDURE DELETE_SK;

GRANT EXECUTE ON PROCEDURE DELETE_SK TO SYSDBA;

 

1.4. Для таблицы STOIMOST.

create or alter procedure DELETE_ST (

VID_NAZNACHENIYA_A varchar(30))

as

begin

delete from STOIMOST where VID_NAZNACHENIYA=:VID_NAZNACHENIYA_A;

suspend;

end^

 

SET TERM ; ^

GRANT SELECT,DELETE ON STOIMOST TO PROCEDURE DELETE_ST;

GRANT EXECUTE ON PROCEDURE DELETE_ST TO SYSDBA;

 

1.5. Для таблицы OBRASHENIYA.

create or alter procedure DELETE_OB (

ID_PACIENTA_A integer,

ID_VRACHA_A integer)

as

begin

delete from OBRASHENIYA where ID_PACIENTA=:ID_PACIENTA_A and ID_VRACHA=:ID_VRACHA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,DELETE ON OBRASHENIYA TO PROCEDURE DELETE_OB;

GRANT EXECUTE ON PROCEDURE DELETE_OB TO SYSDBA;

 

2. Создание хранимых процедур на добавление.

2.1. В таблицу VRACHI.

create or alter procedure INSERT_VR (

ID_VRACHA_A integer,

V_FAMILIYA_A varchar(30),

V_NAME_A varchar(30),

V_OTCHESTVO_A varchar(30),

SPECIALNOST_A varchar(30),

KVALIFIKACIYA_A varchar(30))

as

begin

insert into VRACHI (ID_VRACHA, V_FAMILIYA, V_NAME,V_OTCHESTVO, SPECIALNOST, KVALIFIKACIYA)

values (:ID_VRACHA_A,:V_FAMILIYA_A,:V_NAME_A,:V_OTCHESTVO_A,:SPECIALNOST_A,:KVALIFIKACIYA_A);

suspend;

end ^

SET TERM ; ^

GRANT INSERT ON VRACHI TO PROCEDURE INSERT_VR;

GRANT EXECUTE ON PROCEDURE INSERT_VR TO SYSDBA;

 

2.2. В таблицу PACIENTI.

create or alter procedure INSERT_PA (

P_FAMILIYA_A varchar(30),

P_NAME_A varchar(30),

P_OTCHESTVO_A varchar(30),

GOD_ROZHDENIYA_A integer,

KATEGORIYA_SKIDKI_A integer)

as

begin

insert into PACIENTI (P_FAMILIYA, P_NAME, P_OTCHESTVO, GOD_ROZHDENIYA, KATEGORIYA_SKIDKI)

values (:P_FAMILIYA_A,:P_NAME_A,:P_OTCHESTVO_A,:GOD_ROZHDENIYA_A,:KATEGORIYA_SKIDKI_A);

suspend;

end ^

SET TERM ; ^

GRANT INSERT ON PACIENTI TO PROCEDURE INSERT_PA;

GRANT EXECUTE ON PROCEDURE INSERT_PA TO SYSDBA;

 

2.3. В таблицу SKIDKI.

create or alter procedure INSERT_SK (

KATEGORIYA_SKIDKI_A integer,

S_NAIMENOVANIE_A varchar(30),

SIZE_SKIDKI_A integer)

as

begin

insert into SKIDKI (KATEGORIYA_SKIDKI,S_NAIMENOVANIE,SIZE_SKIDKI)

values (:KATEGORIYA_SKIDKI_A,:S_NAIMENOVANIE_A,:SIZE_SKIDKI_A);

suspend;

end^

SET TERM ; ^

GRANT INSERT ON SKIDKI TO PROCEDURE INSERT_SK;

GRANT EXECUTE ON PROCEDURE INSERT_SK TO SYSDBA;

 

2.4. В таблицу STOIMOST.

create or alter procedure INSERT_ST (

VID_NAZNACHENIYA_A varchar(30),

N_NAIMENOVANIE_A varchar(30),

CENA_A integer)

as

begin

insert into STOIMOST (VID_NAZNACHENIYA,N_NAIMENOVANIE,CENA)

values (:VID_NAZNACHENIYA_A,:N_NAIMENOVANIE_A,:CENA_A);

suspend;

end^

SET TERM ; ^

GRANT INSERT ON STOIMOST TO PROCEDURE INSERT_ST;

GRANT EXECUTE ON PROCEDURE INSERT_ST TO SYSDBA;

 

2.5. В таблицу OBRASHENIYA.

create or alter procedure INSERT_OB (

ID_PACIENTA_A integer,

ID_VRACHA_A integer,

TIME_PRIEMA_A time,

DIAGNOZ_A varchar(30),

VID_NAZNACHENIYA_A varchar(30),

DATE_OBRASHENIYA_A integer,

STOIMOST_LECHENIYA_A numeric(4,2))

as

begin

insert into OBRASHENIYA (ID_PACIENTA, ID_VRACHA, TIME_PRIEMA, DIAGNOZ, VID_NAZNACHENIYA, DATE_OBRASHENIYA, STOIMOST_LECHENIYA)

values (:ID_PACIENTA_A,:ID_VRACHA_A,:TIME_PRIEMA_A,:DIAGNOZ_A,:VID_NAZNACHENIYA_A,:DATE_OBRASHENIYA_A,:STOIMOST_LECHENIYA_A);

suspend;

end^

SET TERM ; ^

GRANT INSERT ON OBRASHENIYA TO PROCEDURE INSERT_OB;

GRANT EXECUTE ON PROCEDURE INSERT_OB TO SYSDBA;

 

3. Создание хранимых процедур на обновление.

3.1. В таблице VRACHI.

create or alter procedure UPDATE_VR (

ID_VRACHA_A integer,

V_FAMILIYA_A varchar(30),

V_NAME_A varchar(30),

V_OTCHESTVO_A varchar(30),

SPECIALNOST_A varchar(30),

KVALIFIKACIYA_A varchar(30))

as

begin

update VRACHI set ID_VRACHA= :ID_VRACHA_A,V_FAMILIYA= :V_FAMILIYA_A,V_NAME=:V_NAME_A,V_OTCHESTVO=:V_OTCHESTVO_A,SPECIALNOST=:SPECIALNOST_A,KVALIFIKACIYA=:KVALIFIKACIYA_A

where ID_VRACHA=:ID_VRACHA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,UPDATE ON VRACHI TO PROCEDURE UPDATE_VR;

GRANT EXECUTE ON PROCEDURE UPDATE_VR TO SYSDBA;

 

3.2. В таблице PACIENTI.

create or alter procedure UPDATE_PA (

ID_PACIENTA_A integer,

P_FAMILIYA_A varchar(30),

P_NAME_A varchar(30),

P_OTCHESTVO_A varchar(30),

GOD_ROZHDENIYA_A integer,

KATEGORIYA_SKIDKI_A integer)

as

begin

update PACIENTI set ID_PACIENTA= :ID_PACIENTA_A,P_FAMILIYA= :P_FAMILIYA_A,P_NAME=:P_NAME_A,P_OTCHESTVO=:P_OTCHESTVO_A,GOD_ROZHDENIYA=:GOD_ROZHDENIYA_A,KATEGORIYA_SKIDKI= :KATEGORIYA_SKIDKI_A

where ID_PACIENTA=:ID_PACIENTA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,UPDATE ON PACIENTI TO PROCEDURE UPDATE_PA;

GRANT EXECUTE ON PROCEDURE UPDATE_PA TO SYSDBA;

 

3.3. В таблице SKIDKI.

create or alter procedure UPDATE_SK (

KATEGORIYA_SKIDKI_A integer,

S_NAIMENOVANIE_A varchar(30),

SIZE_SKIDKI_A integer)

as

begin

update SKIDKI set KATEGORIYA_SKIDKI= :KATEGORIYA_SKIDKI_A, S_NAIMENOVANIE=:S_NAIMENOVANIE_A, SIZE_SKIDKI=:SIZE_SKIDKI_A

where KATEGORIYA_SKIDKI=:KATEGORIYA_SKIDKI_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,UPDATE ON SKIDKI TO PROCEDURE UPDATE_SK;

GRANT EXECUTE ON PROCEDURE UPDATE_SK TO SYSDBA;

 

3.4. В таблице STOIMOST.

create or alter procedure UPDATE_ST (

VID_NAZNACHENIYA_A varchar(30),

N_NAIMENOVANIE_A varchar(30),

CENA_A integer)

as

begin

update STOIMOST set VID_NAZNACHENIYA=:VID_NAZNACHENIYA_A, N_NAIMENOVANIE=:N_NAIMENOVANIE_A,CENA=:CENA_A

where VID_NAZNACHENIYA=:VID_NAZNACHENIYA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,UPDATE ON STOIMOST TO PROCEDURE UPDATE_ST;

GRANT EXECUTE ON PROCEDURE UPDATE_ST TO SYSDBA;

 

3.5. В таблице OBRASHENIYA.

create or alter procedure UPDATE_OB (

ID_PACIENTA_A integer,

ID_VRACHA_A integer,

TIME_PRIEMA_A time,

DIAGNOZ_A varchar(30),

VID_NAZNACHENIYA_A varchar(30),

DATE_OBRASHENIYA_A integer,

STOIMOST_LECHENIYA_A numeric(4,2))

as

begin

update OBRASHENIYA set ID_PACIENTA=:ID_PACIENTA_A, ID_VRACHA=:ID_VRACHA_A,TIME_PRIEMA=:TIME_PRIEMA_A,DIAGNOZ=:DIAGNOZ_A,VID_NAZNACHENIYA=:VID_NAZNACHENIYA_A,DATE_OBRASHENIYA=:DATE_OBRASHENIYA_A,STOIMOST_LECHENIYA=:STOIMOST_LECHENIYA_A

where ID_PACIENTA=:ID_PACIENTA_A;

suspend;

end^

SET TERM ; ^

GRANT SELECT,UPDATE ON OBRASHENIYA TO PROCEDURE UPDATE_OB;

GRANT EXECUTE ON PROCEDURE UPDATE_OB TO SYSDBA;

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

create or alter procedure STOIMOST_L (

N integer,

VID_NAZNACHENIYA_A varchar(20),

ID_PACIENTA_A integer)

returns (

X numeric(4,2),

Y numeric(4,2))

as

begin

select STOIMOST.CENA from STOIMOST

where STOIMOST.VID_NAZNACHENIYA=:VID_NAZNACHENIYA_A

into :X;

select SKIDKI.SIZE_SKIDKI from SKIDKI left join PACIENTI

on PACIENTI.KATEGORIYA_SKIDKI=SKIDKI.KATEGORIYA_SKIDKI

where PACIENTI.ID_PACIENTA=:ID_PACIENTA_A

into :Y;

update OBRASHENIYA

set stoimost_lecheniya=:X*(1-:Y)

where OBRASHENIYA.N=:N;

end^

SET TERM ; ^

GRANT SELECT ON STOIMOST TO PROCEDURE STOIMOST_L;

GRANT SELECT ON SKIDKI TO PROCEDURE STOIMOST_L;

GRANT SELECT ON PACIENTI TO PROCEDURE STOIMOST_L;

GRANT SELECT,UPDATE ON OBRASHENIYA TO PROCEDURE STOIMOST_L;

GRANT EXECUTE ON PROCEDURE STOIMOST_L TO SYSDBA;

 

5. Создание хранимой процедуры на вывод информации о враче по заданной специальности.

create or alter procedure SPECIALNOST_VR (

SPECIALNOST_A varchar(30))

returns (

ID_VRACHA integer,

SPECIALNOST varchar(30),

V_FAMILIYA varchar(30),

V_NAME varchar(30),

V_OTCHESTVO varchar(30),

KVALIFIKACIYA varchar(30))

as

begin

for select ID_VRACHA, SPECIALNOST, V_FAMILIYA, V_NAME, V_OTCHESTVO, KVALIFIKACIYA from VRACHI

where SPECIALNOST = :SPECIALNOST_A

into :ID_VRACHA,:SPECIALNOST,:V_FAMILIYA,:V_NAME,:V_OTCHESTVO,:KVALIFIKACIYA

do

suspend;

end^

SET TERM ; ^

GRANT SELECT ON VRACHI TO PROCEDURE SPECIALNOST_VR;

GRANT EXECUTE ON PROCEDURE SPECIALNOST_VR TO SYSDBA;

Описание клиентской части

 



©2015- 2022 stydopedia.ru Все материалы защищены законодательством РФ.