Электронный учебник "Программа Erwin"

 

Введение

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

Программный продукт EкWin Data Modeler (ранее называвшийся AllFusion Process Modeler) - средство реализации CASE-технологий.

Erwin позволяет проводить описание, анализ и моделирование модели данных - построитель мета-моделей данных. Занимает одно из лидирующих мест в своём сегменте рынка. В настоящее время выпускается компанией Computer Associates. Распространяется на коммерческой основе.

Erwin включает три стандартные методологии: IDEF0 (функциональное моделирование), DFD (моделирование потоков данных) и IDEF3 (моделирование потоков работ). Эти методологии по-своему уникальны. Каждая из них может быть выполнена отдельно с помощью BPwin, но их совокупность заключённая в модель даёт аналитику полную картину предметной области клиента.

Впервые программа BPwin была разработана компанией Logic Works.

Название сложилось из сокращения BP - (business process) - и суффикса win, отражавшего ориентацию на графические операционные системы.

В 1998 году компания Logic Works была поглощена фирмой Platinum Technology. Та в свою очередь, всего через год, в 1999 году была куплена Computer Associates.

Значительного успеха на рынке достигла версия программы BPwin 4.0, которая была выпущена на рубеже XX и XXI веков.

Последняя версия программного обеспечения получила название CA ERwin Process Modeler 7.3 и вошла в объединённый пакет CA ERwin Modeling Suite.

В России от версии к версии издаются книги по работе с программой и CASE-технологиям. Примером могут стать книги Фараонова[1], Культина[2] и Маклакова[3].

Основным недостатком является отсутствие развития функционала, позволяющего переносить спроектированные процессы в среду исполнения.

1. Постановка задачи

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

Электронный учебник состоит из следующих разделов:

-теоретическая часть: включает в себя материал, необходимый для освоения программы Erwin;

-практическая часть: включающая пять лабораторных работ;

-эмуляция, которая позволяет на наглядных примерах изучить возможности программы. Эмуляция включает два примера работы.

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

Требования к программе:

-в программе необходимо использовать дополнительные компоненты из библиотеки скинов Alphaskins (sbutton, slable, sTreeView, и другие);

-для эффекта открытия предусмотреть необычное появление основных форм;

-для улучшения чтения информации предусмотреть размещение компонента Webbrowser с отображением HTML - файлов;

-выполнить имитацию работы в программе Erwin.

В качестве основного языка программирования использовать Delphi. Для представления теоретического и практического материала использовалась программа из пакета MS Office - FrontPage2007.

2. Вычислительная система

.1 Программные средства

программа интерфейс вычислительный пользователь

Заданием по курсовому проекту было разработать программу на языке программирования Delphi. Программа рассматривалась в рамках изучения курса «Технология разработки программного продукта».

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

Для реализации тестирования существуют свои компоненты. Основное достоинство создания учебника в html - это отсутствие необходимости подгона размеров страниц под разрешение экрана. Минусом является небольшой выбор компонентов;

В программе будут использоваться следующие основные компоненты: sButton, sRadioGroup, sEdit, image, sTreeView, Timer, WebBrowser, sPanel, sSpeedButton, sMemo, MainMenu.

Для лучшего оформления интерфейса использовалась библиотека скинов Alphaskins.

2.2 Технические средства

Для тестирования можно использовать две формы построения, это:

-открытая форма, когда по условию задания пользователь должен дать произвольный ответ на вопрос;

-закрытая форма, когда пользователю предлагается на выбор несколько вариантов ответов.

Отличие этих форм заключается в использование различных компонентов в среде Delphi. Выбор типа и вида тестового задания определяется, прежде всего, целями, в соответствии с которыми проводится тестирование, характером материала, усвоение которого необходимо выявить, возрастными особенностями испытуемых. Немаловажное значение играет ресурсное обеспечение, а также запас времени, которым располагает разработчик.

Виды тестирования:

-множественный выбор - пользователю необходимо выбрать один или несколько правильных ответов из приведенного списка;

-альтернативный выбор - пользователь должен ответить «да» или «нет»;

-установление соответствия - пользователю предлагается установить соответствие элементов двух списков;

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

-свободное изложение - пользователь должен самостоятельно сформулировать ответ;

-дополнение - пользователь должен сформулировать ответы с учетом предусмотренных в задании ограничений.

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

При окончании прохождения теста пользователю выводиться оценка, а так же количество правильных ответов из возможных. При выборе правильного ответа в sRadioGroup переменная целого типа увеличивается на единицу. При нажатия на кнопку «далее» происходит смена вопроса и значения в sRadioGroup. Тестирование реализуется с помощью оператора условного перехода IF и оператора выбора case.

Минимальные системные требования подобраны для Windows XP. Для нормальной работы программы на жёстком диске необходимо 150 МБ свободного пространства. Для программного продукта необходимо 128 МБ ОЗУ, потому что в программе содержится большое количество графических изображений и текстовых документов. Поскольку в программе присутствуют графические файлы, то необходима видеокарта с размером ОЗУ 32 МБ

2.3 Аппаратно-программный комплекс

Минимальные системные требования:

