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

Динамика изменения времени приведена на рис. 27. Рисунок27. Динамика изменения времени выполнения тестовых наборов группами.

На основе анализа результатов эксперимента можно сделать следующие выводы: в первых сериях эксперимента среднее время выполнения тестовых наборов у экспериментальной группы было выше, чем у контрольной, это обусловлено адаптацией пользователей к новому пользовательскому интерфейсу. Далее происходит устойчивое снижение времени выполнения и на 8 серии среднее время стабилизируется и принимает свои минимальные значения. У контрольной группы время адаптации минимально и уже на 5 серии результат стабилизируется и достигает минимума. В результате минимальное время выполнения тестового набора экспериментальной группы на 20% ниже, чем у контрольной, что говорит о верности гипотезы эксперимента.

ЗАКЛЮЧЕНИЕ

В результате выполнения ВКР рассмотрены вопросы разработки пользовательского интерфейса с использованиемонтологий. Онтологический подход, в отличие от наиболее распространенных подходов ориентирован на явное определение систем понятий анализируемой предметной области и предназначен для автоматизации деятельности специалистов по построению и модификации целевых объектов заданного класса, с исключением из данного процесса программистов. Рассмотрены средства разработки онтологий и инструменты оценки существующих онтологий. В третьей части ВКР осуществлена модификация существующего программного интерфейса системы-тренажера для составителя коллективнодоговорных актов. На основании требований пользователей сформировано техническое задание, осуществлена разработка пользовательского интерфейса методом онтологии. Дана сравнительная оценка производительности модифицированного ПИ методом GOMS, а именно получены временные оценкииспользования существующего варианта ПИ и предлагаемого варианта ПИ. Кроме того, было осуществлено тестирование пользовательского интерфейса. Эксперимент был направлен на оценку времени выполнения типовых операций с помощью разработанного интерфейса обучающей системы. Эксперимент подтвердил гипотезу о том, что организация пользовательского интерфейса средствами онтологии позволяет разработать пользовательский интерфейс, сокращающий время выполнения операций пользователем. Для разработанного интерфейса, состоящего из 5 диалоговых окон, разработан программный код на языке ComponentPascal в среде разработки Delphi 7.0, который приведен в Приложении. В ходе ВКР были выполнены все поставленные задачи.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. D ray S.

T he importance of designing usable systems // Interactions vol. 2(1). New York, NY, USA.

2013. — P. 17−20. 2. Грибова В. В., Кисленок Р. С. Управление автоматизацией проектирования пользовательских интерфейсов на основе знаний // Одиннадцатая национальная конференция по искусственному интеллекту с международным участием (КИИ-2008).

2014. C. 94−100. 3. Клименко С., Уразметов В. Графические интерфейсы и средства их разработки // Индустрия программирования — 96.

2014. С. 72−81. 4. L iu F. A n ontology-based approach to Automatic Generation of GUI for Data Entry // University of New Orleans.

2013. P. 3−5. 5. Константинова Н. С., Митрофанова О. А. Онтологии как система хранения данных: Учебное пособие. — СПб: Санкт-Петербургский государственный университет Факультет филологии и искусств, Кафедра математической лингвистики. 2013.

С. 12−15. 6. Боргест Н. М., Коровин М. Д. Онтологии: современное состояние, стандарты, средства поддержки. Учебное пособие // СГАУ. — Самара.

2013. C. 84−92. 7. B auer, J.

M odel exploration to support understanding of ontologies. M aster thesis, Technische Universität Dresden. D resden, Germany. 2014. P. 101−106.

8. Bergh, J.R. Ontology comprehension. Master Thesis, University of Stellenbosch. Stellenbosch, South Africa. 2014. P.59−70.

9. Константинова Н. С., Митрофанова О. А. Онтологии как системы хранения знаний. СПб: Питер. 2013. С. 34−38.

10. Добров Б. Онтологии и тезаурусы: модели, инструменты, приложения. Учебное пособие. М: Московский государственный университет имени М. В. Ломоносова. 2014. С.50−51.

11. Fangfang Liu. An ontology-based approach to Automatic Generation of GUI for Data Entry // University of New Orleans, 2014.

12. W3C Semantic Web Activity [электронныйресурс] // W3C. Режим доступа:

