Ошибка
|
Исправление
|
Неправильно
отображалась последовательность шагов в эмуляции
|
Были исправлены
последовательности открытия и скрытия панелей с изображениями
|
Не отображались
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);
: 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. 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.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.