Проектирование АРМ сотрудника отдела автоматизации информационного обеспечения Ивановского филиала ФОМС - Курсовая работа

бесплатно 0
4.5 197
Технико-экономическая характеристика Ивановского филиала Фонда обязательного медицинского страхования (ФОМС). Проект отдельной информационной подсистемы ФОМС, предназначенной для учета физических лиц и лечебных учреждений г. Иванова и Ивановской области.


Аннотация к работе
1.1 Краткая экономическая характеристика ФОМС 1.2 Обоснование целесообразности автоматизации функций 2.2 Постановка и алгоритм решения комплекса задач.2.2 Выходная информацияДействующая на момент начала проектирования система обработки информации АРМ имеет ряд крупных недостатков, которых заметно усложняют работу системных программистов и рядовых пользователей. В структуре здравоохранения Ивановской области, в практическом ее блоке, большую часть занимают лечебно-профилактические учреждения системы обязательного медицинского страхования. Для этого фонд аккумулирует деньги на обязательное медицинское страхование населения области, финансирует территориальную Программу государственных гарантий обеспечения бесплатной медицинской помощью, контролирует целевое и рациональное использование средств ОМС лечебными учреждениями и страховыми медицинскими организациями, защищает права застрахованных. Путиным: нужно развивать систему обязательного медицинского страхования и ее самый важный принцип - платить лечебным учреждениям только за качество и объем проделанной работы, за качество оказываемых населению услуг. Структура обязательного медицинского страхования в Ивановской области в 2002 году была представлена Территориальным фондом обязательного медицинского страхования, 12 филиалами, 8 представительствами, 58 лечебно-профилактическими учреждениями.В процессе работы над курсовым проектом во время технико-организационной практики мною были реализовать полученные теоретические знания. Особенно полезными оказались замечания по поводу существующего способа передачи информации в системе. В перспективе следует улучшать параметры работы данного продукта как за счет улучшения быстродействия всей системы в целом (замена устаревшего оборудования более новым, создание новых систем передачи информации и т.д.), так и с помощью модернизации кода программных модулей, структуры баз данных и др. Особое внимание при усовершенствовании системы следует обратить на способы и скорости передачи информации, а также на возможные варианты увеличения производительности всей системы в целом. Поскольку большая часть информации, использующаяся в системе является личной тайной любого гражданина РФ, то необходимо разработать систему по ее защите, а именно: предупреждение несанкционированного доступа к данным, а также их изменение или уничтожение как со стороны «нелегальных» пользователей, так и при сбоях аппаратных или программных средств.

План
Содержание

Введение
1. Экономический анализ ФОМС

1.1 Краткая экономическая характеристика ФОМС

1.2 Обоснование целесообразности автоматизации функций

2. Разработка АРМ сотрудника отдела АИО ФОМС

2.1 Техническое задание

2.2 Постановка и алгоритм решения комплекса задач.2.2 Выходная информация

2.2.3 Входная информация

2.2.4 Описание алгоритма решения задачи

2.2.5 Требования к контрольному примеру

2.3 Программная реализация

Вывод
Данный курсовой проект явился завершающим этапом изучения дисциплины «Проектирование информационных систем». Его основная цель состоит в самостоятельной разработке проектных решении, имеющих практическую ценность, а также в их технико-экономическом обосновании. В процессе работы над курсовым проектом во время технико-организационной практики мною были реализовать полученные теоретические знания.

Я стремился к тому, чтобы этот проект был практически реализуем, способствовал совершенствованию управления, выполнялся на конкретных материалах, и мог быть использован на предприятии. И в конечном итоге эта цель была мною достигнута - версия данного проекта принята к сведению в Ивановском отделений ТФОМС и скоро планируется его внедрение. Особенно полезными оказались замечания по поводу существующего способа передачи информации в системе.

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

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

Поскольку большая часть информации, использующаяся в системе является личной тайной любого гражданина РФ, то необходимо разработать систему по ее защите, а именно: предупреждение несанкционированного доступа к данным, а также их изменение или уничтожение как со стороны «нелегальных» пользователей, так и при сбоях аппаратных или программных средств. Средства и методы защиты информации должны использоваться комплексно с использованием технических и программных средств.

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

- определение прав доступа отдельных пользователей и ограничений на характер операций;

- организация системы контроля доступа к данным;