https://www.w3.org/2013/12/semweb-fin/w3csw (Дата обращения: 27.

03.2017).

13. Скопин И. Н. Разработка интерфейсов программных систем. Системная информатика, Ч. 6. Новосибирск, Наука. 2014. С. 123−13 014.

Буч Г. Объектно-ориентированный анализ и проектирование с примерами приложений на С++. — 2-е изд. СПб: БИНОМ. 2014. С.204−210.

15. Скопин И. Н. Разработка интерфейсов программных систем. Системная информатика, Ч. 6. Новосибирск, Наука. 2014 С. 147−15 016.

Штайкман Н., Богданов Е. Унифицированный интерфейс пользователя. Интерактивный учебник. [электронный ресурс] Режим досупа:

http://www.asu.pstu.ac.ru/book/interface/ (Дата обращения: 01.

04.2017).

17. Cambridge Semantics: RDFS vs OWL [электронныйресурс] Режим досупа:

http://www.cambridgesemantics.com/semantic-university/rdfs-vs-owl (Дата обращения: 01.

04.2017).

18. Тузовский А. Ф. Онтолого-семантические модели в корпоративных системах управления знаниями. Томск, Наука. 2014. С.13−15.

19. C hlebek P. U ser Interface-orientierte Softwarearchitektur.

U niversity of Wiesbaden. W iesbaden, Germany. 2014. P.89−96.

20. Meixner G. Past, present, and future of model-based user interface development // Center for Human-Machine-Interaction. New Dehli, India. 2014. P.12−18.

21. Алексеев В. Ю. Изучение проблемы автоматизации проектирования пользовательских интерфейсов на основе онтологий. [электронный ресурс] Режим досупа:

http://alexeyev.me/articles/ontology_approach.pdf (Дата обращения: 09.

05.2017).

22. Michael Hitz T.K. Using Application Ontologies for the Automatic Generation of User Interfaces for Dialog-Based Applications // CooperativeStateUniversity Baden-Wuerttemberg, 2014.

23. Обзор CLI SAPI // Официальная документация php.net. [электронный ресурс] Режим досупа:

http://php.net/manual/ru/features.commandline.introduction.php (Дата обращения: 02.

05.2017).

24. EasyRdf Documentation [электронный ресурс] Режим досупа:

https://github.com/njh/easyrdf (Дата обращения: 09.

05.2017).

25. M iguel A. A.

utomatic generation of user interface models and prototypes from domain and use case models. // U ser Interfaces. I nTech. 2014. P.180−189.