-IntelPentiumIV33 МГц и выше;

-Microsoft Windows 98, 2000, XP, Windows Vista, Windows 7;

-64 МБ ОЗУ (рекомендуется 128 МБ);

-150 МБ места на жестком диске;

-монитор;

-мышь, клавиатура.

3. Алгоритм задачи

.1 Вызов и загрузка

Инсталляция программы, инсталляция с дистрибутива, происходит в каталог C:\Program Files\ЭУК Erwin. Путь можно изменить в процессе инсталяции. Исполняемым файлом программы является файл ychebbnik.exe. При инсталляции программы создается программная группа «ychebbnik.exe» в меню «Пуск».

Шаги установки программы:

1)Запустить установочный файл (Setup.exe).Запускается окно мастера установки программы (Рисунок 1);

Рисунок 1 - Окно «МАСТЕР УСТАНОВКИ ПРОГРАММЫ»

2)Далее будет предложено прочитать информацию (Рисунок 2)

Рисунок 2 - Окно «ИНФОРМАЦИЯ»

3)В строке «КАТАЛОГ УСТАНОВКИ» указать путь установки программы (Рисунок 3)

Рисунок 3 - Окно «КАТАЛОГ УСТАНОВКИ»

4)Подтверждение установки (Рисунок 4)

Рисунок 4-Окно «ПОДТВЕРЖДЕНИЕ УСТАНОВКИ»

5)Далее появится обычное окно установки (Рисунок 5)

Рисунок 5 - Окно установки

6)Окно завершения установки (Рисунок 6)

Рисунок 6-Окно завершение установки

Установочный файл разработан с помощью программы Small Install Maker версии 5.02.

3.2 Интерфейс пользователя

Основные требования к организации интерфейса:

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

-Гибкость. Программа должна иметь не менее одного перехода на другие формы.

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

Меню программы представляет собой главную форму со структурой:

-ТЕОРИЯ;

-ЭМУЛЯЦИЯ;

-ПРАКТИКА;

При выборе пункта главного меню закрывается основная форма и запускается форма согласно выбранному действию.

При выборе пункта «Теория» становится активной форма, на которой расположены TreeView, Webbrowser. Пункты TreeView Содержат ссылки на Html-документы, находящиеся в папке stranici и открывающиеся в WebBrowser.

При выборе пункта «Эмуляция» открывается форма с изображениями, которые показывают работу в программе Erwin.

3.3 Система помощи

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

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

3.4 Логическая структура

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

При запуске программы активируется форма заставки. При выборе действия (продолжить работу с программой? Да / Нет), открывается форма регистрации где пользователю предлагается войти под уже существующим именем или зарегистрироваться. после запускается главная форма, на которой присутствуют пункты:

-ТЕОРИЯ;

-ЭМУЛЯЦИЯ;

-ПРАКТИКА;

Так же организовано верхнее меню состоящая из трех подпунктов:

-ФАЙЛ;

-СПРАВКА;

-ВЫХОД.

При выборе пункта главного меню закрывается основная форма и происходит запуск формы, соответствующей выбранному действию.

При выборе пункта Теория становится активной форма, на которой расположены TreeView, Webbrowser. Пункты TreeView Содержат ссылки на Html-документы, находящиеся в папке теория и открывающиеся в WebBrowser.

При выборе пункта ЭМУЛЯЦИЯ открывается форма с изображениями, которые показывают работу в программе Erwin.

При выборе пункта ПРАКТИКА появляется новая форма и становится активным компонент TreeView, в котором содержатся ссылки на практические работы, переходы к эмуляциям а также тестирование.

Пункт верхнего меню ФАЙЛ позволяет переходить на те же формы, что и пункты основного меню главной формы.

Пункт верхнего меню справка вызывает две дополнительные формы:

-О ПРОГРАММЕ. Содержит краткую информацию о разработанной программе;

-О РАЗРАБОТЧИКЕ. Предоставляет информацию о создателе программы.

Пункт верхнего меню ВЫХОД закрывает программу.

3.5 Физическая структура

Программа состоит из пятнадцати модулей (Таблица 1):

Таблица 1 - Модули программы

Наименование модуляФункциональное назначениеZastavka.pasЗаставка программаregistr.pasРегистрация пользователяGlavnaya.pasГлавная форма программыTeoria.pasФорма «Теория»Practika.pasФорма «Практика»test.pasФорма «Тестирование»Test_1.pasФорма «Тестирование»Test_2.pasФорма «Тестирование»Test_3.pasФорма «Тестирование»Test_4.pasФорма «Тестирование»Imyl.pasФорма «Эмуляция»Imyl1.pasФорма «Эмуляция»Imyl2.pasФорма «Эмуляция»O_program.pasФорма «О программе»Spravka.pasФорма «О разработчике»

4. Описание программы

После запуска exe-файла на экране появляется заставка программы (Рисунок 1), которая по выбору действия либо сменяется формой регистрации (Рисунок 2), либо программа завершается. После регистрации открывается главная форма (Рисунок 3). На главной форме расположены три кнопки переходов, а так же верхнее меню.

Рисунок 1 - Форма заставки