- тестирование средств защиты;

- прочие работы по защите системы.

В дальнейшем следует более полно и комплексно использовать возможности современных операционных систем. Многие функций администратора системы могут быть возложены на операционную систему. А также необходимо переходить от централизованного к распределенному способу обработки данных. Распределенная обработка данных позволяет разместить базу данных в различных узлах компьютерной сети. Таким образом, каждый компонент базы данных располагается по месту наличия техники и ее обработки.

Список литературы
1. «Итоги научно-практической конференции, посвященной 10-летию системы обязательного медицинского страхования» - Медицинская газета №44 20.06.2003 Иваново 2003г.

2. «ОМС: реальность и перспективы» - Медицинская газета №68 12.09.2003 Иваново 2003г.

3. «Методические подходы к формированию сочетанных и многоуровневых программ медицинского страхования в современных условиях» - В.В. Петухова, М.В. Айвазова и др. - Санкт-Петербургский институт медицинского страхования М. 2001г.

4. «Работа системы ОМС Ивановской области по реализации программы государственных гарантий обеспечения бесплатной медицинской помощью граждан РФ в 2002 году. Задачи на 2003 год (Сборник научных трудов)» - Территориальный фонд ОМС по Ивановской области, Управление здравоохранения Ивановской области, Ивановская государственная медицинская академия - Иваново 2003г.

5. «Проектирование баз данных (Учебное пособие)» - В.Г. Шишкин - Ивановский государственный университет - Иваново 1999г.

6. «Налоги. 4-е издание (учебное пособие)» - Д.Г. Черник и др. - «Финансы и статистика» - М. 1999г.

7. «Справочное руководство по языку SQL» - Andrew Mendelsohn, Ken Jacobs и др. - Нью-Йорк 1999г.

8. «Руководство администратора базы данных ORACLE» - Sanjay Bulchandani, Dennis Cochran и др. - Нью-Йорк 1996г.

9. «Проектирование баз данных в примерах и задачах» - Т.И. Гусева - М. 1992г.

10. «Компьютерные системы в управлении финансами» - А.П. Колесник - М.: "Финансы и статистика" 1997г.

Приложение №1

Пример распечатки счета в режиме «Стационар»

Лечебное учреждение Родниковская ЦРБ счет № 01 [стационар]

Дата счета 05.02.2001

Дата принятия счета 06.02.2001

Номер карты 999000

Фамилия ВОРОНЦОВ

Имя СЕРГЕЙ

Отчество ЕВГЕНЬЕВИЧ

Адрес Родниковский район г.Родники Мк-н Шагова д.16 кв.53

Дата рождения 29.12.1974

Полис 0

Вид направления Поступил по СМП

Категория работающего Работающий СП

Место работы РУП

Профиль койки Хирургические взросл. Т06.3

Диагноз основной Повреждения кровеносных сосудов, захватывающие несколько областей тела

Диагноз сопутствующий S21.1 Открытая рана передней стенки грудной клетки

Диагноз осложнения R57.8 Другие виды шока Экстренная, первичная

Госпитализация Экстренная, первичная

Дата поступления 28.12.2000 01.01.2001

Время поступления 22.10

Дата выписки 01.01.2001

Длительность лечения 4

Случай обслуживания Законченный

Исход лечения Летальный исход

Специальность врача ВРАЧ-ХИРУРГ

Стоимость Операции: 429,72

Дата Наименование

28.12.2000 Z38.93 Катетеризация вены др.

28.12.2000 Z46.73 Сшивание разрыва тонкой кишки (кроме 12-перстной кишки)

28.12.2000 Z39.31 Наложение шва на артерии

29.12.2000 Z38.08 Рассечение артерии нижней конечности

Диагноз непосредственной причины смерти: J81. Легочный отек Диагноз заболевания, обусловивший причину смерти: ТО6.З Повреждения кровеносных сосудов, захватывающие несколько областей тела Диагноз заболевания, способствовавший смертельному исходу: R57.8 Другие виды шока Диагноз патологоанатомический: Т06.3 Повреждения кровеносных сосудов, захватывающие несколько областей тела

Приложение № 2

Пример распечатки счета в режиме «Поликлиника»

Лечебное учреждение Городская клин, б-ца N7 счет N"87 [поликлиника]

Дата счета 05.02.2001

Дата принятия счета 07.02.2001

