Электронный учебник "Программа Erwin"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
±ор размера шрифта);
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);. Visib