Рисунок 2 - форма регистрации

Рисунок 3 - главная форма

Раздел Теория представляет собой компонент TreeView, содержащий ссылки на html-файл, открывающийся в WebBrowser (Рисунок 4).

Рисунок 4 - Форма ТЕОРИЯ

Раздел Практика представляет собой компонент TreeView, с помощью которого можно открыть в WebBrowser практические задания (Рисунок 5), перейти к тестированию или же к эмуляции.

Рисунок 5 - Форма ПРАКТИКА

Раздел Эмуляция (Рисунок 6) включает в себя 11 картинок с компонентами Delphi, которые позволяют создать имитацию работы программы Erwin.

Подраздел Тестирование вызывается из раздела практика, содержит в себе пять тестов по программе Erwin. Каждый тест включает в себя пять вопросов. (Рисунок 7).

Рисунок 6 - Форма Эмуляция

Рисунок 7 - форма Тестирование (ответ на вопрос)

5. Применение программы

Разработанная программа не требует установки на компьютер. Программу можно запустить с СD-диска, либо скопировать папку «Электронный учебник «Erwin».

Запустить программу можно файлом ychebbnik.exe.

На все формы программы, кроме справочной информации можно попасть с любой формы при помощи верхнего меню.

На формы О ПРОГРАММЕ (Рисунок 8) и СПРАВКА (Рисунок 9) можно попасть только из главного меню.

Рисунок 8 - Форма О ПРОГРАММЕ

Рисунок 9 - Форма АВТОРСТВО

6. Тестирование и отладка

При разработке программы было выявлено и исправлено большое количество ошибок. В основном ошибки были в подгонке программы под разрешение экрана. Так же были синтаксические ошибки и ошибки при подсчете результата тестирования.

На тестирование и отладку ушло 40% времени от общего времени разработки программного продукта.

Основные ошибки при тестирование программы представлены в Таблице 2

Таблица 2 - Основные ошибки

ОшибкаИсправлениеНеправильно отображалась последовательность шагов в эмуляцииБыли исправлены последовательности открытия и скрытия панелей с изображениямиНе отображались html-файлы в WebbrouserИсправлен путь к html-файлуНеправильно отображались действия компонентов TreeViewбыла исправлена ошибка в указании индекса строки компонента TreeView

Заключение

В ходе курсового проекта был разработан Электронный учебник «Программа Erwin»

В процессе создания программы использовались приложения:

-Erwin 4, Erwin 7;

-Microsoft Office FrontPage 2007;

-Microsoft Office Word 2007;

Разработанная программа обладает следующими свойствами:

-предоставляет теоретический материал по программе Erwin в виде текстовой информации;

-содержит практические работы;

-позволяет проверить свои знания в виде тестирования;

-наглядно демонстрирует работы программы Erwin.

Выполнены требования, поставленные перед разработкой:

-в программе определен способ необычного появления формы на экран (эффект появления);

-в программе использовалось большое количество различных компонентов;

-реализовано подключение HTML файлов;

-имитация работы в программе Erwin реализована в разделе Эмуляция.

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

1.Фаронов В.В. «Программирование баз данных в Delphi 6». - СПб.:, 2003. - 520 с.

2.Культин Н.Б. «Основы программирования в Delphi 7». - СПб.: БХВ-Петербург, 2004. - 597 с.

.С.В. Маклаков «BPwin и ERwin. CASE - средства разработки информационных систем» Диалог-МИФИ 2000 г. - 256 стр.

Приложение А

(обязательное)

Текст программы

var

zastavka: Tzastavka;:integer;ychebnik, Unit5;

{$R *.dfm}Tzastavka.sButton2Click (Sender: TObject);\\Закрытие программы;;

Tzastavka.sButton1Click (Sender: TObject);\\Переход к регистрации. Hide;. Show;

end;

var: Tregistr;, v:string; f:text;: TIniFile;:string;Unit6, ychebnik;

{$R *.dfm}Tregistr.sButton1Click (Sender: TObject);\\проверка имени и пароля при входеpass:string;(sedit1. Text='') or (sedit2. Text='') then begin ('Введите нормальные данные'); exit; end;

{reg:=sedit1. Text;:=sedit1. Text;(f, 'registr.txt');(f);not eof(f) do begin}:=ini. ReadString (sedit1. Text, 'login', 'error123');nick='error123' then begin('Ошибка входа!'); exit; end:=ini. ReadString (sedit1. Text, 'pass', 'error123');pass<>sedit2. Text then begin('Ошибка входа!'); exit; end:=sedit1. Text;. Hide;.show;. Timer2. Enabled:=true;;Tregistr.sButton3Click (Sender: TObject);\\выход из программыmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then begin; registr. Close; glavnaya. Close;;;Tregistr.sButton2Click (Sender: TObject);\\регистрация нового пользователя(sedit1. Text='') or (sedit2. Text='') then begin('Некорректный ввод!'); exit; end;:=sedit1.text;.writestring (nick, 'login', nick);.writestring (nick, 'pass', sedit2. Text);

showmessage ('Вы зарегестрированны');

end;