Фамилия АВЕРЬЯНОВ

Имя БОРИС

Отчество АЛЕКСЕЕВИЧ

Дата рождения 08.07.1926

Полис 372400 4006580726

Адрес г.Иваново ул.Лежневская д.156 кв.18

Категория работающего Пенсионер

Место работы

Повод обращения Лечебно-диагностический

Длительность лечения 11

Диагноз основной l6. Коксартроз [артроз тазобедренного сустава]

Случай обслуживания Законченный

Исход лечения направление к др. врачу

Стоимость 9,2

Доп. Информация к физиотерапевту

№ Дата Наименование услуги Специальность врача

1 03.01.2001 Лечебно-диагностический прием Врач-хирург

2 09.01.2001 Лечебно-диагностический прием Врач-хирург

3 11.01.2001 Лечебно-диагностический прием Врач-хирург

4 13.01.2001 Лечебно-диагностический прием Врач-хирург

Приложение №3

Пример распечатки счета в режиме «Стоматология»

Лечебное учреждение Городская клин, б-ца N7 счет № 11 [стоматология]

Дата счета 05.02.2001

Дата принятия счета 07.02.2001

Фамилия АНДРИАНОВА

Имя ИРИНА

Отчество АЛЕКСАНДРОВНА

Дата рождения 28.11.1952

Полис 372400 7008281152

Адрес г.Иваново ул.Воронина д.З кв.47

Категория работающего Работающий

Место работы Школа-лицей № 67

Повод обращения лечебно-диагностический

Длительность лечения 1

Случай обслуживания Законченный

Исход лечения выздоровление

Стоимость 2,5

Дата Услуги Стоимость Диагноз

31.01.2001 Осмотр полости рта первичного больного. 0,15

31.01.2001 Сбор анамнеза. 0,15

31.01.2001 Оформление документации первичного больного. 0,2 Кариес зубов не уточненный

31.01.2001 Цементная пломба на две поверхности зуба 2 Кариес зубов не уточненный

СУММА (УЕТ) = 2,5

Приложение №4

Наименование и структура основных справочников.

1. ORACLE:KIS.SVSCHET -справочник сводных счетов ЛПУ

2. ORACLE:SNMDN_ST -справочник видов дневного стационара

3. ORACLE:SNMGRAFIK -справочник графиков дн.стационаров ЛПУ

4. ORACLE:SNMGRUP -справочник группировки ЛПУ.

5. ORACLE:SNMKAT -категории населения при проверке стационара

6. ORACLE:SNMKAT1 -категории населения при проверке поликлиники

7. ORACLE:SNMMKB -справочник диагнозов

8. ORACLE:SNMMKB_N -справочник взаимосвязей поводов и услуг

9. ORACLE:SNMMKB_O -справочник ятрогении

10 ORACLE:SNMNAPRAV -справочник направлений

11. ORACLE:SNMPO_TAR - тарифы поликлиник , работающих по полной программе

12. ORACLE:SNMPO_TAR_C -тарифы поликлиник , работающих по неполной программе

13. ORACLE:SNMST_TAR -тарифы стационаров , работающих по полной программе

14. ORACLE:SNMST_TAR_C -тарифы стационаров, работающих по неполной программе

15. ORACLE:SNMPROFIL -справочник профилей коек

16. ORACLE:SNMSCOB -справочник целей обращения

17. ORACLE:SNMSPR_INV -справочник видов инвалидности

18. ORACLE:SNMSPR_LPU -справочник ЛПУ

19 ORACLE:SNMSPR_OTK -справочник отказов

20. ORACLE:SNMSPUSL -справочник услуг стоматологии

21. ORACLE:SNMSPL -справочник исходов лечения

22. ORACLE:SNMTARIF1 -справочник специальностей врачей

23. ORACLE:SNMUSLUGI -справочник услуг

24. ORACLE:SNMYEAR -календарь работы 6-дн. дневного стационара

25. ORACLE:SNMYEAR_5 -календарь работы 5-дн. дневного стационара

1.ORACLE:KIS.SVSCHET - справочник сводных счетов ЛПУ

KOD_LPU NUMBER(3, 0)Код ЛПУ

VID NUMBER(1, 0)Вид ЛПУ

N_SCH VARCHAR2(10) Номер счета

DT_SCH DATEДАТА формирования счета