26. Алексеева. О. Г. Методические указания по технико-экономическому обоснованию выпускных квалификационных работ бакалавров / Метод. указания, СПб.: Изд-во СПбГЭТУ «ЛЭТИ». 2013. ПРИЛОЖЕНИЕ — ПРОГРАММНЫЙ КОД СИСТЕМЫАннотация??? unit uMain;interfaceuses {FastMM4,} Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, acMagn, sHintManager, sSkinManager, StdCtrls, sButton, sSkinProvider, Menus, IniFiles, uData, ComCtrls, ExtCtrls, sPanel, sLabel, sComboBox, sRadioButton, sGroupBox, {sAlphaListBox, }HTMLHelpViewerEx, sListBox;type TfrMain = class (TForm) sSkinManager1: TsSkinManager; sHintManager1: TsHintManager; sMagnifier1: TsMagnifier; sPanel1: TsPanel; sLabel1: TsLabel; sLabel2: TsLabel; sLabel3: TsLabel; sButton1: TsButton; sPanel2: TsPanel; sLabelSelect: TsLabel; sButtonNext: TsButton; sButtonBack: TsButton; sButton2: TsButton; sButton3: TsButton; sLabelSelect2: TsLabel; sListBox1: TsListBox; sListBox2: TsListBox; sButton4: TsButton; procedure N3Click (Sender: TObject); procedure N2Click (Sender: TObject); procedure InitConfig; procedure ConnectDB; procedure InitTables; procedure FormShow (Sender: TObject); procedure N7Click (Sender: TObject); procedure N6Click (Sender: TObject); procedure N8Click (Sender: TObject); procedure N9Click (Sender: TObject); procedure N15Click (Sender: TObject); procedure N12Click (Sender: TObject); procedure N13Click (Sender: TObject); procedure N17Click (Sender: TObject); procedure N18Click (Sender: TObject); procedure N19Click (Sender: TObject); procedure N20Click (Sender: TObject); procedure N26Click (Sender: TObject); procedure N22Click (Sender: TObject); procedure N24Click (Sender: TObject); procedure N23Click (Sender: TObject); procedure N27Click (Sender: TObject); procedure N29Click (Sender: TObject); procedure N31Click (Sender: TObject); procedure N30Click (Sender: TObject); procedure N10Click (Sender: TObject); procedure sButton1Click (Sender: TObject); procedure sButton2Click (Sender: TObject); procedure sButtonNextClick (Sender: TObject); procedure sButtonBackClick (Sender: TObject); procedure FormCreate (Sender: TObject); procedure sButton3Click (Sender: TObject); procedure sListBox1Click (Sender: TObject); procedure sButton4Click (Sender: TObject); // procedure sButton3Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var frMain: TfrMain; mnData: TmData; Razrabotka, r: byte; reg: byte; procedure uchregd;implementation{$R *.dfm}uses uConfig, uSection, uFragments, uUchrezh, uStruct, uNewKd, uKdList, DB, uViewFrag, uAddEditKD, uReg;procedure TfrMain. N3Click (Sender: TObject);begin Close;end;procedure TfrMain. N2Click (Sender: TObject);begin frConfig := TfrConfig. Create (Owner); try frConfig. ShowModal; except frConfig. Free; end;end;procedure TfrMain. InitConfig;var ini: TIniFile; s: string; k: integer;begin mData.DB.Connected := false; ini := TIniFile. Create ('./config.ini'); sSkinManager1. SkinName := ini. ReadString ('skins', 'MacMetal', ''); s := ini. ReadString ('Database', 'FileDB', ''); mData.DB.AliasName := s; mData.DB.Params.Clear; mData.DB.Params.Add ('user_name=' + ini. ReadString ('Database', 'user', 'SYSDBA')); mData.DB.Params.Add ('password=' + ini. ReadString ('Database', 'password', 'masterkey')); k := ini. ReadInteger ('RegisterData', 'Uchrezh', 1); Uchreh := k;end;procedure TfrMain. ConnectDB;begin try mData.DB.Connected := True; exceptApplication. MessageBox ('Проверьте правильность указаных настроек и повторите попытку!','Ошибка подключения к БД', 0);frConfig := TfrConfig. Create (Owner); try frConfig. ShowModal; except frConfig. Free; end; exit; end;end;procedure TfrMain. FormShow (Sender: TObject);begin InitConfig; ConnectDB; InitTables; reg:=1; sLabelSelect. Caption:='Выберите этап разработки акта'; slistBox1.Items.Add ('Начать'); slistBox1.Items.Add ('Продолжить'); slistBox2. Visible:=false; sButtonBack. Visible:=False; {sRadioButton1.Caption:='Начать'; sRadioButton2. Caption:='Продолжить'; sRadioButton1. Visible:=true; sRadioButton2. Visible:=true; sRadioButton3. Visible:=false; sRadioButton4. Visible:=false; sRadioButton5. Visible:=false; sRadioButton6. Visible:=false; sRadioButton7. Visible:=false; sRadioButton8. Visible:=false; sRadioGroup2. Visible:=false; } {sComboBoxAct.AddItem ('Коллективный договор ВУЗА', Sender); sComboBoxAct. AddItem ('Коллективный договор СОШ', Sender); sComboBoxAct. AddItem ('Коллективный договор ДОУ', Sender);// sComboBoxAct. AddItem ('Рег. согл', Sender); sComboBoxReg. AddItem ('Редактирование', Sender); sComboBoxReg. AddItem ('Редактирование по разделам', Sender); sComboBoxReg. AddItem ('Компилирование', Sender); sComboBoxReg. AddItem ('Автосодержание', Sender);// sComboBoxReg. AddItem ('Полностью нового КД', Sender);// sComboBoxReg. AddItem ('Другого КД', Sender);// sComboBoxReg. AddItem ('Макета', Sender);// sComboBoxReg. AddItem ('Мак. с обучен', Sender); sComboBoxRaz. AddItem ('Начать', Sender); sComboBoxRaz. AddItem ('Продолжить', Sender);{ sComboBoxHelp. AddItem ('Описание ПО', Sender); sComboBoxHelp. AddItem ('О программе', Sender);{ sComboBoxAct. ItemIndex:=0; sComboBoxReg. ItemIndex:=0; sComboBoxRaz. ItemIndex:=0;// sComboBoxHelp. ItemIndex:=0; sComboBoxReg. Visible:=False; sComboBoxRaz. Visible:=False;// sComboBoxHelp. Visible:=True; sLabelReg. Visible:=False; sLabelRaz. Visible:=False;// sLabelHelp. Visible:=True; sButtonBack. Enabled:=False;}end;procedure TfrMain. N7Click (Sender: TObject);begin frSection := TfrSection. Create (Owner); TypeView := 1; try frSection. ShowModal; except frSection. Free; end;end;procedure TfrMain. InitTables;begin mData.tSections.Active := true; mData.tQuestion.Active := true; mData.tQuality.Active := true; mData.tActs.Active := true; mData.tVozm.Active := true; mData.tStruct.Active := true; mData.tUchrezhd.Active := true; mData.tRegion.Active := true; mData.tTypeUchrezh.Active := true; mData.tCity.Active := true;// mData.tTypeKD.Active := true; mData.qReg.ParamByName ('KODU').AsInteger := Uchreh; mData.qReg.Open; Rector := mData.qReg.FieldByName ('rector').AsString; shapka := mData.qReg.FieldByName ('shapka').AsString; Naimenov :=mData.qReg.FieldByName ('nameuchr').AsString; PredProf := mData.qReg.FieldByName ('predprof').AsString; if mData.qReg.FieldByName ('rezhim').AsInteger = 1 then RezhWork := true else RezhWork := false ;end;procedure TfrMain. N6Click (Sender: TObject);begin frSection := TfrSection. Create (Owner); TypeView := 2; try frSection. ShowModal; except frSection. Free; end;end;procedure TfrMain. N8Click (Sender: TObject);begin frSection := TfrSection. Create (Owner); TypeView := 3; try frSection. ShowModal; except frSection. Free; end;end;procedure TfrMain. N9Click (Sender: TObject);begin frSection := TfrSection. Create (Owner); TypeView := 4; try frSection. ShowModal; except frSection. Free; end;end;procedure TfrMain. N15Click (Sender: TObject);begin frSection := TfrSection. Create (Owner); TypeView := 5; try frSection. ShowModal; except frSection. Free; end;end;procedure TfrMain. N12Click (Sender: TObject);begin frFragments := TfrFragments. Create (Owner); frFragments. TypeFrag := 1; try frFragments. ShowModal; except frFragments. Free; end;end;procedure TfrMain. N13Click (Sender: TObject);begin frFragments := TfrFragments. Create (Owner); frFragments. TypeFrag := 2; try frFragments. ShowModal; except frFragments. Free; end;end;procedure TfrMain. N17Click (Sender: TObject);begin frUchrezh := TfrUchrezh. Create (Owner); frUchrezh. TypeForm := 1; try frUchrezh. ShowModal; except frUchrezh. Free; end;end;procedure TfrMain. N18Click (Sender: TObject);begin frUchrezh := TfrUchrezh. Create (Owner); frUchrezh. TypeForm := 2; try frUchrezh. ShowModal; except frUchrezh. Free; end;end;procedure TfrMain. N19Click (Sender: TObject);begin frUchrezh := TfrUchrezh. Create (Owner); frUchrezh. TypeForm := 3; try frUchrezh. ShowModal; except frUchrezh. Free; end;end;procedure TfrMain. N20Click (Sender: TObject);begin frUchrezh := TfrUchrezh. Create (Owner); frUchrezh. TypeForm := 4; try frUchrezh. ShowModal; except frUchrezh. Free; end;end;procedure TfrMain. N26Click (Sender: TObject);begin frStruct := TfrStruct. Create (Owner); try frStruct. ShowModal; except frStruct. Free; end;end;procedure TfrMain. N22Click (Sender: TObject);begin frNewKD := TfrNewKD. Create (Owner); frNewKD. TIP := 0; try frNewKD. ShowModal; except frNewKD. Free; end;end;procedure TfrMain. N24Click (Sender: TObject);begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 1; try frKDList. ShowModal; except frKDList. Free; end;end;procedure TfrMain. N23Click (Sender: TObject);begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 1; frKDList. TypeForm := 1; try frKDList. ShowModal; except frKDList. Free; end;end;procedure TfrMain. N27Click (Sender: TObject);begin frFragView := TfrFragView. Create (Owner); try frFragView. ShowModal; except frFragView. Free; end;end;procedure TfrMain. N29Click (Sender: TObject);begin frAddEditKD := TfrAddEditKD. Create (Owner); frAddEditKD. CreateType := 0; try frAddEditKD. Show; except frAddEditKD. Free; end;end;procedure TfrMain. N31Click (Sender: TObject);begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end;end;procedure TfrMain. N30Click (Sender: TObject);begin frAddEditKD := TfrAddEditKD. Create (Owner); frAddEditKD. CreateType := 1; try frAddEditKD. Show; except frAddEditKD. Free; end;end;procedure TfrMain. N10Click (Sender: TObject);begin frRegister := TfrRegister. Create (Owner); try frRegister. Show; except frRegister. Free; end;end;procedure TfrMain. sButton1Click (Sender: TObject);begin Close;end;procedure TfrMain. sButton2Click (Sender: TObject);begin frRegister := TfrRegister. Create (Owner); try frRegister. Show; except frRegister. Free; end;end;procedure TfrMain. sButtonNextClick (Sender: TObject);begin { sLabel1. Visible:=false; sLabel2. Visible:=false; sLabel3. Visible:=false; sPanel1. Visible:=false; sPanel2. Visible:=false; sButtonBack. Visible:=true;} if ((slistbox1.Visible=true) and (slistbox1.Items[0]='Начать')) then begin if slistbox1. ItemIndex=0 then begin r:=0; slistbox1. Visible:=false; slistbox1. Height:=93; slistbox1. Width:=238; slistbox1. Left:=128; sButtonBack. Visible:=True; sLabel1. Visible:=false; sLabel2. Visible:=false; sLabel3. Visible:=false; sPanel1. Visible:=false; sPanel2. Visible:=false; sLabelSelect. Visible:=false; slistbox2.Items.Clear; slistbox2. Visible:=true; slistbox2.Items.Add ('Коллективныйдоговор