procedure Tregistr. FormCreate (Sender: TObject);:=Tinifile. Create (getcurrentdir+'\users.ini');

end;

var: Tglavnaya;, jg:integer;practic, Unit3, Unit4, Unit5, Unit6, Unit15, Unit14;

{$R *.dfm}Tglavnaya.N7Click (Sender: TObject);\\выход из программыmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then;;Tglavnaya.sButton2Click (Sender: TObject);\\вход в разделы теория, эмуляция, практикаimage3. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=2;;;Tglavnaya.sButton4Click (Sender: TObject);\\ переход к теорииimage2. Visible=true then begin. Enabled:=true;image3. Visible=true then begin. Enabled:=true;image4. Visible=true then begin. Enabled:=true;;;Tglavnaya.sButton1Click (Sender: TObject); \\ показ картинки теория

image2. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=1;;;Tglavnaya.sButton3Click (Sender: TObject); \\ переход к эмуляции

image4. Visible=false then begin. Visible:=true;. Visible:=false;. Visible:=false;:=3;;;Tglavnaya. FormCreate (Sender: TObject);

. Visible:=false;. Visible:=false;. Visible:=false;:=0;;Tglavnaya.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки

: Integer);.font. Size:=14;;Tglavnaya.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton3MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton4MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста кнопки: Integer);.font. Size:=14;;Tglavnaya.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya.sButton2MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya.sButton3MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;

Tglavnaya.sButton4MouseLeave (Sender: TObject); \\ уменьшение текста кнопки.font. Size:=10;;Tglavnaya. FormClose (Sender: TObject; var Action: TCloseAction); \\ закрытие формы. Close;;Tglavnaya. Timer2Timer (Sender: TObject); \\ появление формы. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer2. Enabled:=false;;Tglavnaya. FormActivate (Sender: TObject); \\ исчезновение формы

{timer2. Enabled:=true;}:=0;;Tglavnaya.N2Click (Sender: TObject); \\ переход к форме теория. Show;. Hide;;Tglavnaya.N3Click (Sender: TObject); \\ переход к форме практика. Show;. Hide;;Tglavnaya.N4Click (Sender: TObject); \\ переход к форме эмуляция. Show;. Hide;;Tglavnaya.N6Click (Sender: TObject); \\ открытие формы справка_program.show;;Tglavnaya. Timer1Timer (Sender: TObject); \\ переход к форме практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tglavnaya. Timer3Timer (Sender: TObject); \\ появление формы теория. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tglavnaya. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция

begin. Enabled:=false;

AlphaBlendValue:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Tglavnaya.N8Click (Sender: TObject); \\ переход к форме справка

begin.show;;

var: Tteoria;:byte;

ychebnik, practic, Unit6;

{$R *.dfm}Tteoria.N6Click (Sender: TObject); \\ закрытие программыmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then;. Close;. Close;;Tteoria.N5Click (Sender: TObject); \\ переход на главную. Enabled:=true;;Tteoria.sTreeView1Click (Sender: TObject); \\ выбор действияstreeview1. Items. Item[0].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\indbd.htm');streeview1. Items. Item[1].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\izobr.htm');streeview1. Items. Item[2].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\nachrab.htm');streeview1. Items. Item[3].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\param.htm');streeview1. Items. Item[4].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\preodraz.htm');streeview1. Items. Item[5].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\teoria\punktmenu.htm');;Tteoria.N2Click (Sender: TObject); \\ переход к форме эмуляция. Enabled:=true;;Tteoria.N3Click (Sender: TObject); \\ переход к форме практика. Enabled:=true;;Tteoria. Timer1Timer (Sender: TObject); \\ появление формы. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer1. Enabled:=false;;Tteoria. Timer2Timer (Sender: TObject); \\ исчезновение формы. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;;Tteoria. FormCreate (Sender: TObject);:=0;;Tteoria. Timer3Timer (Sender: TObject); \\ переход к форме практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tteoria. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;.timer1. Enabled:=true;. AlphaBlendValue:=0;. Show;.timer1. Enabled:=true;. Enabled:=false;;;

end.

var: Tpractika;:integer; k, p, n, t: Integer;ychebnik, Unit3, test1, test2, test3, test4, test5, Unit4, Unit6,, Unit13, Unit15;

{$R *.dfm}Tpractika.N8Click (Sender: TObject); \\ выход из программыmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then;. Close;;Tpractika. Timer1Timer (Sender: TObject); \\ переход к форме теория. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer1. Enabled:=false;;Tpractika. FormCreate (Sender: TObject);. Left:=-160;:=1;:=1;:=1;. Enabled:=false;. Enabled:=false;. AlphaBlendValue:=0;;Tpractika. FormActivate (Sender: TObject);