DT_IN DATEДАТА первичной обработки счета

COUNT NUMBER(6, 0)Количество корректных записей

TOTAL NUMBER(10, 2)Стоимость корректных записей

COUNT_BAD NUMBER(6, 0)Количество некорректных записей

TOTAL_BAD NUMBER(10, 2)Стоимость некорректных записей

DOG_YN NUMBER(1, 0)Признак работы по полной программе

FIRST NUMBER(1, 0)

OMS NUMBER(1, 0)Признак проверки отделом ОМС

MEDEKS NUMBER(1, 0)Признак проверки экспертами

PEO NUMBER(1, 0)Признак обработки счета плановым отделом

ARX NUMBER(1, 0)Признак отправки счета в архив

EKSPERT NUMBER(1, 0)

2. ORACLE:SNMDOGOVOR - ЛПУ, работающие по полной программе

LPU NUMBER(3, 0) Код ЛПУ

DATA DATE Дата заключения договора

3. ORACLE:SNMDN_ST - справочник видов дневного стационара

KOD NUMBER(1, 0) Код вида дневного стационара

PROFIL CHAR(3)Профиль койки

NAIM VARCHAR2(40)Наименование

GRAFIK NUMBER(1, 0) Вид графика

4. ORACLE:SNMGRAFIK - справочник графиков дн.стационаров ЛПУ

KOD_LPU NUMBER(3, 0)Код ЛПУ

VID NUMBER(1, 0)Вид дневного стационара

GRAF NUMBER(1, 0)График дневного стационара

5. ORACLE:SNMGRUP - справочник группировки ЛПУ.

GLAV CHAR(3)Код главного ЛПУ

LPU CHAR(5)Код ЛПУ в символьном формате

LPU_N CHAR(5)Код ЛПУ в числовом формате

PUTH1 VARCHAR2(30)Путь для рассылки

GLN NUMBER(3, 0)Код главного ЛПУ в числовом формате

NLPU NUMBER(4, 0)

RAI NUMBER(3, 0)Код района

SS NUMBER(1, 0)

6. ORACLE:SNMKAT - категории населения при проверке стационара

KATEGOR NUMBER(1, 0) Категория населения

NAIM VARCHAR2(25) Наименование

7. ORACLE:SNMKAT1 - категории населения при проверке поликлиники

KATEGOR NUMBER(1, 0) Категория населения

NAIM VARCHAR2(25) Наименование

8. ORACLE:SNMMKB - справочник диагнозов

GRU NUMBER(3, 0)

KOD VARCHAR2(8)Код диагноза

NAIM VARCHAR2(72)Наименование

HIR CHAR(2)

9. ORACLE:SNMMKB_O - справочник ятрогении

KOD VARCHAR2(8)Код диагноза

NEK NUMBER(2, 0)Код отказа

10. ORACLE:SNMMKB_N - справочник взаимосвязей поводов и услуг

COB NUMBER(1, 0)Код обращения

KOD VARCHAR2(8)Код диагноза

NEK NUMBER(2, 0)Код отказа

FLG NUMBER(1, 0)Флаг

11. ORACLE:SNMNAPRAV - справочник направлений

KOD NUMBER(2, 0) Код направления

NAIM VARCHAR2(40) Наименование

15. ORACLE:SNMPROFIL - справочник профилей коек

KOD CHAR(3) Код профиля койки

NAIM VARCHAR2(30)Наименование

SR_DL NUMBER(5, 2)Средняя длительность

SR_DL1 NUMBER(5, 2)Средняя длительность

16.ORACLE:SNMSCOB - справочник целей обращения

KC NUMBER(2, 0) Код обращения

NC VARCHAR2(25) Наименование

18. ORACLE:SNMSPR_LPU - справочник ЛПУ

KOD_LPU NUMBER(3, 0) Код ЛПУ

NAIM_LPU VARCHAR2(45) Наименование

KOD_TMO NUMBER(2, 0)

VL NUMBER(1, 0)

ADR_LPU VARCHAR2(50)Адрес

FIO_LPU VARCHAR2(20)Руководитель

TEL_LPU VARCHAR2(9)Телефон

KOD_RAY NUMBER(2, 0)Код района

RAS_CH CHAR(20)Расчетный счет

BANK VARCHAR2(50)Наименование банка

GOROD_BN VARCHAR2(25)Город банка