ВУЗА');slistbox2.Items.Add ('Коллективный договор CОШ');slistbox2.Items.Add ('Коллективный договор ДОУ');slistbox2.Items.Add ('Региональное соглашение');sLabelSelect2.Visible:=true; sLabelSelect2. Caption:='Выберите вид акта';{ slistbox1.Items.Clear; sLabelSelect. Caption:='Выберите режим разработки акта'; slistbox1.Items.Add ('Редактирование'); slistbox1.Items.Add ('Редактирование по разделам'); slistbox1.Items.Add ('Компилирование'); slistbox1.Items.Add ('Автосодержание');} exit; end else if slistbox1. ItemIndex=1 then begin r:=2; slistbox1. Visible:=true; sLabelSelect. Visible:=true; slistbox1.Items.Clear; sLabelSelect. Caption:='Выберите режим разработки акта'; slistbox1.Items.Add ('Редактирование'); slistbox1.Items.Add ('Редактирование по разделам'); slistbox1.Items.Add ('Компилирование'); slistbox1.Items.Add ('Автосодержание'); // slistbox1. Visible:=false; slistbox1. Height:=93; slistbox1. Width:=238; slistbox1. Left:=128; sButtonBack. Visible:=True; sLabel1. Visible:=false; sLabel2. Visible:=false; sLabel3. Visible:=false; sPanel1. Visible:=false; sPanel2. Visible:=false; // sLabelSelect. Visible:=false; slistbox2.Items.Clear; slistbox2. Visible:=true; slistbox2.Items.Add ('Коллективныйдоговор