{timer1. Enabled:=True;};Tpractika.N7Click (Sender: TObject); \\ переход к форме теория. Enabled:=true;:=1;;Tpractika. FormClose (Sender: TObject; var Action: TCloseAction);.close;. Close;Tpractika. Tmr1Timer (Sender: TObject); \\ выезд панели. Left:=pnl1. Left+1;:=k+1;k=310 then begin. Enabled:=False;. Enabled:=False;;. Left:=Panel1. Left+1;:=k+1;k=136 then begin. Enabled:=False;. Enabled:=False;;;Tpractika.timer2Timer (Sender: TObject); \\ исчезновение панели. Left:=pnl1. Left-1;:=k-1;k=0 then. Enabled:=False;. Enabled:=False;;. Left:=Panel1. Left-1;:=k-1;k=0 then. Enabled:=False;. Enabled:=False;;;Tpractika. Image1Click (Sender: TObject); \\ действие панели:=n+1;(n mod 2=0) then. Enabled:=False;. Enabled:=True;;(n mod 2<>0) then. Enabled:=True;. Enabled:=False;;tmr1. Enabled=true then begin image1. Visible:=true; image2. Visible:=false; endbegin image2.visible:=true; image1. Visible:=false; end; end;;Tpractika. Image2Click (Sender: TObject); \\ действие панели:=n+1;(n mod 2=0) then. Enabled:=False;. Enabled:=True;;(n mod 2<>0) then. Enabled:=True;. Enabled:=False;;tmr1. Enabled=true then begin image1. Visible:=true; image2. Visible:=false; endbegin image2.visible:=true; image1. Visible:=false; end; end;;

Tpractika. Timer3Timer (Sender: TObject); \\ исчезновение формы. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;Tpractika.sTreeView1Click (Sender: TObject); \\ выбор действияstreeview1. Items. Item[1].Selected then begin practika. Hide; imyl1.show; end;streeview1. Items. Item[2].Selected then begin practika. Hide; test.show; end;streeview1. Items. Item[3].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab1.htm');streeview1. Items. Item[5].Selected then begin practika. Hide; imyl2.show; end;streeview1. Items. Item[6].Selected then begin practika. Hide; test_1.show; end;streeview1. Items. Item[7].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab2.htm');streeview1. Items. Item[9].Selected then begin practika. Hide; test_2.show; end;streeview1. Items. Item[10].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab3.htm');streeview1. Items. Item[12].Selected then begin practika. Hide; test_3.show; end;streeview1. Items. Item[13].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab4.htm');streeview1. Items. Item[15].Selected then begin practika. Hide; test_4.show; end;streeview1. Items. Item[16].Selected then webbrowser1. Navigate (GetCurrentDir+'\stranici\practic\lab5.htm');;Tpractika.N2Click (Sender: TObject); \\ переход к форме теория. Enabled:=true;Tpractika.N3Click (Sender: TObject); \\ переход к форме эмуляция. Enabled:=true;Tpractika.N4Click (Sender: TObject); \\ переход к форме на главную. Enabled:=true;;

Tpractika. Timer4Timer (Sender: TObject); \\ переход к форме эмуляция. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Tpractika. Timer5Timer (Sender: TObject); \\ переход к форме теория. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;

end;.

var: Timyl;:integer; k, p, n, t: Integer;ychebnik, Unit7, Unit13, Unit4, practic, Unit14, Unit15;

{$R *.dfm}Timyl.N3Click (Sender: TObject); \\ переход на форму практика. Enabled:=true;:=2;;Timyl.sButton1Click (Sender: TObject); \\ появление формы. Hide;.show;. AlphaBlendValue:=255;;Timyl.N4Click (Sender: TObject); \\ выходmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then;. Close;. Close;;Timyl.sButton2Click (Sender: TObject); \\ переход к эмуляции. Hide;.show;;Timyl.N5Click (Sender: TObject); \\ переход на форму главная. Enabled:=true;:=2;;Timyl.N6Click (Sender: TObject);. Enabled:=true;;Timyl. Timer1Timer (Sender: TObject); \\ скрытие формы. Enabled:=false;:=AlphaBlendValue+5;AlphaBlendValue>250 then Timer1. Enabled:=false;;Timyl. Timer2Timer (Sender: TObject);. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 thent=2 then. Hide;. AlphaBlendValue:=0;. Enabled:=false;. Timer2. Enabled:=true;. Show;;;;Timyl.N7Click (Sender: TObject); \\ переход на форму теория. Enabled:=true;;Timyl. Timer3Timer (Sender: TObject); \\ переход на форму практика. Hide;. Show;.timer1. Enabled:=true;. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Enabled:=false;;Timyl. Timer4Timer (Sender: TObject); \\ переход на форму теория

{teoria. AlphaBlendValue:=0;. Hide;.timer1. Enabled:=true;. Show;}. Enabled:=false;:=AlphaBlendValue-5;AlphaBlendValue<5 then. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Timyl.N1Click (Sender: TObject);.show;;Timyl.sButton1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста: Integer);.font. Size:=14;;Timyl.sButton1MouseLeave (Sender: TObject); \\ уменьшение текста.font. Size:=10;;Timyl.sButton2MouseLeave (Sender: TObject);\ \ уменьшение текста.font. Size:=10;;Timyl.sButton2MouseMove (Sender: TObject; Shift: TShiftState; X, \\ увеличение текста: Integer);.font. Size:=14;

end;.

var: Timyl1;ychebnik, practic, Unit6, Unit4;