INN VARCHAR2(15)ИНН ЛПУ

OKONX VARCHAR2(10)Код ОКОНХ

OKPO VARCHAR2(8)Код ОКПО

20. ORACLE:SNMSPL -справочник исходов лечения

KRL NUMBER(2, 0) Код исхода лечения

NRL VARCHAR2(30) Наименование

21. ORACLE:SNMTARIF1 - справочник специальностей врачей

KOD NUMBER(3, 0) Код специальности врача

SPEC VARCHAR2(45) Наименование

22. ORACLE:SNMUSLUGI - справочник услуг

KODUSL NUMBER(1, 0) Код услуги

NUSL VARCHAR2(20)Наименование

25. ORACLE:SNMYEAR_5 - календарь работы 5-дн. дневного стационара

YEAR NUMBER(4, 0) Год

MES_1 CHAR(42) 1-й месяц года

MES_2 CHAR(42)2-й месяц года

MES_3 CHAR(42) 3-й месяц года

MES_4 CHAR(42) 4-й месяц года

MES_5 CHAR(42)5-й месяц года

MES_6 CHAR(42)6-й месяц года

MES_7 CHAR(42) 7-й месяц года

MES_8 CHAR(42) 8-й месяц года

MES_9 CHAR(42) 9-й месяц года

MES_10 CHAR(42) 10-й месяц года

MES_11 CHAR(42) 11-й месяц года

MES_12 CHAR(42) 12-й месяц года

Приложение №5

Код основного модуля unit Unit1;

interface uses

Windows, Messages, SYSUTILS, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS, COMCTRLS, Buttons, EXTCTRLS, RXGRDCPT, Grids, DBGRIDS, bdeutils, fileutil, strutils, Db, DBTABLES, RXCTRLS, SPEEDBAR, vclutils, TOOLWIN, IMGLIST,DBLISTS;

type

TFORM1 = class(TFORM)

RXGRADIENTCAPTION1: TRXGRADIENTCAPTION;

SPEEDBAR1: TSPEEDBAR;

SPEEDBARSECTION1: TSPEEDBARSECTION;

SPEEDITEM1: TSPEEDITEM;

TOOLBAR1: TTOOLBAR;

tbtn1: TTOOLBUTTON;

tbtn2: TTOOLBUTTON;

RXGRADIENTCAPTION2: TRXGRADIENTCAPTION;

IMAGELIST1: TIMAGELIST;

Panel1: TPANEL;

Animate1: TANIMATE;

Label1: TLABEL;

TOOLBUTTON1: TTOOLBUTTON;

RXGRADIENTCAPTION3: TRXGRADIENTCAPTION;

Label2: TLABEL;

Tbtn3: TTOOLBUTTON;

procedure FORMSHOW(Sender: TOBJECT);

procedure SPEEDITEM1Click(Sender: TOBJECT);

procedure TOOLBUTTON1Click(Sender: TOBJECT);

procedure FORMCREATE(Sender: TOBJECT);

procedure FORMDESTROY(Sender: TOBJECT);

private

{ Private declarations } procedure TBLUPDT(s: TDATABASEITEMS);

public

{ Public declarations } end;

var

Form1: TFORM1;

reg : Byte;

implementation

{$R *.DFM} uses data1, Data, main;

procedure create_msg(fi: string; n_ch: integer; d: tdatetime;cou, cou_bad: integer; tot, tot_bad: real);

const str1:ANSISTRING="Получен счет:";

str2:ANSISTRING="Счет:";

str3:ANSISTRING="Дата:";

str4:ANSISTRING="Результаты автоматичекой проверки:";

str5:ANSISTRING="Документов без ошибок ";

str6:ANSISTRING="Документов с ошибками ";

str7:ANSISTRING="Отдел АИО ТФ ОМС г.Иваново";

str8:ANSISTRING=" на сумму ";

var f: TEXTFILE;

begin if fileexists(fi) then Exit;

ASSIGNFILE(f,fi);

Rewrite(f);

writeln(f,strtooem(str1));

writeln(f,strtooem(str2) inttostr(n_ch));

writeln(f,strtooem(str3) DATETIMETOSTR(d));

writeln(f,strtooem(str4));

writeln(f,strtooem(str5) INTTOSTR(cou) strtooem(str8) FLOATTOSTRF(tot, FFFIXED,10,2 ));