ВУЗА');slistbox2.Items.Add ('Коллективный договор CОШ');slistbox2.Items.Add ('Коллективный договор ДОУ');slistbox2.Items.Add ('Региональное соглашение');sLabelSelect2.Visible:=true; sLabelSelect2. Caption:='Выберите вид акта'; slistbox1. ItemIndex:=0; slistbox2. ItemIndex:=0; slistbox1. Enabled:=false; slistbox2. Enabled:=false; exit; end end; if slistbox1. Enabled=false and slistbox1. Visible=true then begin razrabotka:=1; sButtonBack. Visible:=True; sLabel1. Visible:=false; sLabel2. Visible:=false; sLabel3. Visible:=false; sPanel1. Visible:=false; sPanel2. Visible:=false; mData.qFrag.Close; mData.qFrag.SQL.Clear; mData.qFrag.DatabaseName:='KDA'; mData.qFrag.SQL.Add ('select max (k.kode_kd) as NomDog from KD K'); mData.qFrag.Open; mData.qFrag.Active := true; //frAddEditKD.KodOWNER := mData.qFrag.FieldByName ('NomDog').AsInteger; { razrabotka:=1; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; } frAddEditKD := TfrAddEditKD. Create (Nil); frAddEditKD. CreateType := 3; frAddEditKD. KodOWNER := mData.qFrag.FieldByName ('NomDog').AsInteger; try frAddEditKD. ShowModal; except frAddEditKD. Free; end; end; if ((slistbox1.Visible=false) and (slistbox1.Enabled=true) and (slistbox2.ItemIndex=0))then begin slistbox1. Visible:=true; sLabelSelect. Visible:=true; slistbox1.Items.Clear; sLabelSelect. Caption:='Выберите режим разработки акта'; slistbox1.Items.Add ('Редактирование'); slistbox1.Items.Add ('Редактирование по разделам'); slistbox1.Items.Add ('Компилирование'); slistbox1.Items.Add ('Автосодержание'); end else if ((slistbox1.Visible=true) and (slistbox1.Items[0]='Редактирование')and (slistbox1.Enabled=true)) then begin if slistbox1. ItemIndex=0 then begin razrabotka:=2; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end end; { if sComboBoxRaz. Visible=true then begin if sComboBoxRaz. Text='Начать' then razrabotka:=2 else razrabotka:=1; if sComboBoxAct. Text='Коллективный договор ВУЗА' then begin if sComboBoxReg. Text='Редактирование' then begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end; if sComboBoxReg. Text='Макета' then begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 1; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end; } {if sComboBoxReg. Text='Редактирование' then begin frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end; }{ if sComboBoxReg. Text='Полностью нового КД' then begin frAddEditKD := TfrAddEditKD. Create (Owner); frAddEditKD. CreateType := 0; try frAddEditKD. Show; except frAddEditKD. Free; end; end; end; end; if sComboBoxReg. Visible=True and sComboBoxRaz. Visible=False then begin}// sComboBoxRaz. Left:=sComboBoxReg.Left+round ((sComboBoxHelp.Left-sComboBoxReg.Left)/2);{ sComboBoxRaz. Left:=sLabelRaz.Left; sComboBoxRaz. Top:=sComboBoxReg.Top; sComboBoxRaz. Visible:=true; sLabelRaz. Visible:=true; sComboBoxReg. ReadOnly:=True; end; if sComboBoxReg. Visible=False then begin sComboBoxReg. Visible:=true; sLabelReg. Visible:=true; sComboBoxAct. ReadOnly:=True; end;} { if (sRadioButton1.Checked=true)and (sRadioButton1.Caption='Начать') then begin sLabelSelect. Caption:='Выберите режим разработки акта';sRadioButton1.Caption:='Редактирование';sRadioButton2.Caption:='Редактирование по разделам';sRadioButton3.Caption:='Компилирование';sRadioButton4.Caption:='Автосодержание';sRadioButton1.Visible:=true; sRadioButton2. Visible:=true; sRadioButton3. Visible:=true; sRadioButton4. Visible:=true; sButtonBack. Enabled:=true; exit; end;}{ if (sRadioButton2.Checked=true) and (sRadioButton2.Caption='Продолжить') then begin razrabotka:=1; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end; if ((sRadioButton1.Checked=true) and (sLabelSelect.Caption='Выберите разработку акта')) then begin sLabelSelect. Caption:='Выберите режим разработки акта';sRadioButton1.Caption:='Редактирование';sRadioButton2.Caption:='Редактирование по разделам';sRadioButton3.Caption:='Компилирование';sRadioButton4.Caption:='Автосодержание';sRadioButton1.Visible:=true; sRadioButton2. Visible:=true; sRadioButton3. Visible:=true; sRadioButton4. Visible:=true; sButtonBack. Enabled:=true; sLabelSelect2. Caption:='Выберите вид акта'; sRadioButton5. Caption:='Коллективный договор ВУЗА';sRadioButton6.Caption:='Коллективный договор CОШ';sRadioButton7.Caption:='Коллективный договор ДОУ';sRadioButton5.Visible:=true;sRadioButton6.Visible:=true;sRadioButton7.Visible:=true;sRadioGroup1.Visible:=true; //sRadioButton4.Visible:=false;exit;end; } { if ((sRadioButton1.Checked=true) and (sLabelSelect.Caption='Выберите режим разработки акта')) thenbeginsLabelSelect. Caption:='Выберите разработку акта';sRadioButton1.Caption:='Начать';sRadioButton2.Caption:='Продолжить';sRadioButton1.Visible:=true;sRadioButton2.Visible:=true;sRadioButton3.Visible:=false;sRadioButton4.Visible:=false;exit; end; }{ if ((sRadioButton1.Checked=true) and (sLabelSelect.Caption='Выберите разработку акта')) then begin razrabotka:=2; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end; if ((sRadioButton2.Checked=true) and (sLabelSelect.Caption='Выберите разработку акта')) then begin razrabotka:=1; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end;}end;procedure TfrMain. sButtonBackClick (Sender: TObject);begin//slistBox1.Items.Clear;if slistBox1. Visible=true then begin if slistBox2. Visible=true then begin slistBox1. Visible:=false; sLabelSelect. Visible:=false; exit; end;end;if slistBox1. Visible=false then beginslistBox1.Items.Clear;slistBox1.Visible:=true;sLabelSelect.Visible:=true;sLabelSelect.Caption:='Выберите разработку акта'; slistBox1.Items.Add ('Начать'); slistBox1.Items.Add ('Продолжить'); slistBox2. Visible:=false; sButtonBack. Visible:=False; sLabel1. Visible:=true; sLabel2. Visible:=true; sLabel3. Visible:=true; sPanel1. Visible:=true; sPanel2. Visible:=true; sLabelSelect2. Visible:=false; end; { if sComboBoxReg. Visible=true and sComboBoxRaz. Visible=false then begin sComboBoxReg. Visible:=false; sLabelReg. Visible:=false; sComboBoxAct. Enabled:=true; sButtonBack. Enabled:=false; end; if sComboBoxRaz. Visible=true then begin sComboBoxRaz. Visible:=false; sLabelRaz. Visible:=false; sComboBoxReg. Enabled:=true; end; }{ if ((sLabelSelect.Caption='Выберите режим разработки акта')) then begin sLabelSelect. Caption:='Выберите вид акта'; sRadioButton1. Caption:='Коллективный договор ВУЗА';sRadioButton2.Caption:='Коллективный договор CОШ';sRadioButton3.Caption:='Коллективный договор ДОУ';sRadioButton1.Visible:=true; sRadioButton2. Visible:=true; sRadioButton3. Visible:=true; sRadioButton4. Visible:=false; sButtonBack. Enabled:=false; exit; end; if ((sLabelSelect.Caption='Выберите разработку акта')) then begin sLabelSelect. Caption:='Выберите режим разработки акта';sRadioButton1.Caption:='Редактирование';sRadioButton2.Caption:='Редактирование по разделам';sRadioButton3.Caption:='Компилирование';sRadioButton4.Caption:='Автосодержание';sRadioButton1.Visible:=true; sRadioButton2. Visible:=true; sRadioButton3. Visible:=true; sRadioButton4. Visible:=true; exit; end;}end;procedure TfrMain. FormCreate (Sender: TObject);begin{ InitConfig; ConnectDB; InitTables; } koefsc:=0; koefgdp:=0; koefpsp:=0.3; koeftr:=0;end;procedure uchregd;var shapka, abbriv, citykod, uchregd: string; koduchregd: integer;begin mData.qEditKD.Close; mData.qEditKD.SQL.Clear; mData.qEditKD.SQL.Text:='SELECT U. Имя.

