АВТОМАТИЗАЦИЯ ПРОЦЕССА УПРАВЛЕНИЯМИ ЗНАНИЙ В ООО <name>>

При внедрении разработанной системы управления знаниями для соответствующих технологий специалистов по кадрам будут сокращены трудозатраты на выполнение операций по работе с базой знаний.Основные факторы экономической эффективности включают: 1. Сокращение затрат электроэнергии вследствиесокращения нагрузки на компьютерное оборудование, сокращение амортизационных затрат. Оценка сокращения затрат по данной позиции составляет 1200 руб. в год на одно рабочее место специалиста.2. Также отсутствует необходимость в затратах на приобретение ПО. Экономия составит 9200 руб.Таким образом, полный экономический эффект в годовом денежном выражении, получаемый при внедрении системы управления знаниями, составит 57800 руб. Далее проведем оценку величины затрат на содержание информационной системы (таблица21).Рисунок 34–Распределение по видам затрат в создание информационной системы управления знаниямиТаблица 21Расчёт полных годовых эксплуатационных затратШифр затратНаименование затратВеличина затрат, руб.01Заработная плата с начислениями и отчислениями работников, обслуживающих систему1235002Амортизационныеотчисления3250003Стоимостьматериалов200004Стоимостьэлектроэнергии1250005Плата за пользование средствами и линиями связи80006Стоимость запасных частей и материалов, необходимых для проведения ремонтов оборудования системы500007Арендная плата за помещения и материалов, необходимых для проведения ремонтов оборудования системы008Затраты на содержание служебных помещений системы200009Прочие расходы (командировки, политика безопасности и т.д.)1000Итого68150Расчет заработной платы производится через оценку времени, затраченного на разработку приложения, ставки оплаты труда задействованных сотрудников с учетом страховых взносов. Расчет амортизационных отчислений проводится в соответствии с правилами эксплуатации компьютерного оборудования. Стоимость расходных материалов (03) составляет 1-2% от стоимости компьютерногооборудования. Расчет стоимости электроэнергии проводится из оценки потребляемой мощности используемого оборудования, суммарного времени, затрачиваемого на разработку и тарифа за 1кВ*ч электроэнергии.Затраты по статье 05 в рамках данной работы рассчитываются исходя из тарифов на аренду каналов связи и доли трафика разработчика в общем объеме сетевого трафика компании. Затраты на комплектующие и запасные части оцениваются в 3% от стоимости компьютера. При расчете затрат по арендным платежам необходимо учитывать договор с арендодателем. Сумма указанных затрат характеризует полные затраты на эксплуатацию компьютерного оборудования.По данным бухгалтерского учета компании, величина затрат на эксплуатацию компьютерного и сетевого оборудования в компании составляет 70150руб. ежегодно. При внедрении разработанной системы экономия средств по указанной статье оценивается в 9%. Проведем оценку величины капитальных вложений, связанных с разработкой и внедрением программного продукта управления знаниями.Капитальные затраты включают комплекс вложений, связанных с разработкой и внедрением программного продукта управления знаниями: , (1)где - величина предпроектных затрат на развертывание системы (включает проведение специального обучениясотрудников, обследование объекта, проведение предпроектного анализа материалов в области управления знаниями, проведение разработки, согласования и утверждения технического задания), руб.:, (2)где - величина временных затрат на работы, выполняемые на предпроектномэтапе, чел*час; - величина среднечасовой ставкисотрудника, выполняющего работы в системе управления знаниями, руб.;Ч – количество сотрудников, использующих систему управления знаниями, чел.;I – величина индекса вида работ, выполняемых на предпроектномэтапе., (3)где - величина районного коэффициента; - величина окладасотрудника, руб.;Величина проектных затрат на реализацию системы проводится из соотношения: (4)где - величина временных затрат на работы, выполняемые на этапе проектирования; - временные затраты на подготовку информации, чел-час;- часовая заработная плата специалистов, работающих с системой управления знаниями, руб.где - заработная плата специалистов, работающих со справочниками системы, руб.;Затраты времени по работам предпроектной и проектной стадии берутся по фактическим затратам.В рамках проведения опытной эксплуатации информационной системы был проведен расчет затрат на разработку и внедрение программы.1. Так как отсутствует необходимость приобретения компьютерной техники, то по данной статье затрат отсутствуют: =0, =0, =0.Так как указанная задача требует переноса информации из файлов MS Office, то значение параметра = 0,5ч. Временные затраты на разработку проекта составляют =50ч. Численность сотрудников, задействованных в разработке системы, составляет 1 чел. Длительность процесса отладки разработанного программного обеспечения =2ч. На рисунке 35 показана диаграмма затрат времени на выполнение технологические операции до и после внедрения информационной системы, на рис.36 – стоимостных затрат.Рисунок 35 - Диаграмма временных затратРисунок 36- Диаграмма стоимостных затратПродолжительность экспериментальной работы =5ч. Продолжительность опытного внедрения =24ч. Таким образом, при подстановке указанных данных в формулу (4), оценка проектных затрат составляет 6025руб. в расчете на одно рабочее место. Отсюда следует, что период окупаемости проекта составит:Таким образом, вложенные в разработку затраты для компании окупятся через 9,5 месяцев, что является приемлемым результатом для исследуемой компании.ЗАКЛЮЧЕНИЕОсновная задача данного проекта- автоматизировать работу ООО «Городской Центр дезинфекции», создав проект системы управления знаниями. Результатом выполнение данного проекта является создание приложения для работы с базами данных, которое учитывает все особенности исследуемой технологии.В процессе проектирования была представлена организационная структура предприятия и автоматизируемого отдела, функциональная модель задач, таблица параметров, состав информационной системы. В ходе проведенного анализа бизнес-процессов были определены недостатки существующей технологии управления знаниями. В постановке задачи была описана экономическая и организационная сущность задачи, было составлено формализованное описание первичных и результатных показателей, а для работы с условно-постоянной информацией были разработаны классификаторы справочников.В данной работе представлены формуляры первичных и результатных документов.Автоматизированный вариант решения задачи позволил:Снизить время обработки информации;Снизить трудовые и стоимостные затраты на обработку данных;Повысить эффективность проведения аттестации сотрудников;Обеспечить оперативность поиска необходимых данных в базе знаний.По итогам третьей главы данного проекта были рассчитаны технико-экономические показатели оценки эффективности внедрения автоматизации.Показатели эффективности отображают, что реальная денежная выгода от внедрения программного продукта довольно велика, а уменьшение трудозатрат делает проект наиболее привлекательным, что обеспечит общую эффективность внедряемой разработки.Перспективами развития проекта может стать расширения функционала программного приложения, а именно создание и установки связи с АРМами других сотрудников ООО «Городской Центр дезинфекции». СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВСистемы управления знаниями. Описание программ. [Электронный ресурс]. Режим доступа: https://www.crn.ru/numbers/reg-numbers/detail.php?ID=8988Мелихова Н. В. Информационные технологии управления: учебное пособие. - Челябинск: Издательство Челябинского государственного университета, 2014. - 214 с.Кашаев С. 1С: Предприятие 8.3: программирование и визуальная разработка на примерах. - Санкт-Петербург: БХВ-Петербург, 2015. - 336 с.Щеглов, Ю.А. Информационные системы и процессы. - Новосибирск: НИНХ, 2015. - 251 с.Тагайцева С. Г., Юрченко Т. В. Разработка прикладных решений на платформе 1С: Предприятие 8: учебное пособие. - Нижний Новгород: ННГАСУ, 2016. - 125 с.Задорожный, В.Н. Информационные технологии и автоматизация управления. - Омск : Изд-во ОмГТУ, 2016. - 269 с.Ахметов И. В., Карабельская И.В., Губайдуллин И.М., Сафин Р.Р. Моделирование бизнес-процессов: учебное пособие. - Уфа: Уфимский государственный университет экономики и сервиса, 2015. - 67 с.Баранов В. В., Горошко И. В., Лебедев В. Н. Информационные технологии управления и организация защиты информации: учебник. - Москва: Академия управления МВД России, 2018. - 453 с.Некрасов В. Н., Архипова О. И. Информационно-коммуникационные технологии управления и особенности разрешения их противоречий: монография. - Ростов-на-Дону: Профпресс, 2014. – 105 с.Костикова А. В. Моделирование бизнес-процессов: учебное пособие. - Волгоград: ВолгГТУ, 2016. – 110 с.Бабиева Н. А., Раскин Л. И. Проектирование информационных систем: учебно-методическое пособие. - Казань: Университет, 2014. – 200с.Широкова Е. В. Разработка простых отчетов в "1C: Предприятие 8.3" с использованием системы компоновки данных: учебное пособие по дисциплине "Модуль аналитической отчетности в КИС 1C: Предприятие". - Калуга: Манускрипт, 2017. - 83 с. Стрекалова Н. Б., Маризина В. Н. Современные технологии в профессиональной подготовке специалистов: учебное пособие. - Тольятти: Тольяттинская академия управления, 2016. - 128 с. Гагарин А. Г., Костикова А. В. Проектирование информационных систем: учебное пособие. - Волгоград: ВолГТУ, 2015. – 57 с.Сурушкин М. А. Анализ предметной области и проектирование информационных систем с примерами : учебное пособие. - Белгород: НИУ "БелГУ", 2019. - 155 с.Инюшкина О. Г. Проектирование информационных систем: (на примере методов структурного системного анализа): учебное пособие: Форт-Диалог Исеть, 2014. - 240 с. Баранников Н. И., Яскевич О. Г. Современные проблемы проектирования корпоративных информационных систем. - Воронеж: Воронежский государственный технический университет, 2014. - 237 с. Деменков, М.Е. Современные методы и средства проектирования информационных систем: учебное пособие. - Архангельск: САФУ, 2015. – 89с. Баранчиков А. И. Синтез информационных структур хранения данных на основе анализа предметных областей. - Рязань: РГУ, 2014. - 229 с.Шичкина Ю. А. Методы построения схемы и выполнения запросов в базах данных. - Санкт-Петербург : Изд-во СПбГЭТУ "ЛЭТИ", 2016. - 205 с.Микляев И. А. Универсальные объектно-ориентированные базы данных на реляционной платформе. – Архангельск: ИД САФУ, 2014. – 223с.Ощенко И. А. Азбука программирования в 1С: Предприятие 8.3. - Санкт-Петербург: БХВ-Петербург, 2015. - 284 с. Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.3: практическое пособие разработчика. - Москва: фирма 1С, 2016. – 926с.Терехова А. Е. Моделирование бизнес-процессов: учебное пособие. - Москва: Изд. дом ФГБОУВО "ГУУ", 2016. - 96 с.Барановская Т.П., Яхонтова И. М., Вострокнутов А. Е., Иванова Е. А. Моделирование бизнес-процессов: учебное пособие. - Краснодар: КубГАУ, 2016. - 152 с.Надейкина Л. А. Программирование. Обобщенное программирование: учебное пособие. - Москва: Московский государственный технический университет ГА, 2019. - 80 с.ПРИЛОЖЕНИЕФрагменты программного кодаpr0cedureTF0rm1.N5Click(Sender: TObject);beginclose;end;pr0cedure TF0rm1.N6Click(Sender: TObject);begin with f0rm1.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select * from prof');active:=true; end;f0rm2.DBGrid1.Columns[0].Title.ccption:='Код';f0rm2.DBGrid1.Columns[1].Title.ccption:='Наименование';f0rm2.Show;end;pr0cedure TF0rm1.N7Click(Sender: TObject);begin with f0rm1.ADOQqery3 do begin close;sq1.Clear;sq1.Add('select * from zp1');active:=true; end;f0rm3.dbgrid1.columns[0].title.ccption:='Код';f0rm3.dbgrid1.columns[1].title.ccption:='ФИО';f0rm3.dbgrid1.columns[2].title.ccption:='Датарождения';f0rm3.dbgrid1.columns[3].title.ccption:='Профессия';f0rm3.dbgrid1.columns[4].title.ccption:='Роль';f0rm3.Show;end;pr0cedure TF0rm1.N8Click(Sender: TObject);begin with f0rm1.ADOQqery4 do begin close;sq1.Clear;sq1.Add('select * from tests');active:=true; end;f0rm5.DBGrid1.columns[0].Title.ccption:='Код';f0rm5.DBGrid1.columns[1].Title.ccption:='Наименование';f0rm5.show;end;pr0cedure TF0rm1.F0rmCreate(Sender: TObject);beginpanel1.Visible:=false;n2.Enabled:=false;n3.Enabled:=false;n4.Enabled:=false;end;pr0cedure TF0rm1.N1Click(Sender: TObject);begin with f0rm1.ADOQqery2 do begin close;sq1.Clear;sq1.Add('select * from person');active:=true; end;f0rm10.Show;end;pr0cedure TF0rm1.N9Click(Sender: TObject);begin with f0rm1.ADOQqery8 do begin close;sq1.Clear;sq1.Add('select * from zp2 where nam='+f0rm1.Label1.Ccption+trim(label5.Ccption)+f0rm1.Label1.Ccption);active:=true; end;f0rm11.Show;end;pr0cedure TF0rm1.N10Click(Sender: TObject);begin with f0rm1.ADOQqery10 do begin close;sq1.Clear;sq1.Add('select * from zp5');active:=true; end;f0rm13.DBGrid1.Columns[0].Title.ccption:='ФИО';f0rm13.DBGrid1.Columns[1].Title.ccption:='Тест';f0rm13.DBGrid1.Columns[2].Title.ccption:='Баллов';f0rm13.DBGrid1.Columns[3].Title.ccption:='Макс.баллов';f0rm13.Show;end;pr0cedure TF0rm1.N11Click(Sender: TObject);begin with f0rm1.ADOQqery4 do begin close;sq1.Clear;sq1.Add('select * from tests');active:=true; end;f0rm14.Show;end;pr0cedure TF0rm1.N12Click(Sender: TObject);var i:integer; excelApp:variant;begin with f0rm1.ADOQqery11 do begin close;sq1.Clear;sq1.Add('select * from zp6'); open; end;ExcelApp := CreateOleObject('Excel.Application');ExcelApp.workbooks.open('C:\test_rab\xlt\sv_test.xlt');ExcelApp.Visible := False; for i:=1 to f0rm1.ADOQqery11.RecordCount do beginexcelapp.cells[3+i,1]:=f0rm1.ADOQqery11nam_ts.AsString;excelapp.cells[3+i,1].borders.linestyle:=1;excelapp.cells[3+i,2]:=int(100*f0rm1.ADOQqery11SumSumv1.AsInteger/f0rm1.ADOQqery11SumSumSumves.AsInteger);excelapp.cells[3+i,2].borders.linestyle:=1;f0rm1.ADOQqery11.Next; end;excelapp.visible:=true;excelapp:=unassigned;end;end.uses Unit1;{$R *.dfm}pr0cedure TF0rm10.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm10.RzBitBtn1Click(Sender: TObject);begin if trim(edit1.Text)=trim(f0rm1.ADOQqery2passw.AsString) then begin if trim(f0rm1.ADOQqery2rol.AsString)='Клиент' then beginf0rm1.N3.Enabled:=true;f0rm1.N10.Enabled:=false; end else beginf0rm1.N2.Enabled:=true;f0rm1.N3.Enabled:=true;f0rm1.N4.Enabled:=true; end;f0rm1.Panel1.Visible:=true;f0rm1.Label4.Ccption:=f0rm1.ADOQqery2fio.AsString; with f0rm1.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select * from prof where code_prof='+f0rm1.ADOQqery2code_prof.AsString);active:=true; end;f0rm1.Label5.Ccption:=f0rm1.ADOQqery1nam.AsString;f0rm1.N1.Enabled:=false;f0rm10.close; end else showmessage('Неверныйпароль');end;end.pr0cedure TF0rm11.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm11.RzBitBtn1Click(Sender: TObject);begin with f0rm1.ADOQqery9 do begin close;sq1.Clear;sq1.Add('delete from gur_test where code_per='+f0rm1.ADOQqery2code_per.AsString); execsq1; close;sq1.Clear;sq1.Add('select * from gur_test'); open; end; with f0rm1.ADOQqery6 do begin close;sq1.Clear;sq1.Add('select * from vopros where code_ts='+f0rm1.ADOQqery8code_ts.AsString);active:=true; end; with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.add('select * from otv where code_vop='+f0rm1.ADOQqery6code_vop.AsString);active:=true; end;f0rm12.Label4.Ccption:='1';f0rm12.Label6.Ccption:=inttostr(f0rm1.ADOQqery6.RecordCount);f0rm12.RzBitBtn1.Enabled:=true;f0rm12.Show;end;end.pr0cedure TF0rm12.RzBitBtn1Click(Sender: TObject);begin with f0rm1.ADOQqery9 do begin close;sq1.Clear;sq1.Add('select code_ot, code_per from gur_test'); open; end;f0rm1.ADOQqery9.AppendRecord([f0rm1.ADOQqery7code_otv.AsInteger,f0rm1.ADOQqery2code_per.AsInteger]); if strtoint(label6.Ccption)>strtoint(label4.Ccption) then label4.Ccption:=inttostr(1+strtoint(label4.Ccption)) else rzbitbtn1.Enabled:=false;f0rm1.adoqqery6.Next; with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.add('select * from otv where code_vop='+f0rm1.ADOQqery6code_vop.AsString);active:=true; end;end;pr0cedure TF0rm12.RzBitBtn2Click(Sender: TObject);beginf0rm12.close;end;end.pr0cedure TF0rm14.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm14.RzBitBtn1Click(Sender: TObject);var i:integer ; excelApp:variant;begin with f0rm1.ADOQqery10 do begin close;sq1.Clear;sq1.Add('select * from zp5 where nam_ts='+f0rm1.Label1.Ccption+trim(f0rm1.ADOQqery4nam_ts.AsString)+f0rm1.Label1.Ccption); open; end;ExcelApp := CreateOleObject('Excel.Application');ExcelApp.workbooks.open('C:\test_rab\xlt\ot_test.xlt');ExcelApp.Visible := False; for i:=1 to f0rm1.ADOQqery10.RecordCount do beginexcelapp.cells[5+i,1]:=f0rm1.ADOQqery10fio.AsString;excelapp.cells[5+i,1].borders.linestyle:=1;excelapp.cells[5+i,2]:=f0rm1.ADOQqery10Sumv1.AsInteger ;excelapp.cells[5+i,2].borders.linestyle:=1;excelapp.cells[5+i,3]:=f0rm1.ADOQqery10SumSumves.AsInteger ;excelapp.cells[5+i,3].borders.linestyle:=1;excelapp.cells[5+i,4]:=int(100*f0rm1.ADOQqery10Sumv1.AsInteger/f0rm1.ADOQqery10SumSumves.AsInteger);excelapp.cells[5+i,4].borders.linestyle:=1;f0rm1.ADOQqery10.Next; end;excelapp.cells[3,2]:=f0rm1.ADOQqery4nam_ts.AsString;excelapp.visible:=true;excelapp:=unassigned;end;end.pr0cedure TF0rm3.RzBitBtn3Click(Sender: TObject);beginclose;end;pr0cedure TF0rm3.RzBitBtn1Click(Sender: TObject);begin with f0rm1.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select * from prof');active:=true; end; with adoqqery1 do begin close;sq1.Clear;sq1.Add('select max(code_per) from person'); open; end; if f0rm3.ADOQqery1.RecordCount=0 then f0rm4.Edit1.Text:='1' else f0rm4.Edit1.text:=inttostr(1+f0rm3.ADOQqery1Expr1000.AsInteger);f0rm4.Edit2.clear;f0rm4.Show;end;pr0cedure TF0rm3.RzBitBtn2Click(Sender: TObject);beginf0rm9.Edit1.Clear;f0rm9.Show; end;end.pr0cedure TF0rm4.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm4.RzBitBtn1Click(Sender: TObject);var rol:string;begin if radiobutton1.Checked=true then rol:='Админ' else rol:='Клиент';f0rm1.ADOQqery2.Open;f0rm1.ADOQqery2.AppendRecord([edit1.Text,f0rm1.ADOQqery1code_prof.AsInteger,edit2.Text,datetimepicker1.DateTime,rol,'']); with f0rm1.ADOQqery3 do begin close;sq1.Clear;sq1.Add('select * from zp1');active:=true; end;f0rm1.ADOQqery3.Locate('code_per',edit1.text,[]);edit1.Text:=inttostr(1+strtoint(edit1.Text)); edit2.clear;showmessage('Записано');end;end.pr0cedure TF0rm5.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm5.RzBitBtn1Click(Sender: TObject);var i:integer;begin with f0rm1.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select * from prof'); open; end;f0rm6.CheckListBox1.Clear; for i:=1 to f0rm1.ADOQqery1.RecordCount do beginf0rm6.CheckListBox1.Items.Add(trim(f0rm1.ADOQqery1nam.AsString)); with f0rm1.ADOQqery5 do begin close;sq1.Clear;sq1.Add('select * from pr_t where (code_pr='+f0rm1.ADOQqery1code_prof.AsString+') and (code_ts='+f0rm1.ADOQqery4code_ts.AsString+')'); open; end; if f0rm1.ADOQqery5.RecordCount>0 then f0rm6.CheckListBox1.Checked[i-1]:=true;f0rm1.adoqqery1.Next;end;f0rm6.show;end;pr0cedure TF0rm5.RzBitBtn3Click(Sender: TObject);beginf0rm7.Edit1.clear; with f0rm1.ADOQqery6 do begin close;sq1.Clear;sq1.Add('select * from vopros where code_ts='+f0rm1.ADOQqery4code_ts.AsString);active:=true; end;f0rm7.DBGrid1.Columns[0].Title.ccption:='Кодвопроса';f0rm7.DBGrid1.Columns[1].Title.ccption:='Кодтеста';f0rm7.DBGrid1.Columns[2].Title.ccption:='Вопрос'; f0rm7.Show;end;end.pr0cedure TF0rm6.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm6.RzBitBtn1Click(Sender: TObject);var i:integer;begin with f0rm1.ADOQqery5 do begin close;sq1.Clear;sq1.Add('delete from pr_t where code_ts='+f0rm1.ADOQqery4code_ts.AsString); execsq1; close;sq1.Clear;sq1.Add('select * from pr_t'); open; end; for i:=1 to f0rm6.checklistbox1.items.count do begin if f0rm6.CheckListBox1.Checked[i-1]=true then begin with f0rm1.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select * from prof where nam='+f0rm1.Label1.Ccption+trim(f0rm6.CheckListBox1.Items[i-1])+f0rm1.Label1.Ccption); open; end;f0rm1.ADOQqery5.AppendRecord([f0rm1.ADOQqery1code_prof.AsInteger,f0rm1.ADOQqery4code_ts.AsInteger]); end; end;showmessage('Записано');end;end.pr0cedure TF0rm7.RzRapidFireButton1Click(Sender: TObject);var code:integer;begin with f0rm7.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select max(code_vop) from vopros'); open; end; if f0rm7.ADOQqery1.RecordCount=0 then code:=1 else code:=1+f0rm7.ADOQqery1Expr1000.AsInteger;f0rm1.ADOQqery6.AppendRecord([code,f0rm1.ADOQqery4code_ts.AsInteger,edit1.Text,edit2.Text]); edit1.clear; edit2.Clear;showmessage('Записано');end;pr0cedure TF0rm7.RzBitBtn1Click(Sender: TObject);begin with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.Add('select * from otv where code_vop='+f0rm1.ADOQqery6code_vop.AsString);active:=true; end;f0rm8.DBGrid1.Columns[0].Title.ccption:='Код';f0rm8.DBGrid1.Columns[1].Title.ccption:='Ответ';f0rm8.DBGrid1.Columns[2].Title.ccption:='Правильность';f0rm8.Show;end;pr0cedure TF0rm7.RzBitBtn2Click(Sender: TObject);var code:integer;begincode:=f0rm1.ADOQqery6code_vop.AsInteger; with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.Add('delete from otv where code_vop='+inttostr(code)); execsq1; close;sq1.Clear;sq1.Add('select * from otv ');active:=true; end; with f0rm1.ADOQqery6 do begin close;sq1.Clear;sq1.Add('delete from vopros where code_vop='+inttostr(code));execsq1; close;sq1.Clear;sq1.Add('select * from vopros where code_ts='+f0rm1.ADOQqery4code_ts.AsString);active:=true; end;end;end.pr0cedure TF0rm8.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm8.RzBitBtn1Click(Sender: TObject);var code,prav:integer;begin with f0rm8.ADOQqery1 do begin close;sq1.Clear;sq1.Add('select max(code_otv) from otv'); open; end; if checkbox1.Checked=true then prav:=1 else prav:=0; if prav=1 then begin with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.Add('update otv set prav=0 where code_vop='+f0rm1.ADOQqery6code_vop.AsString); execsq1; close;sq1.Clear;sq1.Add('select * from otv where code_vop='+f0rm1.ADOQqery6code_vop.AsString);active:=true; end; end; if f0rm8.ADOQqery1.RecordCount=0 then code:=1 else code:=1+f0rm8.ADOQqery1Expr1000.AsInteger;f0rm1.ADOQqery7.appendrecord([code,f0rm1.ADOQqery6code_vop.AsInteger,edit1.Text,prav]); edit1.Clear;end;pr0cedure TF0rm8.RzBitBtn3Click(Sender: TObject);var code:integer;begincode:=f0rm1.ADOQqery7code_otv.AsInteger; with f0rm1.ADOQqery7 do begin close;sq1.Clear;sq1.Add('delete from otv where code_otv='+inttostr(code)); execsq1; close;sq1.Clear;sq1.Add('select * from otv where code_vop='+f0rm1.ADOQqery6code_vop.AsString);active:=true; end;showmessage('Удалено');end;end.unit Unit9;pr0cedure TF0rm9.RzBitBtn2Click(Sender: TObject);beginclose;end;pr0cedure TF0rm9.RzBitBtn1Click(Sender: TObject);var code:integer;begincode:=f0rm1.ADOQqery3code_per.AsInteger; with f0rm1.ADOQqery2 do begin close;sq1.clear;sq1.Add('update person set passw='+f0rm1.label1.Ccption+trim(edit1.Text)+f0rm1.Label1.Ccption+' where code_per='+inttostr(code)); execsq1; close;sq1.Clear;sq1.Add('select * from person'); open; end;showmessage('Парольустановлен');end;end.