writeln(f,strtooem(str6) INTTOSTR(cou_bad) strtooem(str8) FLOATTOSTRF(tot_bad,FFFIXED,10,2));

writeln(f,strtooem(str7));

CLOSEFILE(f);

end;

procedure create_pst(p,fi1,fi2: string);

var f: TEXTFILE;

begin

ASSIGNFILE(f,fi1);

Rewrite(f);

writeln(f,"PATH:" p);

writeln(f,"FILE:" fi2);

writeln(f,strtooem("КТО : decodsch.exe"));

writeln(f,strtooem("ДАТА: " datetimetostr(now)));

CLOSEFILE(f);

end;

procedure CHANGELANGDRV(drv: string);

var l: TSTRINGS;

begin

Session.Close;

l := TSTRINGLIST.Create;

l.Add("LANGDRIVER=" drv);

Session.MODIFYDRIVER("DBASE",l);

Session.Open;

l.Free;

end;

procedure kod_lpu(t: TTABLE);

begin t.TABLENAME := "L2" Copy(t.TABLENAME,3,3) ".DBF";

t.Open;

if not(t.ISEMPTY) then with dm1.Query1 do begin

Close;

SQL.Clear;

sql.Add("UPDATE AMB_US SET KOD_LPU=" t.FIELDBYNAME("kod_lpu").asstring " , N_CH=""" t.FIELDBYNAME("n_ch").asstring """ , DAT_SC=""" t.FIELDBYNAME("dat_sc").ASSTRING """ WHERE KOD_LPU IS NULL");

EXECSQL;

end;

t.Close;

end;

procedure TFORM1.TBLUPDT(s: TDATABASEITEMS);

var t: TTABLE;

begin

Label1.Caption := "Идет подготовка таблиц ..."; delay(10);

t := TTABLE.Create(self);

case reg of

1: t.DATABASENAME := "DBSTA";

2: t.DATABASENAME := "DBAMB";

4: t.DATABASENAME := "DBSTO";

end;

{создание БД переносимых LPU и счетов} if deletefile("d:\data\TOORA\z.dbf") then;

with dm1.Query2 do begin sql.Clear;

sql.Add("CREATE TABLE "z" (kod_lpu numeric(3),n_ch character(10), dat_sc date, vid numeric(1) )");

Prepare;

EXECSQL;

end;

with s do begin

Open;

First;

while not eof do begin t.TABLENAME := ITEMNAME;

TABLEUPDATE(t);

Next;

end;

Close;

{Формирование БД переносимых LPU и счетов}

{ если весь счет забракован в ошибки, то усложняется SQL на INSERT в z.dbf } with dm1.Query2 do begin sql.Clear;

case reg of

1: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 1 as vid from sta ");

2: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 2 as vid from amb ");

4: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 4 as vid from sto ");

end;

EXECSQL;

sql.Clear;

case reg of

1: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 1 as vid from sta_bad where kod_lpu not in (select distinct kod_lpu from sta) ");

2: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 2 as vid from amb_bad where kod_lpu not in (select distinct kod_lpu from amb) ");

4: sql.Add("INSERT INTO "z" (kod_lpu, n_ch, dat_sc, vid) select distinct kod_lpu, n_ch, dat_sc, 4 as vid from sto_bad where kod_lpu not in (select distinct kod_lpu from sto) ");

end;

EXECSQL;

Close;

end;

end;

t.Free;

end;

procedure TFORM1.FORMSHOW(Sender: TOBJECT);

begin

Icon := Application.Icon;

TOOLBAR1.Buttons[0].Down := True;

Label1.Caption := "";

Label2.Caption := "";

try dm1.DBORA.Connected := True;

except

MESSAGEDLG("Ошибка при подключении к серверу ORACLE(WG73)!", MTWARNING, [MBOK], 0);

end;

end;

procedure TFORM1.TOOLBUTTON1Click(Sender: TOBJECT);

begin

CHANGELANGDRV("db866ru0");

Close;

end;

procedure TFORM1.FORMCREATE(Sender: TOBJECT);

begin

CHANGELANGDRV("db866ru0");

end;

procedure TFORM1.FORMDESTROY(Sender: TOBJECT);

begin

CHANGELANGDRV("db866ru0");

end;

end.
Заказать написание новой работы



Дисциплины научных работ



Хотите, перезвоним вам?