Учреждения] as uchr, U. Код.

Учреждения] as kod'+ ' from (([ТУчреждение] U inner join [ТТип.

Учреждения] TU on U. Код.

ТипаУчреждения]=TU. Код.

ТипаУчреждения]) inner join [ТВид.

Учреждения] VU on U. Код.

ВидаУчреждения]=VU. Код.

ВидаУчреждения])'+' where ((TU. Имя.

ТипаУчреждения]<>'+#39+'Регионы'+#39+') and (TU. Имя.

ТипаУчреждения]<>'+#39+'Справки'+#39+') and (VU. Имя.

ВидаУчреждения]='+#39+'вуз'+#39+'))'+ ' orderbyU. Имя.

Учреждения]';mData.qEditKD.Open;mData.qEditKD.First; //i:=1; shapka:='ГОУ ВПО';// abbriv:=''; while not mData.qEditKD.Eof do begin uchregd:=mData.qEditKD.FieldByName ('uchr').AsString; koduchregd:=mData.qEditKD.FieldByName ('kod').AsInteger; mData.qAddEditKD.Close; mData.qAddEditKD.SQL.Clear; mData.qAddEditKD.SQL.Text:=' insert into uchregdenie (NAMEUCHR, KODUCHREGDENIJA, KODTYPEUCHREG) values ('+ #39+uchregd+#39+ ', '+ IntToStr (koduchregd)+', 2);'; mData.qAddEditKD.Prepare; mData.qAddEditKD.ExecSQL; mData.qEditKD.Next;end;end;procedure TfrMain. sButton3Click (Sender: TObject);begin// uchregd;end;procedure TfrMain. sListBox1Click (Sender: TObject);begin{ sLabel1. Visible:=false; sLabel2. Visible:=false; sLabel3. Visible:=false; sPanel1. Visible:=false; sPanel2. Visible:=false; sButtonBack. Visible:=true; if slistbox1. Items[0]='Начать' then begin if slistbox1. ItemIndex=0 then begin slistbox2. Visible:=true; slistbox2.Items.Add ('Коллективный договор ВУЗА');slistbox2.Items.Add ('Коллективный договор CОШ');slistbox2.Items.Add ('Коллективный договор ДОУ');sLabelSelect2.Visible:=true; sLabelSelect2. Caption:='Выберите вид акта'; slistbox1.Items.Clear; sLabelSelect. Caption:='Выберите режим разработки акта'; slistbox1.Items.Add ('Редактирование'); slistbox1.Items.Add ('Редактирование по разделам'); slistbox1.Items.Add ('Компилирование'); slistbox1.Items.Add ('Автосодержание'); exit; end else if slistbox1. ItemIndex=1 then begin mData.qFrag.Close; mData.qFrag.SQL.Clear; mData.qFrag.DatabaseName:='KDA'; mData.qFrag.SQL.Add ('select max (k.kode_kd) as NomDog from KD K'); mData.qFrag.Open; mData.qFrag.Active := true;} //frAddEditKD.KodOWNER := mData.qFrag.FieldByName ('NomDog').AsInteger; { razrabotka:=1; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; }{ frAddEditKD := TfrAddEditKD. Create (Nil); frAddEditKD. CreateType := 3; frAddEditKD. KodOWNER := mData.qFrag.FieldByName ('NomDog').AsInteger; try frAddEditKD. ShowModal; except frAddEditKD. Free; end; end; end else if slistbox1. Items[0]='Редактирование' then begin if (slistbox2.ItemIndex=0) and (slistbox1.ItemIndex=0) then begin razrabotka:=2; frKDList := TfrKDList. Create (Owner); frKDList. TypeView := 2; frKDList. TypeForm := 2; try frKDList. ShowModal; except frKDList. Free; end; end end;}end;procedure TfrMain. sButton4Click (Sender: TObject);begin Application. HelpCommand (HELP_FINDER, 0);// Application. HelpCommand (15, 0);//Application.HelpCommand (HELP_CONTENTS, 0) end;end.