{$R *.dfm}Timyl1.N10Click (Sender: TObject); \\выходmessagedlg ('Вы действительно хотите выйти?', mtConfirmation, mbOKCancel, 0)=1 then;;Timyl1.N9Click (Sender: TObject); \\ переход на форму практика. Enabled:=true;:=1;;Timyl1. Button1Click (Sender: TObject); \\ эмуляцияradiobutton2. Checked=true then begin. Visible:=false;. Visible:=true;;;Timyl1. RadioButton2Click (Sender: TObject); \\ эмуляция

begin. Caption:='Создание новой модели';

end;Timyl1. RadioButton1Click (Sender: TObject); \\ эмуляция. Caption:='открытие модели';;Timyl1. RadioButton3Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;Timyl1. RadioButton4Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;;Timyl1. RadioButton5Click (Sender: TObject); \\ эмуляция. Visible:=true;. Visible:=false;;Timyl1. Button3Click (Sender: TObject); \\ эмуляцияradiobutton5. Checked=true then begin. Visible:=false;. Visible:=true;;;Timyl1. FormCreate (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;Timyl1. Timer1Timer (Sender: TObject); \\переход на форму эмуляция:=AlphaBlendValue-5;AlphaBlendValue<5 thent=1 then. AlphaBlendValue:=0;. Timer2. Enabled:=true;. Show;. Hide;. Enabled:=false;;;;Timyl1.N6Click (Sender: TObject); \\ переход на главную форму. Enabled:=true;:=1;;Timyl1. Timer2Timer (Sender: TObject);

:=AlphaBlendValue-5;AlphaBlendValue<5 then begin. Hide;. AlphaBlendValue:=0;.timer1. Enabled:=true;. Show;. Enabled:=false;;;Timyl1.N5Click (Sender: TObject); \\ переход на практику. Hide;. Show;. Timer1. Enabled:=true;;Timyl1.N4Click (Sender: TObject); \\ переход на теорию. Enabled:=true;;Timyl1.N3Click (Sender: TObject);. Enabled:=true;;Timyl1. Timer3Timer (Sender: TObject);:=AlphaBlendValue-5;AlphaBlendValue<5 then begin. Hide;.timer1. Enabled:=true;. Show;.timer1. Enabled:=true;. Enabled:=false;;;Timyl1. Image9Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('создание новой модели');

end;Timyl1. Image10Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('открытие модели');

end;

procedure Timyl1. Image11Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('отправка на печать');

end;Timyl1. Image17Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('уменьшение масштаба');

end;

procedure Timyl1. Image18Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('увеличение масштаба');

end;

procedure Timyl1. Image43Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('выбор шрифта');;Timyl1. Image42Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('выбор размера шрифта');

end;Timyl1. Image23Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('жирный текст');;Timyl1. Image24Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('Курсив');;Timyl1. Image25Click (Sender: TObject); \\ эмуляция. Visible:=false; memo1. Visible:=true;. Clear;. Lines. Add ('подчеркнутый текст');;Timyl1. Image30Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('сущность');;Timyl1. Image35Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('объект рисования прямоугольник');

end;Timyl1. Image36Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('позволяет рисовать прямоугольник со скругленными углами');

end;Timyl1. Image37Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('овал');;Timyl1. Image38Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('линия');;Timyl1. Image39Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('кривая');;Timyl1. Image40Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('многоугольник');;Timyl1. Image41Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('написание текста');

end;

procedure Timyl1. Image12Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add (' диалога Report Browser для генерации отчетов');;

Timyl1. Image14Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('Изменение уровня просмотра модели: уровень сущностей');

end;

Timyl1. Image15Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('Изменение уровня просмотра модели: уровень атрибутов');

end;

Timyl1. Image16Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('Изменение уровня просмотра модели: уровень определений');

end;

Timyl1. Image19Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('изменение масштаба просмотра модели');

end;

Timyl1. Image20Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('изменение масштаба просмотра модели');

end;

Timyl1. Image21Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('Создание и переключение между подмножествами модели - Subject Area');

end;

Timyl1. Image22Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('выбор типа модели');

end;

Timyl1. Image26Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('позволяет изменять цвет текста');

end;

Timyl1. Image28Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('позволяет заливать фигуры цветом');

end;

Timyl1. Image27Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('позволяет задавать цвет линий');

end;

Timyl1. Image29Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add('курсор');;

Timyl1. Image31Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('создает категорию между сущностями. для ее использования нужно щелкнуть сначало по одной затем по второй сущности');

end;

Timyl1. Image32Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('идентифицирующая связь');

end;

procedure Timyl1. Image33Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

memo1. Clear;. Lines. Add ('связь многие ко многим');

end;

Timyl1. Image34Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;. Clear;. Lines. Add ('неидентифицирующая связь');

end;

procedure Timyl1. Button5Click (Sender: TObject); \\ эмуляция. Enabled:=true;:=1;

end;

var: Timyl2;:string;ychebnik, Unit6;

{$R *.dfm}Timyl2. Button1Click (Sender: TObject); \\ эмуляцияradiobutton1. Checked=true then. Visible:=false;. Visible:=true;begin. Visible:=true;. Caption:=('Нажмите Create');. Caption:=('a new model');;;

Timyl2. FormCreate (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;;

Timyl2. RadioButton3Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;

Timyl2. RadioButton4Click (Sender: TObject); \\ эмуляция. Visible:=true;. Visible:=false;;

Timyl2. RadioButton5Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;;

Timyl2. Button2Click (Sender: TObject); \\ эмуляцияradiobutton5. Checked=true then. Visible:=false;. Visible:=true;;;

Timyl2. Image10Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;

;

Timyl2. Edit1Enter (Sender: TObject); \\ эмуляция. Text:=edit1. Text;;

Timyl2. Edit1MouseMove (Sender: TObject; Shift: TShiftState; X, \\ эмуляция: Integer);edit1. Text='сущность1' then begin. Visible:=true;. Visible:=true;. Visible:=true;. Caption:='теперь 2 раза';

label6. Caption:='щелкните по самой';

label7. Caption:='Сущности';;;

Timyl2.sPanel4Click (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=false;;

Timyl2. Image14DblClick (Sender: TObject); \\ эмуляция. Visible:=false;. Visible:=true;;

Timyl2. Button3Click (Sender: TObject); \\ эмуляция. Visible:=true;. Visible:=true;. Visible:=true;. Visible:=false;. Caption:='в поле Atribute name';. Caption:='введите имя атрибута';. Caption:='и нажмите ОК';;

Timyl2. Button4Click (Sender: TObject); \\ эмуляция:=edit2. Text;. Visible:=false;. Visible:=true;. Text:=x;;

Timyl2. Button5Click (Sender: TObject); \\ эмуляция. Hide;.show;. Timer2. Enabled:=true;;

Timyl2. Button6Click (Sender: TObject); \\ эмуляция. Hide;.show;. Timer1. Enabled:=true;;: Ttest;, l, s:integer;ychebnik, practic, Unit5;

{$R *.dfm}Ttest.sButton1Click (Sender: TObject); \\ тестирование. Height:=577;. Width:=910;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest. FormCreate (Sender: TObject); \\ тестирование:=0; l:=0; s:=1;. Height:=257;. Width:=463;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=true;. Visible:=true;. Visible:=true;;

Ttest.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin:=k+1;('Правильный ответ', mtconfirmation, [mbOk], 0); endbegin:=l+1;('Неправильный ответ', mtconfirmation, [mbOk], 0); end;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=true;. Align:=alclient;. Visible:=false;;

Ttest.sButton4Click (Sender: TObject); \\ тестированиеscheckbox2. Checked=true then begin:=k+1;('Правильный ответ', mtconfirmation, [mbOk], 0); endbegin:=l+1;('Неправильный ответ', mtconfirmation, [mbOk], 0); end;.caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest.sButton5Click (Sender: TObject); \\ тестированиеscheckbox5. Checked=true then begin:=k+1;('Правильный ответ', mtconfirmation, [mbOk], 0); endbegin:=l+1;('Неправильный ответ', mtconfirmation, [mbOk], 0); end;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest.sButton6Click (Sender: TObject); \\ тестирование

sradiobutton3. Checked=true then begin:=k+1;('Правильный ответ', mtconfirmation, [mbOk], 0); endbegin:=l+1;('Неправильный ответ', mtconfirmation, [mbOk], 0); end;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest.sButton7Click (Sender: TObject); \\ тестированиеla:string;scheckbox10. Checked=true then begin:=k+1;('Правильный ответ', mtconfirmation, [mbOk], 0); endbegin:=l+1;('Неправильный ответ', mtconfirmation, [mbOk], 0); end;. Caption:=inttostr(k);. Caption:=inttostr(l);. Caption:=inttostr(k);. Caption:=inttostr(s);. Visible:=false;. Visible:=true;. Align:=alclient;:=nick;. Caption:='Здравствуйте '+la;;

Ttest.sButton9Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer2. Enabled:=true;

;

Ttest.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;:=s+1;:=0; l:=0;;

Ttest.sButton10Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer1. Enabled:=true;;

Ttest.sButton2Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer1. Enabled:=true;;_1: Ttest_1;, l, m:integer;ychebnik, Unit5, practic;

{$R *.dfm}Ttest_1.sButton1Click (Sender: TObject); \\ тестирование_1. Height:=477;_1. Width:=852;. Visible:=true;. Align:=alclient;. Visible:=false;. Visible:=false;;

Ttest_1. FormCreate (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;:=0;:=0;:=1;;

Ttest_1.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;

Ttest_1.sButton4Click (Sender: TObject); \\ тестированиеradiobutton3. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);

;

Ttest_1.sButton5Click (Sender: TObject); \\ тестированиеcheckbox2. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;

Ttest_1.sButton6Click (Sender: TObject); \\ тестированиеradiogroup2. ItemIndex=0 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;

Ttest_1.sButton8Click (Sender: TObject); \\ тестированиеla:string;radiobutton4. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);. Caption:=inttostr(m);k<=2 then label35. Caption:='Неудовлетворительно';k=3 then label35. Caption:='Удовлетворительно';k=4 then label35. Caption:='Хорошо';k=5 then label35. Caption:='Отлично';:=nick;. Caption:=la;;Ttest_1.sButton9Click (Sender: TObject); \\ тестирование:=0;:=0;. Visible:=false;. Visible:=true;. Align:=alclient;:=m+1;;

Ttest_1.sButton10Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer2. Enabled:=true;;

Ttest_1.sButton7Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer1. Enabled:=true;;

Ttest_1.sButton2Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer1. Enabled:=true;;_2: Ttest_2;k, l, s:integer;practic, ychebnik, Unit3, Unit5;

{$R *.dfm}Ttest_2. FormCreate (Sender: TObject);. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;_2. Height:=209;_2. Width:=358;:=0;:=0;:=1;:=registr.sEdit1. Text;;Ttest_2.sButton7Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_2. Width:=700;_2. Height:=389;;

procedure Ttest_2.sButton1Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;

;

Ttest_2.sButton2Click (Sender: TObject); \\ тестированиеradiobutton2. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_2.sButton3Click (Sender: TObject); \\ тестированиеcheckbox1. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_2.sButton4Click (Sender: TObject); \\ тестированиеradiogroup2. ItemIndex=1 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_2.sButton5Click (Sender: TObject); \\ тестированиеla:string;radiobutton5. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=reg;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label33. Caption:='Неудовлетворительно';k=3 then label33. Caption:='Удовлетворительно';k=4 then label33. Caption:='Хорошо';k=5 then label33. Caption:='Отлично';. Caption:=inttostr(s);:=nick;.caption:=la;. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_2.sButton6Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;

Ttest_2.sButton9Click (Sender: TObject); \\ переход на форму практика_2. Hide;.show;. Timer1. Enabled:=true;

;

Ttest_2.sButton10Click (Sender: TObject); \\ переход на главную форму_2. Hide;.show;. Timer2. Enabled:=true;;

Ttest_2.sButton8Click (Sender: TObject);_2. Hide;.show;. Timer1. Enabled:=true;;_3: Ttest_3;k, l, s:integer;test3, practic, ychebnik, Unit5;

{$R *.dfm}Ttest_3. FormCreate (Sender: TObject);. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;_2. Height:=209;_2. Width:=358;:=0;:=0;:=1;;

Ttest_3.sButton1Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_3. Width:=700;_3. Height:=389;;

Ttest_3.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_3.sButton4Click (Sender: TObject); \\ тестированиеradiobutton2. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_3.sButton5Click (Sender: TObject); \\ тестированиеcheckbox1. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_3.sButton6Click (Sender: TObject); \\ тестированиеradiobutton7. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_3.sButton7Click (Sender: TObject); \\ тестированиеla:string;radiobutton12. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label36. Caption:='Неудовлетворительно';k=3 then label36. Caption:='Удовлетворительно';k=4 then label36. Caption:='Хорошо';k=5 then label36. Caption:='Отлично';. Caption:=inttostr(s);. Visible:=false;. Visible:=true;. Align:=alclient;:=nick;. Caption:='Здравствуйте' +la;;

Ttest_3.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;

Ttest_3.sButton9Click (Sender: TObject); \\ переход на практику_3. Hide;.show;. Timer1. Enabled:=true;;

Ttest_3.sButton10Click (Sender: TObject); \\ переход на главную_3. Hide;.show;. Timer2. Enabled:=true;;

Ttest_3.sButton2Click (Sender: TObject);_3. Hide;.show;. Timer1. Enabled:=true;;_4: Ttest_4;k, l, s:integer;test3, practic, ychebnik, Unit5;

{$R *.dfm}Ttest_4. FormCreate (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;_2. Height:=209;_2. Width:=358;:=0;:=0;:=1;;

Ttest_4.sButton1Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_4. Width:=700;_4. Height:=389;;

Ttest_4.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

procedure Ttest_4.sButton4Click (Sender: TObject); \\ тестированиеradiobutton2. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_4.sButton5Click (Sender: TObject); \\ тестированиеcheckbox2. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_4.sButton6Click (Sender: TObject); \\ тестированиеradiogroup2. ItemIndex=1 then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_4.sButton7Click (Sender: TObject); \\ тестированиеla:string;radiobutton4. Checked=true then begin('Правильный ответ', mtconfirmation, [mbOk], 0);:=k+1; end('Неправильный ответ', mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label35. Caption:='Неудовлетворительно';k=3 then label35. Caption:='Удовлетворительно';k=4 then label35. Caption:='Хорошо';k=5 then label35. Caption:='Отлично';. Caption:=inttostr(s);:=nick;. Caption:='Здравствуйте' + la;. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_4.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;

Ttest_4.sButton9Click (Sender: TObject); \\ переход на практику_4. Hide;.show;. Timer1. Enabled:=true;;

Ttest_4.sButton10Click (Sender: TObject); \\ переход на главную_4. Hide;.show; glavnaya. Timer2. Enabled:=true;;

Ttest_4.sButton2Click (Sender: TObject);_4. Hide;.show;. Timer1. Enabled:=true;;

end.

Введение В современных условиях создание сложных программных приложений невозможно без использования систем автоматизированного конструирования ПО (CASE-

Больше работ по теме: