1) . , , . ECO Enabled Windows Form. . wfChairEdit ( TChairEdit), Text .
2) > > . Code wfChairEdit. , :
var
callChairEdit: TChairEdit;
3) . wfChairEdit. , . clChair:
var
callLect: TLecturer;
CurChair: clChair;
.
4) cmhChair. > > :
procedure TLecturer.MenuItem8_Click(sender: System.Object; e: System.EventArgs);
begin
if ehChair.GetList.Count <> 0
then
begin
if cmhChair.Element.AsObject is clChair
then
CurChair:= clChair(cmhChair.Element.AsObject);
callChairEdit:= TChairEdit.Create(EcoSpace);
callChairEdit.MdiParent:= ParentWin;
callChairEdit.Show;
end;
end;
, . CurChair , .
5) . Label, TextBox ( Windows Forms) (. 10.6).
6) FormBorderStyle FixedDialog, ControlBox False.
10.6
7) packModelUnit, EcoSpaceType RHRoot projDeanOfficeEcoSpace ECO. wfLecturer (), CurChair.
8) TextBox , .
Events () . Load , :
procedure TChairEdit.TChairEdit_Load(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text:= CurChair.ChairName;
TextBox2.Text:= CurChair.ChairHeadSNP;
TextBox3.Text:= CurChair.ChairSecrSNP;
end;
9) , , . , . :
procedure TChairEdit.Button1_Click(sender: System.Object; e: System.EventArgs);
|
|
CurChair.ChairName:= TextBox1.Text;
CurChair.ChairHeadSNP:= TextBox2.Text;
CurChair.ChairSecrSNP:= TextBox3.Text;
Close;
end;
, , , .
10) , (. 10.7)
10.7
. , string , ToString:
TextBox3.Text:= CurLect.MaxAmountHours.ToString;
Convert.ToInt32:
CurLect.MaxAmountHours:= Convert.ToInt32(TextBox3.Text);
, . , .
1) . dgPosition ( DataGrid), ehPosition ( ExpressionHandle). ehPosition: RootHandle cmhLecturer, Expression self.rolePosition. (. 10.8).
10.8
2) MainMenu : . , . , .
3) wfPositAsign ( TPositAsign), Text . . . , . (. 10.9).
10.9
Label , ... . ComboBox . , . , . , , . .
4) Load
Label1.Text:= CurLect.LecturerSNP;
5) s ehPosition cmhPosition. clChair. BindingContext cmhPosition ComboBox1.
6) DataSource ComboBox1 ehPosition, DisplayMember PositionName. .
|
|
7) :
var
CurPosition: clPosition;
begin
if cmhPosition.Element.AsObject is clPosition
then
begin
CurPosition:= clPosition(cmhPosition.Element.AsObject);
CurLect.rolePositions.Add(CurPosition);
end;
Close;
CurLect.rolePositions.Add(CurPosition);
.
8) wfPositAdd ( TPositAdd), . . , . (. 10.10).
10.10
. clPosition (), PositionName , TextBox. .
9) . (. 10.11).
10.11
. (, , ).
10) MainMenu . , .
11) wfLectSearch ( TLectSearch), Text . . (. 10.9).
10.12
TextBox , . .
MainMenu : , . .
if ehLecturer.GetList.Count <> 0
then
.
12) ehLecturer cmhLecturer. OCL- . .
13) , . ehLecturer. Columns ehLecturer. , . , . Add. . . Name , LectChair. OCL :
self.roleChair.ChairName
( roleChair), . . LectChair.
14) :
procedure TLectSearch.Button1_Click(sender: System.Object; e: System.EventArgs);
var
StrSearch: string;
StrExpression: string;
begin
StrSearch:= TextBox1.Text;
StrExpression:= 'clLecturer.allInstances->select(LecturerSNP. sqlLikeCaseInsensitive(''' + ' %' + StrSearch + ' %' + '''))';
ehLecturer.Expression:= StrExpression;
|
|
dgLecturer.CaptionText:= ' ';
end;
StrSearch -, OCL-. StrExpression , ehLecturer . sqlLikeCaseInsensitive Select , -. (%). , StrSearch.
15) . > CurLect clLecturer . , CurLect. > , .
16) . (. 10.13).
10.13
1) . .
2) .
3) .
1) ECO?
2) ECO?
3) ECO?
4) OCL ?
. , , , , . , . .
. , , . ( ), .
, 230100 .
1) ., ., . . 2- . .: , 2006. 575 .
2) .., .., .. . .: -, 2002. 464 .
3) , .. : . / .. , .. , .. ; . .. . .: , 2003. 288 .
|
|
4) .. Delphi. . . .: , 2007. 720 .
5) , . UML Rational Rose. .: , 2001. 580 .
6) . . .: , 2004. 655 .
7) . - ++, 2- . .: , 1999. 560 .
8) . . .: - , 2004. 576 .
9) . . . .: , 2003. 144 .
10) .. . ARIS-: / .. , .. , .. ; , . , 2002. 392.
11) ., ., ., . - . . .: , 2003. 368 .
12) 34.602-89. . .
13) .. Delphi Model Driven Architecture. . .: , 2004. 348 .
14) .. : . .: - . .. , 2002. 320 .
15) .. / .. , .. ; . ., ., 2005. 359 .
16) ., . . .: , 2004. 592 .
17) . UML . 2- . .: , 2002. 624 .
18) .. UML. 2- . : -, 2004. 432 .
19) , . . .: , 2002. 448 .
20) .. . . 2- . .: , 2003. 480 .
21) ., . UML 2.0. - . 2- . .: , 2007. 544.
22) . , 6- . .: , 2002. 624.
23) .. . . .: -, 2003. 427 .
24) . UML. , 3- . . . : -, 2004. 192 .
25) . : , , / . , . ; , , 2005. 731.
26) , . . - . .: , 2002. 288 .